正文
SAP 自定义进度条
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
*&---------------------------------------------------------------------*
*& Report ZCHENH028
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------* REPORT zchenh028. DATA:count TYPE string. " 内表总数据条数
DATA:msg TYPE string. " 显示的消息
DATA:index TYPE string. " 当前处理的索引 DATA:BEGIN OF gt_tab OCCURS ,
col1 TYPE string,
END OF gt_tab . " 插入100条空数据
DO TIMES.
APPEND gt_tab.
ENDDO.
DESCRIBE TABLE gt_tab LINES count. * 进度条显示
LOOP AT gt_tab.
CLEAR:msg,index.
index = sy-tabix.
CONCATENATE '正在处理。。。' index '/' count INTO msg. " 拼接消息
index = index / count * . " 时钟显示的百分比 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = index " 处理的百分比
text = msg.
ENDLOOP.
效果如图: