Vorlage für Interaktive Liste

Hier steht im Prinzip das selbe Coding noch einmal. Allerdings haben wir alle spezifischen Funktionen herausgenommen und nur die in den meisten Reports nötigen Programmblöcke stehen gelassen. Sie können dieses Programm als einfache Vorlage für einen Interaktive Liste nehmen.

REPORT z_vorlage_interaktive_liste NO STANDARD PAGE HEADING
LINE-SIZE 132
LINE-COUNT 65.

***********************************************************************
***                                                                 ***
***                                                                 ***
***                  https://tricktresor.com                      ***
***                                                                 ***
***                                                                 ***
***********************************************************************

*———————————————————————*
*
* Programm:       [ ] * Autor:          [ ] * Datum:          [ ] * Sinn und Zweck:
* …
*———————————————————————*

TYPE-POOLS: icon.

*———————————————————————*
* Konstanten
*———————————————————————*

CONSTANTS:
k_icon_status_a(4)  VALUE icon_led_green,
k_icon_status_b(4)  VALUE icon_led_red,
off  TYPE i         VALUE 0,
on   TYPE i         VALUE 1.

DATA:
k_info_status_a(30),
k_info_status_b(30).

*———————————————————————*
* Variablen
*———————————————————————*

DATA:
t_head    TYPE STANDARD TABLE OF <dbhead>,
s_head   LIKE LINE OF t_head,

  t_item    TYPE STANDARD TABLE OF <dbitems>,
s_item   LIKE LINE OF t_item,

l_status(4),                                              „Liststatus
l_quickinfo(30),            „Infotext für das Icon
l_hotspot,                  „Hotspot an/aus
l_popup_aktiv,              „Popup aktiv ja/nein
l_actual_line TYPE systaro. „Aktuelle Zeile (für Refresh)

*———————————————————————*
* Selektionsbild
*———————————————————————*

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-t01.
SELECT-OPTIONS: …
PARAMETERS:     …
SELECTION-SCREEN END   OF BLOCK 1.

*———————————————————————*
* Init
*———————————————————————*

INITIALIZATION.
k_info_status_a = ‚Beschreibung Status „A“‚(q0a).
k_info_status_b = ‚BEschreibung Status „B“‚(q0b).

*———————————————————————*
* Programmstart
*———————————————————————*

START-OF-SELECTION.

  PERFORM selektion.
PERFORM listausgabe.

*———————————————————————*
* User-Command
*———————————————————————*

AT USER-COMMAND.

  l_actual_line = sy-staro.

  CASE sy-ucomm.
WHEN ‚REFR‘.
PERFORM selektion.
PERFORM listausgabe.
WHEN ‚LEGENDE‘.
PERFORM legende.
ENDCASE.

*———————————————————————*
* Doppelklick
*———————————————————————*

AT LINE-SELECTION.
CASE sy-lsind.
WHEN 1.
PERFORM detail_1.
*    WHEN 2.
*      PERFORM detail_2.
  ENDCASE.

*———————————————————————*
* Seitenkopf / Listüberschrift
*———————————————————————*

TOP-OF-PAGE.

  PERFORM top_of_page.

TOP-OF-PAGE DURING LINE-SELECTION.

  PERFORM top_of_page.

*———————————————————————*
*       FORM selektion                                                *
*———————————————————————*
FORM selektion.

  SELECT * FROM <dbheader> INTO TABLE t_head
WHERE … IN …
AND … IN ….

  IF sy-subrc = 0.
SORT t_head.
SELECT * FROM <dbitems> INTO TABLE t_item
FOR ALL ENTRIES IN t_head
WHERE … = ….

    SORT t_item.

  ENDIF.

ENDFORM.

*&———————————————————————*
*&      Form  listausgabe
*&———————————————————————*
FORM listausgabe.

*** Verzweigungslistenzähler muss auf Null gesetzt werden, damit nicht
*** beim Aktualisieren eine neue Verzweigungsliste erzeugt wird.
  sy-lsind = 0.

*** Liststatus setzen
  SET PF-STATUS ‚LISTE‘.

*** Ausgabe der Tabelle
  LOOP AT t_head INTO s_head.
READ TABLE t_item INTO s_item WITH KEY … = … BINARY SEARCH.
IF sy-subrc = 0.
l_status    = k_icon_status_a.
l_quickinfo = k_info_status_a.
l_hotspot   = on.
ELSE.
l_status    = k_icon_status_b.
l_quickinfo = k_info_status_b.
l_hotspot   = off.
ENDIF.

    WRITE: / l_status AS ICON QUICKINFO l_quickinfo HOTSPOT = l_hotspot,
s_head-feld1,
s_head-feld2,
s_head-….
HIDE s_head.

  ENDLOOP.

  CLEAR s_head.

*** Liste bei Neuaufbau wieder positionieren
  SCROLL LIST TO FIRST PAGE LINE l_actual_line INDEX 1.

ENDFORM.                    “ listausgabe

*———————————————————————*
*       FORM detail_1                                                 *
*———————————————————————*
FORM detail_1.

  CHECK NOT s_head IS INITIAL.
LOOP AT t_item INTO s_item WHERE [keyfield] = s_head-[keyfield].
WRITE: / s_item-…,
HIDE s_item.
ENDLOOP.
CLEAR: s_head, s_item.

ENDFORM.

*———————————————————————*
*       FORM detail_2                                                 *
*———————————————————————*
FORM detail_2.

  CHECK NOT s_item IS INITIAL.

  …
…

ENDFORM.

*———————————————————————*
*       FORM top_of_page_header                                       *
*———————————————————————*
FORM top_of_page_header.

  WRITE: / ‚HEADER‘, AT sy-linsz space.

ENDFORM.

*———————————————————————*
*       FORM top_of_page_detail_1                                     *
*———————————————————————*
FORM top_of_page_detail_1.

  WRITE: / ‚Positionsdetail‘, AT sy-linsz space.

ENDFORM.

*———————————————————————*
*       FORM top_of_page_detail_2                                     *
*———————————————————————*
FORM top_of_page_detail_2.

  WRITE: / ‚Detail 2‘, AT sy-linsz space.

ENDFORM.

*&———————————————————————*
*&      Form  top_of_page
*&———————————————————————*
FORM top_of_page.

  CHECK l_popup_aktiv = space.
ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.

  CASE sy-lsind.
WHEN 0.
PERFORM top_of_page_header.
WHEN 1.
PERFORM top_of_page_detail_1.
WHEN 2.
PERFORM top_of_page_detail_2.
ENDCASE.

  FORMAT COLOR OFF         INTENSIFIED OFF.
ULINE.

ENDFORM.                    “ top_of_page

*———————————————————————*
*       FORM legende                                                  *
*———————————————————————*
FORM legende.

  DATA:
l_popup_breite TYPE i VALUE 70,
l_popup_hoehe  TYPE i VALUE 10,
l_popup_x1     TYPE i VALUE 10,
l_popup_x2     TYPE i,
l_popup_y1     TYPE i VALUE 10,
l_popup_y2     TYPE i.

  l_popup_x2 = l_popup_x1 + l_popup_breite.
l_popup_y2 = l_popup_y1 + l_popup_hoehe.

  SET PF-STATUS space.
SET TITLEBAR ‚LEGENDE‘.
l_popup_aktiv = ‚X‘.

  WINDOW STARTING AT l_popup_x1 l_popup_y1
ENDING AT l_popup_x2 l_popup_y2.
NEW-PAGE LINE-SIZE l_popup_breite LINE-COUNT 0.
WRITE AT /1(l_popup_breite) sy-uline.
WRITE: / ‚|‘, ‚Legende‘, AT l_popup_breite ‚|‘.
WRITE AT /1(l_popup_breite) sy-uline.
WRITE: AT /2 k_icon_status_a AS ICON, k_info_status_a,
AT /2 k_icon_status_b AS ICON, k_info_status_b.
l_popup_aktiv = space.

ENDFORM.

• Über
• Letzte Artikel

follow me

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ß!

follow me

Letzte Artikel von Enno Wulff (Alle anzeigen)

• Auftragserfassung: Automatische (Positions-) Texte - 17. Mai 2022
• Class Inspector - 16. März 2022
• Shortcuts bei Übersetzung in SE63 - 14. Februar 2022