Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • 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

...

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.

...

    • 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

...

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

...