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:

FINA050 - Cuentas por pagar

Requisito/Story/Issue (informe el requisito relacionado) :

DFINGRV-26568

Observaciones:

Punto de entrada para manejo de la base de cálculo de IRRF en el momento del cálculo. (Físico y Jurídico).


02. DESCRIPCIÓN

El punto de entrada F50CIRFF maneja la Base de cálculo de IRRF en el momento del cálculo, para tratamientos específicos donde fuera necesario el aumento o disminución de la base de cálculo de IRRF que se retendrá. Este punto de entrada no trabaja en conjunto con F050CIRF.

Importante:

El valor devuelto por este punto de entrada se utilizará para el cálculo de IRRF que se retendrá, este mismo valor NO se grabará en el campo Base IRPF, el campo se grabará con el valor base del origen del movimiento.


03. PARÁMETROS

Nombre

Tipo

Descripción

nBaseIrrf

Numérico

Valor de la base de cálculo de IRRF.

04. DEVOLUCIÓN

Nombre

Tipo

Descripción

nBaseIrrf

Numérico

Valor de la nueva base de IRRF, el valor debe ser en moneda actual. 

05. EJEMPLO DE UTILIZACIÓN

F50CIRFF
#INCLUDE "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} user function F50CIRFF
description Punto de entrada para manejar la base de IRRF (nBaseIrrf). 
Debe devolver el valor de la base y moneda actual. 
contexto de ejecución, modificación en la emisión o valor de título por pagar. 
@author  diegos.sousa
@since   27/05/2022
@version 12.1.33
@return nBaseIrrf numerico.  Base del impuesto modificada de acuerdo con la regla de negocio.  
/*/
//-------------------------------------------------------------------
user function F50CIRFF() as numeric 
    local nDependentes    := M->A2_NUMDEP
    local nBaseIRRF       := M->E2_BASEIRF
    local nValDedPorDep   := 100,00
    local nw              := 0
    local lAtivo          := .F.

    lAtivo := (FunName() = "FINA050" )
        
    If lAtivo

        For nw := 1 to nDependentes

            nBaseIRRF -= nValDedPorDep

        Next nw 

    EndIf

return nBaseIrrf

06. VEA TAMBIÉN

F050CIRF - Punto de entrada para manejo del valor de IRRF