www.4AP.de - alles über ABAP  -  Anzeige des Programmfortschrittes

Beispielcoding: Anzeige des Programmfortschrittes (z.B. bei Umfangreichen Selektionen) mit Uhr und variablem Anzeigetext (kopieren erlaubt aber auf eigene Gefahr :-))

*
* Coded by Thorsten Neubüser - www.4ap.de
*
Data:
  t_daten-matnr like mara-matnr,
  anzahl_zeilen TYPE i,
  aktuelle_stufe TYPE i.

  DESCRIBE TABLE itab_test LINES anzahl_zeilen.

* Also innerhalb z.B.
* loop at itab_test.

    PERFORM show_progress USING
      sy-tabix              " Laufwert, also der der ansteigt
      anzahl_zeilen     " oder was sonst 100% entspricht
      text-101            " fixer Textteil direkt nach der Uhr
      t_daten-matnr   " Parameter 1
      aktuelle_stufe.  " Parameter 2

* und dem Endloop

*---------------------------------------------------------------------*
*      Form  show_progress
*---------------------------------------------------------------------*
*      -->P_CURRENT   aktueller Tabellenindex
*      -->P_MAX       Maximaler Index
*      -->P_TEXT      Text       [p_text p_vari1 p_vari2]
*      -->P_VARI1     Variable 1
*      -->P_VARI2     Variable 2
*----------------------------------------------------------------------*
FORM show_progress  USING    p_current
                             p_max
                             p_text
                             p_vari1
                             p_vari2.
  DATA: proz  TYPE p.
  DATA: vtext LIKE sy-ucomm.                                " 70 Char
  DATA: vari1(20), vari2(15).
  MOVE: p_vari1 TO vari1,
        p_vari2 TO vari2.
  proz = p_current / p_max * 100.
  CONCATENATE p_text vari1 vari2 INTO vtext SEPARATED BY space.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
            percentage = proz
            text       = vtext.
ENDFORM.                    " show_progress