ABAP-进度条函数

最新推荐文章于 2025-10-19 14:42:08 发布

原创最新推荐文章于 2025-10-19 14:42:08 发布 · 117 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

 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 .

标签