cpc-fp0711b.p1

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