Árvore de páginas

Versões comparadas

Chave

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

...

run prgfin/acr/acr718za.py (Input recid recid(renegoc_acr),

                            Input v v_dat_estorno,

                            Input v v_cod_refer,

                            Input v v_des_text_histor,

                            output table tt_log_erros_estorn_cancel).

 

for each tt_log_erros_estorn_cancel:

 message '    Estabelecimento:' tt_log_erros_estorn_cancel.tta_cod_estab             skip

         '  Token Cta Receber:' tt_log_erros_estorn_cancel.tta_num_id_tit_acr        skip

         'Token Movto Tit ACR:' tt_log_erros_estorn_cancel.tta_num_id_movto_tit_acr  skip

         '             Número:' tt_log_erros_estorn_cancel.ttv_num_mensagem          skip

         '      Mensagem Erro:' tt_log_erros_estorn_cancel.ttv_des_msg_erro          skip

         '     Mensagem Ajuda: ' tt_log_erros_estorn_cancel.ttv_des_msg_ajuda        

        view-as alert-box info buttons ok.

end.

 

Parâmetros de Entrada

p_rec_renegoc_acr                                      

...

p_ tt_log_erros_estorn_cancel

 

Tabelas Temporárias

 

Tabela Temporária

Descrição

Entrada/Saída

tt_log_erros_estorn_cancel

 

Entrada

(*) A partir da 5.07A o estabelecimento passa a ter cinco dígitos.

Atributo

Tipo

Formato

Descrição

Obrig.

Evol.

tta_cod_estab

character

x(3) / x(5)*

Estabelecimento

 

 

tta_num_id_tit_acr

integer

9999999999

Token Cta Receber

 

 

tta_num_id_movto_tit_acr

integer

9999999999

Token Movto Tit ACR

 

 

ttv_num_mensagem

integer

>>>>,>>9

Número

 

 

ttv_des_msg_erro

character

x(60)

Mensagem Erro

 

 

ttv_des_msg_ajuda

character

x(40)

Mensagem Ajuda

 

 

 

def

...

temp-table

...

tt_log_erros_estorn_cancel

...

no-undo

   

...

field

...

tta_cod_estab                   

...

as

...

character

...

format

...

"x(

...

5)"

...

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_num_id_tit_

...

acr               ascending

         

...

tta_num_id_movto_tit_acr        

...

ascending

         

...

ttv_num_mensagem                

...

ascending

...

.