CPC-ATSOLICITAWAC.p

Rotina utilizada para:

• Permitir que o intercâmbio eletrônico via WAC ocorra de forma síncrona, sem a necessidade de envio após a comunicação.
• Retorna indicador de comunicação com Unidade.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa atsolicitawac.p.

Ponto de Utilização

• "COMUNICA-SINCRO"
• "COMUM-ORIGEM" 

Include das definições das tabelas temporárias

• cpc-atsolicitawac.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-atsolicitawac-entrada

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

field in-evento-programa                  as char format "x(15)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field r-guiaautor                                 as rowid
field aa-guia-atendimento                like guiautor.aa-guia-atendimento
field nr-guia-atendimento                 like guiautor.nr-guia-atendimento
field in-liberado-guias                      like guiautor.in-liberado-guias.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-atsolicitawac.p. O valor desse campo pode ser:
    • "COMUNICA".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa atsolicitawac.p:
    • "CMUNICA-SINCRONO"
    • r-guiaautor-- Row id da tabela guiautor.
    • aa-guia-atendimento – ano da guia de atendimento
    • nr-guia-atendimento – numero da guia de atendimento
    • in-liberado-guias – status liberação das guias

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

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

field lg-comunica-sincrono              as log
field nr-seg-espera-comunicacao   as int
field lg-erro                                       as log
field ds-mensagem                          as char format "x(75)"
field in-liberado-guias                      like guiautor.in-liberado-guias
field r-guiautor                                  as rowid
field lg-ind-comunica                       as log.

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

• • • lg-comunica-sincro – Variável lógica para setar a comunicação como síncrona ou não;
    • nr-seg-espera-comunicacao – Numero de segundos de espera antes que o programa encerre a comunicação;
    • lg-erro – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
    • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro;
    • in-liberado-guias – status liberação da guia
    • r-guiautor – row id da tabela guiautor
    • lg-ind-comunica – identificador de comunicação entre unidades.