cpc-mc0210o.p1

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.
Ponto de Utilização
"ATUALIZA-PROP", "ALTERA-DADOS" e "MARCA-PROPOSTA"
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.
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.