Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

01. DATOS GENERALES

Línea de producto:

Microsiga Protheus®

Segmento:

Servicios

Módulo:

Financiero

Rutina:

FINA080 - Baja por pagar manual 

02. DESCRIPCIÓN

El punto de entrada F80GRVFK se ejecutará para grabar datos complementarios en las tablas FK5 y FK6. 

Este se ejecutará en dos momentos:

1 - Para activar los datos complementarios en el registro principal de la baja de la tabla FK5, cuando reciba como parámetro el código de operación 1.

2 - Para activar los datos complementarios en los registros auxiliares de la baja de la tabla FK6, cuando reciba como parámetro los códigos de operación de 2 a 7.

Observación: el punto de entrada F80GRVFK fue creado para la versión Protheus12 y puede utilizarse en conjunto con los puntos de entradas citados a continuación, en Otras informaciones.

03. PARÁMETROS      

Nombre

Tipo

Descripción

PARAMIXB[1]

Objeto

Submodelo para incluir datos complementarios en el registro de la tabla FK5 o FK6 (de acuerdo con el punto de ejecución).

PARAMIXB[2]

Numérico

Código de la operación, indicando qué registro auxiliar se está tratando en el momento de la ejecución del punto de entrada.

04. DEVOLUCIÓN

Tipo

Descripción

Objeto

Submodelo de PARAMIXB[1] con los datos complementarios informados.

05. EJEMPLO DE UTILIZACIÓN


F80GRVFK
#INCLUDE "PROTHEUS.CH"

User Function F80GRVFK()

Local oObj := ParamIxb[1]
Local nOpc := ParamIxb[2]

Local cConteudo := "Campo personalizado."

If nOpc == 1 //Baixa 
    //--Recebe Submodelo FK5 - Movimientos bancarios
    oObj:SetValue( "FK5_CUSTOM" , cConteudo )

Else 
    //--Recebe Submodel FK6 - Valores adicionales
    If nOpc == 2 // Descuento
        cConteudo +=  '- DC'
    ElseIf nOpc == 3 // Intereses
        cConteudo +=  '- JR'
    ElseIf nOpc == 4 // Multa
        cConteudo +=  '- MT'
    ElseIf nOpc == 5 // Corrección monetaria
        cConteudo +=  '- CM'
    ElseIf nOpc == 6 // Impuesto sustitución
        cConteudo += ' - IS'
    ElseIf nOpc == 7 // Valor adicinal
        cConteudo += ' - VA'        
    EndIf

    oObj:SetValue( "FK6_CUSTOM" , cConteudo )

Endif

Return oObj


06. OTRAS INFORMACIONES

SE5FI080 - Punto de entrada para grabación de datos complementarios de la baja 

F080ACONT - Complemento de baja por pagar