Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


01. DATOS GENERALES

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).


02. DESCRIPCIÓN

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.

03. PARÁMETROS

No existe

04. EVOLUCIÓN

Nome

Tipo

Descrição

lRet

Lógico

.T. valida la inclusión y continua el proceso, en caso contrario .F. e interrumpe el proceso.

05. EJEMPLO DE UTILIZACIÓN

FA050INC
#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