Code: Alles auswählen.
SELECT kna1~kunnr kna1~name1 kna1~ort01 SUM( lgmng ) meins FROM
lips
INNER JOIN vbak
ON vbak~vbeln = lips~vgbel
INNER JOIN kna1
ON kna1~kunnr = vbak~kunnr
APPENDING TABLE t_2790_2
WHERE lips~matnr = '000000000008603596'
AND lips~werks = '5110'
AND lips~sobkz = space
GROUP BY kna1~kunnr meins kna1~name1 kna1~ort01
ORDER BY kna1~kunnr meins kna1~name1 kna1~ort01.
Code: Alles auswählen.
TYPES: BEGIN OF r_data_2790_2,
kunnr TYPE kna1-kunnr,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
enmng TYPE resb-enmng,
meins TYPE resb-meins,
END OF r_data_2790_2.
DATA: t_2790_2 TYPE STANDARD TABLE OF r_data_2790_2,
wa_2790_2 TYPE r_data_2790_2.
DATA: t_lips TYPE TABLE OF lips.
FIELD-SYMBOLS: <fs_lips> TYPE lips.
SELECT vgbel lgmng meins FROM lips
INTO CORRESPONDING FIELDS OF TABLE t_lips
WHERE matnr = '000000000008603596'
AND werks = '5110'
AND sobkz = space.
DATA: w_kunnr TYPE vbak-kunnr,
w_vbeln TYPE vbak-vbeln,
w_name1 TYPE kna1-name1,
w_ort01 TYPE kna1-ort01.
LOOP AT t_lips ASSIGNING <fs_lips>.
SELECT SINGLE vbeln kunnr FROM vbak
INTO (w_vbeln, w_kunnr)
WHERE vbeln EQ <fs_lips>-vgbel.
SELECT SINGLE name1 ort01 FROM kna1
INTO (w_name1, w_ort01)
WHERE kunnr EQ w_kunnr.
MOVE: w_kunnr TO wa_2790_2-kunnr,
w_name1 TO wa_2790_2-name1,
w_ort01 TO wa_2790_2-ort01,
<fs_lips>-lgmng TO wa_2790_2-enmng,
<fs_lips>-meins TO wa_2790_2-meins.
APPEND wa_2790_2 TO t_2790_2.
ENDLOOP.
Code: Alles auswählen.
COLLECT