Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

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.


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

PARAMIXB[1]Lógico

Se controla pelo PE ou funcionamento padrão

Sim


Retorno:

Retorno

Tipo

Descrição

Obrigatório

LógicoLógicoVerdadeiro ou FalsoSim



Exemplo de utilização do Ponto de Entrada 
#include "protheus.ch"
 
User Function CHKCTBGRV()

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

	If lAntCtbGrv 
    	lRet := .T.
	endIf

return lRet



Exemplo de utilização do Ponto de Entrada utilizado em conjunto - ANTCTBGRV / DEPCTBGRV 
#include "protheus.ch"
 
User Function ANTCTBGRV()

    cFilant :=  'D MG 01'

Return



User Function DEPCTBGRV()

         cFilant  :=  SE1->E1_FILIAL

Return



Exemplo da manipulação do PE pelo sistema - Exemplo 2 
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.