GET Open Qty in Stockkeeping Units for Transfer of Reqmts to MRP

REPORT
ZGET_KEEPINGSTOCK_DN.

DATA: kzwso LIKE mara-kzwsm.

RANGES: WS_WERKS FOR MARC-WERKS.

DATA: BEGIN OF xtab4 OCCURS100, "Tabelle derVertriebsbedarfe

matnr LIKEvbbe-matnr,

werks LIKEvbbe-werks,

lgort LIKEvbbe-lgort,

charg LIKEvbbe-charg,

vbmna LIKEvbbe-omeng, "offeneAnfragemenge

vbmnb LIKEvbbe-omeng, "offeneAngebotsmenge

vbmnc LIKEvbbe-omeng, "offeneAuftragsmenge

vbmne LIKEvbbe-omeng, "offeneLieferplanmenge

vbmng LIKEvbbe-omeng, "offeneKontraktmenge

vbmni LIKEvbbe-omeng, "offene Mengekostenloser Liefer.

omeng LIKEvbbe-omeng, "offeneLiefermegne

vrkme LIKEvbep-vrkme, "Verkaufsmengeneinheit "ALR14884SW

wmeng LIKEvbep-wmeng, "Erfmng imBeleg "ALR14884SW

END OF xtab4.

selection-screen begin of block b1 with frame TITLE TEXT-001.

PARAMETERS: P_MATNR LIKE MARA-MATNR,

P_WERKSLIKE MARC-WERKS.

selection-screen end of block b1 .

START-OF-SELECTION.

CHECK NOT p_MATNR IS INITIAL.

CLEAR XTAB4. REFRESH XTAB4.

CALL FUNCTION 'MB_SELECT_SD_SCHEDULED_STOCK'

EXPORTING

X_MATNR = P_MATNR

X_KZWSO =KZWSO "ALK014884 SW

TABLES

XTAB4 = XTAB4

XWERKS =WS_WERKS.

Loop at XTAB4.

endloop.