cpc-api-recebloteguias.p1

Rotina utilizada para permitir a operadora alterar o número do lote
Rotina utilizada para parametrizar o diretório dos arquivos xml
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
Localização
Para o ponto de chamada "NRO-LOTE", dentro do programa API-RECEBLOTEGUIAS.p antes de criar a tabela de lotes;
Para o ponto de chamada "CAMINHO-XML", dentro do programa api-recebeloteguias.p, antes da cração do arquivo
Ponto de Utilização
"NRO-LOTE"
"CAMINHO-XML"
Include das definições das tabelas temporárias
cpc-api-recebloteguias.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-api-receblote-entrada
def temp-table tmp-cpc-api-receblote-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(06)"
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field nr-lote as dec

Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-API-RECEBLOTEGUIAS.P. O valor desse campo deve ser "NRO-LOTEIMP";
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa API-RECEBLOTEGUIAS.P.
cd-unidade – Código da unidade do prestador;
cd-prestador – Código do prestador;
nr-lote – número do lote da tag "numeroLote".
Tabela de saída tmp-cpc-api-receblote -saida
def temp-table tmp-cpc-api-receblote-saida no-undo
field lg-undo-retry as log
field ds-mensagem-retorno as char format "x(75)"
field nr-lote as dec
Field ds-caminho-xml-tiss as char format "x(200)".
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC;
ds-mensagem-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC;
nr-lote – numero do lote do prestador
ds-caminho-xml-tiss – caminho do diretório para salvar o arquivo XML gerado.