cpc-atsolicitawac.p1

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.