CPC-AT0120C.p

• Rotina permite ao cliente implementar a função cliente.
• 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

• Para o ponto de chamada "CONS-CLIENTE", dentro do programa at0120c.p antes de mostrar as guias;

Ponto de Utilização

• "ANTES-MOST-GUIA"
• "ANTES-CRIA-TEMP"

Include das definições das tabelas temporárias

• cpc-at0120c.i

Tabelas de Entrada e Saída

Tabela de entrada tmp-cpc-at0115u-entrada

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

field in-evento-programa                 as char format "x(10)"
field nm-ponto-chamada-cpc          as char format "x(15)"
field aa-guia-atendimento                like guiautor.aa-guia-atendimento
field nr-guia-atendimento                 like guiautor.nr-guia-atendimento.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc;
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • AA-guia-atendimento – Indica o ano da guia.
  • Nr-guia-atendimento – Indica o número da guia.

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

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

field lg-undo-retry                        as log
field ds-mensagem                     as char format "x(75)"
field lg-mens-tela                        as log init no.

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 – Variável que recebe a descrição dos erros que ocorreram na CPC;
  • LG-mens-tela – Variável indica se deverá ser mostrada a mensagem em tela;