Bom dia.
A necessidade é desenvolver duas formulas:
Uma é para o plano de saúde com faixa etária. No totvsconnect existe um modelo de formula para essa modalidade contendo apenas duas faixas. Tentamos adicionar novas faixas de idade, mas a formula está gerando um erro com a seguinte mensagem:
"ERRO DE COMPILAÇÃO DA FÓRMULA TESTING NA LINHA 12! FIM DE INSTRUÇÃO ESPERADO".
DECL DEP,SOMADEP,SOMAFUN;
SETVAR(DEP,1);
SETVAR(SOMADEP,0);
REPITA
SE TABDEP ('INCASSISTMEDICA' ,'V', DEP)=1 ENTAO
SE NDEPIDADE (DEP,HOJE)<=18
ENTAO SALVAVALDEP(DEP,80.95);
SETVAR(SOMADEP,SOMADEP+80.95)
SENAO
SE NDEPIDADE (DEP,HOJE)<=23
ENTAO SALVAVALDEP(DEP,108.14);
SETVAR(SOMADEP,SOMADEP+108.14)
SENAO
SE NDEPIDADE (DEP,HOJE)<=28
ENTAO SALVAVALDEP(DEP,119.50);
SETVAR(SOMADEP,SOMADEP+119.50)
SENAO
SE NDEPIDADE (DEP,HOJE)<=33
ENTAO SALVAVALDEP(DEP,125.24);
SETVAR(SOMADEP,SOMADEP+125.24)
SENAO
SE NDEPIDADE (DEP,HOJE)<=38
ENTAO SALVAVALDEP(DEP,138.73);
SETVAR(SOMADEP,SOMADEP+138.73)
SENAO
SE NDEPIDADE (DEP,HOJE)<=43
ENTAO SALVAVALDEP(DEP,177.97);
SETVAR(SOMADEP,SOMADEP+177.97)
SENAO
SE NDEPIDADE (DEP,HOJE)<=48
ENTAO SALVAVALDEP(DEP,200.98);
SETVAR(SOMADEP,SOMADEP+200.98)
SENAO
SE NDEPIDADE (DEP,HOJE)<=53
ENTAO SALVAVALDEP(DEP,279.51);
SETVAR(SOMADEP,SOMADEP+279.51)
SENAO
SE NDEPIDADE (DEP,HOJE)<=58
ENTAO SALVAVALDEP(DEP,306.79);
SETVAR(SOMADEP,SOMADEP+306.79)
SENAO
SE NDEPIDADE (DEP,HOJE)<=999
ENTAO SALVAVALDEP(DEP,485.47);
SETVAR(SOMADEP,SOMADEP+485.47)
SENAO 0 FIMSE FIMSE FIMSE;
SETVAR(DEP,DEP+1) ATE DEP=100;
SE TABCOMPL('ASSISTMEDICA','S')='S'
ENTAO SE IDADE(HOJE)<=18
ENTAO SALVAVALDEP(0,80.95);
SETVAR(SOMAFUN,SOMAFUN+80.95)
SENAO SE IDADE(HOJE)<=23
ENTAO SALVAVALDEP(0,108.14);
SETVAR(SOMAFUN,SOMAFUN+108.14)
SENAO SE IDADE(HOJE)<=28
ENTAO SALVAVALDEP(0,119.50);
SETVAR(SOMAFUN,SOMAFUN+119.50)
SENAO SE IDADE(HOJE)<=33
ENTAO SALVAVALDEP(0,125.24);
SETVAR(SOMAFUN,SOMAFUN+125.24)
SENAO SE IDADE(HOJE)<=38
ENTAO SALVAVALDEP(0,138.73);
SETVAR(SOMAFUN,SOMAFUN+138.73)
SENAO SE IDADE(HOJE)<=43
ENTAO SALVAVALDEP(0,177.97);
SETVAR(SOMAFUN,SOMAFUN+177.97)
SENAO SE IDADE(HOJE)<=48
ENTAO SALVAVALDEP(0,200.92);
SETVAR(SOMAFUN,SOMAFUN+200.92)
SENAO SE IDADE(HOJE)<=53
ENTAO SALVAVALDEP(0,279.51);
SETVAR(SOMAFUN,SOMAFUN+279.51)
SENAO SE IDADE(HOJE)<=58
ENTAO SALVAVALDEP(0,306.79);
SETVAR(SOMAFUN,SOMAFUN+306.79)
SENAO SE IDADE(HOJE)<=999
ENTAO SALVAVALDEP(0,485.47);
SETVAR(SOMAFUN,SOMAFUN+485.47)
SENAO 0 FIMSE FIMSE FIMSE;
SOMADEP+SOMAFUN