Linha Microsiga Protheus

Árvore de páginas

Características do Requisito

Linha de Produto:

Microsiga Protheus.

Segmento:

serviços.

Módulo:

Contabilidade Gerencial - SIGACTB.

Rotina:

Rotina

Nome Técnico

CTBXVLD

Validação de amarração.

Ponto de Entrada:

CTBXAMARRA.

Tickets relacionados

3723147.

Requisito/Story/Issue (informe o requisito relacionado):

DSERCTR1-14982.

País(es):

Brasil.

Banco(s) de Dados:

Todos homologados para o Protheus.

Sistema(s) Operacional(is):

Todos homologados para o Protheus.

Descrição

O ponto de entrada,  CTBXAMARRA, se implementado/existente, não exibirá a mensagem de inconsistência do Help padrão do sistema. O usuário/cliente deverá criar o seu próprio Help para exibir a mensagem de inconsistência de amarração de entidades contábeis.

Se houver inconsistência de amarração de entidades contábeis o ponto de entrada deve retornar falso. 

Obs: os impactos da execução de pontos de entrada no sistema padrão são de responsabilidade do usuário/cliente.


Ponto de Entrada

Descrição:

Este ponto de entrada permite adicionar uma validação após a validação padrão do sistema.

Eventos:

lRet := ExecBlock("CTBXAMARRA",.F.,.F.,{cConta,cCusto,cItem ,cCLVL, aCpos})

Programa Fonte:

CTBXVLD

Retorno:

.T. ou .F.

 

Exemplo:

#Include 'Protheus.ch'

User Function CTBXAMARA()

Local lRet := .F.

Local cConta := PARAMIXB[1]

Local cCusto := PARAMIXB[2]

Local cItem   := PARAMIXB[3]

Local cCLVL := PARAMIXB[4]

Local aCpos := PARAMIXB[5]  // Array com os campos digitados

/* ------------------------------------------------------------------------------------
Aqui efetuar o seu tratamento
------------------------------------------------------------------------------------ */

Help( " " , 1 , "USER_HELP" ,, " Aqui exibir sua mensagem " ,3,0)


Return lRet