Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


01. DATOS GENERALES


Producto:

TOTVS Backoffice

Línea de producto:

Línea Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN)

Función:

FA183RES


02. DESCRIPCIÓN

El punto de entrada FA183RES se activa antes de la grabación de las tablas durante el proceso de atribución de aplicaciones que tienen cuota.

Por medio del PE es posible definir si el proceso de atribución se efectuará o no, así como realizar grabaciones complementarias con base en la tabla SEH - Control de Inversión/Préstamo.


Tablas marcadas:

En el momento en el que se activa el punto de entrada, se marcará la tabla SEH (Control Inversión/Préstamo)

    • SEH - Marcado en la aplicación que se está atribuyendo.


Devolución del punto de entrada:

El punto de entrada debe devolver una variable del tipo Lógico:

    • Devolución verdadera: La rutina sigue el flujo normal de ejecución y efectúa la grabación de las tablas.
    • Devolución falsa: La rutina aborta el proceso sin efectuar las grabaciones referentes a la atribución.


Importante

  • No es posible utilizar la interfaz gráfica ADVPL. 
  • La función Help puede utilizarse para devolver mensajes de posibles validaciones.


03. PARÁMETRO

No se aplica


04. EJEMPLO DE UTILIZACIÓN

FA183RES
#INCLUDE "totvs.ch"
 
/*/{Protheus.doc} User Function FA183RES
    Permite efectuar grabaciones y/o validaciones complementarias antes de la grabación 
    de las tablas en el proceso de atribución de aplicaciones con cuota.

    Tablas seleccionadas: SEH - Control Inversión/Préstamo.

    @type  Function
    @author Totvs
    @since 15/04/2025
    @version 1.0
    @see https://tdn.totvs.com/pages/viewpage.action?pageId=934621628
/*/
User Function FA183RES() as Logical
    Local lProccess := .T. as Logical

    // Exemplo de validação:
    lProccess := SEH->EH_DATA < dDataBase

    If !lProccess
        Help(" ",1, "", "Proceso de atribución no ejecutado.")
    EndIf

    // Ejemplo de grabación complementaria:
    RecLock("SEH",.F.)
        SEH->EH_MEUCPO := "XYZ"
    SEH->(MsUnLock())

Return lProccess