FINA110 - Exemplo de execauto na rotina Baixa Automática de Títulos a Receber

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       (A data de baixa deve ser igual ou inferior à data base do sistema e deve ser igual ou superior a data de emissão dos registros que serão baixados)
aTitulos [9]:= lBaixaLot   (Processo do conciliador e 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