Línea de producto: | Microsiga Protheus® |
|---|---|
Segmento: | Backoffice |
Módulo: | Financiero |
Función: | FINA040 - Cuentas por cobrar |
Observaciones: | En casos donde el punto de entrada se llama a través del ExecAuto y vuelve como .F. (Falso), la variable lMsErroAuto se debe modificar en el punto de entrada como .T. (Verdadero). Ya que en caso contrario causará impacto en integraciones y llamadas del ExecAuto donde el proceso se interrumpió por la respuesta .F. (falso) del punto de entrada y constando lMsErroAuto también como .F. (falso, es decir, sin errores). |
La finalidad del punto de entrada FA040INC es permitir validaciones de usuario en la inclusión del Cuentas por cobrar (FINA040), ubicado en el TudoOK de la rutina.
No existe
Nombre | Tipo | Descripción |
lRet | Lógico | .T. valida la inclusión y continua el proceso, en caso contrario .F. e interrumpe el proceso. |
#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 |