Histórico da Página

...

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

aTitulos [1]:= aRecnos   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    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      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

...