Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include 'totvs.ch' /*/{Protheus.doc} FA040INC() A finalidade do ponto de entrada FA040INCé permitir validações de usuário na inclusão do Contas a Receber (FINA040), 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. /*/ #INCLUDE "PROTHEUS.CH" User Function FA040INC() Local lRet := .T. // Validações de usuário If M->E1_CODIGOCLIENTE ='000001' .And. M->E1_LOJA='01' .And. M->E1_VALOR > 5000 // Mensagem de Help para esclaresceresclarecer o motivo de interromper a inclusão Help( ,, 'ALERTA',, "Valor não liberado para este cliente", 1, 0 ) lRet := .TF. // 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