cpc-fp0711a.p1

Rotina utilizada no cálculo do faturamento para substituir a marca do congelamento (suspensão do reajuste) quando o beneficiário estiver congelado. Se a CPC estiver ativa, vale a regra da CPC.
Rotina utilizada para tratar se proposta vai ser faturada ou não.
Rotina utilizada para tratar alterações no valor da base de cálculo do imposto.
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 da include fp0711a.i9, no procedimento que calcula a faixa etária no momento que foi suspenço o reajuste para o beneficiário;
Para o ponto "TRATA-PROPOSTA", dentro do programa fp0711a.p após ler a proposta.
Pontos CONTA-USUARIO e VER-USUARIO, no procedimento que conta usuarios faturados.
O ponto de chamada CRITICA-BENEF situa-se no final do procedimento de geração do programa fp0711a.p.
Ponto de Utilização
"ALTERA-CONG"; "TRATA-PROPOSTA"
"CONTA-USUARIO"; VER-USUARIO
"CALC-BASE-IMP"
"CRITICA-BENEF"
Include das definições das tabelas temporárias
cpc-fp0711a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-fp0711a-entrada
def temp-table tmp-cpc-fp0711a-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-modalidade like usuario.cd-modalidade
field nr-ter-adesao like usuario.nr-ter-adesao
field cd-usuario like usuario.cd-usuario
field aa-mm-referencia as int format "999999"
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 cd-contratante like notaserv.cd-contratante
field cd-contratante-origem like notaserv.cd-contratante-origem
field nr-sequencia like notaserv.nr-sequencia.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento, que pode ser ALTERA-CONG ou CONSULTA ou BCIMP
nm-ponto-chamada-cpc – Indica o ponto de chamada, que pode ser ALTERA-CONG, TRATA-PROPOSTA ou CALC-BASE-IMP
cd-modalidade – Código da modalidade do termo de adesão
nr-ter-adesao – Número do termo do beneficiário
cd-usuario – Código do usuário
aa-mm-referencia – Ano e Mês de suspensão do reajuste
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.
cd-contratante – código do contratante/cliente associado ao administrativo.
cd-contratante-origem – código do contratante origem.
nr-sequencia – número da sequência da nota de serviço.
Tabela de saída tmp-cpcfp0711a-saida
def temp-table tmp-cpc-fp0711a-saida no-undo
field lg-undo-retry as log
field dt-ref-reajuste as date format "99/99/9999"
field ds-mensagem as char
field lg-continua as log initial yes
field vl-base-imp like fatueven.vl-evento
field ds-retorno as char.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
Dt-ref-reajuste – Data de referncia calculada da susupensao do reajuste.
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.
ds-retorno – descrição de retorno da CPC.