CPC-RC0112R.P

Rotina para:

• Tratar o número da fatura.
• Obrigar ou não que seja informada a data de recebimento da fatura.
• 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

• Dentro do programa rc0112r.p, o ponto de chamada "CONS-PRESTADOR" é chamado antes de informar o número da fatura.
• Dentro do programa rc0112r.p, o ponto de chamada "DATA-RECEBIM" é chamado após informar a data de recebimento.
• Dentro do programa rc0112r.p, o ponto de chamada "FINAL-ALTERA" é chamado para informar o valor do campo OPME.

Ponto de Utilização

• "CONSULTA", para o ponto de chamada "CONS-PRESTADOR", e "ALTERA" para o ponto de chamada "DATA-RECEBIM" .
• "FINAL-ALTERA"

Include das definições das tabelas temporárias

• cpc-rc0112r.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0112r-entrada

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

field in-evento-programa                     as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field cd-unidade-seccional                    like preserv.cd-unidade-seccional
field cd-unidade                                   like notapres.cd-unidade
field cd-unidade-prestador                   like notapres.cd-unidade-prestador
field cd-prestador                                 like notapres.cd-prestador
field aa-fatura                                      like notapres.aa-fatura
field cd-serie-nf                                    like notapres.cd-serie-nf
field nr-fatura                                       like notapres.nr-fatura
field dt-emissao                                   like notapres.dt-emissao
field dt-recebimento                            like notapres.dt-recebimento

field cod-esp                                       like notapres.cod-esp

field cod-fatur-ap                               like notapres.cod-fatur-ap
field r-notapres                                   as rowid..

Definição campo a campo da tabela de entrada

• in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada;
• nm-ponto-chamada-cpc – Ponto de chamada da cpc;
• cd-unidade-seccional – Código da unidade seccional do prestador;
• cd-unidade- Código da unidade
• cd-unidade-prestador – Código da unidade do prestador
• cd-prestador - Código do prestador
• aa-fatura – Ano Base da fatura;
• cd-serie-fatura – Série da fatura;
• nr-fatura – Tipo da Fatura: 0 - Fatura, 1 - NDR e 4 - ABI;
• dt-emissao – Data de emissão da fatura;
• dt-recebimento – Data de recebimento da fatura;
• cod-esp - Código da espécie da nota;
• cod-fatur-ap - Número da Fatura;
• r-notapres - Rowid da notapres.

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

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

field lg-undo-retry as log
field ds-mensagem as char
field lg-obriga-dt-receb as log.

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– Variável que recebe a descrição dos erros que ocorreram na CPC;
• lg-obriga-dt-receb - Indicador de obrigatoriedade ou não da informação, por parte do usuário, da data de recebimento da fatura. Este indicador somente é utilizado no retorno do ponto de chamada "DATA-RECEBIM".