CPC-VP0110A3.P0

• Rotina utilizada no na inclusão do contratante após a digitação da agencia bancaria.
• 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.

...

__RefHeading__9524_486694287__RefHeading__9524_486694287 Âncora__RefHeading__4735_213273755__RefHeading__4735_213273755 Âncora__RefHeading__14133_644533341__RefHeading__14133_644533341 Âncora__RefHeading__90031_1756225838__RefHeading__90031_1756225838Localização

• Dentro do programa vp0110a3.p.

...

__RefHeading__90033_1756225838Ponto de Utilização

"VALIDA-AGENCIA"

...

__RefHeading__4739_213273755 Âncora__RefHeading__14137_644533341__RefHeading__14137_644533341 Âncora__RefHeading__90035_1756225838__RefHeading__90035_1756225838Include das definições das tabelas temporárias

• cpc-vp0110A3.i

...

__RefHeading__23375_2053127524__RefHeading__23375_2053127524 Âncora__RefHeading__9530_486694287__RefHeading__9530_486694287 Âncora__RefHeading__4741_213273755__RefHeading__4741_213273755 Âncora__RefHeading__14139_644533341__RefHeading__14139_644533341 Âncora__RefHeading__90037_1756225838__RefHeading__90037_1756225838Tabelas de entrada e saída
Âncora__RefHeading__23377_2053127524__RefHeading__23377_2053127524 Âncora__RefHeading__9532_486694287__RefHeading__9532_486694287 Âncora__RefHeading__4743_213273755__RefHeading__4743_213273755 Âncora__RefHeading__14141_644533341__RefHeading__14141_644533341 Âncora__RefHeading__90039_1756225838__RefHeading__90039_1756225838

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 – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada.
    • nm-ponto-chamada-cpc – Ponto de chamada de cpc que deve ser "VALIDA-AGENCIAB".
    • cod-banco – Código do banco.
    • Agencia – código da agencia bancaria.
    • Dig-agencia – digito da agencia bancaria.

...

...

...

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 os erros que podem ocorrer na CPC.
    • ds-mensagem-erro – Variável que recebe a descrição dos erros que ocorreram na CPC.

...