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"

Include das definições das tabelas temporárias

• cpc-at0110j.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0110j-entrada

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 guiautor.aa-guia-atendimento
field nr-guia-atendimento

...

             like guiautor.nr-guia-atendimento
field nm-grupo                             like guiautor.nm-grupo.

Definição campo a campo da tabela de entrada

• 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

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

field lg-undo-retry

...

                 as log
field ds-mensagem

...

               as char format "x(75)"
Field LG-mens-tela               as log
Field LG-next                       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á se não irá mostrar o registro da guia.