Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • Rotina de Baixas a Receber Automática através de ExecAuto -- 112479

Documento: Rotina de Baixas a Receber Automática através de ExecAuto

Descrição do uso da rotina automática (ExecAuto)FINA110 - Baixas a Receber Automática, sendo possível utilizar esse procedimento em customizações ou rotinas facilitadoras


 

Deve ser passado um array (aTitulos), com oito posições, sendo que cada posição deverá conter a seguinte composição:
Composição de aTitulos
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)
 
Caso a contabilização seja online e a tela de contabilização possa 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
 
Exemplo da chamada da ExecAuto:
 
User Function TSTF110Auto()
Local aTitulos := Array(8)
Private lMsErroAuto := .F.
aTitulos[1]:= {1}
aTitulos[2]:= "001"
aTitulos[3]:= "1111 "
aTitulos[4]:= "1111      "
aTitulos[5]:= "100"
aTitulos[6]:= "200"
aTitulos[7]:= "002"
aTitulos[8]:= dDataBase
MSExecAuto({|x,y| Fina110(x,y)},3,aTitulos)
If lMsErroAuto
MostraErro()
Endif  
Return Nil