Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
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.

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

#include "protheus.ch"

User Function CTBGRV()

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

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

Return

	_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.

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>