Status-Icon

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.

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.

• Über
• Letzte Artikel

Enno Wulff

SAP Berater & Entwickler bei Inwerken AG

Moin Moin! Ich heiße Enno und bin der Erfinder, Redakteur und Trickser im Tricktresor. Die Artikel im Tricktresor sollen Euch das Leben einfacher machen und dienen mir als Gedächtnisstütze. Denn an vieles, was ich einmal heraus gefunden habe, kann ich mich später nicht mehr erinnern und suche erneut. Dagegen hilft der Tricktresor. Viel Spaß!

Letzte Artikel von Enno Wulff (Alle anzeigen)

• 7. December: Excel Racing Simulation – Root Vole Race - 7. Dezember 2024
• 5. December: ABAPConf - 5. Dezember 2024
• 4. December: Only a lazy developer is a good developer - 4. Dezember 2024