Valor INSS;
Valor Pensao;
Valor IRRF;
Valor ResultCalc;
Valor i;
Valor BaseIR;
Valor DedLegal;
INSS = VALEVE(998)+ VALEVE(821)+ VALEVE (826);
/*CALCULO DEDUCAO LEGAL*/
PARA i DE 1 ATE 2;
ResultCalc = Pensao;  
BaseIR = BC(XXX) - INSS - (DESCDEP* NDEP)- ResultCalc;
IRRF = ((BaseIR) * (TAXAIRRF(BaseIR) / 100)) - DEDIRRF(BaseIR);
Pensao = (BC(XXX) - 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 = BC(XXX) - DEDSIMPIRRF;
IRRF = (IRRF * (TAXAIRRF(IRRF) / 100)) - DEDIRRF(IRRF);
Pensao = (BC(XXX) - 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 = BC(XXX) - DEDSIMPIRRF;
IRRF = (IRRF * (TAXAIRRF(IRRF) / 100)) - DEDIRRF(IRRF);
Pensao = (BC(XXX) - INSS - IRRF) * (VALVAR(0) / 100);
   
VCALC = Pensao;
VINF = VALVAR(0);
FIMSE;
FIMSE;