CPC-FP0711B.p

• Rotina utilizada para a alteração do valor dos insumos;
• Rotina utilizada para a alteração do valor dos procedimentos;
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Rotina utilizada para exportar relatório em excel.
• 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 fp0711b.i8, após a valorização dos insumos. 
• Dentro do fp0711b.i7 após a valorização dos procedimentos.
• Dentro do fp0711b.p no cálculo da base do imposto.
• Dentro do fp0711b.p na leitura dos movimentos.
• Dentro do fp0711b.p no filtro das transações.
  
  

Ponto de Utilização

• "APOSVALORIZAINS"
• "APOSVALORIZAPRO"
• "VALIDA-MOV"
• "CALC-BASE-IMP"
• "GERA-EXCEL"
• "VERIFICA-TERMO"
• "PROC-INSU"
• "FILTRA-TRAN"
  
  

Include das definições das tabelas temporárias

• cpc-fp0711b.i 

...

Tabelas de entrada e saída

...

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(20)"
field cd-modalidade modalidade                                like mov-insu.cd-modalidade
field nr-ter-adesao adesao                                  like mov-insu.nr-ter-adesao
field cd-tipo-insumo                              like mov-insu.cd-tipo-insumo
field cd-insumo                                     like mov-insu.cd-insumo
field vl-calculo-aux                               as dec
field cd-unidade-prestadora                 like mov-insu.cd-unidade-prestadora
field r-mov-insu                                    as rowid
field in-tipo-movimento                        as char format "x(1)"
field nr-rowid-movimento                     as rowid
field lg-simulacao                                 as log
field in-entidade entidade                                      like evenimp.in-entidade
field cd-imposto   imposto                                    like evenimp.cd-imposto
field cd-evento evento                                         like like evenimp.cd-evento
field dt-vigencia   vigencia                                    like evenimp.dt-vigencia-ini
field cd-unidade-grupo grupo                           like evengrimp.cd-unidade-grupo
field cd-grupo-contratante contratante                      like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat                like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante                        like evenctrimp.nr-insc-contratante
field vl-base-imp                                   like fatueven.vl-evento
field r-ter-ade                                        as rowid

field cd-transacao-ini                            like tranrevi.cd-transacao
field cd-transacao-fim                           like tranrevi.cd-transacao
field r-moviproc-mov-insu                     as recid
field tp-movimento                                as char format "x(1)"
field r-docrecon                                    as recid
field vl-cobranca                                   like fateveco.vl-evento
field rowid-propost                                as rowid
field dt-emissao                                   as date format 99/99/9999

field nr-rowid-moviproc                       as rowid
field nr-rowid-mov-insu                       as rowid

field h-tmp-erro erro                                  as  as handle.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-fp0711b.p. O valor desse campo pode ser: "CALCULO" ."BCIMP"ou "VALIDA-MOV";
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa fp0711b.i8 e fp0711b.i7: "APÓSVALORIZAINS", "VALIDA-MOV", "CALC-BASE-IMP", "APOSVALORIZAPRO", "VERIFICA-TERMO", "GERA-EXCEL", "PROC-INSU" ou "FILTRA_TRAN";
  • cd-modalidade – Código da Modalidade.;
  • nr-ter-adesao – Numero do termo de adesão.;
  • cd-tipo-insumo – Código do Tipo de Insumo.;
  • cd-insumo – Código do Insumo.;
  • vl-calculo-aux – Valor do calculo do insumo;
  • cd-unidade-prestadora – Código da Unidade Prestadora do Movimento;
  • r-mov-insu – ROWID do registro de movimentação de Insumo.;
  • in-tipo-movimento – Indicador do tipo do movimento que está sendo processado;
  • nr-rowid-movimento – ROWID do movimento que está sendo processado (de acordo com o tipo de movimento – moviproc ou mov-insu);
  • lg-simulacao – Indicador se está sendo realizada uma simulação ou o cálculo do faturamento de CO.;
  • in-entidade – Entidade que pertence a estrutura que está sendo calculada.;
  • cd-imposto – Código do imposto que está sendo calculado.;
  • cd-evento – Código do evento que está sendo calculado;
  • dt-vigencia – Data de vigência do imposto que está sendo calculada.;
  • cd-unidade-grupo – Código da unidade do grupo do contratante que está sendo calculado.;
  • cd-grupo-contratante – Grupo do contratante que está sendo calculado.;
  • cd-compl-grupo-contratante – Código do complemento do grupo do contratante que está sendo calculado.;
  • nr-insc-contratante – Número da inscrição do contratante que está sendo calculado.;
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado.;
  • r-ter-ade - Campo que passa para a CPC o registro da tabela de Termo de Adesão.;
  • cd-transacao-ini - Código inicial da transação;
  • cd-transacao-fim - Código final da transação;
  • r-moviproc-mov-insu - Campo ainda não utilizado;
  • tp-movimento - Campo ainda não utilizado;
  • r-docrecon - Campo ainda não utilizado;
  • vl-cobranca - Campo ainda não utilizado;
  • rowid-propost - Rowid da tabela propost;
  • dt-emissao - Data de emissão informada em tela;
  • nr-rowid-moviproc - Campo que passa para a CPC o registro da tabela de Movimentações de Procedimentos.;
  • nr-rowid-mov-insu - Campo que passa para a CPC o registro da tabela de Movimentações de Insumos.
  • h-tmp-erro - handle da tabela temporária de erro.

...

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

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

field lg-undo-retry retry                                  as logical
field ds-mensagem-relatorio               as char format "x(75)"
field vl-calculo-aux                              as dec
field lg-continua continua                                   as log
field vl-base-imp                                  like fatueven.vl-evento

field ds-selecao                                   as log format "*/ "
field lg-continua cd-transacao                               as int format 9999
field ds-transacao                               like tranrevi.ds-transacao
field lg-contas-fechadas                      like tranrevi.u-log-1
field ds-mensagem                     as log initial yes         as char format "x(75)"
field vl-base-imp   cobranca                                  like fatuevenfateveco.vl-evento

field lg-desconsidera-movimento        as log.

...

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.;
  • ds-mensagem-relatorio – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.;
  • vl-calculo-aux – Valor do calculo do insumo.lg-continua – Indica se o processo deve ser continuado. Não indica que ocorreu erro, somente uma quebra de processamento do registro atual.;
  • lg-continua – Indica se processo deve continuar ou não.;
  • vl-base-imp – Valor da base de cálculo do imposto que está sendo calculado pela cpc.;
  • ds-selecao - Campo ainda não utilizado;
  • cd-transacao - Código da transação;
  • ds-transacao - Descrição da transação;
  • lg-contas-fechadas - Campo ainda não utilizado;
  • ds-mensagem - Armazena a mensagem de erro;
  • vl-cobranca - Campo ainda não utilizado;
  • lg-desconsidera-movimento - Indica se o movimento será desconsiderado do processo de faturamento e também do relatório de inconsistências.

...