ABAP 进度条 progressbar 函数优化

最新推荐文章于 2024-04-16 08:58:46 发布

itjoy_net

最新推荐文章于 2024-04-16 08:58:46 发布

阅读量1.3k

点赞数

分类专栏： ABAP 文章标签： abap progressbar 进度条

本文链接：https://blog.csdn.net/itjoy_net/article/details/72621434

版权

ABAP 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

如果LOOP的数据量较多，或计算时间较长，可以加入LOOP条目进度显示功能，让用户等待时可以看到计算进度。

注意，如果LOOP中有CONTINUE跳出的，建议在未跳出条件下才执行show_progressbar，避免增加无谓的执行时间。

*显示LOOP条目进度*
data:s_n type c length 20, s_i type c length 20 , t_msg type char80.
s_n = lines( gt_mkpf_mseg ). condense s_n.
LOOP AT.
    s_i = SY-TABIX. condense s_i.
    CONCATENATE '正在汇总信息........' s_i '/' s_n into t_msg .
    PERFORM show_progressbar USING 70 t_msg.

ENDLOOP.

*  查询状态显示函数*
*  PERFORM show_progressbar USING 10 '正在查询物料入库信息........'.
FORM show_progressbar USING upct TYPE i text TYPE char80.
   cl_progress_indicator=>progress_indicate(
    EXPORTING
      i_text               = | { upct }% { text }  |
      i_processed          = upct
      i_total              = 100
      i_output_immediately = abap_true
  ).
ENDFORM.