cpc-fp0611g.p1

Rotina utilizada para tratar alterações no valor da base de cálculo do imposto no programa (FP-08-F) "Demonstrativo Usos-Valores Ref. Cobranca".
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
Dentro do programa fp0611g.p, no procedimento que calcula a base de cálculo do imposto.
Ponto de Utilização
"CALC-BASE-IMP"
Include das definições das tabelas temporárias
cpc-fp0611g.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0611g-entrada
def temp-table tmp-cpc-fp0611g-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
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.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento que deve ser "BCIMP"
nm-ponto-chamada-cpc – Indica o ponto de chamada que deve ser "CALC-BASE-IMP"
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.
Tabela de saída tmp-cpc-fp0611g-saida
def temp-table tmp-cpc-fp0611g-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char
field lg-continua as log initial yes
field vl-base-imp like fatueven.vl-evento.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
ds-mensagem – Mensagem de retorno da cpc.
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.