ABAP进度条

来源：互联网发布：手机期货交易模拟软件编辑：程序博客网时间：2024/06/10 10:10

*进度条例子1：
DATA: perc type i,
      cnt TYPE i .
DATA: stxt TYPE string.
DATA: sperc(3) TYPE c.
perc = 0. cnt = 1000.
DO cnt TIMES.
  stxt = ''.
  perc = sy-index * 100 / cnt.
  sperc = perc.
  CONCATENATE '已经完成 : '  sperc '% …… ' INTO stxt.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  EXPORTING
      percentage = perc     "百分比的数值，用来控制秒表的指针。
      text       = stxt.   "状态栏显示的文本。
ENDDO.

*进度条例子2：

DATA: sText(70).
DATA: iTmp type i.
sText = '你是我的小呀小苹果儿怎么爱你都不嫌多红红的小脸儿温暖我的心窝点亮我生命的火火火火火你是我的小呀小苹果儿就像天边最美的云朵春天又来到了花开满山坡种下希望就会收获'."
DO 50 TIMES.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  EXPORTING
      percentage = sy-index     "百分比的数值，用来控制秒表的指针。
      text       = sText+0(sy-index).   "状态栏显示的文本。

   wait up to 1 SECONDS.
ENDDO.

0 0