Inner-Join zerstückeln

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.