Histórico da Página

#include 'totvs.ch'

/*/{Protheus.doc} FA050INC()

    A finalidade do ponto de entrada FA050INC é permitir validações de usuário
    na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina.

    @return lRet - lógico, .T. valida a inclusão e continua o processo,
        caso contrário .F. e interrompe o processo.
/*/
User Function FA050INC()
    Local lRet := .F.

    Private lMsErroAuto := .F.

    // Validações de usuário

    If !(lRet)
        // Mensagem de Help para esclarescer o motivo de interromper a inclusão
        Help( ,, 'Help',, "Inclusão Interrompida.", 1, 0 )

        // Alterando lMsErroAuto para .T. (verdadeiro), devido aos casos de integrações ou ExecAuto
        lMsErroAuto := .T.
    EndIf

Return lRet