CPC-ZZAT0002.P

• Programa de zoom de guias do AT;
• Caso o cliente não queira executar a chamada da CPC deve colocar CPC ativa como não no cadastro de CPCs;
• Será permitido para essa CPC apenas um registro na tabela temporária de saída. Caso exista mais de um registro será reportado erro.

Localização

• Ponto "APOS-CLASSIF1": após a primeira tela de classificação.

Ponto de Utilização

• "APOS-CLASSIF1"

Include das definições das tabelas temporárias

• cpc-zzat0002.i

Tabelas de entrada e de saída

Tabela de entrada tmp-cpc-zzat0002-entrada

              def temp-table tmp-cpc-zzat0002-entrada no-undo
                  field nm-ponto-chamada-cpc as char format "x(15)"
                  field nm-evento                      as char format "x(15)"
                  field cd-classificacao             as char.

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc - nome do ponto de chamada da CPC;
    • nm-evento - nome do evento;
    • cd-classificacao - armazena a opção selecionada pelo usuário na primeira tela de classificação.

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

              def temp-table tmp-cpc-zzat0002-saida no-undo
                  field lg-erro                       as logical
                  field ds-mensagem           as char
                  field cd-unidade-guia        like guiautor.cd-unidade
                  field aa-guia-atendimento like guiautor.aa-guia-atendimento
                  field nr-guia-atendimento like guiautor.nr-guia-atendimento
                  field cd-retorno                 as logical
                  field lg-retorna                  as logical.

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

• • • lg-erro - indica se ocorreu erro na CPC;
    • ds-mensagem - armazena a descrição do erro ocorrido na CPC;
    • cd-unidade-guia - unidade da guia de autorização;
    • aa-guia-atendimento - ano da guia de autorização;
    • nr-guia-atendimento - número da guia de autorização
    • cd-retorno - indica retorno do zoom
    • lg-retorna - indica que não deve continuar a lógica de produto.