Histórico da Página

#INCLUDE "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} user function F50CIRFF
description Ponto de entrada para manipular o valor de IRRF (M->E2_IRRF). 
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 nNewIrrf, numerico.  Valor do campo M->E2_IRRF. 
/*/
//-------------------------------------------------------------------
user function F050CIRF(nBaseIrrf) as numeric
    local nDependentesnBaseIrrf    := M->A2_NUMDEP  Paramixb //Ex:Base 6
calculada pelo   local nValDedPorDep   := 100,00
    local nw              sistema 
	local nNewIrrf	  := 0
    local lAtivo          := .F.
    default nNewIrrf      := 0,00
    default nBaseIrrf     := M->E2_BASEIRF  //Ex: 10.000,00 

 
    lAtivo := (FunName() = "FINA050" )
         
    If lAtivo
 
        For nw := 1 to nDependentes

            nBaseIrrf -= nValDedPorDep

        Next nw

        nNewIrrf := (nBaseIrrf * 1.5) / 100  
    EndIf
 
	//Regra de calculo do IRRF que substitui a do sistema
	If SA2->A2_TIPO == "J" 
	   nNewIrrf := nBaseIrrf * 0,015
	EndIf

return nNewIrrf