cpc-vp0112b1.p1

Rotina chamada na opção modifica do programa de manutenção 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
Dentro do programa vp0112b1 na inclusão e cancelamento de cobertura da proposta.
Ponto de Utilização
"FINAL-INCLUI"
"FINAL-CANCELA"
Include das definições das tabelas temporárias
cpc- vp0112b1.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-vp0112b1-entrada
def temp-table tmp-cpc-vp0112b1-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
fields r-proposta as rowid
fields lg-cobertura-obrigatoria as log
fields cd-modulo like mod-cob.cd-modulo
fields lg-inclui as log
fields dt-inicio as date.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-vp0112b1.p. Os valores desse campo podem ser:
"INCLUI".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:
"FINAL-INCLUI"
"FINAL-CANCELA"
Tabela de entrada wk-usuario-modulo-cpc
def temp-table wk-usuario-modulo-cpc no-undo
field cd-usuario like usuario.cd-usuario
field cd-modulo like pro-pla.cd-modulo
index usuario is primary unique cd-usuario
cd-modulo
index modulo cd-modulo.
Definição campo a campo da tabela de entrada
cd-modulo – código do modulo da proposta do plano
cd-usuario - código do usuário da proposta do plano
Tabela de saída tmp-cpc-vp0112b1-saida
def temp-table tmp-cpc-vp0112b1-saida no-undo
fields lg-erro as logical
fields ds-mensagem-retorno as char format "x(75)".