DECL FAIXA1, FAIXA2, FAIXA3,SALARIOMINIMO,REMUNERACAOMES;
/*PASSOS PARA CALCULO ASSISTENCIA MEDICA
1) CRIAR VALORES FIXOS: VL01,VL02,VL03
2) CRIAR VALOR FIXO SALARIOMINIMO, COD SMIN
*/
SETVAR (FAIXA1,F ('VL01'));
SETVAR (FAIXA2,F ('VL02'));
SETVAR (FAIXA3,F ('VL03'));
SETVAR (SALARIOMINIMO, F ('SMIN'));
SETVAR (REMUNERACAOMES, C ('0001') + C ('0293'));
SE (REMUNERACAOMES <= SALARIOMINIMO * 3)
ENTAO FAIXA1
SENAO SE (REMUNERACAOMES > SALARIOMINIMO * 3) E (REMUNERACAOMES <= SALARIOMINIMO * 6)
ENTAO FAIXA2
SENAO SE REMUNERACAOMES > SALARIOMINIMO * 6
ENTAO FAIXA3
SENAO 0
FIMSE
FIMSE
FIMSE