zoukankan      html  css  js  c++  java
  • ABAPSAP显示处理进度的函数

    *---------------------------------------------------------------------*
    *       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

  • 相关阅读:
    剑指Offer-11.二进制中1的个数(C++/Java)
    剑指Offer-10.矩形覆盖(C++/Java)
    剑指Offer-9.变态跳台阶(C++/Java)
    UVA 1608 Non-boring sequence 不无聊的序列(分治,中途相遇)
    UVA1607 Gates 与非门电路 (二分)
    UVA 1451 Average平均值 (数形结合,斜率优化)
    UVA 1471 Defense Lines 防线 (LIS变形)
    UVA 1606 Amphiphilic Carbon Molecules 两亲性分子 (极角排序或叉积,扫描法)
    UVA 11134 FabledRooks 传说中的车 (问题分解)
    UVA 1152 4 Values Whose Sum is Zero 和为0的4个值 (中途相遇)
  • 原文地址:https://www.cnblogs.com/xiaomaohai/p/6157524.html
Copyright © 2011-2022 走看看