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.

Ponto de Utilização

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

Include das definições das tabelas temporárias

• cpc-fp0711b.i 

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711b-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(20)"
field cd-modalidade                               like mov-insu.cd-modalidade
field nr-ter-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                                     like evenimp.in-entidade
field cd-imposto                                     like evenimp.cd-imposto
field cd-evento                                        like evenimp.cd-evento
field dt-vigencia                                     like evenimp.dt-vigencia-ini
field cd-unidade-grupo                          like evengrimp.cd-unidade-grupo
field cd-grupo-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 nr-rowid-moviproc                       as rowid
field nr-rowid-mov-insu                       as rowid.

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"
  • 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"
  • 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.
  • 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.

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

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

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

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

• • 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.
  • lg-desconsidera-movimento - Indica se o movimento será desconsiderado do processo de faturamento e também do relatório de inconsistências.