Note
- MDPSX-PLUMI can judge +-
demo
data plscn type plsc-plscn.
data matnr type marc-matnr.
data works type marc works.
data berid type mdlv-berid.
data ergbz type t462-ergbz.
data afibz type t463-afibz.
data inper type mdst-inper.
data display_list_mdpsx type char1.
data display_list_mdezx type char1.
data display_list_mdsux type char1.
data nobuf type char1.
data plauf type cm61x-plauf.
data i_vrfwe type char1.
data is_sfilt type sfilt.
data is_afilt type afilt.
data iv_fill_mdsta type xfeld.
data e_mt61d type mt61d.
data e_mdkp type mdkp.
data e_cm61m type cm61m.
data e_mdsta type mdsta.
data e_ergbz type sfilt-ergbz.
data mdpsx type standard table of mdps.
data mdezx type standard table of mdez.
data mdsux type standard table of mdsu.
loop at gt_alv.
matnr = gt_alv-matnr.
werks = gt_alv-werks.
berid = gt_alv-berid.
call function 'MD_STOCK_REQUIREMENTS_LIST_API'
exporting
plscn = plscn
matnr = matnr
plant = plant
berid = berid
ergbz = ergbz
afibz = afibz
inper = inper
display_list_mdpsx = display_list_mdpsx
display_list_mdezx = display_list_mdezx
display_list_mdsux = display_list_mdsux
nobuf = nobuf
plauf = plauf
i_vrfwe = i_vrfwe
is_sfilt = is_sfilt
is_afilt = is_afilt
iv_fill_mdsta = 'X'
importing
e_mt61d = e_mt61d
e_mdkp = e_mdkp
e_cm61m = e_cm61m
e_mdsta = e_mdsta
e_ergbz = e_ergbz
tables
mdpsx = mdpsx
mdezx = mdezx
mdsux = mdsux
exceptions
material_plant_not_found = 1
plant_not_found = 2.
loop at mdpsx into data(ls_mdpsx).
case ls_mdpsx-delkz.
when'WB'. "Inventory
gt_alv-labst = ls_mdpsx-mng01.
when'BE' or'LA'. "Purchase order is open
gt_alv-menge_po = gt_alv-menge_po + ls_mdpsx-mng01.
when'BA'. "Purchase requisition
gt_alv-menge_pr = ls_mdpsx-mng01.
when'AR'. "Work Order
gt_alv-menge_ar = ls_mdpsx-mng01.
when others.
endcase.
endloop.