CPC-BOSAU-PROCESSA-A500.P

• Programa para importação do PTU A500 XML.
• Caso o cliente não queira executar a chamada da CPC deve colocar "CPC ativo" como "não" no seu cadastro.

Pontos de utilização

• "ANTES-CRIA-DOC"
• "DEPOIS-CRIA-DOC"

Include das definições das tabelas temporárias

• {cpc/cpc-bosau-processa-A500.i}
• {hrc/bosau/bosau-processa-a500.i}

Tabela de entrada: tmp-cpc-processa-A500-entrada

def temp-table tmp-cpc-processa-a500-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(06)"
field idi-tipo-arquivo-ptu as integer.

Definição campo a campo da tabela de entrada

• in-evento-programa - nome do evento (utilizado para pontos que possuem múltiplas chamadas);
• nm-ponto-chamada-cpc - nome do ponto de chamada da CPC;
• idi-tipo-arquivo-ptu - indicador do tipo de arquivo importado. Valores: 500 - PTU A500 Cobrança, 520 - PTU A500 Aviso.

Tabela de saída: tmp-cpc-processa-A500-saida

def temp-table tmp-cpc-import-a500-saida no-undo
field lg-undo-retry as log
field cd-erro as integer
field ds-mensagem as char format "x(75)".

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

• lg-undo-retry - campo que indica se ocorreram erros na CPC. Deve retornar "yes" se ocorrer algum erro ou "no" se o processo for concluído sem erros;
• cd-erro - código do erro, pode ser valor zero.
• ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC;