SAP进度条

 一、代码示例：

DATA: ll_lines(10),"行数
        ll_tabix(10),"循环标号
        ll_pecnt TYPE p LENGTH 6 DECIMALS 2,"百分比
        ll_pecet(6),"百分数
        ll_text(40)."消息
  CLEAR: ll_lines,ll_tabix,ll_pecnt,ll_pecet,ll_text.
  DESCRIBE TABLE it_vbrk LINES ll_lines."获取内表行数
*
  LOOP AT it_vbrk INTO wa_vbrk.
    ll_tabix = sy-tabix."当前处理的行号
    ll_pecnt = ll_tabix / ll_lines * 100."已处理百分比
    ll_pecet = ll_pecnt.
"拼接显示消息
    CONCATENATE '已完成' ll_pecet '%,共' ll_tabix '条/' ll_lines '条' INTO ll_text.
    CONDENSE ll_text."整理格式，去掉多余空格，格式更整齐
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'"调用进度条函数，传入百分比和消息
      EXPORTING
        percentage = ll_pecnt
        text       = ll_text.
        CLEAR: ll_pecnt,ll_pecet,ll_text.
……
ENDLOOP.

二、效果展示：