Werte hoch-/ runterzählen

Wenn Sie auf einem Report-Selektionsbild Werte eines Feldes hoch- und runterzählen möchten, dann schauen Sie sich doch mal dieses Programm an.

Ein Bild sagt mehr als tausend Worte…

 Das Programm

REPORT zzenno11 .

type-pools icon.

*** SELEKTIONSBILD ***
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(12) text-001.
PARAMETERS p_monat(2) TYPE n DEFAULT ’04’.
SELECTION-SCREEN PUSHBUTTON 20(4) down USER-COMMAND down.
SELECTION-SCREEN PUSHBUTTON 24(4) up   USER-COMMAND up.
SELECTION-SCREEN END OF LINE.

*** Vorbelegun der Buttons mit Icons ***
INITIALIZATION.
  down = icon_column_left.  “<<
  up   = icon_column_right. “>>

*** Abfrage der Pushbuttons ***
AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN ‘UP’.
      ADD 1 TO p_monat.
    WHEN ‘DOWN’.
      SUBTRACT 1 FROM p_monat.
  ENDCASE.

*** Ein-/Ausschalten der Pushbuttons ***
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-name = ‘DOWN’.
      IF p_monat > 1.
        screen-input = 1.
      ELSE.
        screen-input = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
    IF screen-name = ‘UP’.
      IF p_monat < 12.
        screen-input = 1.
      ELSE.
        screen-input = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

START-OF-SELECTION.

• Ü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