CPC-API-RECEBLOTEGUIAS.p

• 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.