写了一个简单的显示进度的测试,可以用于批量操作时提示进度
效果如下:
*&---------------------------------------------------------------------*
*& Report ZCAOGAO12
*&
*&---------------------------------------------------------------------*
*&
*&测试function 进度条的使用
*&---------------------------------------------------------------------*
REPORT zcaogao12.
DATA:lv_text(50) TYPE c,
lv_idx(5) TYPE c,"
lv_line(5) TYPE c "行数
.
DO 1000 TIMES.
lv_line = lv_line + 1.
lv_idx = ( lv_line / 1000 ) * 100.
CONCATENATE lv_idx '%:' '处理中' INTO lv_text.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = lv_idx
text = lv_text
EXCEPTIONS
OTHERS = 0.
ENDDO.