• 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.

...

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   like propost.nr-proposta
field cd-tab-preco-ori                        like tabpremo.cd-tab-preco
field cd-tab-preco-des                       des                      like tabpremo.cd-tab-preco
field aa-referencia                            like referencia                            like notaserv.aa-referencia
field mm-referencia                          like referencia                          like notaserv.mm-referencia
field pc-reajuste                                  like histabpreco.pc-reajuste
field nr-ter-adesao                            like adesao                            like usuario.nr-ter-adesao.-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.

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

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

...