CPC-DTVW40AA.p

• Rotina executada na importação de movimentos RPW.
• 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 possua mais de um registro um erro será reportado.

Localização

• Dentro do programa dtvw40aa.

Ponto de Utilização

• "ANTES-EXEC"

Include das definições das tabelas temporárias

• cpc-dtvw40aa.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-dtvw40aa-entrada

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

      field nm-ponto-chamada-cpc as char format "x(15)"
      field nm-evento                      as char
      field tp-proc-execucao           as int
      field tp-data-vigencia             as int
      field dt-anoref                        like perimovi.dt-anoref
      field nr-perref                         like perimovi.nr-perref.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc - nome do ponto de CPC;
  • nm-evento - nome do evento da CPC;
  • tp-proc-execucao - indica o tipo de importação (apenas PTU TXT; apenas PTU XML; apenas GPS; PTU TXT e GPS);
  • tp-data-vigencia - indica se utiliza a data de vigência na execução ou data informada;
  • dt-anoref - ano referência do período;
  • nr-perref - número referência do período.

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

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

field lg-erro                             as logical
field ds-mensagem                 as character.

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

• • lg-erro - 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;
  • ds-mensagem - mensagem de erro que deve ser retornada para o programa chamador caso ocorra algum erro na CPC.