Histórico da Página
...
run prgfin/acr/acr715zb.py (Input Input 1,
Input Input table tt_integr_acr_estorn_cancelinput_estorno,
output table tt_log_erros_estorn_cancel).
Tabelas Temporárias
Tabela Temporária | Descrição | Entrada/Saída |
tt_input_estorno | conterá Conterá os dados dos títulos/movimentos a serem estornados/cancelados | Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
ttv_cod_label | character | x(8) | Label |
|
|
ttv_des_conteudo | character | x(40) | Texto |
|
|
ttv_num_seq | integer | >>>,>>9 | Seqüência |
|
|
def
...
temp-table
...
tt_input_estorno
...
no-undo
...
field
...
ttv_cod_label
...
as
...
character
...
format
...
"x(8)"
...
label
...
"Label"
...
column-label
...
"Label"
...
field
...
ttv_des_conteudo
...
as
...
character
...
format
...
"x(40)"
...
label
...
"Texto"
...
column-label
...
"Texto"
...
field
...
ttv_num_seq
...
as
...
integer
...
format
...
">>>,>>9"
...
label
...
"Seqˆncia"
...
column-label
...
"Seq"
...
index
...
tt_primario
...
is
...
primary
...
ttv_num_seq ascending.
Exemplo:
v_num_cont = Cada estorno possui um número seqüencial e para cada um deve existir as ocorrências(create) abaixo:
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Nível"
tt_input_estorno.ttv_des_conteudo = {“Título” ou “Movimentos”) Indica se esta sendo estornado um título ou um movimento do título.
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Operação"
tt_input_estorno.ttv_des_conteudo = {“Estorno” ou “Cancelamento”}.
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Estabelecimento"
tt_input_estorno.ttv_des_conteudo = {Estabelecimento do título}
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Data"
tt_input_estorno.ttv_des_conteudo = string({Data da transação}).
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Referência"
tt_input_estorno.ttv_des_conteudo = {Referencia}
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "Histórico"
tt_input_estorno.ttv_des_conteudo = {Texto Histórico}
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "ID Movimento"
tt_input_estorno.ttv_des_conteudo = string(Num ID Movimento).
create tt_input_estorno.
assign tt_input_estorno.ttv_num_seq = v_num_cont
tt_input_estorno.ttv_cod_label = "ID Titulo"
tt_input_estorno.ttv_des_conteudo = string(Num ID Título).
Tabela Temporária | Descrição | Entrada/Saída |
tt_log_erros_estorn_cancel |
| Saída |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. |
.
Tabela Temporária | Descrição | Entrada/Saída |
tt_integr_acr_estorn_cancel |
| Entrada |
Atributo | Tipo | Formato | Descrição | Obrig. | Evol. | ||||||||
ttv_ind_niv_operac_acr | character | X(12) | Nível Operação |
|
| ||||||||
ttv_ind_tip_operac_acr | character | X(15) | Tipo Operação |
|
| ||||||||
tta_cod_estab | character | x(3) | Estabelecimento |
|
| ||||||||
tta_num_id_tit_acr | integer | 9999999999 | Token Cta Receber |
|
| ||||||||
tta_num_id_movto_tit_acr | integer | 9999999999 | Token Movto Tit ACR |
|
| ||||||||
ttattv_codnum_refermensagem | character | x(10) | integer | ">>>>,>>9" | Número MensagemReferência |
|
| ||||||
tta_dat_transacao | date | 99/99/9999 | Data Transação |
|
| ||||||||
tta_des_text_historttv_des_msg_erro | character | "x(200060)" | HistóricoMensagem Erro |
|
| ||||||||
ttv_coddes_estabmsg_reembolajuda | character | "x(840) |
|
|
| ttv_cod_portad_reembol | character | x(5) |
| " | Mensagem Ajuda |
|
|
def
...
temp-table
...
tt_
...
log_
...
erros_estorn_cancel
...
no-undo
...
field ttv_ind_niv_operac_acr as character format "X(12)" label "N¡vel Opera‡Æo" column-label "N¡vel Opera‡Æo"
...
...
field
...
tta_cod_estab
...
as
...
character
...
format
...
"x(3)"
...
label
...
"Estabelecimento"
...
column-label
...
"Estab"
...
field
...
tta_num_id_tit_acr
...
as
...
integer
...
format
...
"9999999999"
...
initial
...
0
...
label
...
"Token
...
Cta
...
Receber"
...
column-label
...
"Token
...
Cta
...
Receber"
...
field
...
tta_num_id_movto_tit_acr
...
as
...
integer
...
format
...
"9999999999"
...
initial
...
0
...
label
...
"Token
...
Movto
...
Tit
...
ACR"
...
column-label
...
"Token
...
Movto
...
Tit
...
ACR"
...
field
...
ttv_
...
num_
...
mensagem as integer format ">>>>,>>9" label "N£mero" column-label
...
"
...
N£mero Mensagem"
...
field
...
ttv_des_msg_erro as character format "x(60)" label "Mensagem Erro" column-label "Inconsistˆncia"
field ttv_des_msg_ajuda as character format "x(40)" label "Mensagem Ajuda" column-label "Mensagem Ajuda"
index tt_relac_tit_acr
tta_cod_estab ascending
tta
field tta_des_text_histor as character format "x(2000)" label "Hist¢rico" column-label "Hist¢rico"
field ttv_cod_estab_reembol as character format "x(8)"
field ttv_cod_portad_reembol as character format "x(5)"
field ttv_cod_cart_bcia_reembol as character format "x(3)"
index tt_id is primary unique
tta_cod_estab ascending
...
_num_id_tit_acr
...
ascending
...
tta_num_id_movto_tit_acr
...
ascending
...
ttv_num_mensagem ascending.