CPC-AC0212H.p

• Rotina que permite cadastrar as opções de acesso no programa especifico DEWAC0070.
• 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 ac0212h.p, após a mensagem de dados incluídos.

Ponto de Utilização

• "PAR-VIS-PREST".
• Retorna o valor SIM se a cpc estiver ativa e NÃO caso a cpc estiver inativa.

Include das definições das tabelas temporárias

• cpc- ac0212h.i 

 i

Tabela de entrada tmp-cpc-ac0211h-entrada

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

field in-evento-programa               as char format "x(06)"
field nm-ponto-chamada-cpc         as char format "x(15)".

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac0212h.p. Os valores desse campo podem ser:
• nm-ponto-chamada-cpc

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

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

field lg-undo-retry

...

                   as logical
field lg-chama-prog-aux

...

           as logical.

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.
• lg-chama-prog-aux – Deve retrnar SIM se a CPC estiver ativa e NÃO caso a CPC esteja inativa.