Selektion aus Datenbanktabelle mithilfe von interner Tabelle

Code: Alles auswählen.

TYPES: BEGIN OF lty_gt_vbakvbap,
  vbeln TYPE vbeln,      " Vertriebsbelegnummer (VBAK)
  auart TYPE auart,      " Verkaufsbelegart (VBAK)
  erdat TYPE erdat,      " Angelegt am (VBAK)
  vkorg TYPE vkorg,      " Verkaufsorganisation (VBAK)
  vkbur TYPE vkbur,      " Verkaufsbüro (VBAK)
  vkgrp TYPE vkgrp,      " Verkäufergruppe (VBAK)
  posnr TYPE posnr_va,   " Position (VBAP)
  matnr TYPE matnr,      " Materialnnummer (VBAP)
  arktx TYPE arktx,      " Bezeichnung (VBAP)
  werks TYPE werks_ext,  " Werk (VBAP)
  kwmeng TYPE kwmeng,    " kumulierte Menge (VBAP)
  meins TYPE meins,      " Basismengeneinheit (VBAP)
END OF lty_gt_vbakvbap.

DATA: gt_vbakvbap TYPE SORTED TABLE OF lty_gt_vbakvbap WITH NON-UNIQUE KEY vbeln.

SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_vbakvbap
  FROM vbak AS a
  INNER JOIN vbap AS b ON a~vbeln = b~vbeln
WHERE a~audat IN s_audat
  AND a~auart IN s_auart
  AND b~werks IN s_werks
ORDER BY a~vbeln.

Code: Alles auswählen.

* Bestelldaten aus EKBE (mithilfe von EKKN) selektieren
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_ekbeekkn
  FROM ekbe AS a
  INNER JOIN ekkn AS b ON a~ebeln = b~ebeln AND a~ebelp = b~ebelp
FOR ALL ENTRIES IN gt_vbakvbap
  WHERE b~vbeln = gt_vbakvbap-vbeln
    AND a~bewtp = 'E'.                    " Bestellentwicklungstyp: nur Wareneingang

SORT gt_ekbeekkn BY vbeln ebeln ebelp.

* Zusammenführen der beiden internen Tabellen
LOOP AT gt_vbakvbap INTO wa_vbakvbap.

  wa_outtab-vbeln = wa_vbakvbap-vbeln.
  wa_outtab-vbeln = wa_vbakvbap-vbeln.
  wa_outtab-auart = wa_vbakvbap-auart.
  wa_outtab-audat = wa_vbakvbap-audat.
  wa_outtab-vkorg = wa_vbakvbap-vkorg.
  wa_outtab-vkbur = wa_vbakvbap-vkbur.
  wa_outtab-vkgrp = wa_vbakvbap-vkgrp.
  wa_outtab-posnr = wa_vbakvbap-posnr.
  wa_outtab-matnr = wa_vbakvbap-matnr.
  wa_outtab-arktx = wa_vbakvbap-arktx.
  wa_outtab-werks = wa_vbakvbap-werks.
  wa_outtab-kwmeng = wa_vbakvbap-kwmeng.
  wa_outtab-meins = wa_vbakvbap-meins.

  LOOP AT gt_ekbeekkn INTO wa_ekbeekkn WHERE vbeln = wa_vbakvbap-vbeln.   " Bestellung zur VBELN vorhanden, Daten einfügen

       wa_outtab-budat = wa_ekbeekkn-budat.
       wa_outtab-ebeln = wa_ekbeekkn-ebeln.
       wa_outtab-ebelp = wa_ekbeekkn-ebelp.                               " keine Bestellung vorhanden, Felder leer lassen

  ENDLOOP.

  APPEND wa_outtab TO gt_outtab.
  CLEAR  wa_outtab.

ENDLOOP.