CPC-VP0112B1.P

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