ITPub博客

首页 > Linux操作系统 > Linux操作系统 > ABAP 添加进度条,显示进度

ABAP 添加进度条,显示进度

原创 Linux操作系统 作者:hzq2010 时间:2011-05-06 21:29:49 0 删除 编辑
  •    调用进度条

     

  • 进度条函数

        c_message TYPE c
        i_percent TYPE i.
  DATA: c_sche(204).
  IF i_percent <= 0 OR i_percent > 100 .
    c_sche = '百分比错误!!!'.
  ELSE.
    DATA: c_percent(4),
        c_block(6) TYPE c VALUE '■■',
        i_blocklen TYPE i,
        i_count TYPE i,
        i_col TYPE i,
        i_len TYPE i,
        i_temp TYPE i VALUE 0,
        i_mod TYPE i.
    i_blocklen = STRLEN( c_block ).
    c_percent = i_percent.
    CONDENSE c_percent.
    c_percent+3(1) = '%'.
    c_sche = c_percent.
    i_count = i_percent / 4.
    DO i_count TIMES.
      i_col = ( i_temp * i_blocklen ) + 4.
      c_sche+i_col(i_blocklen) = c_block.
      i_temp = i_temp + 1.
    ENDDO.
    i_len = STRLEN( c_message ).
    i_mod = i_len MOD 2.
    IF i_mod = 1.
      i_len = i_len + 1.
    ENDIF.
    IF i_len > 0.
      c_sche+4(i_len) = c_message.
    ENDIF.
    i_len = STRLEN( c_sche ).
  ENDIF.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 0
      text       = c_sche
    EXCEPTIONS
      OTHERS     = 1.
ENDFORM.                    " SCHEDULE

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/23495244/viewspace-694654/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-03-11

  • 博文量
    196
  • 访问量
    168080