F_CalcularIrrf

Retorna o valor do IRRF calculado para um determinado colaborador de acordo com a faixa da tabela de IRRF.

Sintaxe: RH.F_CalcularIrrf(Colaborador, Data, Base)

A sintaxe da função F_CalcularIrrf contém os seguintes argumentos:

Parte	Descrição
Colaborador	Informe o código reduzido do colaborador
Data	Informe a data que será utilizada como base
Base	Informe o valor da base de contribuição

Dim iBASEIRRF, iVALORIRRF

iBASEIRRF = RH.F_BaseContr(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger, RH_DATAPAGAMENTO,4,RH_ProcessoCorrente)
iVALORIRRF = RH.F_CalcularIrrf(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger, RH_DATAPAGAMENTO,(iBASEIRRF))

Dim iBASEFERIAS, iVALOR_IRRF_FERIAS

iBASEFERIAS = RH.F_BaseContr(RH.T_Colaborador.Field("COL_IN_CODIGO").AsInteger, RH_DATAPAGAMENTO, 6, RH_ProcessoCorrente)
IF (RH.F_CalcularIrrf(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger, RH_DATAPAGAMENTO,(iBASEFERIAS)) <=10) THEN
iVALOR_IRRF_FERIAS = 0
ELSE
iVALOR_IRRF_FERIAS = RH.F_CalcularIrrf(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger, RH_DATAPAGAMENTO,(iBASEFERIAS))
END IF