O El valor retornado devuelto por esse ponto este punto de entrada será usado se utilizará para o el cálculo do IRRF a ser retido, esse mesmo valor NÃO será gravado no de IRRF que se retendrá, este mismo valor NO se grabará en el campo Base IRPF, o campo será gravado com o valor base da origem da movimentaçãoel campo se grabará con el valor base del origen del movimiento.

#INCLUDE "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} user function F50CIRFF
description PontoPunto de entrada para manipularmanejar ala base de IRRF (nBaseIrrf). 
DeveDebe retornardevolver oel valor dade la base ey moedamoneda correnteactual. 
contexto de execuçãoejecución, modificación alteraçãoen nala emissãoemisión ouo valor de título apor pagar. 
@author  diegos.sousa
@since   27/05/2022
@version 12.1.33
@return nBaseIrrf numerico.  Base do imposto alterada conforme regra del impuesto modificada de acuerdo con la regla de negócionegocio.  
/*/
//-------------------------------------------------------------------
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