cpc-pr0112t.p1

Rotina utilizada para consultar informações adicionais na opção de modifica da Forma de pagto de tipos de planos.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
Dentro do programa pr0112t.p, no final do modifica.
Ponto de Utilização
"INFO-ADIC"
Include das definições das tabelas temporárias
cpc-pr0112t.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-pr0112t-entrada
def temp-table tmp-cpc-pr0112t-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade like for-pag.cd-modalidade
field cd-plano like for-pag.cd-plano
field cd-tipo-plano like for-pag.cd-tipo-plano
field cd-forma-pagto like for-pag.cd-forma-pagto.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento que deve ser "MOD"
nm-ponto-chamada-cpc – Indica o ponto de chamada que deve ser "INFO-CALC"
cd-modalidade – Código da modalidade de comercialização;
cd-plano – Código de identificação do Plano no produto;
cd-tipo-plano - Código de identificação do Tipo de Plano no produto;
cd-forma-pagto – Código da forma de pagto no produto.
Tabela de saída tmp-cpc-pr0112t-saida
def temp-table tmp-cpc-pr0112t-saida no-undo
field lg-undo-retry as log
field ds-mensagem-retorno as char format "x(75)".
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
ds-mensagem-retorno – Mensagem de retorno da cpc.