Histórico da Página

01. VISÃO GERAL

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

02. EXEMPLO DE UTILIZAÇÃO

Bloco de código

language	java
theme	Midnight
firstline	1
title	Exemplo
collapse	true

#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

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 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 (Data da baixa)

aTitulos [9]:= lBaixaLot (Processo do conciliador, 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

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.

...

Árvore de páginas

Versões comparadas

Versão antiga 12

Nova versão 13

Chave

01. VISÃO GERAL

02. EXEMPLO DE UTILIZAÇÃO