#INCLUDE "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} user function F50CIRFF
description Ponto de entrada para manipular a base de IRRF (nBaseIrrf). 
Deve retornar o valor da base e moeda corrente. 
contexto de execução, alteração na emissão ou valor de título a pagar. 
@author  diegos.sousa
@since   27/05/2022
@version 12.1.33
@return nNewBaseIrrfnBaseIrrf numerico.  Base dido imposto alterada conforme regra de negócio.  
/*/
//-------------------------------------------------------------------
user function F50CIRFF(nNewBaseIrrf) as numeric 
    local nDependentes    := SA2M->A2_NUMDEP
    local nBaseIRRF       := SE2M->E2_BASEIRF
    local nValDedPorDep   := 100,00
    local nw              := 0
    local lAtivo          := .F.
    default nNewBaseIrrf  := 0  

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

        For nw := 1 to nDependentes

            nBaseIRRF -= nValDedPorDep
            nNewBaseIrrf := nBaseIRRF

        Next nw 

    EndIf

return nNewBaseIrrfnBaseIrrf