Formula Plano Médico

[João Lemos]

Pessoal, Boa tarde!

Estou com o pequeno problema.

Tenho alguns colaboradores que estão afastados, porem permanecem com o Plano médico, até ai tudo bem, no entanto ao fazer o lançamento do movimento para o envelope desses colaboradores ele leva o valor correspondente ao mesmo mais não leva o do dependente.

Estou utilizando a seguinte formula abaixo, onde nos ativos está funcionando normal.

Alguém saberia me dizer o que pode ser?

OBS: as informações no cadastro do dependente estão todas preenchidas.

DECL DEP,SOMADEP,SOMAFUN;

SETVAR(DEP,1);

SETVAR(SOMADEP,0);

SETVAR(SOMAFUN,0);

REPITA

SE c('0577') >0

ENTAO 0

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOENF' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS01')) ) ; SALVAVALDEP(DEP,( F('PS01')) )

SENAO SETVAR(SOMADEP,SOMADEP + (T ('0005' , RC) * F('PS01')) ) ; SALVAVALDEP(DEP,(T ('0005' , RC) * F('PS01')) )

FIMSE

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETO0APAR' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS02')) ) ; SALVAVALDEP(DEP,( F('PS02')) )

SENAO SETVAR(SOMADEP,SOMADEP + (T ('0007' , RC) * F('PS02')) ) ; SALVAVALDEP(DEP,(T ('0007' , RC) * F('PS02')) )

FIMSE

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOESP' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS03')) ) ; SALVAVALDEP(DEP,( F('PS03')) )

SENAO SETVAR(SOMADEP,SOMADEP + (T ('0008' , RC) * F('PS03')) ) ; SALVAVALDEP(DEP,(T ('0008' , RC) * F('PS03')) )

FIMSE

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE;

SETVAR(DEP,DEP+1)

ATE DEP=10;

SE c('0544') >0

ENTAO 0

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOENF'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0005' , RC) * F('PS01')) ) ; SALVAVALDEP(0,(T ('0005' , RC) * F('PS01')) )

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOAPAR'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0007' , RC) * F('PS02')) ) ; SALVAVALDEP(0,(T ('0007' , RC) * F('PS02')) )

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOESP'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0008' , RC) * F('PS03')) ) ; SALVAVALDEP(0,(T ('0008' , RC) * F('PS03')) )

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE;

SOMADEP + SOMAFUN

[Luciano DP]

João, boa tarde!

De momento não vi nada na fórmula que justifique não lançar. Testa a fórmula no editor e posta o log do teste para análise, de preferência pega alguém que está com essa situação.

[João Lemos]

João, boa tarde!

De momento não vi nada na fórmula que justifique não lançar. Testa a fórmula no editor e posta o log do teste para análise, de preferência pega alguém que está com essa situação.

Luciano,

Consegui identificar o problema muito obrigado.

[Luciano DP]

João,

Você pode postar como resolver, isso poderá ajudar em casos futuros aqui no fórum. Obrigado!

[João Lemos]

João,

Você pode postar como resolver, isso poderá ajudar em casos futuros aqui no fórum. Obrigado!

Luciano,

Segue a formula corrigida.

DECL DEP,SOMADEP,SOMAFUN;

SETVAR(DEP,1);

SETVAR(SOMADEP,0);

SETVAR(SOMAFUN,0);

REPITA

SE c('0544') >0

ENTAO 0

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOENF' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS01')) ) ; SALVAVALDEP(DEP,( F('PS01')) )

SENAO SETVAR(SOMADEP,SOMADEP + (T ('0005' , RC) * F('PS01')) ) ; SALVAVALDEP(DEP,(T ('0005' , RC) * F('PS01')) )

FIMSE

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOAPAR' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS02')) ) ; SALVAVALDEP(DEP,( F('PS02')) )

SENAO SETVAR(SOMAFUN,SOMAFUN + (T ('0007' , RC) * F('PS02')) ) ; SALVAVALDEP(0,(T ('0007' , RC) * F('PS02')) )

FIMSE

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOESP' E TABDEP ('INCASSISTMEDICA' , 'V' , DEP) = 1

ENTAO

SE TABCOMPLDEPEND ('ADESAO' , 'D' , DEP) >= '01/03/2012'

ENTAO SETVAR(SOMADEP,SOMADEP + ( F('PS03')) ) ; SALVAVALDEP(DEP,( F('PS03')) )

SENAO SETVAR(SOMADEP,SOMADEP + (T ('0008' , RC) * F('PS03')) ) ; SALVAVALDEP(DEP,(T ('0008' , RC) * F('PS03')) )

FIMSE

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE;

SETVAR(DEP,DEP+1)

ATE DEP=10;

SE c('0544') >0

ENTAO 0

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOENF'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0005' , RC) * F('PS01')) ) ; SALVAVALDEP(DEP,(T ('0005' , RC) * F('PS01')) )

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOAPAR'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0007' , RC) * F('PS02')) ) ; SALVAVALDEP(0,(T ('0007' , RC) * F('PS02')) )

SENAO

SE TABCOMPL ('PMEDICO' , 'S') = 'BOLETOESP'

ENTAO

SETVAR(SOMAFUN,SOMAFUN + (T ('0008' , RC) * F('PS03')) ) ; SALVAVALDEP(DEP,(T ('0008' , RC) * F('PS03')) )

SENAO

0

FIMSE

FIMSE

FIMSE

FIMSE;

SOMADEP + SOMAFUN

Abraços,