SAP Sales Order ABAP SELECT Code Generator

REPORT ZSD_ORDER_LIST.

TYPES: BEGIN OF ty_order,
         vbeln  TYPE vbak-vbeln,
         erdat  TYPE vbak-erdat,
         auart  TYPE vbak-auart,
         kunnr  TYPE vbak-kunnr,
         waerk  TYPE vbak-waerk,
         posnr  TYPE vbap-posnr,
         matnr  TYPE vbap-matnr,
         kwmeng TYPE vbap-kwmeng,
         vrkme  TYPE vbap-vrkme,
         netwr  TYPE vbap-netwr,
       END OF ty_order.

DATA: lt_order TYPE STANDARD TABLE OF ty_order,
      ls_order TYPE ty_order.

SELECT vbak~vbeln vbak~erdat vbak~auart vbak~kunnr vbak~waerk
       vbap~posnr vbap~matnr vbap~kwmeng vbap~vrkme vbap~netwr
  FROM vbak INNER JOIN vbap ON vbap~vbeln = vbak~vbeln
  INTO TABLE lt_order UP TO 500 ROWS
  WHERE vbak~vkorg = '1000'
    AND vbak~auart = 'OR'
    AND vbak~erdat BETWEEN '20260101' AND '20261231'
  ORDER BY vbak~vbeln vbap~posnr.

IF sy-subrc <> 0.
  WRITE: / 'No sales orders found for the selection'.
  RETURN.
ENDIF.

LOOP AT lt_order INTO ls_order.
  WRITE: / ls_order-vbeln, ls_order-posnr, ls_order-matnr, ls_order-kwmeng, ls_order-vrkme, ls_order-netwr, ls_order-waerk.
ENDLOOP.

* Document flow: deliveries (J) and invoices (M) created from the orders above
TYPES: BEGIN OF ty_flow,
         vbelv   TYPE vbfa-vbelv,
         posnv   TYPE vbfa-posnv,
         vbeln   TYPE vbfa-vbeln,
         posnn   TYPE vbfa-posnn,
         vbtyp_n TYPE vbfa-vbtyp_n,
       END OF ty_flow.

DATA lt_flow TYPE STANDARD TABLE OF ty_flow.

IF lt_order IS NOT INITIAL.
  SELECT vbelv posnv vbeln posnn vbtyp_n
    FROM vbfa
    INTO TABLE lt_flow
    FOR ALL ENTRIES IN lt_order
    WHERE vbelv = lt_order-vbeln
      AND posnv = lt_order-posnr
      AND ( vbtyp_n = 'J' OR vbtyp_n = 'M' ).
ENDIF.