Ir para conteúdo

Função Salvavaldep Na Formula Histórico Assistência Médica


Flavia Faria

Posts Recomendados


  • Tópicos Que Criei:  5
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  10
  • Conteúdo/Dia:  0.00
  • Reputação:   0
  • Pontos/Conquistas:  100
  • Conteúdo Resolvido:  0
  • Dias Ganho:  0
  • Status:  Offline

Boa tarde,

preciso adaptar a formula abaixo, com a função SALVAVALDEP e não estou conseguindo. Vcs podem me ajudar?

Decl ( Cont, Valor );

SetVar ( Valor, 0);

SetVar ( Cont, 0);

Se ExecSQL ( '0004' ) = Verdade Entao

Repita

SetVar ( Cont, ResultSQL ( '0004', 'NroDepend' ) );

SetVar ( Valor, Valor + T ( '0099', NDepIdade ( Cont, MtData ( 1, Mes, ANo ) ) ) )

Ate ProxRegSQL ( '0004' ) = Falso

FimSe;

Valor * (-1)

Att.

Link para comentar
Compartilhar em outros sites


  • Tópicos Que Criei:  10
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  95
  • Conteúdo/Dia:  0.02
  • Reputação:   0
  • Pontos/Conquistas:  610
  • Conteúdo Resolvido:  0
  • Dias Ganho:  0
  • Status:  Offline

Flavia,

Veja se o exemplo abaixo pode te ajudar.

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,121);

Setvar(somadep,somadep+121)

Senao

Se ndepidade (dep,hoje)<=23

Entao salvavaldep(dep,189);

Setvar(somadep,somadep+189)

Senao 0 fimse fimse fimse;

Setvar(dep,dep+1) ate dep=10;

Se tabcompl('assistenciamedica','s')='s'

Entao se idade(hoje)<=18

Entao salvavaldep(0,121);

Setvar(somafun,somafun+121)

Senao se idade(hoje)<=23

Entao salvavaldep(0,189);

Setvar(somafun,somafun+189)

Senao 0

Fimse

Fimse

Fimse;

Somadep+somafun

Editado por Flavio Junior
Link para comentar
Compartilhar em outros sites


  • Tópicos Que Criei:  5
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  10
  • Conteúdo/Dia:  0.00
  • Reputação:   0
  • Pontos/Conquistas:  100
  • Conteúdo Resolvido:  0
  • Dias Ganho:  0
  • Status:  Offline

Flávio,

não entendi porque vc coloca na frente da função SALVAVALDEP os valores 121 e 189?

Link para comentar
Compartilhar em outros sites


  • Tópicos Que Criei:  10
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  95
  • Conteúdo/Dia:  0.02
  • Reputação:   0
  • Pontos/Conquistas:  610
  • Conteúdo Resolvido:  0
  • Dias Ganho:  0
  • Status:  Offline

São os valores referentes ao plano de saúde, exemplo:

SALVAVADEP(0, 121) - Irá incluir no histórico de assistência médica um registro para o dependente 0, no valor de 121.

Vc pode inserir um cálculo tb, exemplo:

SALVAVADEP(0, (RC*0.05)) - 5% do salário do funcionário.

Ai vai depender da sua regra para o desconto.

Complementando....

SALVAVALDEP (1º Parâmetro, 2º Parâmetro)

1º Parâmetro: Deverá informar o número do beneficiário. Sempre que o beneficiário for o funcionário deverá informar 0(zero).

2º Parâmetro: Deverá informar o valor do desconto deste beneficiário.

Link para comentar
Compartilhar em outros sites

  • 4 anos depois...

  • Tópicos Que Criei:  13
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  22
  • Conteúdo/Dia:  0.00
  • Reputação:   2
  • Pontos/Conquistas:  244
  • Conteúdo Resolvido:  0
  • Dias Ganho:  1
  • Status:  Offline
  • Idade:  46
  • Dispositivo:  Windows

Pessoal Bom dia,

Por favor, preciso de um auxílio para incluir uma condição nessa fórmula de histórico de assistência médica do dependente (salvavaldep) onde a condição seria:

Ex: Dependente fez aniversário no determinado mês e levará 30 dias depois para mudar de faixa etária. 
Ex: Data de Nasc. do dependente 15/07/1998 com a faixa etária de 35,51 
Desconto do mês 07/2017 35,51, 08/2017 35,51 somente terá a faixa etária alterada em 09/2017 - 45,43

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,35.51); 
SETVAR(SOMADEP,SOMADEP+35.51) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=23 
ENTAO SALVAVALDEP(DEP,45.43); 
SETVAR(SOMADEP,SOMADEP+45.43) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=28 
ENTAO SALVAVALDEP(DEP,56.81); 
SETVAR(SOMADEP,SOMADEP+56.81) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=33 
ENTAO SALVAVALDEP(DEP,62.49); 
SETVAR(SOMADEP,SOMADEP+62.49) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=38 
ENTAO SALVAVALDEP(DEP,68.76); 
SETVAR(SOMADEP,SOMADEP+68.76) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=43 
ENTAO SALVAVALDEP(DEP,72.32); 
SETVAR(SOMADEP,SOMADEP+72.32) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=48 
ENTAO SALVAVALDEP(DEP,86.95); 
SETVAR(SOMADEP,SOMADEP+86.95) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=53 
ENTAO SALVAVALDEP(DEP,104.41); 
SETVAR(SOMADEP,SOMADEP+104.41) 
SENAO 
SE NDEPIDADE (DEP,HOJE)<=58 
ENTAO SALVAVALDEP(DEP,120.08); 
SETVAR(SOMADEP,SOMADEP+120.08) 
SENAO 
SALVAVALDEP(DEP,212.54); 
SETVAR(SOMADEP,SOMADEP+212.54) 
FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE FIMSE; 

SETVAR(DEP,DEP+1) ATE DEP=10; 


SOMADEP+SOMAFUN

Editado por Leticia Silveira
  • Like 1
Link para comentar
Compartilhar em outros sites


  • Tópicos Que Criei:  13
  • Tópicos/Dia:  0.00
  • Meu Conteúdo:  22
  • Conteúdo/Dia:  0.00
  • Reputação:   2
  • Pontos/Conquistas:  244
  • Conteúdo Resolvido:  0
  • Dias Ganho:  1
  • Status:  Offline
  • Idade:  46
  • Dispositivo:  Windows

*Data de Nasc. do dependente 15/07/1998

Link para comentar
Compartilhar em outros sites

Participe da conversa

Você pode postar agora, e se registrar mais tarde. Se você tiver uma conta, faça o login agora para postar com sua conta.

Visitante
Responder esse tópico

×   Você colou conteúdo com formatação.   Remover formatação

  Only 75 emoji are allowed.

×   Seu link foi automaticamente inserido no corpo do post.   Exibir como um link

×   Seu conteúdo anterior foi restaurado.   Limpar conteúdo do editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Criar Novo...

Informação Importante

Usando este site, você concorda com nossos Termos de Uso e nossa Política de Privacidade.