Histórico da Página

01. VISÃO GERAL

Modelo de uso da rotina automática para uso no arquivo fonte FINA110.

02. EXEMPLO DE UTILIZAÇÃO

Deve ser passado um array (aTitulos), com nove posições, sendo que cada posição deverá conter a seguinte composição:

aTitulos [1]:= aRecnos   (array contendo os Recnos dos registros a serem baixados)
aTitulos [2]:= cBanco     (Banco da baixa)
aTitulos [3]:= cAgencia  (Agência da baixa)
aTitulos [4]:= cConta      (Conta da baixa)
aTitulos [5]:= cCheque   (Cheque da Baixa)
aTitulos [6]:= cLoteFin    (Lote Financeiro da baixa) → Gera totalizador quando MV_BXCNAB habilitado
aTitulos [7]:= cNatureza (Natureza do movimento bancário)
aTitulos [8]:= dBaixa      (Data da baixa)
aTitulos [9]:= lBaixaLot    (Processo do conciliador, baixa em lote)

#INCLUDE  "protheus.ch"




USER FUNCTION TSTF110Auto()

LOCAL aTitulos  :=  Array(8)

PRIVATE lMsErroAuto  :=  .F.




aTitulos[1] :=  {4,5}

aTitulos[2] :=  PAD("237",TAMSX3('A6_COD')[1])

aTitulos[3] :=  PAD("200",TAMSX3('A6_AGENCIA')[1])

aTitulos[4] :=  PAD("17085",TAMSX3('A6_NUMCON')[1])

aTitulos[5] :=  PAD("20202",TAMSX3('EF_NUM')[1])

aTitulos[6] :=  PAD("",TAMSX3('E1_LOTE')[1]) 

aTitulos[7] :=  PAD("001",TAMSX3('ED_CODIGO')[1])

aTitulos[8] := DATE ()

aTitulos[9] := .T.




MSExecAuto({|x,y| Fina110(x,y)},3,aTitulos)




IF lMsErroAuto

    MostraErro()

ENDIF




RETURN nil

...