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: |
| ||||
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)