ABAP-进度条函数 

 1 DATA:lv_perc(3) TYPE c,
 2      lv_per     TYPE p,
 3      lv_stxt    TYPE string,
 4      lv_num     TYPE i VALUE 0, "数据总数
 5      lv_sign    TYPE i VALUE 0. "当前的进度
 6 
 7 "获取数据条数
 8 lv_num = lines(gt_data) .
 9 
10 DO lv_num TIMES .
11 
12   lv_sign = lv_sign + 1 ."每次进度+1
13   lv_per = lv_sign / lv_num * 100  . "进度/总数*100得到百分比
14   lv_perc = lv_per .
15 
16   CONCATENATE '已经批导了' lv_perc '%' INTO lv_stxt.
17 
18   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
19     EXPORTING
20       percentage = lv_per
21       text       = lv_stxt.
22 
23 ENDDO .
posted @ 2022-06-20 16:37  TigerMan  阅读(196)  评论(0)    收藏  举报