• CPC-MC0210O.P

Rotina utilizada para: 

• Processar atualização da lista de preço ou
• Alteração de dados no momento do reajuste da proposta
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Para o ponto "ATUALIZA-PROP", dentro do mc0210o.p ao atualizar as listas de preços.
• Para o ponto "ALTERA-DADOS", dentro do mc0210o.p quando da aplicação do reajuste na proposta.
• Para o ponto "MARCA-PROPOSTA", dentro do mc0210o.p quando da aplicação do reajuste na proposta, se o parâmetro "Informa Novo % de Reajuste" estiver marcado e quando não for Simulação.
• Para o ponto "ANTES-DEF-PAR", dentro do mc0210o.p, quando abrir a tela de Parãmetros da função Troca Tabela de Preco/Reajuste da Proposta.
• Para o ponto "APOS-EVE-MOD", dentro do mc0210o.p quando da leitura dos módulos de cobertura.

Ponto de Utilização

• "ATUALIZA-PROP", "ALTERA-DADOS", "MARCA-PROPOSTA", "ANTES-DEF-PAR" e "APOS-EVE-MOD".

Include das definições das tabelas temporárias

• cpc-mc0210o.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-mc0210o-entrada

def temp-table tmp-cpc-mc0210o-entrada no-undo

field in-evento-programa                   as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-modalidade                          like propost.cd-modalidade
field nr-proposta                               like propost.nr-proposta
field cd-tab-preco-ori                        like tabpremo.cd-tab-preco
field cd-tab-preco-des                      like tabpremo.cd-tab-preco
field aa-referencia                            like notaserv.aa-referencia
field mm-referencia                          like notaserv.mm-referencia
field pc-reajuste                                like histabpreco.pc-reajuste
field nr-ter-adesao                            like usuario.nr-ter-adesão    

field lg-cons-contrt-exc-prog            as log    

field lg-cons-contrt-seg-assist          as log    

field lg-carga-tab-autom                   as log     

field lg-aplica-perc-contrte-orig        as log    

field lg-cons-mod-descons-anter     as log    

field in-aplica-reaj                            as int    

field lg-atual-propo-fat-superior       as log    

field in-nivel-reaj                              as int     

field lg-informa-reaj-tab                   as log     

field in-mes-vig                                as int    

field in-ano-vig                                as int     

field in-mes-reaj                              as int    

field in-ano-reaj                               as int     

field vl-perc                                     as dec    

field ds-num-oficio                          as char

field h-tmp-mod-cob                       as handle

field cd-modulo                               as int.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza
• cd-modalidade – Código da modalidade de comercialização
• nr-proposta – Numero da proposta
• cd-tab-preco-ori – Código da tabela de preço origem da proposta
• cd-tab-preco-des – Código da tabela de preço destino
• aa-referencia – Ano de referencia
• mm-referencia – Mês de referencia
• pc-reajuste – Percentual de reajuste para a tabela de preço
• nr-ter-adesao – Número do termo de adesão do beneficiário
• lg-cons-contrt-seg-assist - Considerar termos que usufruem de seguro assistencial
• lg-carga-tab-autom- Carregar Tabelas Automaticamente
• lg-aplica-perc-contrte-orig - Aplicar mesmo % contratos associados ao contratante origem
• lg-cons-mod-descons-anter - Considera Seleção de Módulos Desconsiderados Anteriormente
• in-aplica-reaj - Troca Tabela de Preco, quando igual a 1
• in-aplica-reaj - Informa Novo % de Reajuste quando igual a 2
• in-aplica-reaj - Aplica reajuste conforme tipo de índice associado ao contrato quando igual a 3
• lg-atual-propo-fat-superior - Atualiza propostas c/fat.superior ao ano/mes de reajuste 
• in-nivel-reaj - Nível de Reajuste: 0 para contrato; 1 para grau de parentesco; 2 para beneficiário
• lg-informa-reaj-tab - Informar Dados do Reajuste por Tabela
• in-mes-vig / in-ano-vig - Mês/Ano Vigência
• in-mes-reaj / in-ano-reaj - Mês/Ano Reajuste
• vl-perc - Percentual
• ds-num-oficio - Numero do Oficio
• h-tmp-mod-cob - handle para a tabela temporária "tmp-mod-cob", que armazena os módulos selecionados em tela.
• cd-modulo - Código do módulo de cobertura.

Tabela de saída tmp-cpc-mc0210o –saida

def temp-table tmp-cpc-mc0210o-saida no-undo

field lg-undo-retry as log
field ds-mensagem-retorno as char format "x(75)"
field lg-reajustar as log
field pc-reajuste as dec
field lg-perc-alterado as log
field lg-atualiza-proposta as log
field ds-parametros as char
field lg-fecha-parametros as log init yes
field lg-considera-benef-cj as log
field ds-benef-cj as char
field lg-cons-contrt-exc-prog as log
field lg-cons-contrt-seg-assist as log
field lg-carga-tab-autom as log
field lg-aplica-perc-contrte-orig as log
field lg-cons-mod-descons-anter as log
field in-aplica-reaj as int
field lg-atual-propo-fat-superior as log
field in-nivel-reaj as int
field lg-informa-reaj-tab as log
field in-mes-vig as int
field in-ano-vig as int
field in-mes-reaj as int
field in-ano-reaj as int
field vl-perc as dec
field ds-num-oficio as char

field lg-mensalidade as log.

Definição campo a campo da tabela de saída

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC
  • ds-mensagem-retorno - Retorna a mensagem da cpc
  • lg-reajustar – Parâmetro indicador para aplicar ou não reajuste na proposta
  • pc-reajuste – Percentual de reajuste a ser aplicado na reajuste na proposta.
  • Considerar termos com exclusão programada
  • lg-cons-contrt-seg-assist - Considerar termos que usufruem de seguro assistencial
  • lg-carga-tab-autom- Carregar Tabelas Automaticamente
  • lg-aplica-perc-contrte-orig - Aplicar mesmo % contratos associados ao contratante origem
  • lg-cons-mod-descons-anter - Considera Seleção de Módulos Desconsiderados Anteriormente
  • in-aplica-reaj - Troca Tabela de Preco, quando igual a 1
  • in-aplica-reaj - Informa Novo % de Reajuste quando igual a 2
  • in-aplica-reaj - Aplica reajuste conforme tipo de índice associado ao contrato quando igual a 3
  • lg-atual-propo-fat-superior - Atualiza propostas c/fat.superior ao ano/mes de reajuste 
  • in-nivel-reaj - Nível de Reajuste: 0 para contrato; 1 para grau de parentesco; 2 para beneficiário
  • lg-informa-reaj-tab - Informar Dados do Reajuste por Tabela
  • in-mes-vig / in-ano-vig - Mês/Ano Vigência
  • in-mes-reaj / in-ano-reaj - Mês/Ano Reajuste
  • vl-perc - Percentual de reajuste
  • ds-num-oficio - Numero do Oficio
  • lg-mensalidade - Variável que indica se é módulo associado a evento de mensalidade.

    Tabela de entrada e saída tmp-grupo-economico

            def temp-table tmp-grupo-economico no-undo

                  field cd-grupo-econom as int format 99999
                  field ds-grupo-econom as char format "x(50)"
                  field dt-inicio-vigencia as date
                  field dt-fim-vigencia as date
                  field cd-userid-gestor as char format "x(12)"
                  field dt-atualizacao as date
                  field cd-userid as char format "x(12)".

        Definição campo a campo da tabela de saída

• • cd-grupo-econom - Código do grupo econômico.
  • ds-grupo-econom  - Descrição do grupo econômico.
  • dt-inicio-vigencia - Data início vigência.
  • dt-fim-vigencia - Data fim vigência.
  • cd-userid-gestor - Código do usuário gestor.
  • dt-atualizacao - Data de atualização
  • cd-userid - Código do usuário