Chinaunix首页 | 论坛 | 博客
  • 博客访问: 667118
  • 博文数量: 194
  • 博客积分: 7067
  • 博客等级: 少将
  • 技术积分: 2008
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-09 14:48
个人简介

我很好

文章分类

全部博文(194)

文章存档

2019年(1)

2018年(1)

2017年(3)

2015年(2)

2012年(2)

2011年(1)

2010年(27)

2009年(15)

2008年(142)

分类: WINDOWS

2008-05-28 09:08:27

*---------------------------------------------------------------------*
*       FORM PROGRESS_INDICATOR                                       *
*---------------------------------------------------------------------*
form progress_indicator
                 using value(v_text) type c                              "输出文本
                       value(v_processed) like sy-tabix           "处理计数
                       value(v_total) like sy-tabix                       "总计数
                       value(v_new) type c.

  statics: s_time_next like sy-uzeit,
           s_date_next like sy-datum.

  data: l_percentage type i,
        l_text(72) type c.

  get time.
  if v_new is initial.
    check s_date_next < sy-datum
       or s_date_next = sy-datum and s_time_next <= sy-uzeit.
  endif.

  l_percentage = ( v_processed * 100 ) div v_total.
  if l_percentage > 0.
    write l_percentage to l_text.
    condense l_text.
    concatenate l_text '%' into l_text.
    condense l_text.
  endif.
  concatenate l_text v_text into l_text separated by space.
  condense l_text.
  call function 'SAPGUI_PROGRESS_INDICATOR'
    exporting
      percentage = l_percentage
      text       = l_text.

  s_date_next = sy-datum.
  s_time_next = sy-uzeit + 10.
  if s_time_next < sy-uzeit.
    add 1 to s_date_next.
  endif.
endform.                               "PROGRESS_INDICATOR


 

*----------------------------------------------------------------------*
* Form  WRITE_SAPGUI_TEXT
*----------------------------------------------------------------------*
* write a progress message on the GUI
*----------------------------------------------------------------------*
FORM write_sapgui_text USING p_text.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text = p_text.

ENDFORM.                    " WRITE_SAPGUI_TEXT

*----------------------------------------------------------------------*
* Form  WRITE_SAPGUI_PERC
*----------------------------------------------------------------------*
* write a progress message on the GUI
*----------------------------------------------------------------------*
FORM write_sapgui_perc USING p_text p_perc.

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      text       = p_text
      percentage = p_perc.

ENDFORM.                    " WRITE_SAPGUI_PERC

阅读(859) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~