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 @   TigerMan  阅读(160)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析
点击右上角即可分享
微信分享提示