cpc-at0110j.p1

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.