VALOR BASECALCULOPENSAO;
VALOR IRRFSIMPLIFICADO;
VALOR PENSAOSIMPLIFICADO;
VALOR INSS;
VALOR DEDLEGAL;
Valor baseIRRFSIMPLIFICADO;
VALOR I;
VALOR PENSAO;
VALOR BASEIR;
VALOR RESULTCALC;
VALOR IRRF;


BASECALCULOPENSAO = BC(XXX);
INSS = VALEVE(825);
baseIRRFSIMPLIFICADO = BASECALCULOPENSAO - DEDSIMPIRRF;
IRRFSIMPLIFICADO = (baseIRRFSIMPLIFICADO * (TAXAIRRF(baseIRRFSIMPLIFICADO) / 100)) - DEDIRRF(baseIRRFSIMPLIFICADO);
PENSAOSIMPLIFICADO = (BASECALCULOPENSAO - INSS - IRRFSIMPLIFICADO) * VALVAR(0) /100;

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;

DEDLEGAL = INSS + (PENSAO) + (DESCDEP* NDEP);

SE(TIPODEDUIRRF == 1);/*DEDUCAO LEGAL*/
  VCALC = Pensao;
  VINF = VALVAR(0);
FIMSE;

SE(TIPODEDUIRRF == 2); /*DEDUCAO SIMPLIFICADA*/
vcalc = PENSAOSIMPLIFICADO;
FIMSE;

SE(TIPODEDUIRRF == 3) E (DEDLEGAL > DEDSIMPIRRF);
VCALC = Pensao;
fimse;
SE(TIPODEDUIRRF == 3) E (DEDLEGAL < DEDSIMPIRRF);
VCALC = PENSAOSIMPLIFICADO;
FIMSE;