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
