Linha Microsiga Protheus

Árvore de páginas

Alterar Sub Lote antes de gravar um lançamento contábil de integração

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

SIGACTB

Rotina:

Rotina

Nome Técnico

CTBA105


Inclusão de lançamentos contábeis

Ponto de Entrada:

CT105SBLOTE

País(es):

Brasil

Banco(s) de Dados:

Todas

Sistema(s) Operacional(is):

Todos

Descrição

Ponto de entrada criado para alterar o sub lote de um lançamento contábil de integração antes da sua gravação.

Ponto de Entrada

Descrição:

Ponto de entrada criado para alterar o sub lote de um lançamento contábil de integração antes da sua gravação.

Programa Fonte:

CTBA105

Retorno:

 cSbLoteExec(caractere)

 

Exemplo:

#include 'protheus.ch'
#include 'parmtype.ch'

user function CT105SBLOTE()

Local cSbLoteExec
Local cAtfa:="ATF"
Local cFina:="FIN"
    
If FunName() == "ATFA012"
    cSbLoteExec := cAtfa
EndIf    

If FunName() == "FINA050" .Or. FunName() == "FINA040"  
    cSbLoteExec := cFina
EndIf
    
return (cSbLoteExec)