Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

Produto:

Microsiga Protheus

Ocorrência:

Descrição do uso da rotina automática (ExecAuto) FINA110 - Baixas a Receber - Automática

Passo a passo:

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) → Gera totalizador quando MV_BXCNAB habilitado
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

Quando MV_BXCNAB habilitado, Se o parâmetro aTitulos[6] (Lote Financeiro da baixa) for passado será gerado totalizador.
Caso não seja passado esse sexto parâmetro o sistema assumirá que é uma baixa normal e não gera totalizador.