CPC-FP0610A.p

• Rotina utilizada para processar seleção do 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

• Para o ponto "APOS-SELECAO", dentro do fp0610a.p após digitar seleção.
• Para o ponto "GRUPO-CLIENTE", dentro da seleção do fp0610a. 
• Para o ponto "CONTRATANTE", dentro do fp0610a.p após digitar contratante inicial e final.

Ponto de Utilização

• "APOS-SELECAO"
• "GRUPO-CLIENTE"
• "CONTRATANTE"

Include das definições das tabelas temporárias

• cpc-fp0610a.i 

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0610a-entrada

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

field in-evento-programa                        as char format "x(10)"
field nm-ponto-chamada-cpc                 as char format "x(15)"

field cod-gr-cli                                        like contrat.cod-gr-cli  initial ""
field nr-ter-ade-ini                                  like mov-insu.nr-ter-adesão
field nr-ter-ade-fim                                 like mov-insu.nr-ter-adesao
field cd-contratante                               as int
field cd-contratante-ini                          as int
field cd-contratante-fim                         as int
field nr-rowid-propost                           as rowid.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza
• cod-gr-cli - Código do grupo do contratante do termo de adesão
• nr-ter-ade-ini - Número do termo de adesão incial
• nr-ter-ade-fim - Número do termo de adesão final
• cd-contratante - Código do contratante do termo de adesão
• cd-contratante-ini - Código inicial do contratante do termo de adesão
• cd-contratante-fim - Código final do contratante do termo de adesão
• nr-rowid-propost  - Rowid da proposta

Tabela de entrada-saida tmp-cpc-fp0610a-contrat

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

        field lg-selecao                                        as log format "*/ "
        field cd-contratante                                 as int
        field nm-contratante                               as char.

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

• • lg-selecao – Variável que controla se os registros foram selecionados;
  • cd-contratante - Código do contratante do termo;
  • nm-contratante - Nome do contratante do termo.
    

Tabela de saída tmp-cpc-fp0610a –saida

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

field lg-undo-retry                                  as log
field ds-mensagem                               as char format "x(75)"

field lg-next-contratante                       as log
field cod-gr-cli                                      like contrat.cod-gr-cli  initial ""
field lg-nao-chama-cpc-fp0610a         as log.

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC
• ds-mensagem - Retorna a mensagem da cpc
• lg-next-contratante - Variável que controla os contratantes que serão desconsiderados
• cod-gr-cli - Código do grupo do contratante do termo de adesão
• lg-nao-chama-cpc-fp0610a - Variável que identifica se deve ou não ser chamada cpc.