• 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", "MARCA-PROPOSTA", "REGRAS-ESPEC",  "PARAM-ESPEC", "ANTES-DEF-PAR", "ALTERA-DADOS" 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-adesao
    field cd-tabela-ori                like tabprepl.cd-tab-preco
    field cd-tabela-des                like tabprepl.cd-tab-preco
    field lg-regra-exc-conv            as log
    field nr-rowid-propost             as rowid
    field lg-considera-benef-cj        as log
    field lg-simula                    as log
    field ds-parametros                as char
    field tt-propostas-simuladas       as int
    field tt-propostas-atualizadas     as int
    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 in-opcao-oficio              as char
    field h-tmp-mod-cob                as handle
    field cd-modulo                    as int

   field lg-dispara-automacao-demap   as log.

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
• cd-tabela-ori –                
• cd-tabela-des –    
• lg-regra-exc-conv –   
• nr-rowid-propost – Rowida da tabela propost       
• lg-considera-benef-cj – 

• lg-simula –

• ds-parametros – 

• tt-propostas-simuladas –    

• tt-propostas-atualizadas –  

• lg-cons-contrt-exc-prog –

• 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 / Informa Novo % de Reajuste quando igual a 2 / 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 – Mês Vigência
• in-ano-vig – Ano Vigência
• in-mes-reaj – Mês Reajuste
• in-ano-reaj – Ano Reajuste
• vl-perc – Percentual
• ds-num-oficio – Número do Oficio
• in-opcao-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.
• lg-dispara-automacao-demap

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.
  • lg-perc-alterado –       
  • lg-atualiza-proposta –    
  • ds-parametros –      
  • lg-fecha-parametros –    
  • lg-considera-benef-cj –       
  • ds-benef-cj –     
  • lg-cons-contrt-exc-prog –  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 / Informa Novo % de Reajuste quando igual a 2 / Aplica reajuste conforme tipo de índice associado ao contrato quando igual a 3
  • lg-informa-reaj-tab – Informar Dados do Reajuste por Tabela
  • in-mes-vig – Mês Vigência
  • in-ano-vig – Ano Vigência
  • in-mes-reaj – Mês Reajuste
  • in-ano-reaj – Ano Reajuste
  • vl-perc – Percentual de reajuste
  • ds-num-oficio – Numero do Oficio
  • in-opcao-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

Tabela de entrada e saída tmp-usuario-cj 

            def temp-table tmp-usuario-cj no-undo

                 field cd-modalidade like usuario.cd-modalidade
                 field nr-proposta      like usuario.nr-proposta
                 field cd-usuario        like usuario.cd-usuario
                 field nm-usuario      like usuario.nm-usuario.

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

• • cd-modalidade – Código da modalidade de comercialização
  • nr-proposta – Numero da proposta
  • cd-usuario – Código do beneficiário
  • nm-usuario – Nome do beneficiário