Moin,
das ist nicht ganz einfach, da die "aktuelle Seitenzahl" erst zur Verfügung steht, wenn die Folgeseite prozessiert wird.
Rezept:
In der SE71
1. Neues Fenster im SAPSCRIPT (ex."PAGE") anlegen:
/E PAGECOUNT
/: PERFORM PCOUNT IN PROGRAM ZTEST_READ_PAGE_COUNTER
/: USING &PAGE&
/: ENDPERFORM
2. Im Druckprogramm (ex. "ZTEST_READ_PAGE_COUNTER"):
globale Variablen :
DATA: pagnum type sy-tabix. "Seitenzahl - 1
DATA: pn type sy-tabix. "Seitenzahl
coding :
:
:
* CALL FUNCTION 'WRITE_FORM'
* EXPORTING
* element = 'BEGIN'
* window = 'MAIN'.
**** Dieser Aufruf sollte am ENDE aller WRITE_FORM 's innerhalb der Schleife stehen !!!
CALL FUNCTION 'WRITE_FORM'
EXPORTING
element = 'PAGECOUNT'
window = 'PAGE'.
* pn = UNSER SEITENZÄHLER !!!!
pn = pagnum + 1.
:
:
* WIRD vom Formular aufgerufen
*&---------------------------------------------------------------------*
*& Form PCOUNT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->IN_PAR text
* -->OUT_PAR text
*----------------------------------------------------------------------*
FORM pcount TABLES in_par STRUCTURE itcsy out_par STRUCTURE itcsy .
READ TABLE in_par WITH KEY name = 'PAGE'.
CHECK sy-subrc = 0.
pagnum = in_par-value.
ENDFORM. "PCOUNT
gruß Tron
<:: XING-Gruppe Tricktresor::> Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen – Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.