Erster und letzten Datensatz eines Reports

Erster und letzten Datensatz eines Reports

Hallo!

Ich bin noch ziemlich ein Anfänger in der ABAP Programmierung. Jetzt habe ich ein Programm programmiert welches alle Lieferscheine eines Werkes pro Tag und Uhrzeit erzeugt wurden, ausgibt. Diese Daten kommen über eine Schnittstelle. Soweit so gut. Das hätte ich, aber ich muss noch einbauen dass NUR der erste und letzte Datensatz pro Werk und Tag ausgegeben wird (also nicht alle Lieferscheine). Mit welchen Befehlen bzw. wie könnte ich das Programmieren?
Ebenso würde ich das gerne als ALV Grid darstellen. Leider hab ich aber überhaupt keine Ahnung wie. Da das für den obersten Vorstand ist wäre es toll etwas professionelles abgeben zu können. Und lernen würde ich es auch gleich

Anbei der Code der Programmierung.

REPORT zzssupload_ls_uhrzeit LINE-SIZE 198.
TABLES:zzss_upload,
T001w.

DATA: t_dlik LIKE zss_dlik OCCURS 100 WITH HEADER LINE,
t_dfie_dlik LIKE dfies OCCURS 0 WITH HEADER LINE.

DATA: h_datum LIKE sy-datum,
h_satztp LIKE zss_dlik-satztp,
h_vbeln LIKE zss_dlik-vbeln,
s-lfuhr1 LIKE zss_dlik-lfuhr1,
s_recid LIKE zzss_upload-recid.

FIELD-SYMBOLS: <f>.
INCLUDE zzssdata.

SELECT-OPTIONS:
s_werks FOR t_dlik-werks,
s_wadat FOR t_dlik-wadat.


DESCRIBE FIELD t_dlik LENGTH h_len_dlik.

PERFORM read_nametab: TABLES t_dfie_dlik USING 'ZSS_DLIK'.

SELECT * FROM zzss_upload
WHERE satztp <> c_satztp_lkp AND
satztp <> c_satztp_end.

t_dlik = zzss_upload+c_offset_up(h_len_dlik).
IF t_dlik-werks IN s_werks AND
t_dlik-wadat IN s_wadat.
APPEND t_dlik.
ELSE.
CLEAR t_dlik.
ENDIF.
ENDSELECT.

SORT t_dlik ASCENDING BY vkorg werks wadat lfuhr1.


LOOP AT t_dlik.
s_werks = t_dlik-werks.
s_wadat = t_dlik-wadat.

select single * from T001w
where werks = t_dlik-werks.

WRITE: / t_dlik-vkorg,
t_dlik-werks,
t001w-name1,
t_dlik-wadat,
t_dlik-lfuhr1.

ENDLOOP.

AT LINE-SELECTION.
CHECK sy-lsind < 2.
LOOP AT t_dlik WHERE werks = s_werks AND
wadat = s_wadat.
LOOP AT t_dfie_dlik.
ASSIGN COMPONENT t_dfie_dlik-position OF STRUCTURE t_dlik TO <f>.
WRITE: / t_dfie_dlik-fieldname,
t_dfie_dlik-scrtext_m,
<f>.
ENDLOOP.
ENDLOOP.

*&---------------------------------------------------------------------*
*& Form READ_NAMETAB
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_T_DFIE_DLIK text
* -->P_0054 text
*----------------------------------------------------------------------*
FORM read_nametab TABLES pa_dfies STRUCTURE dfies
USING pa_tabname.

CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
tabname = pa_tabname
* ALL_TYPES = ' '
* IMPORTING
* X030L_WA =
* DTELINFO_WA =
* TTYPINFO_WA =
* DDOBJTYPE =
TABLES
* X031L_TAB =
dfies_tab = pa_dfies
* EXCEPTIONS
* NOT_FOUND = 1
* OTHERS = 2
.
ENDFORM. " READ_NAMETAB

PS: Danke für euren Rat und Hilfestellung.

Re: Erster und letzten Datensatz eines Reports

Hallo,

erstmal vielen lieben Dank.

Nun warum von jedem werk immer der 1. und den letzten Lieferschein pro Tag?

Ich glaub es soll zur Kontrolle dienen wie unsere Leute in den Werken arbeiten bzw. wie lange. ;o)
Die LS dazwischen interessieren unseren Chef dann nicht mehr.

Eine Frage. Woran erkennt dieser Kommand wann die Werksnummer wechselt und wann der Tag wechselt um wieder den 1 und letzten Datensatz auszugeben?

Herzlichen Dank

Re: Erster und letzten Datensatz eines Reports

Hallo Thomas,

vielen lieben Dank!

werde es gleichmal versuchen umszusetzen.

GLG

Sabrina