ABAP 获取动态库存函数效率优化---zmb_select_sd_scheduled_stock

FUNCTION zmb_select_sd_scheduled_stock.
*“----------------------------------------------------------------------
"“本地接口：
*” IMPORTING
*” VALUE(X_KZWSO) LIKE MARA-KZWSM DEFAULT SPACE
*" TABLES
*" ZTAB4 STRUCTURE ZSZTAB4
*" IT_WERKS STRUCTURE /BEV2/ED_RG_S_WERKS
*" IT_MATNR STRUCTURE /CWM/R_MATNR
*"----------------------------------------------------------------------
DATA: lt_vbbe TYPE STANDARD TABLE OF vbbe,
lt_vbbs TYPE STANDARD TABLE OF vbbs.

FIELD-SYMBOLS: <ls_vbbe> TYPE vbbe,
<ls_vbbs> TYPE vbbs.
DATA: vbeda(2) TYPE c VALUE ‘A’, "Anfrage
vbedb(2) TYPE c VALUE ‘B’, "Angebot
vbedc(2) TYPE c VALUE ‘C’, "Auftrag
vbede(2) TYPE c VALUE ‘E’, "Lieferplan
vbedg(2) TYPE c VALUE ‘G’, "Kontrakt
vbedi(2) TYPE c VALUE ‘I’, "Kostenlose Lieferung
vbedj(2) TYPE c VALUE ‘J’. "Lieferung
TYPES: BEGIN OF lty_lips,
vbeln TYPE lips-vbeln,
posnr TYPE lips-posnr,
bwart TYPE lips-bwart,
shkzg TYPE t156-bwart,
END OF lty_lips.
DATA: lt_lips TYPE STANDARD TABLE OF lty_lips WITH HEADER LINE.

• Aufbau Rangetabelle für Werk ---------------------------------------

• CLEAR WERKS_RANGE.

• REFRESH WERKS_RANGE.

• LOOP AT XWERKS.

• WERKS_RANGE = XWERKS.

• APPEND WERKS_RANGE.

• ENDLOOP.

• – Ermitteln und kumulieren der Vertriebs-Einzelbedarfe auf die Ebene

• – feinste Ebene von Werk/Lagerort/