cpc-rthistabpre.p0

Rotina utilizada para tratar o histórico da tabela de preço da proposta.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro da rotina rthistabpre.p, no ponto "TRATA-FAT-EXC" antes de excluir a tabela de histórico
Dentro da rotina rthistabpreco.p, no ponto "TRATA-FAT-INC" quando mes/ano do reajuste for menor que o ultimo faturamento do termo.
Ponto de Utilização
"TRATA-FAT-EXC""
"TRATA-FAT-INC"
Include das definições das tabelas temporárias
cpc-rtvalesp.i
Tabela de entrada e saída
Tabela de entrada tmp-cpc-rthistabpre-entrada
def temp-table tmp-cpc-rthistabpre-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade like modalid.cd-modalidade
field nr-ter-adesao like ter-ade.nr-ter-adesao
field aa-referencia like ter-ade.aa-ult-fat
field mm-referencia like ter-ade.mm-ult-fat.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
cd-modalidade - Código da modalidade da proposta reajustada
nr-ter-adesao - Número do termo de adesão da proposta reajustada
aa-referencia - Ano referente ao reajuste da proposta
mm-referencia - Mês de reajuste da propostal
Tabela de saída tmp-cpc-rthistabpre-saida
def temp-table tmp-cpc-rthistabpre-saida no-undo
field lg-erro as logical
field ds-mensagem-erro as char format "x(100)".
Definição campo a campo da tabela de saída
lg-erro – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem-erro – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.