4AP.de ~ alles fuer ABAP-Programmierer - Infos zur SAP Programmiersprache


das Neueste

10 Jahre 4ap.de

10 Jahre 4ap.de - kleines und stilles Jubiläum

|

 

Buchrezensionen

Einige neue Buchrezensionen sind vorhanden.

|

 

neues Coding: braune Kekse

Lange schwebte mir die Idee vor, aber es fehlte schlicht die Zeit. Heute war es endlich soweit: ich nahm sie mir, die Zeit :-) Ergebnis unter: braune Kekse.

|

 

neues Kontaktformular

Wegen Formularspoofing wurde eine neue Kontaktmöglichkeit geschaffen.
|

 

Codings gesucht

Codings gesucht, die NICHT im SDN stehen.
|

 

Suche



 

Dieser Inhalt wurde zuletzt geändert am:
21.04.2009 von TN

Programmfortschritt

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 :-))


Show_progress: Anzeige des Programmfortschrittes (z.B. bei Umfangreichen Selektionen) mit Uhr und variablem Anzeigetext
 
*
* 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