DT PE CTBGRV Procedimento de usuário após incluir, alterar ou estornar um lançamento contábil

01. DADOS GERAIS

Produto:	TOTVS Backoffice
Linha de Produto:	Linha Protheus
Segmento:	Serviços
Módulo:	Contabilidade Gerencial(SIGACTB)
Função:	Lan Contab. Automat. (CTBA102)
Ticket:	10803748
Requisito/Story/Issue:	DSERCTR1-30528

02. SITUAÇÃO/REQUISITO

O ponto de entrada CTBGRV executa o procedimento de usuário após a gravação de inclusão, alteração ou estorno do lançamento contábil.

Os lançamentos contábeis de integração somente tem acesso aos indices [1] e [2] do array aParamIxb ao ser executada a chamada do ponto de entrada CTBGRV

03. SOLUÇÃO

Realizado documentação do PE.

Importante !

O exemplo demonstrado é meramente ilustrativo. A regra, o funcionamento e os impactos gerados pelo ponto de entrada no sistema são de responsabilidade do cliente que o utiliza.

04. DEMAIS INFORMAÇÕES

Parâmetros:

Parâmetro	Tipo	Descrição	Obrigatório	Rotina
PARAMIXB[1]	Numérico	Opção para lançamento (3-Inclusão; 4-Alteração;6-Estorno)	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410 Lançamentos contábeis de integração
PARAMIXB[2]	Caractere	Nome do programa	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410 Lançamentos contábeis de integração
PARAMIXB[3]	Data	Data do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[4]	Caractere	Lote do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[5]	Caractere	Sub Lote do lançamento contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410
PARAMIXB[6]	Caractere	Documento do lançamento Contábil	Sim	Ctba101/CTBA102 CTBA211 CTBA220 CTBA231 CTBA280 CTBA281 CTBA380 CTBA381 CTBM300 CTBA410

Retorno:

Retorno	Tipo	Descrição	Obrigatório
Não se aplica	Não se aplica	Não se aplica	Não se aplica

Exemplo de utilização do Ponto de Entrada

#include "protheus.ch"

User Function CTBGRV()

nOpcLct := aParamIxb[1]
nProgra := aParamIxb[2]

If nOpcLct == 3 //inclusao
   // incluir tratamento de acordo à necessidade
EndIf

Return

Exemplo da manipulação do PE pelo sistema - Exemplo 1

	_lCtbGrv 	:= ExistBlock("CTBGRV")
	
	
	If _lCtbGrv
		ExecBlock("CTBGRV",.f.,.f.,{ nOpc,cRotina,dData,cLote,cSubLote,cDoc } )
	EndIf
	
para lançamentos contábeis de integração

	If _lCtbGrv .And. !lSimula
		ExecBlock("CTBGRV",.f.,.f.,{nOpc,cProg})
	EndIf

05. ASSUNTOS RELACIONADOS

Não se aplica.

Árvore de páginas