Histórico da Página
...
- "APOS-ALTERA-PRO"
- "LIB-CAR-GRUPO"
- "ANT-BROWSE-BENF"
Exemplo de chamada da cpc
run cpc/cpc-vp0110p.p (input table tmp-cpc-vp0110p-entrada,
input table wk-usucaren,
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
...
Tabela de entrada tmp-cpc-vp0110Pvp0110p-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.
...
- 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;
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
...