F_CalcularInss

Retorna o valor do INSS calculado de acordo com a faixa da tabela de INSS.

Sintaxe: RH.F_CalcularInss(Data, Base, SalarioContribuicao, FaixaMax, ArredondaValor,ValorContribuicao)

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

Parte	Descrição
Data	Informe a data que será utilizada como base
Base	Informe a base de salário
SalarioContribuicao	O default é 0. Caso o colaborador esteja vinculado a mais de uma organização, informe o salário de contribuição do mesmo.
FaixaMax	Informe se a faixa máxima (11%) será forçada, independente do valor da base de contribuição (TRUE) ou não (FALSE). O default é FALSE.
ArredondaValor	Informe se o valor será arredondado (TRUE) ou não (FALSE). O default é FALSE.
ValorContribuicao	O default é 0. Caso o colaborador esteja vinculado a mais de uma organização, informe o valor da contribuição na outra empresa.

Dim iINSS_FERIAS, iBASEFERIAS

iBASEFERIAS = RH.F_BaseContr(RH.t_colaborador.field("COL_IN_CODIGO").AsInteger,Mega.Data(Mega.MesCorrente,2), 3,10)
iINSS_FERIAS = RH.F_CalcularInss(Mega.Data(Mega.MesCorrente,2),(iBASEFERIAS),0,false,false,0)

Dim iBASE13, iBASE13RESCISAO, iBASECALCULO, iINSS_13

iBASE13 = RH.F_BaseContr(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger,Mega.Data(Mega.MesCorrente,2), 2, 12)
iBASE13RESCISAO = RH.F_BaseContr(rh.t_colaborador.field("COL_IN_CODIGO").AsInteger,Mega.Data(Mega.MesCorrente,2), 2, 9)
iBASECALCULO = (iBASE13 + iBASE13RESCISAO)
iINSS_13 = RH.F_CalcularInss(Mega.Data(Mega.MesCorrente,2),(iBASECALCULO),0,false,false,0)