CPC-FP0711A.p

• 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

  Âncora__RefHeading__22245_2053127524__RefHeading__22245_2053127524 Âncora__RefHeading__8400_486694287__RefHeading__8400_486694287 Âncora__RefHeading__3611_213273755__RefHeading__3611_213273755 Âncora__RefHeading__13009_644533341__RefHeading__13009_644533341 Âncora__RefHeading__88907_1756225838__RefHeading__88907_1756225838Ponto de Utilização

• "ALTERA-CONG"; "TRATA-PROPOSTA"
• "CONTA-USUARIO"; VER-USUARIO
• "CALC-BASE-IMP"
• "CRITICA-BENEF"

Âncora__RefHeading__22247_2053127524__RefHeading__22247_2053127524 Âncora__RefHeading__8402_486694287__RefHeading__8402_486694287 Âncora__RefHeading__3613_213273755__RefHeading__3613_213273755 Âncora__RefHeading__13011_644533341__RefHeading__13011_644533341 Âncora__RefHeading__88909_1756225838__RefHeading__88909_1756225838Include 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-

...

cpc-fp0711a-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.

...