CPC- VP0110A3.P

• Rotina chamada na programa que inclui/modifica os dados bancários do contratante.
• 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 vp0110a3.p , após incluir/modificar os dados bancários do contratante.

Ponto de Utilização

"VALIDA-AGENCIA"

Include das definições das tabelas temporárias

• cpc-vp0110a3.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0110a3-entrada

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

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field cod-banco                                     like contrat.cod-banco
field agencia                                         like contrat.agencia
field dig-agencia                                   like contrat.dig-agencia

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-vp0110a3, que deve ser "INC".
    • nm-ponto-chamada – Nome do Ponto de Utilização, que deve ser "VALIDA-AGENCIA".
    • Cd-banco – Código do Baco informado no contratante.
    • agencia – Número da agencia informado no contratante.
    • dig-agencia – dígito da agencia informado no contratante.
      
      

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

def temp-table tmp-cpc-vp0110a3-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.