Tempo aproximado para leitura: 00:02:00 min
Dúvida
Descrição do uso da rotina automática (ExecAuto) FINA110 - Baixas a Receber - Automática
Ambiente
Protheus – ADVPL – A partir da versão 11.80
Solução
Para solucionar essa dúvida, realize os seguintes passos:
Deve ser passado um array (aTitulos), com oito 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)
aTitulos [7]:= cNatureza (Natureza do movimento bancário)
aTitulos [8]:= dBaixa (Data da baixa)
#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()
MSExecAuto({|x,y| Fina110(x,y)},3,aTitulos)
IF lMsErroAuto
MostraErro()
ENDIF
RETURN nil
Observações:
Caso a contabilização seja online e a tela de contabilização deva ser mostrada em caso de erro no lançamento (falta de conta, débito/crédito não batem, etc).
A baixa automática em lote não poderá ser utilizada. Somente será processada se:
MV_PRELAN = S
MV_CT105MS = N
MV_ALTLCTO = N
0 Comentários