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 suspenso o reajuste para o beneficiário;
• Para o ponto "TRATA-PROPOSTA", dentro do programa fp0711a.p após ler a proposta.
• Para o ponto "DENTRO-SELECAO", dentro do programa fp0711a.p durante a leitura dos registros.
• 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.

...

• Dentro da include fp0711a.i9, no procedimento "le-tipleven";

Ponto de Utilização 

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

...

• "DENTRO-SELECAO"

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    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 like evenimp.cd-evento
field cd-forma-pagto                               as int
field dt-vigencia                                       like evenimp.dt-vigencia-ini
field cd-unidade-grupo                         like    like evengrimp.cd-unidade-grupo
field cd-grupo-contratante                     like  like evengrimp.cd-grupo-contratante
field cd-compl-grupo-contrat                  like evengrimp.cd-compl-grupo-contrat
field nr-insc-contratante                        like   like evenctrimp.nr-insc-contratante
field vl-base-imp                                      like 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
field cod-gr-cli                                        like contrat.cod-gr-cli initial ""
field nr-rowid-usuario                             as rowid
field nr-rowid-propost                             as rowid
field cd-mensagem-erro                         as int
field hStream                                          as handle.

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
  • cd-forma-pagto - Código da forma de pagamento
  • 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.

...

• • .
  • cod-gr-cli - código do grupo do cliente.
  • nr-rowid-usuario - id do registro da tabela usuario.
  • nr-rowid-propost - id do registro da tabela propost.
  • cd-mensagem-erro - código da mensagem de erro.
  • hStream

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
     field lg-next-contratante                    as log
     field lg-next                                       as log
     field cod-gr-cli                                   like contrat.cod-gr-cli initial ""
     field lg-nao-chama-cpc-fp0711a       as log
     field lg-mostra-selecao                     as log
     field lg-desconsidera-benef-excluido    as log initial yes.

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

• • lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
  • Dtdt-ref-reajuste – Data de referncia calculada da susupensao do reajuste.
  • Dsds-mensagem – Mensagem de retorno da cpc.
  • Lglg-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.
  • lg-next-contratante - indicador de próximo contratante.
  • lg-next - indicador de próximo.
  • cod-gr-cli - código do grupo do cliente
  • lg-nao-chama-cpc-fp0711a  - indicador se deve ou não chamar a cp-fp0711a.
  • lg-motra-selecao - Indica se tem informação para mostrar o filtro da seleção no relatório.
  • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.

          Tabela de saída tmp-cpc-fp0711a-contrat

def temp-table tmp-cpc-fp0711a-contrat no-undo

field lg-selecao           as log format "*/ "
field cd-contratante    as int
field nm-contratante   as char
field in-tipo-pessoa     like contrat.in-tipo-pessoa.

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

• • lg-selecao - indicador de selecao;
  • cd-contratante - código do contratante
  • nm-contratante - nome do contratante
  • in-tipo-pessoa - Indicador do tipo de pessoa do contratante. F - Física; J - Jurídica