Ranking

Jean, bom dia! Abaixo segue exemplo que utilizo em minha empresa e funciona muito bem. Eu criei campos complementares tanto no funcionário como no dependente onde o RH marca somente com "S" ou "N" qual o plano que o titular e dependente optou. Desta forma o sistema verifica primeiro no titular e depois vai até os dependentes. No final ele ainda proporcionaliza no evento pelos número de dias trabalhado, pois o funcionário possui também as fórmulas de evento de desconto em férias. Espero ter lhe ajudado. Decl (DC, DD, DE); SetVar (DC,1); SetVar (DD,0); SetVar (DE,0); Se TABCOMPL('ODONTO1','S')='S' Entao SetVar (DD, 0) Senao Se TABCOMPL('ODONTO2','S')='S' Entao SetVar (DD, F('0023')-F('0022')); SALVAVALDEP(0,DD) Senao Se TABCOMPL('ODONTO3','S')='S' Entao SetVar (DD, F('0024')-F('0022')); SALVAVALDEP(0,DD) Senao Se TABCOMPL('ODONTO4','S')='S' Entao SetVar (DD, F('0025')-F('0022')); SALVAVALDEP(0,DD) Senao Se TABCOMPL('ODONTO5','S')='S' Entao SetVar (DD, F('0026')-F('0022')); SALVAVALDEP(0,DD) Senao Se TABCOMPL('ODONTO6','S')='S' Entao SetVar (DD, F('0027')-F('0022')); SALVAVALDEP(0,DD) Senao 0 FimSe FimSe FimSe FimSe FimSe FimSe; REPITA Se INCDEP (DC,1)=1 Entao Se TABCOMPLDEPEND ('ODONTO1','S',DC)='S' Entao SetVar (DE, DE+F('0022')); SALVAVALDEP(DC,F('0022')) Senao Se TABCOMPLDEPEND ('ODONTO2','S',DC)='S' Entao SetVar (DE, DE+F('0023')); SALVAVALDEP(DC,F('0023')) Senao Se TABCOMPLDEPEND ('ODONTO3' ,'S',DC)='S' Entao SetVar (DE, DE+F('0024')); SALVAVALDEP(DC,F('0024')) Senao Se TABCOMPLDEPEND ('ODONTO4' ,'S',DC)='S' Entao SetVar (DE, DE+F('0025')); SALVAVALDEP(DC,F('0025')) Senao Se TABCOMPLDEPEND ('ODONTO5' ,'S',DC)='S' Entao SetVar (DE,DE+ F('0026')); SALVAVALDEP(DC,F('0026')) Senao Se TABCOMPLDEPEND ('ODONTO6' ,'S',DC)='S' Entao SetVar (DE, DE+F('0027')); SALVAVALDEP(DC,F('0027')) Senao SetVar(DE,0) FimSe FimSe FimSe FimSe FimSe FimSe FimSe; SetVar (DC,DC+1) ATE (DC=10); SetVar (DD,DD+DE); (DD /30) * ND

O idioma padrão do usuário "rm" do banco de dados deve está como Brazilian, altere para English ou Default e o erro não será mais apresentado.