Status-Icon

Posted on by Enno Wulff

Related Post

Mit Ankreuzfeldern können die Zustände “An” und “Aus” dargestellt werden. Möchte man mehr Zustände darstellen, benötigt man Radiobuttons oder eine Listbox. Eine andere Möglichkeit besteht darin, Druckknöpfe mit unterschiedlichen Symbolen zu verwenden.

Das hier vorgestellte Programm zeigt Möglichkeiten auf, Druckknöpfe zur einfachen Zustandsanzeige zu verwenden.


Beispiel zur Statusanzeige

Coding

REPORT ZZSTATUSICON.
INCLUDE <ICON>.

*** Selektionsbild mit drei Status-Drucktasten
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH01 USER-COMMAND P01.
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH02 USER-COMMAND P02.
SELECTION-SCREEN PUSHBUTTON /1(8) PUSH03 USER-COMMAND P03.

INITIALIZATION.
*** Drucktasten Vorbelegen
  PERFORM SWITCH USING PUSH01.
  PERFORM SWITCH USING PUSH02.
  PERFORM SWITCH USING PUSH03.

AT SELECTION-SCREEN.
*** Drucktasten auswerten
  CHECK SY-UCOMM(1) = ‘P’.
  CASE SY-UCOMM.
    WHEN ‘P01’.
*** Drucktaste 1
      PERFORM SWITCH USING PUSH01.
    WHEN ‘P02’.
*** Drucktaste 2
      PERFORM SWITCH USING PUSH02.
    WHEN ‘P03’.
*** Drucktaste 3
      PERFORM SWITCH USING PUSH03.
  ENDCASE.

*———————————————————————*
*       FORM SWITCH                                                   *
*———————————————————————*
* Umschalten des Status: Ja – Nein – Egal
*———————————————————————*
FORM SWITCH USING PUSH TYPE ANY.

  DATA LPUSH(4).
  LPUSH = PUSH.
  CASE LPUSH.
    WHEN ICON_LED_GREEN.
*** Status GRÜN -> ROT
      PUSH = ICON_LED_RED.
      CONCATENATE PUSH ‘Nein’ INTO PUSH.
    WHEN ICON_LED_RED OR SPACE.
*** Status ROT -> GELB
      PUSH = ICON_LED_YELLOW.
      CONCATENATE PUSH ‘Egal’ INTO PUSH.
    WHEN ICON_LED_YELLOW.
*** Status GELB -> GRÜN
      PUSH = ICON_LED_GREEN.
      CONCATENATE PUSH ‘Ja’ INTO PUSH.
  ENDCASE.

ENDFORM.

 

Enno Wulff
Letzte Artikel von Enno Wulff (Alle anzeigen)