Assistência Médica para Dependentes

Objetivo

Calcular o valor a ser descontado do titular do Plano de Saúde (assistência médica), observando a idade dos dependentes conforme tabela de faixa etária fornecida pela administtradora do plano.

Parametrização Necessária

1. Todos os dependentes que integrarem a Assistência Médica deverá ter o campo Assistência Médica habilitado;
2. Criar tabela de faixa etária no módulo RM Labore Cadastros Cálculos Tabelas de Cálculo (AM001);
3. Utilizar o campo Limite Superior para informar a idade do dependente;
4. Utilizar o campo Valor a Deduzir para informar o valor a descontar do dependente;
5. Criar as seguintes fórmulas:
   
   Código: COLIGADA
   Descrição: Coligada Corrente
   Texto da Fórmula: ColigadaCorrente
   
   Código: CHAPA
   Descrição: Chapa do Funcionário
   Texto da Fórmula: Chapa
   
   Código: EV0184
   Descrição: Vaor do Dependente
   Texto da Fórmula:
   
   Decl ( Cont, Valor );
   
   SetVar ( Valor, 0);
   SetVar ( Cont, 0);
   
   Se ExecSQL ( '00004' ) = Verdade Entao
   Repita
   SetVar ( Cont, ResultSQL ( '00004', 'NroDepend' ) );
   SetVar ( Valor, Valor + T ( 'AM001', NDepIdade ( Cont, MtData ( 1, Mes, ANo ) ) ) )
   Ate ProxRegSQL ( '00004' ) = Falso
   FimSe;
   
   Valor * (-1)
   
6. Criar a seguinte consulta SQL:
   
   Código: 00004
   Descrição: Assistência Mèdica p/ Dependentes
   Texto da Consulta:
   
   Select
   NroDepend
   From
   PfDepend
   Where
   PfDepend.CodColigada = :FRM_COLIGADA and
   PfDepend.Chapa = :FRM_CHAPA and
   PfDepend.IncAssistMedica = 1
   
7. Criar evento para 0184-Assistência Médica do tipo: Desconto Valor Código de Cálculo = 0;
8. Associar a fórmula EV0184 ao campo Fórmula Valor do evento 0184-Assistência Médica p/ Dependentes;
9. Associar o evento à pasta Códigos Fixos do Cadastro de Funcionários ou ao Grupo de Eventos do menu Movimento Lançamentos Automáticos.