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.

Ponto de Utilização

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

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.

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

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

.

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 resjuste a ser aplicado na reajuste na proposta.
  • Considerar termos com exclusao 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
  • ds-num-oficio - Numero do Oficio