CPC-AT0110J.p

Rotina utilizada

• Para consulta de informações sobre a guia de autorização, após disponibilizar as guias no browser de movimentos e quando da seleção de uma guia no, para o ponto de chamada "SEL-GUIA".
• Para consultas de informações sobre a guia de autorização, antes da abertura do browser de movimentos, mas após o usuário informa a ação e o grupo de usuário responsável pelo processo de Auditoria ou Liberação, para o ponto de chamada "MOSTRA-PEND".
• Para mostrar ou não a guia de autorização no seu respectivo browse, foi criado o ponto de chamada "ANTES-MOST-GUIA".
• Caso o cliente não queira executar a chamada da CPC, no seu cadastro deve colocar CPC Ativo como não.
• Será utilizado para esta CPC apenas um registro na tabela temporária de saída.

Localização

• Dentro do programa at0110j.p, ao selecionar uma guia no browse.

Ponto de Utilização

• "SEL-GUIA"
• ou "MOSTRA-PEND".
• "ANTES-MOST-GUIA"
• "PROCURA-PACOTE"
• "APOS-BUSCA-GUIA"

Include das definições das tabelas temporárias

...

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

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

...

• • in-evento-programa – Evento do programa que chama a cpc-at0110j. Poderá ser igual a "AUDITORIA" ou "LIBERACAO", quando utilizado no ponto de chamada "MOSTRA-PEND" ou será igual a brancos quando utilizado no ponto de chamada "SEL-GUIA".
  • nm-ponto-chamada – Nome do ponto de chamada em que a CPC é acionada. Atualmente poderá ser "SEL-GUIA" ou "MOSTRA-PEND".
  • cd-unidade – Unidade da guia de atendimento.
  • aa-guia-atendimento – Ano da guia de atendimento.
  • nr-guia-atendimento – Número da guia de atendimento.
  • nm-grupo – Nome do grupo responsável pela analise da Guia (Pendente de Auditoria/Pendente de Liberação)

...

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

...

field lg-undo-retry                  as   as log
field ds-mensagem                as char format "x(75)"
Field LG-mens-tela               as  as log
Field LG-next                         as log

field lg-procura-pacote           as log..

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

• • lg-erro – Controla a ocorrência de erros na execução da cpc
  • ds-mensagem – Controla a mensagem de retorno da cpc quando ocorrem erros.
  • LG-mens-tela – Indica se irá mostrar mensagem em tela.
  • LG-next – Indica se irá ou se não irá mostrar o registro da guia.

...

• • lg-procura-pacote - Indica se irá ou não procurar pacotes.