CPC-VP0110P.P

Pontos de Utilização

• "APOS-ALTERA-PRO" - A partir da 12.1.2209
• "LIB-CAR-GRUPO"
• "ANT-BROWSE-BENF"

Exemplo de chamada da cpc

run cpc/cpc-vp0110p.p (input  table tmp-cpc-vp0110p-entrada,
                                       input-output table tmp-cpc-vp0110p-usucaren,
                                       input-output table wk-usuario,
                                       output table tmp-cpc-vp0110p-saida).
   

Include das definições das tabelas temporárias

• cpc-vp0110p.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0110p-entrada

def temp-table tmp-cpc-vp0110p-entrada no-undo
    field nm-ponto-chamada             as char  format "x(15)"
    field in-evento-programa           as char  format "x(15)"
    field r-propost                    as rowid
    field r-usuario                    as rowid
    field tp-atualizacao               as int
    field r-usucaren-par               as rowid
    field h-usucaren-ant               as handle.

          Definição campo a campo da tabela de entrada

• in-evento-programa - Indica o nome do evento do ponto de cpc.
• nm-ponto-chamada-cpc - Indica o nome do ponto de chamada;
• r-usuario - rowid da tabela usuario;
• r-propost - rowid da tabela propost;
• r-usucaren-par - rowid da tabela usucaren;
• h-usucaren-ant - Handle da tabela temporária referente a usucaren.

Tabela de entrada e saída tmp-cpc-vp0110p-usucaren

  def temp-table tmp-cpc-vp0110p-usucaren no-undo

    field cd-modulo                       like pro-pla.cd-modulo
    field ds-modulo                       like mod-cob.ds-modulo
    field lg-cobertura-obrigatoria        like pro-pla.lg-cobertura-obrigatoria
    field cd-forma-pagto                  like pro-pla.cd-forma-pagto
    field ds-forma-pagto-reduz            like formpaga.ds-forma-pagto-reduz
    field lg-carencia-usucaren              as char format "x(03)"
    field lg-carencia-usucaren-ant        like usucaren.lg-carencia
    field nr-dias-usucaren                like usucaren.nr-dias
    field nr-dias-usucaren-ant            like usucaren.nr-dias
    field lg-boni-pena-usucaren             as char format "x(08)"
    field lg-boni-pena-usucaren-ant       like usucaren.lg-bonifica-penaliza
    field lg-carencia-usuario               as char format "x(03)"
    field nr-dias-usuario                 like usucaren.nr-dias
    field lg-boni-pena-usuario              as char format "x(08)"
    field lg-carencia-propla                as char format "x(03)"
    field nr-dias-propla                  like usucaren.nr-dias
    field lg-boni-pena-propla               as char format "x(08)"
    field lg-carencia-cumpre                as char format "x(03)"
    field nr-dias-cumpre                  like usucaren.nr-dias
    field lg-boni-pena-cumpre               as char format "x(08)"
    field dt-cancelamento                 like usumodu.dt-cancelamento
    field dt-inicio                       like usumodu.dt-inicio
    field dt-fim                          like usumodu.dt-fim
    field dt-fim-eletiva                    as char    format "x(11)"
    field dt-fim-urgencia                   as char    format "x(11)"
    field dt-fim-ele-date                   as date    format "99/99/9999"
    field nr-recid-propla                   as recid
    field nr-rowid-propla                   as rowid
    field dt-atualizacao-carencia         like usucaren.dt-atualizacao-carencia
    field cd-userid-carencia              like usucaren.nm-usuario-carencia
    field dt-atualizacao-carencia-ant     like usucaren.dt-atualizacao-carencia
    field cd-userid-carencia-ant          like usucaren.nm-usuario-carencia
    field ds-marca                          as char format "x(01)"
    field ds-mensagem-car                   as char format "x(14)"
    index tmp-cpc-vp0110p-usucaren cd-modulo
                                   dt-cancelamento.

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

def temp-table tmp-cpc-vp0110p-saida no-undo
    field lg-undo-retry      as logical
    field ds-mensagem-erro   as char format "x(75)"
    field lg-continua        as logical.

Definição campo a campo da tabela de movimento

• lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
• lg-continua - Variável que controla se continua ou não o processo.