CPC-RC0111R.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 rc0111r.p, o ponto de chamada "CONS-NR-FATURA" é chamado antes de informar o número da fatura.
• Dentro do programa rc0111r.p, o ponto de chamada "CONS-PRESTADOR" é chamado antes de informar o número da fatura.
• Dentro do programa rc0111r.p, o ponto de chamada "DATA-RECEBIM" é chamado após informar a data de recebimento.
• Dentro do programa rc0111r.p, o ponto de chamada "FINAL-INCLUI" é chamado antes de finalizar a inclusão de novo registro.

Ponto de Utilização

• "CONSULTA", para os pontos de chamada "CONS-NR-FATURA" e "CONS-PRESTADOR", e "INCLUI" para o ponto de chamada "DATA-RECEBIM" .
• "FINAL-INCLUI"

Include das definições das tabelas temporárias

• cpc-rc0111r.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0111r-entrada

def temp-table tmp-cpc-rc0111r-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                                  like notapres.cd-unidade
field cd-unidade-prestador                  like notapres.cd-unidade-prestador
field cd-prestador                                like notapres.cd-prestador
field cd-unidade-seccional                  like preserv.cd-unidade-seccional
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- Código da unidade;
• cd-unidade-prestador – Código da unidade do prestador;
• cd-prestador - Código do prestador;
• cd-unidade-seccional – Código da unidade seccional 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 - Espécie da nota;
• cod-fatur-ap - Número da Fatura;
• r-notapres - Rowid da notapres.

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

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

field lg-undo-retry                              as log
field ds-mensagem                           as char
field nr-fatura                                     like notapres.nr-fatura
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;
• nr-fatura – Número da fatura retornada da 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".