Abfrage auf doppeltes Material

Code: Alles auswählen.

...
*--------------------------------------------------------------------*
"nur die Materialnummern behalten welche mehr als nur 1 Mal vorkommen
*--------------------------------------------------------------------*
DELETE gt_mat WHERE count = 1.

"ich loope über alle Materialnummern welche mehr als ein Mal auf einem Lagerplatz eingelagert worden sind
LOOP AT gt_mat INTO wa_mat.

   "für jedes dieser Einträge gebe ich die Quants aus der Bestandstabelle aus
   LOOP AT gt_lqua INTO wa_lqua WHERE matnr = wa_mat-matnr AND lgnum = wa_mat-lgnum AND lgtyp = wa_mat-lgtyp AND lgpla = wa_mat-lgpla.
     WRITE: wa_lqua-matnr, wa_lqua-lgpla, wa_lqua-lqnum.
     NEW-LINE
   ENDLOOP.

ENDLOOP.

Code: Alles auswählen.

LOOP AT gt_mat INTO wa_mat WHERE matnr = wa_mat-matnr AND lgpla NE 'DUMMY' AND lgpla NE 'U-ZONE'
            AND lgpla NE 'IN-ZONE' AND lgpla NE 'DUMMY-1' AND lgpla NE 'UML-ZONE'.

Code: Alles auswählen.

SELECT-OPTIONS: o_lgpla for lqua-lgpla.

"Bestände passend zur Selektion lesen
select lqua~matnr lagp~lgpla lagp~lgnum lagp~lgtyp
  lagp~anzqu lqua~lqnum
  from lagp join lqua on lagp~lgtyp = lqua~lgtyp
                      and lagp~lgpla = lqua~lgpla
  appending table gt_lqua
  where lgpla in o_lgpla and anzqu > '1'.