Gesamtseitenzahl in einer Liste
Die Anzahl der ausgegebenen Seiten können — anders als bei SAP-Skript oder Smartforms — erst am Ende der Liste ermittelt werden. Mit einem kleinen Trick kann die Gesamtseitenzahl jedoch in den Listenkopf integriert werden.
Die Ausgabe einer Gesamtseitenzahl ist in Listen nicht vorgesehen… Mit diesem Coding klappt es trotzdem:
Coding
REPORT zztotalpages
*** Damit eine eigener Seitnkopf definiert werden kann, darf die Liste
*** keinen Standard-Seitenkopf bekommen:
NO STANDARD PAGE HEADING LINE-COUNT 30.
*** Datendeklaration
DATA lv_total_pages TYPE i.
DATA lv_page(3) TYPE c.
START-OF-SELECTION.
*** Ausgabe einer Dummy-Liste
DO 100 TIMES.
WRITE:/ sy-index.
ENDDO.
END-OF-SELECTION.
*** Platzhalter durch Gesamtseitenzahl ersetzen
lv_page = lv_total_pages.
DO lv_total_pages TIMES.
READ LINE 1 OF PAGE sy-index.
*** Platzhalter ersetzen
REPLACE ‘@@@’ IN sy-lisel WITH lv_page.
MODIFY LINE 1 OF PAGE sy-index.
ENDDO.
TOP-OF-PAGE.
*** eigener Seitenkopf
WRITE:/60 ‘Seite’, sy-pagno, ‘/’,’@@@’.
*** Gesamtseitenzahl merken
lv_total_pages = sy-pagno.
Dank an Nitin Jameel
- Meine Eclipse-Plugins - 22. November 2024
- Interview mit Björn Schulz (Software-Heroes.com) - 3. September 2024
- Daten aus ALV ermitteln - 3. September 2024