CPC-VP0110N.P

Pontos de Utilização

• "APOS-ALTERA-MOD" - A partir da 12.1.2209.
• "LIB-CAR-GRUPO"

Include das definições das tabelas temporárias

• cpc-vp0110n.i

Exemplo da chamada da cpc

 run cpc/cpc-vp0110n.p (input  table tmp-cpc-vp0110n-entrada,
                                         input-output  table tmp-cpc-vp0110n-propla,
                                         output table tmp-cpc-vp0110n-saida).

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-vp0110n-entrada

def temp-table tmp-cpc-vp0110n-entrada no-undo
    field nm-ponto-chamada             as char  format "x(15)"
    field in-evento-programa           as char  format "x(15)"
    field r-propost-par                        as rowid 
    field r-pro-pla-par                        as rowid .

          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-pro-pla-par rowid da tabela pro-pla;
• r-propost-par - rowid da tabela propost;

Tabela de entrada e saída tmp-cpc-vp0110n-propla

   def temp-table tmp-cpc-vp0110n-propla no-undo
    field cd-modalidade                like pro-pla.cd-modalidade
    field cd-plano                     like pro-pla.cd-plano
    field cd-tipo-plano                like pro-pla.cd-tipo-plano
    field cd-modulo                    like pro-pla.cd-modulo
    field nr-proposta                  like pro-pla.nr-proposta
    field cd-forma-pagto               like pro-pla.cd-forma-pagto
    field cd-motivo                    like pro-pla.cd-motivo
    field ds-motivo                    like motcange.ds-motivo
    field lg-cobertura-obrigatoria     like pro-pla.lg-cobertura-obrigatoria
    field lg-carencia                  like pro-pla.lg-carencia
    field dt-inicio                    like pro-pla.dt-inicio
    field dt-fim                       like pro-pla.dt-fim
    field dt-cancelamento              like pro-pla.dt-cancelamento
    field nr-dias-bonificacao          like pro-pla.nr-dias
    field lg-bonifica-penaliza         like pro-pla.lg-bonifica-penaliza
    field in-ctrl-carencia-proced      like pro-pla.in-ctrl-carencia-proced
    field qt-caren-eletiva-proc        like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia-proc       like pro-pla.qt-caren-urgencia
    field in-ctrl-carencia-insumo      like pro-pla.in-ctrl-carencia-insumo
    field qt-caren-eletiva             like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia            like pro-pla.qt-caren-urgencia
    field lg-carencia-ant              like pro-pla.lg-carencia
    field nr-dias-bonificacao-ant      like pro-pla.nr-dias
    field lg-bonifica-penaliza-ant     like pro-pla.lg-bonifica-penaliza
    field in-ctrl-carencia-proced-ant  like pro-pla.in-ctrl-carencia-proced
    field in-ctrl-carencia-insumo-ant  like pro-pla.in-ctrl-carencia-insumo
    field qt-caren-eletiva-proc-ant    like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia-proc-ant   like pro-pla.qt-caren-urgencia
    field qt-caren-eletiva-insu        like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia-insu       like pro-pla.qt-caren-urgencia
    field qt-caren-eletiva-insu-ant    like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia-insu-ant   like pro-pla.qt-caren-urgencia
    field qt-caren-eletiva-ant         like pro-pla.qt-caren-eletiva
    field qt-caren-urgencia-ant        like pro-pla.qt-caren-urgencia
    field dt-atualizacao-carencia      like pro-pla.dt-atualiza-carencia
    field cd-userid-carencia           as char format "x(12)"
    field dt-atualizacao-carencia-ant  like pro-pla.dt-atualiza-carencia
    field cd-userid-carencia-ant       as char format "x(12)".

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

def temp-table tmp-cpc-vp0110n-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 o processo deve ou não continuar.