CTB105OUTM - Inclusão -- 10963

O ponto de entrada CTB105OUTM é executado ao final da validação da inclusão de um documento contábil, seja por inclusão manual, seja pelo processo de contabilização de integração.

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.

CTBA105.PRW

CTB105OUTM - Inclusão ( [ dDataLanc ], [ cLote ], [ cSubLote ], [ cDoc ] ) --> lRet

lRet(logico)
• Resultado da validação da inclusão do documento contábil pelo ponto de entrada

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

Detalhamento da execução:

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)ENDIFRETURN lRet