Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.