CPC-RC0310B.P

• Rotina utilizada para processar informações após a validação de um procedimento.
• 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 "APOS-VALIDACAO", dentro do programa RC0310B.p após a validação do procedimento.
• Dentro do Rc0310b.p ao executar a ação de "VALIDAR" e escolher a opção "03 - AMBOS"
• Para o ponto "APOS-VAL-INSU", dentro do programa RC0310B.P, no final da procedure analisa-insumo, utilizando o evento "MULTIPLA" e no final da procedure valida-insumo, utilizando o evento "INDIVIDUAL".

Ponto de Utilização

• "APOS-VALIDACAO".GERA-TRANS
• -FAT" - CPC funcionará apenas com Banco de Dados Oracle.VALOR-PAGTO"
• APÓS"APOS-VAL-INSU"
• "ANTES-VALIDACAO"
• "TIPO-COBRANCA"

Include das definições das tabelas temporárias

• cpc-rc0310b.i 

...

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0310b-entrada

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

field in-evento-programa                  as as char format "x(10)"
field nm-ponto-chamada                  as as char format "x(15)"
field nr-rowid-moviproc                     as rowed
field cd-opcao-doc                           as int
field cd-unidade                               as rowid
field cd-tipo-cobranca as int
field in-tipo-movto as char format "x(1)"
field cd-selecao as int format "99"
field cd-tipo-insumo-ini as int format "99"
field cd-tipo-insumo-fim as int format "99"
field cd-insumo-ini as int64 format "9999999999"
field cd-insumo-fim as int64 format "9999999999"
field cd-proced-ini as int format "99999999"
field cd-proced-fim as int format "99999999"
field cd-prestador like preserv.cd-prestador
field cd-prestador-save like preserv.cd-prestador
field aa-fatura like notapres.aa-fatura
field cd-serie like notapres.cd-serie-nf
field nr-fatura like notapres.cod-fatur-ap
field in-tipo-validacao as int
field cod-indicador as char
field dt-anoref-ini like perimovi.dt-anoref
field dt-anoref-fim like perimovi.dt-anoref
field nr-perref-ini like perimovi.nr-perref
field nr-perref-fim like perimovi.nr-perref
field cd-transacao-ini like tranrevi.cd-transacao
field cd-transacao-fim like tranrevi.cd-transacao
field cd-unidade-imp like moviproc.cd-unidade-imp
field cd-prestador-imp like moviproc.cd-prestador-imp
field nr-lote-imp like moviproc.nr-lote-imp
field nr-seq-imp like moviproc.nr-sequencia-imp
field cd-modalidade like modalid.cd-modalidade
field cd-modalidade-ini like modalid.cd-modalidade
field cd-modalidade-fim like modalid.cd-modalidade
field nr-insc-contrat like propost.nr-insc-contratante
field nr-doc-ini like moviproc.nr-doc-original
field nr-doc-fim like moviproc.nr-doc-original
field cd-unidade like docrecon.cd-unidade
field cd-unidade-prestadora             like docrecon.cd-unidade-prestadora
field cd-transacao                            like like docrecon.cd-transacao
field nr-serie-doc-original                  like like docrecon.nr-serie-doc-original
field nr-doc-original                          like like docrecon.nr-doc-original
field nr-doc-sistema                         like docrecon.nr-doc-sistema.

...

• in-evento-programa – Evento do programa que chama CPC-RC0310B.P.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• nr-rowid-moviproc – Identificador do registro do procedimento do documento.
• cd-tipo-cobranca  – Tipo de cobrança na validação da glosa.
• in-tipo-movto  – Tipo do movimento
• cd-selecao – Tipo da seleção
• cd-tipo-insumo-ini – Código do tipo de insumo.cd-opcao-doc – indica a opção de validação escolhida pelo usuário em tela.
• cd-tipo-insumo-fim – Código do tipo de insumo.
• cd-proced-ini – Código do procedimento
• cd-proced-fim – Código do procedimento
• cd-prestador – Código do prestador
• cd-prestador-save – Código do prestador
• aa-fatura – Ano da fatura
• cd-serie – Série da fatura
• nr-fatura – Número da fatura
• in-tipo-validacao – Tipo de validação
• cod-indicador – Indicador do tipo de fatura
• dt-anoref-ini – Ano de referência do período
• dt-anoref-fim – Ano de referência do período
• nr-perref-ini – Número de referência do período
• nr-perref-fim – Número de referência do período
• cd-transacao-ini – Código da transação
• cd-transacao-fim – Código da transação

• cd-unidade-imp – Código da unidade de importação

• cd-prestador-imp – Código do prestador de importação
• nr-lote-imp – Número do lote de importação
• nr-seq-imp – Número da sequencia do lote de importação
• cd-modalidade – Código da modalidade
• cd-modalidade-ini – Código da modalidade
• cd-modalidade-fim – Código da modalidade
• nr-insc-contrat – Número de inscrição do contratante
• nr-doc-ini – Número do documento
• nr-doc-fim – Número do documento
• cd-unidade – Código da unidade.
• cd-unidade-prestadora – Código da unidade prestadora.
• cd-transacao – Código da transação.
• nr-serie-doc-original – Série dodocumentodo documento.
• nr-doc-original – Número do documento.
• nr-doc-sistema – Número do documento no sistema.

...

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

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

field lg-atualiza as log
field lista-tipo-cob as char
field lg-undo-retry                          as as log
field ds-mensagem                       as char format "x(75)"
field lg-erro                                    as log
field lista-cd-selecao                      as char.

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

• lg-atualiza – Indica se deve atualizar ou não os tipos de cobrança;
• lista-tipo-cob – Variável que irá conter a nova lista de opções que será exibida em tela para o usuário;
• 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-erro – Indica o tipo do atendimento;
• lista-cd-selecao – Variável que irá conter a nova lista de opções que será exibida em tela para o usuário