在执行一些数据量大的程序时,通常在程序下方的状态栏中加一个秒表用来显示进度,供用户了解程序运行到什么程度。实现方法有如下两种:
1, SAPGUI_PROGRESS_INDICATOR
常用而古老的方法,调用SAPGUI_PROGRESS_INDICATOR函数,指定函数的两个参数
- percentage :百分比的数值,用来控制秒表的指针,0到100之间的数字。
- text:状态栏显示的文本
例子代码:
选择画面输入循环次数,每次循环等待1秒,然后更新进步条的秒表指针和文本。
REPORT ztest_progress. DATA: g_perc TYPE p. DATA: g_stxt TYPE string. DATA: g_sperc(3) TYPE c. PARAMETERS: p_times TYPE i DEFAULT 5. g_perc = 0. DO p_times TIMES. WAIT UP TO 1 SECONDS. CLEAR:g_stxt. g_perc = sy-index / p_times * 100. g_sperc = g_perc. CONCATENATE '已经完成了' g_sperc '%' INTO g_stxt. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = g_perc "百分比的数值,用来控制秒表的指针。 text = g_stxt. "状态栏显示的文本。 ENDDO.
运行效果:
<img class="alignnone size-full wp-image-2943" src="http://www.baidusap.com/wp-content/uploads/2017-02-13_14-48-43.png" alt="2017-02-13_14-48-43" width="572" height="323" />2, CL_PROGRESS_INDICATOR
SAP还提供了更方便快捷的类CL_PROGRESS_INDICATOR中的方法PROGRESS_INDICATE来实现这个进度条。
<img class="alignnone size-full wp-image-2945" src="http://www.baidusap.com/wp-content/uploads/2017-02-13_14-53-22.png" alt="2017-02-13_14-53-22" width="787" height="295" srcset="http://www.baidusap.com/wp-content/uploads/2017-02-13_14-53-22.png 787w, http://www.baidusap.com/wp-content/uploads/2017-02-13_14-53-22-740x277.png 740w, http://www.baidusap.com/wp-content/uploads/2017-02-13_14-53-22-768x288.png 768w" sizes="(max-width: 787px) 100vw, 787px" />这个类方法其实也是调用了SAPGUI_PROGRESS_INDICATOR函数,只不过是更友好的封装了一下。
CL_PROGRESS_INDICATOR=>PROGRESS_INDICATE有两种显示模式:
- 立即显示
- 每隔10秒更新一下进度条
通过参数i_output_immediately控制('X' = Display Progress Immediately ).
立即显示的例子:
PARAMETERS: p_times1 TYPE i DEFAULT 5. "Immediately DO p_times1 TIMES. cl_progress_indicator=>progress_indicate( EXPORTING i_text = | Output immediately { sy-index } / { p_times1 } | * i_msgid = i_msgid " Message Class (If I_TEXT is not transferred) * i_msgno = i_msgno " Message Number (If I_TEXT is not transferred) * i_msgv1 = i_msgv1 " Message Variable (Maximum of 50 Characters) * i_msgv2 = i_msgv2 " Message Variable (Maximum of 50 Characters) * i_msgv3 = i_msgv3 " Message Variable (Maximum of 50 Characters) * i_msgv4 = i_msgv4 " Message Variable (Maximum of 50 Characters) i_processed = sy-index " Number of Objects Already Processed i_total = p_times1 " Total Number of Objects to Be Processed i_output_immediately = abap_true " X = Display Progress Immediately * importing * e_progress_sent = e_progress_sent " X = Progress Information Was Displayed ). WAIT UP TO 1 SECONDS. ENDDO.
运行效果:
<img class="alignnone size-full wp-image-2953" src="http://www.baidusap.com/wp-content/uploads/2017-02-13_15-02-48-2.png" alt="2017-02-13_15-02-48" width="703" height="322" />每隔10秒显示的例子:
PARAMETERS: p_times1 TYPE i DEFAULT 20. "Once per 10 seconds. DO p_times1 TIMES. cl_progress_indicator=>progress_indicate( EXPORTING i_text = | Output once per 10 seconds { sy-index } / { p_times1 } | * i_msgid = i_msgid " Message Class (If I_TEXT is not transferred) * i_msgno = i_msgno " Message Number (If I_TEXT is not transferred) * i_msgv1 = i_msgv1 " Message Variable (Maximum of 50 Characters) * i_msgv2 = i_msgv2 " Message Variable (Maximum of 50 Characters) * i_msgv3 = i_msgv3 " Message Variable (Maximum of 50 Characters) * i_msgv4 = i_msgv4 " Message Variable (Maximum of 50 Characters) i_processed = sy-index " Number of Objects Already Processed i_total = p_times1 " Total Number of Objects to Be Processed i_output_immediately = abap_false " X = Display Progress Immediately * importing * e_progress_sent = e_progress_sent " X = Progress Information Was Displayed ). WAIT UP TO 1 SECONDS. ENDDO.
运行效果:
<img class="alignnone size-full wp-image-2954" src="http://www.baidusap.com/wp-content/uploads/2017-02-13_16-01-48.png" alt="2017-02-13_16-01-48" width="701" height="360" />以上。