#include 'totvs.ch'
/*/{Protheus.doc} FA040INC()
ALa finalidad del punto de entrada FA040INC es permitir validaciones de usuario
en la inclusión del Cuentas por Cobrar (FINA040), ubicado en el TodoOK de la rutina.
@return lRet - lógico, .T. valida la inclusión y continua el proceso,
en caso contrario .F. e interrumpe el proceso.
/*/
User Function FA040INC()
Local lRet := .T.
// Validaciones de usuario
If M->E1_CLIENTE ='000001' .And. M->E1_LOJA='01' .And. M->E1_VALOR > 5000
// Mensaje de Help para aclarar el motivo de interrumpir la inclusión
Help( ,, 'ALERTA',, "Valor no liberado para este cliente", 1, 0 )
lRet := .F.
// Modificando lMsErroAuto como .T. (verdadero), debido a los casos de integraciones o ExecAuto
lMsErroAuto := .T.
EndIf
Return lRet |