PE CTB105OUTM

01. DADOS GERAIS

02. DESCRIÇÃO

O ponto de entrada CTB105OUTM é acionado ao término da validação para inclusão de um documento contábil, abrangendo tanto documentos inseridos manualmente quanto aqueles gerados pelo processo de contabilização de integração. Esse ponto de entrada permite a execução de lógicas adicionais que devam ocorrer após a validação final do documento, oferecendo flexibilidade para validar informações adicionais de acordo com os requisitos da empresa.

O ponto de entrada somente será executado se as validações padrões da função CT105TOK() forem atendidas, inclusive condicionado a validação das linhas do documento.

Características relevantes:

1. Não serão exibidas mensagens de aviso caso o ponto de entrada efetue um retorno lógico .F.
   1. O tratamento das mensagens deverá ser realizado pelo ponto de entrada, utilizando-se a função HELP()
   2. A utilização da função HELP() para as mensagens de aviso é recomendada devido a possibilidade de execução da função CTBA102() por MsExecAuto()

1. O retorno do tipo lógico é obrigatório pois não há consistência na rotina para o tipo de variável retornado.

1. A utilização do ponto de entrada CTB105OUTM no processo de contabilização de integração fica sujeita as seguintes parametrizações complementares:

1. Se o parâmetro Mostra Lançamento da rotina de contabilização estiver definido como “S”, o sistema bloqueará o documento contábil no momento em que o usuário tentar confirmar a tela;

1. Se o parâmetro Mostra Lançamento da rotina de contabilização estiver definido como “N” e tivermos os parâmetros de sistema MV_CT105MS definido como .T. e MV_ALTLCPO definido como “N” o documento contábil será gravado mas como pré-lançamento, desde que o parâmetro de sistema MV_PRELAN esteja definido como “D” (documento inconsistente).

03. DEMAIS INFORMAÇÕES

lRet := ExecBlock("CTB105OUTM",.F.,.F.,{dDataLanc,cLote,cSubLote,cDoc})

User Function CTB105OUTM()

	Local dDataLanc := PARAMIXB[1]
	Local cLote     := PARAMIXB[2]
	Local cSubLote  := PARAMIXB[3]
	Local cDoc      := PARAMIXB[4]
	Local lRet      := .F.
	Local cMensagem := ""

	If dDataLanc != dDatabase   
		lRet := .F.   
		cMensagem := "Não pode ser incluído um documento "+CRLF   
		cMensagem += "contábil com data diferente "+CRLF   
		cMensagem += "da database do sistema."   
		Help("CTBA102",1,"HELP","CTB_INCL",cMensagem,1,0)
	EndIf

Return lRet

04. ASSUNTOS RELACIONADOS

• Não se aplica.