Code: Alles auswählen.
CLEAR it_col.
LOOP AT it_col.
AT NEW drerz.
IF zeile > 24.
NEW-PAGE. "XXXXXXXXXXXXXXX
ELSE. "keine aktion.
ENDIF.
SKIP.
WRITE:/5 'Objekt:', it_col-drerz.
zeile = zeile + 2. "XXXXXXXXXXXXXXX
ENDAT.
CLEAR t685t.
SELECT SINGLE * FROM t685t
WHERE spras EQ 'DE'
AND kvewe EQ 'B'
AND kappl EQ it_col-kappl
AND kschl EQ it_col-kschl.
* write:/10 it_col-drerz,
WRITE:/13 it_col-kappl,
it_col-kschl,
t685t-vtext,
it_col-objky,
it_col-anz.
zeile = zeile + 1. "XXXXXXXXXXXXXXX
AT END OF drerz.
SUM.
WRITE:/13 '---------------------------------------'.
WRITE:/35 'SUMME:', it_col-anz.
zeile = zeile + 2. "XXXXXXXXXX
ENDAT.
gesamt = gesamt + it_col-anz. "XXX
ENDLOOP.
WRITE:/35 'GESAMTSUMME:', gesamt. "XXX
SKIP 4.
Code: Alles auswählen.
REPORT auswertung LINE-SIZE 80 LINE-COUNT 60.
dann kommt die ausgabe:
IF NOT s_erdat IS INITIAL.
WRITE:/ 'Erstellungszeitraum der Nachrichten',
'vom', s_erdat-low, 'bis', s_erdat-high.
ELSE.
WRITE:/ 'Verarbeitungszeitraum der Nachrichten',
'vom', s_datvr-low, 'bis', s_datvr-high.
ENDIF.
ULINE.
In eine if-schleife akzeptiert es gar keinen top-of-page.
und ausserhalb der if-schleife bei einer zusätzlichen Überschrift bringt er Syntaxfehler.
sieht so aus:
TOP-OF-PAGE.
WRITE:/ 'Nachrichten zu Aufträgen:'.
grüße coco