CPC-API-USUARIO.p

• Rotina utilizada para permitir que seja possível excluir beneficiários com data anterior a data do último faturamento.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Para que o percentual de desconto das propostas tenham o valor definido no programa especifico, é aplicado o desconto para todos os beneficiários.
• 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.

Localização

• Dentro do programa api-usuario.p.

Ponto de Utilização

• "EXCLUI-FATURADO"
• "GRAU-PAR"
• "APOS-INCLUSAO"
• "GRAVA-TEMP"
• FINAL-EXCLUI

Include das definições das tabelas temporárias

• cpc-api-usuario.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-usuario-entrada

def temp-table tmp-cpc-api-usuario-entrada no-undo

field nm-ponto-chamada                  as char format "x(15)"
field in-evento-programa                  as char format "x(10)"
field aa-ult-faturamento                    like usuario.aa-ult-fat
field mm-ult-faturamento                  like usuario.mm-ult-fat
field dt-exclusao-plano                     like usuario.dt-exclusao-plano
field r-propost                                   as rowid
field r-usuario                                   as rowid
field cd-modalidade                          like usuario.cd-modalidade
field nr-proposta                               like usuario.nr-proposta
field in-est-civil                                  like usuario.in-est-civil
field cd-grau-parentesco                   like usuario.cd-grau-parentesco
field in-funcao                                  as char format "x(03)"
field char-1                                      as char format "x(30)"
field char-2                                      as char format "x(30)"
field char-3                                      as char format "x(30)"
field char-4                                      as char format "x(30)"
field char-5                                      as char format "x(30)"
field char-6                                      as char format "x(60)"
field char-7                                      as char format "x(60)"
field char-8                                      as char format "x(60)"
field char-9                                      as char format "x(60)"
field char-10                                    as char format "x(60)".

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
  • aa-ult-faturamento – Ano do último faturamento do beneficiário.
  • mm-ult-faturamento – Mês do último faturamento do beneficiário
  • dt-exclusao-plano – data informada na qual o beneficiário será excluído
  • r-proposta – número do registro no banco da tabela referente a proposta
  • r-usuario - número do registro no banco da tabela referente a usuário
  • cd-modalidade – Numero da modalidade.
  • Nr-proposta - Numero da proposta.
  • In-estado-civil – numero do estado civil
  • Cd-grau-parentesco – Numero do grau parentesco
  • in-funcao – função que a api está executando no momento (inclusão, exclusão, etc)
  • char-1 – utilizados como reserva
  • char-2 – utilizados como reserva
  • char-3 – utilizados como reserva
  • char-4 – utilizados como reserva
  • char-5 – utilizados como reserva
  • char-6 – utilizados como reserva
  • char-7 – utilizados como reserva
  • char-8 – utilizados como reserva
  • char-9 – utilizados como reserva
  • char-10 – utilizados como reserva

Tabela de saída tmp-cpc-api-usuario-saida

def temp-table tmp-cpc-api-usuario-saida no-undo

field lg-undo-retry                        as logical
field ds-mensagem-erro              as char format "x(75)"
field dt-exclusao-plano                like usuario.dt-exclusao-plano
field lg-continua                          as logical 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.
    • dt-exclusao-plano – recebe a data de exclusão do beneficiário alterada.
    • Lg-continua– controla se o programa deve continuar.