CPC-ZZCG0040.p

• Rotina utilizada para trazer dados de endereços conforme grupo de serviço PTU.
• 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.

Localização

• Dentro do programa ZZG0040.P, quando o mesmo for utilizado na consulta do programa CG0210U.P.

Ponto de Utilização

• "INF-ZOOM-PARAM" → Antes de montar o browser de consulta, permitindo montar nova query para mostrar os dados conforme grupo de serviço PTU.

Include das definições das tabelas temporárias

• cpc-zzcg0040.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-zzcg0040-entrada

def temp-table tmp-cpc-zzcg0040-entrada     no-undo
      field nm-ponto-chamada-cpc as char format "x(15)"
      field in-evento-programa        as char format "x(10)"
      field ch-nm-prog                     as char format "x(08)"
      field ch-c-versao                     as char format "x(08)".

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc - Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • in-evento-programa – Nome do evento de chamada da cpc dentro do programa que a utiliza. 
  • ch-nm-prog - Nome do programa que chamou a cpc.
  • ch-c-versao - Versão do programa que chamou a cpc.

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

def temp-table tmp-cpc-zzcg0040-saida       no-undo
      field lg-undo-retry as log
      field ds-mensagem as char
      field cd-grp-serv-ptu                   like grp-serv-ptu.cdn-grp-serv-ptu
      field ds-grp-serv-ptu                   like grp-serv-ptu.des-grp-serv-ptu
      field cd-cpc-retorno                    as log.

Definição campo a campo da tabela de saída

• • lg-undo-retry - Informa ao programa se deve continuar ou voltar e desfazer.
  • ds-mensagem - Mensagem de erro.
  • cd-grp-serv-ptu - Código do grupo de serviço PTU selecionado no zoom.
  • ds-grp-serv-ptu - Descrição do grupo de serviço PTU selecionado no zoom.
  • cd-cpc-retorno - Informa se o item selecionado retornou com sucesso.