scripturi ABAP

Thursday, November 17, 2005

KEEP_ALIVE

Pentru a evita erorile de tip ABAP-RUNTIME ERROR cauzate de depasirea timpului de executie a unui raport:
form get_values.
data: ls_sold_recon like gt_sold_recon.
data: ls_sold_cmspec like gt_sold_cmspec.
data: lsubrc like sy-subrc.
data: lcomp(19).
data: lins like sy-tabix.
data: lproc type i.
data: lprocprev type i.
field-symbols: .

describe table gt_rec_acc lines lins.
loop at gt_rec_acc.
lproc = sy-tabix * 100 / lins.
if lproc <> lprocprev.
call function 'SAPGUI_PROGRESS_INDICATOR'
exporting percentage = lproc
text = 'Prelucrare pozitii...'.
lprocprev = lproc.
endif.
.
.
.
endloop.

0 Comments:

Post a Comment

<< Home