Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas