CPC-VP0112B.P

• Rotina utilizada no modifica de propostas.
• 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

• APOS-LER-ESTAB: Dentro do programa vp0112b.p após ser informado o estabelecimento.
• FX-CONVENIO: Dentro do programa vp0112b.p, após confirmar a inclusão da faixa especial por convênio.
• INICIO-MODIFICA: Dentro do programa vp0112b.p, após digitar a proposta.
• FINAL-MODIFICA: Dentro do programa vp0112b.p, após modificar a proposta.
• PERFIL-USUARIO: Dentro do programa vp0112b.p, antes da alteração nos campos de percentual de desconto.

Ponto de Utilização

"APOS-LER-ESTAB"
"FX-CONVENIO"
"INICIO-MODIFICA"
"FINAL-MODIFICA"
"PERFIL-USUARIO"

Include das definições das tabelas temporárias

• cpc-vp0112b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0112b-entrada

def temp-table tmp-cpc-vp0112b-entrada no-undo

field nm-ponto-chamada-cpc                       as char format "x(15)"
field in-evento-programa                              as char format "x(06)"
field cd-convenio                                          as int
field cd-modalidade                                      as int
field cd-plano                                                as int
field cd-tipo-plano                                         as int
field nr-proposta                                            as int
fields cd-estabel                                           like propost.cod-estabel

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc – Ponto de chamada de cpc que pode ser "APOS-LER-ESTAB ou "FX-CONVENIO".
    • in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada.
    • cd-convenio – Código do convênio da proposta.
    • cd-modalidade – Código da modalidade da proposta.
    • cd-plano – Código do plano da proposta.
    • cd-tipo-plano – Código do tipo de plano da proposta.
    • nr-proposta – Número da proposta.
    • cd-estabel – Código do estabelecimento.
      
      

Tabela de saída tmp-cpc-vp0112b-saida

def temp-table tmp-cpc-vp0112b-saida no-undo

fields lg-erro                                     as logical
field lg-undo-retry                             as log
fields ds-mensagem-retorno           as char format "x(75)"
fields lg-permite-alterar                   as log

Definição campo a campo da tabela de saída

• • • lg-erro – Variável que controla os erros que podem ocorrer na CPC.
    • lg-undo-retry – Variável de controle de erros na CPC.
    • ds-mensagem-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC.
    • lg-permite-alterar – Variável que controla se o usuário terá permissão ou não para alterar determinado campo.