CPC-VP0111A.P

• Rotina chamada na opção inclui do programa de manutenção de contratantes.
• 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 dos programas vp0111a1.p e vp0111a2.p, após a digitação do cgc/cpf na inclusão o contratante (pessoa física e jurídica).
• Dentro do programa vp0111a, após a inclusao do contratante (pessoa física e jurídica).

Ponto de Utilização

"ANTES-INCLUSAO"
"APOS-INCLUI"

Include das definições das tabelas temporárias

• cpc-vp0111a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0111a-entrada

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

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field nr-insc-contrat                                like contrat.nr-insc-contrat
field cd-contratante                                like contrat.cd-contratante
field nr-cgc-cpf                                       like contrat.nr-cgc-cpf

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-vp0111a, que deve ser "INCLUI".
    • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "ANTES-INCLUSAO".
    • Nr-ins-contrat – Número da inscrição do contratante.
    • Cd-contratante – Código do contratante.
    • Nr-cgc-cpf – Número do CGC/CPF do contratante.

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

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

field lg-undo-retry                        as log
field ds-mensagem-erro              as char format "x(75)"

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

• • • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
    • ds-mensagem-erro – Deve conter mensagens de erro caso ocorram.