Valor INSS; Valor Pensao; Valor IRRF; Valor ResultCalc; Valor i; Valor BaseIR; Valor DedLegal; Valor BasePensao; Valor BaseIRRF; /* Bases de Pensão e IRRF - Quando as bases forem distintas, criar duas bases */ BasePensao = BC(XXX); BaseIRRF = BC(XXX); /* Rubricas de INSS da folha mensal */ INSS = VALEVE(998)+ VALEVE(821) + valeve(826) - VALEVE(836); /*CALCULO DEDUCAO LEGAL*/ PARA i DE 1 ATE 2; ResultCalc = Pensao; BaseIR = BaseIRRF - INSS - (DESCDEP* NDEP)- ResultCalc; IRRF = ((BaseIR) * (TAXAIRRF(BaseIR) / 100)) - DEDIRRF(BaseIR); Pensao = (BasePensao - INSS - IRRF) * (VALVAR(0) / 100); SE (Pensao == ResultCalc); i = 2; SENAO; i = 1; FIMSE; FIMPARA; SE(TIPODEDUIRRF == 1);/*DEDUCAO LEGAL*/ VCALC = Pensao; VINF = VALVAR(0); FIMSE; SE(TIPODEDUIRRF == 2);/*DEDUCAO SIMPLIFICADA*/ /* CALCULO DEDUCAO SIMPLIFICADA*/ IRRF = BaseIRRF - DEDSIMPIRRF; IRRF = (IRRF * (TAXAIRRF(IRRF) / 100)) - DEDIRRF(IRRF); Pensao = (BasePensao - INSS - IRRF) * (VALVAR(0) / 100); VCALC = Pensao; VINF = VALVAR(0); FIMSE; SE(TIPODEDUIRRF == 3);/*FAVORAVEL*/ DedLegal = INSS + Pensao + (DESCDEP* NDEP); SE (DedLegal > DEDSIMPIRRF); VCALC = Pensao; VINF = VALVAR(0); SENAO; /*CALCULO DEDUCAO SIMPLIFICADA*/ IRRF = BaseIRRF - DEDSIMPIRRF; IRRF = (IRRF * (TAXAIRRF(IRRF) / 100)) - DEDIRRF(IRRF); Pensao = (BasePensao - INSS - IRRF) * (VALVAR(0) / 100); VCALC = Pensao; VINF = VALVAR(0); FIMSE; FIMSE;