Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
Módulo:	Contabilidade Gerencial (SIGACTB)
Função:	CTBXATU (Generico) - CHKCTBGRV
Ticket:	10537859
Requisito/Story/Issue:	DSERCTR1-30184

02. SITUAÇÃO/REQUISITO

O ponto de entrada CHKCTBGRV permite verificar se o controle de gravação de filiais ao contabilizar será feito pelo comportamento padrão ou se terá regra diferente no ponto de entrada ANTCTBGRV.

Observação: Vale frisar que o PE CHKCTBGRV só retornara Verdadeiro e com isso se ira efetuar a regra no PE ANTCTBGRV.

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
PARAMIXB[1]	Lógico	Se controla pelo PE ou funcionamento padrão	Sim

Retorno:

Retorno	Tipo	Descrição	Obrigatório
Lógico	Lógico	Verdadeiro ou Falso	Sim

#include "protheus.ch"
 
User Function CHKCTBGRV()

	Local lAntCtbGrv := PARAMIXB[1]
	Local lRet       := .F.

	If lAntCtbGrv 
    	lRet := .T.
	endIf

return lRet

#include "protheus.ch"
 
User Function ANTCTBGRV()

    cFilant :=  'D MG 01'

Return

		If ExistBlock("AF050VTP")
			If lResult .and. !AFA050VlTp(cFilDe, cFilAte)
				If IsBlind()
					LogRecord( 'ID:AF050VLTP' )
				Else
					HELP(" ",1,"AF050VLTP",,STR0033,1,0)    //"Existem ativo(s) com tipo nao tratado"
				EndIf
				lResult := .F.
			EndIf
		EndIf

If !( lChkCtbGrv .And. Execblock("CHKCTBGRV" , .F., .F. , {lAntCtbGrv} ) )  //Se controlado pelo Ponto de Entrada, não entra nesse trecho
        Regra padrão do sistema que será ignorada caso seja escolhido a utilização do PE conforme os objetivos buscados.

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>