CPC-FP0711A1.p

• Rotina que permitirá realizar algumas consistências com a data de final do termo de adesão antes de faturá-lo.
• Rotina que permitirá alterar a quantidade de beneficiários ativos no termo
• Rotina que permitirá desconsiderar o beneficiário para faturamento no mês em questão
• Rotina que permitirá tratar se proposta será processada no faturamento
• 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.

Localização

• Dentro do programa fp0711a1.p, na leitura do termo de adesão. 
• Dentro do programa fp0711a1.p, anterior a leitura dos usuários
• Dentro do programa fp0711a1.p, após leitura da proposta
• Dentro do programa fp0711a1,p, no procedimento que conta usuários.
• Dentro do programa fp0711a1.p, antes de mostrar o erro 3 em tela.

Ponto de Utilização

• "TRATA-TERMO"
• "COBRA-PROX-MES"
• "TRATA-PROPOSTA"
• "DENTRO-SELECAO"
• "CONTA-USUARIO", "VER-USUARIO"
• "VERIFICA-ERRO" 

Include das definições das tabelas temporárias

• cpc-fp0711a1.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0711a1-entrada

def temp-table tmp-cpc-fp0711a1-entrada no-undo

field in-evento-programa                       as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field cd-modalidade                               like propost.cd-modalidade
field cd-plano                                         like propost.cd-plano
field cd-tipo-plano                                  like propost.cd-tipo-plano
field nr-proposta                                    like propost.nr-proposta
field aa-referencia                                 like notaserv.aa-referencia
field mm-referencia                              like notaserv.mm-referencia
field dt-fim                                             like ter-ade.dt-fim
field vl-total-nota                                   like notaserv.vl-total
field nr-rowid-usuario                           as rowid
field qt-usuario                                      as int
field dt-referencia                                 as date
field nr-ter-adesao                                like propost.nr-ter-adesao

field cod-gr-cli                                      like contrat.cod-gr-cli initial ""
field cd-contratante                              as int
field nr-rowid-propost                           as rowid.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-fp0711a1.p. Os valores desse campo podem ser: "GERA" OU "CONSULTA"
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:"TRATA-TERMO" OU "TRATA-PROPOSTA"
  • cd-modalidade – Código da modalidade de comercialização;
  • cd-plano – Código de identificação do Plano no produto;
  • cd-tipo-plano - Código de identificação do Tipo de Plano no produto
  • nr-proposta – Número da proposta
  • aa-referencia – Ano de referencia para a geração da nota de serviço
  • mm-referencia – mês de referencia para a geração da nota de serviço.
  • dt-fim – data de fim do termo de adesão.
  • vl-total-nota – valor total da nota de serviço
  • nr-rowid-usuario – registro no banco referente a tabela do beneficiário
  • qt-usuario – quantidade de usuários ativos
  • dt-referencia – data de referência
  • nr-ter-adesao – número do termo de adesão
  • cod-gr-cli - Código do grupo do cliente.
  • cd-contratante - Código do contratante.
  • nr-rowid-propos - RowID da tabela propost.

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

def temp-table tmp-cpc-fp0711a1-saida no-undo

field lg-undo-retry                               as log
field ds-mensagem                              as char
field lg-continua                                  as log.
field vl-total-nota                                 like notaserv.vl-total
field lg-desconsidera-registro             as log
field qt-usuario                                    as int
field lg-mostra-erro                             as log
field lg-next-contratante                     as log
field cod-gr-cli                                     like contrat.cod-gr-cli initial ""
field lg-mostra-selecao                        as log
field ds-retorno                                    as char
field lg-desconsidera-benef-excluido  as log initial yes.

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

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
  • ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc.
  • lg-continua – Log que informa se continua o processo ou não, conforme tratativa na cpc.
  • vl-total-nota – valor total da nota de serviço alterado
  • lg-desconsidera-registro – indica que beneficiário será desconsiderado no faturamento
  • qt-usuario – quantidade de beneficiários ativoslg-mostra-erro – variável que controla se irá mostrar ou não a mensagem do erro gerado
  • lg-mostra-erro - Indica se deve mostrar mensagem de erro.
  • lg-next-contratante - Indica se deve ignorar o registro atual.
  • cod-gr-cli - Código do grupo do cliente.
  • lg-mostra-selecao - Indica se tem informação para mostrar o filtro da seleção no relatório.
  • ds-retorno - Descrição do retorno do campo que deve aparecer na parte "Selecao Especifica" nos parâmetros do relatório.
  • lg-desconsidera-benef-excluido - indica se deve desconsiderar beneficiario excluído.

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

def temp-table tmp-cpc-fp0711a1-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 de saída

• • lg-selecao - Indica se o contratante foi selecionado/ marcado.
  • 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