CPC-FP0512I.p

Rotina utilizada para:

• Criação de eventos de desconto de forma específica.
• Substituir o parâmetro “Cob.Integral.Exc” dos parâmetros do faturamento.
• Considerar o usuário no faturamento do mês em questão mesmo estando excluído.
• Alterar a data de exclusão do beneficiário.
• Alterar a data de inclusão do beneficiário.
• Não considerar o usuário no faturamento do mês em questão.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• 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.

Ponto de Utilização

• “CRIA-EVEN-PROG”
• “COB-PROP-INT”
• "CONSID-BENEF-EXCL"
• “PROPORC-ENTRADA”
• "COBRA-PROX-MES"
• “CONTA-USUARIO”
• “VER-USUARIO”
• "INI-EXEC-ROTINA"
• "FIM-EXEC-ROTINA"

Include das definições das tabelas temporárias

• cpc-fp0512i.i

Localização

• Dentro do programa fp0512i.p, anterior a criação da nota;
• Dentro do programa fp0512i.p, anterior a chamada das rotinas do faturamento;
• Dentro do perograma fp0711a, anterior a criação da nota;
• Dentro do programa fp0711a1, anterior a criação da nota;
• Pontos CONTA-USUARIO e VER-USUARIO, no procedimento que conta usuarios faturados.
• Dentro do programa fp0512i.p, inicio da execução das rotinas de faturamento.
• Dentro do programa fp0512i.p fim da execução das rotinas de faturamento.

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0512i-entrada

def temp-table tmp-cpc-fp0512i-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(10)"
field r-propost as rowid
field vl-total-nota like notaserv.vl-total
field nr-rowid-usuario as rowid
field dt-emissao-aux as date
field lg-fat-proporc-saida as log
field dt-exclusao-plano as date
field tt-valor-tot as dec format ">>>,>>>,>>9.9999"
field dt-ref-ant-aux as date
field aa-ult-fat as int
field mm-ult-fat as int
field cd-modalidade like usuario.cd-modalidade
field nr-proposta like usuario.nr-proposta
field cd-usuario like usuario.cd-usuario.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – Ponto de chamada de cpc
  • in-evento-programa – Identifica qual evento deve ser executado no momento que está sendo chamada  
  • r-proposta – número do registro no banco da tabela referente a proposta
  • vl-total-nota – Valor total da nota calculado até o momento
  • nr-rowid-usuario – número do registro no banco da tabela referente ao beneficiário
  • dt-emissao-aux – data de emissão da nota de serviço em questão
  • lg-fat-proporc-saida – indica se será cobrado proporcional na saída do beneficiário no plano
  • dt-exclusao-plano – data de exclusão do beneficiário do plano
  • tt-valor-tot – valor total da nota se serviço com descontos
  • dt-ref-ant-aux – mês e ano anterior ao mês de referência
  • aa-ult-faturamento – Ano do último faturamento do beneficiário.
  • mm-ult-faturamento – Mês do último faturamento do beneficiário
  • cd-modalidade – código da modalidade do beneficiário
  • nr-proposta – número da proposta do beneficiário
  • cd-usuario – código do beneficiário

Tabela de entrada-saída wk-evento-imposto

def temp-table wk-evento-imposto no-undo
      field cd-evento                   like fatueven.cd-evento
      field cd-imposto                 like dzimposto.cd-imposto
      field vl-base                       as dec
      field pc-aliquota                 like evenimp.pc-aliquota

Definição campo a campo da tabela de entrada-saída

• • cd-evento– código do evento relacionado ao desconto
  • cd-imposto – Código do imposto considerado no cálculo
  • vl-base– valor a ser considerado para cálculo de imposto
  • pc-aliquota   – percentual de alíquota relacionado ao evento

Observação: essa tabela é considerada apenas no ponto de chamada “CRIA-EVEN-PROG”

Tabela de saída tmp-cpc-fp0512i-saida

def temp-table tmp-cpc-fp0512i-saida no-undo
      field lg-undo-retry as log
      field ds-mensagem-erro as char format "x(75)"
      field lg-altera-parametro as log
      field in-cob-int-prop as char format "x(01)"
      field vl-total-nota like notaserv.vl-total
      field tt-valor-tot as dec format ">>>,>>>,>>9.9999"
      field lg-desconsidera-registro as log
      field lg-fat-proporc-saida as log
      field dt-exclusao-plano as date
      field lg-desconsidera-benef-excluido as log initial yes.

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

• • lg-undo-retry –controla os erros que podem ocorrer na CPC.
  • ds-mensagem-erro – recebe a descrição dos erros que ocorreram na CPC.
  • lg-altera-parametro – indica se será ou não tratado proporcionalidade na entrada do beneficiário do plano.
  • in-cob-int-prop  – campo não usado.
  • vl-total-nota –  recebe o valor da nota alterado.         
  • tt-valor-tot – valor total da nota se serviço com descontos.
  • lg-desconsidera-registro – indica se beneficiário será desconsiderado do faturamento do mês em questão.    
  • lg-fat-proporc-saida - indica que se será ou não tratado proporcionalidade na saída do beneficiário do plano.
  • dt-exclusao-plano  - data de exclusão do beneficiário alterada.
    
  • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.