少年休闲海

少年休闲海的SAP世界

进度条实例

*&---------------------------------------------------------------------*
*& Report  ZTEST_SCHEDULE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_SCHEDULE.
DO 100 TIMES.
  PERFORM SHOW_PROGRESSBAR USING SY-INDEX.
  WAIT UP TO SECONDS.
ENDDO.
MESSAGE 'Finished!'(FINTYPE 'S'.
*&---------------------------------------------------------------------*
*& Form show_progressbar
*&---------------------------------------------------------------------*
FORM SHOW_PROGRESSBAR USING UPCT TYPE I.
  DATAFBAR TYPE LENGTH 13,
  FMSG TYPE LENGTH 70.
  CONSTANTSPERCENT1 TYPE VALUE '▏',
  PERCENT2 TYPE VALUE '▎',
  PERCENT3 TYPE VALUE '▍',
  PERCENT4 TYPE VALUE '▌',
  PERCENT5 TYPE VALUE '▋',
  PERCENT6 TYPE VALUE '▊',
  PERCENT7 TYPE VALUE '▉',
  PERCENT8 TYPE VALUE '█'.
  DATAFMOD TYPE N,
  FTIM TYPE I,
  FFIELD TYPE LENGTH 10,
  FIDX TYPE LENGTH 3.
  FIELD-SYMBOLS<FS> TYPE C.
  FTIM UPCT DIV 8.
  FMOD UPCT MOD 8.
  CLEARFBAR.
  DO FTIM TIMES.
    CONCATENATE FBAR PERCENT8 INTO FBAR.
  ENDDO.
  IF FMOD NE 0.
    CONCATENATE 'percent' FMOD INTO FFIELD.
    ASSIGN (FFIELDTO <FS> .
    CONCATENATE <FS>  FBAR  INTO FBAR.
  ENDIF.
  FIDX SY-INDEX.
  CONCATENATE FBAR FIDX '%' INTO FMSG.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      PERCENTAGE UPCT
      TEXT       FMSG.

ENDFORM"show_progressbar


显示效果非常拉风:


阅读更多
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/zhongguomao/article/details/46826913
个人分类: 程序人生 ABAPer
上一篇社会保险省内转移需要什么手续或过程?
下一篇SAP ABAP 发邮件方法(OO)
想对作者说点什么? 我来说一句

JavaScript制作进度条实例

2008年09月13日 2KB 下载

ExtJs实现进度条实例.htm

2009年05月19日 902KB 下载

MFC进度条的使用实例

2010年01月11日 1.81MB 下载

c#实现弹出式进度条实例

2017年04月21日 45KB 下载

没有更多推荐了,返回首页

关闭
关闭