Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch' #INCLUDE 'TBICONN.CH' User function UFINA080() // VARIÁVEIS DA ROTINA // -------------------------------------------------------------------------- Local aBaixa := {} Local cPref := "NMM" Local cTitulo := "M2000 " Local cParcela := " " Local cTipo := "NF " Local cForne := "000014" Local cLoja := "01" Local cBanco := "001" Local cAgencia := "001 " Local cConta := "001 " Local nOp := 3 // VARIÁVEIS DE CONTROLE DE ERRO // -------------------------------------------------------------------------- Private lMsErroAuto := .F. Private lAutoErrNoFile := .T. PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01" AADD( aBaixa, { "E2_PREFIXO" , cPref , Nil } ) // 01 AADD( aBaixa, { "E2_NUM" , cTitulo , Nil } ) // 02 AADD( aBaixa, { "E2_PARCELA" , cParcela , Nil } ) // 03 AADD( aBaixa, { "E2_TIPO" , cTipo , Nil } ) // 04 AADD( aBaixa, { "E2_FORNECE" , cForne , Nil } ) // 05 AADD( aBaixa, { "E2_LOJA" , cLoja , Nil } ) // 06 AADD( aBaixa, { "AUTMOTBX" , "DEBITO CC" , Nil } ) // 07 AADD( aBaixa, { "AUTBANCO" , cBanco , Nil } ) // 08 AADD( aBaixa, { "AUTAGENCIA" , cAgencia , Nil } ) // 09 AADD( aBaixa, { "AUTCONTA" , cConta , Nil } ) // 10 AADD( aBaixa, { "AUTDTBAIXA" , dDataBase , Nil } ) // 11 AADD( aBaixa, { "AUTHIST" , "TESTE CAOA" , Nil } ) // 12 AADD( aBaixa, { "AUTDESCONT" , 0 , Nil } ) // 13 AADD( aBaixa, { "AUTMULTA" , 0 , Nil } ) // 14 AADD( aBaixa, { "AUTJUROS" , 0 , Nil } ) // 15 AADD( aBaixa, { "AUTOUTGAS" , 0 , Nil } ) // 16 AADD( aBaixa, { "AUTCHEQUE" , "" , Nil } ) // 19 MSExecAuto({|x,y| Fina080(x,y)},aBaixa,nOp) If lMsErroAuto MostraErro() Else Alert("TítuloOperação incluídoconcluída com sucesso! " + cTitulo) Endif RESET ENVIRONMENT Return NIL |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas