需求背景:在某项目中,创建生产订单读取bom或生产订单bom重读时,需要根据生产版本,物料、工厂取生产版本中“组件发货仓储地点”作为组件的默认库存地点。
以下是增强中的代码:
DATA:lv_elpro LIKE mkal-elpro.
CLEAR lv_elpro.
SELECT SINGLE
elpro
INTO lv_elpro
FROM mkal
WHERE matnr = caufvd_i-matnr
AND werks = caufvd_i-werks
AND verid = prodver_i.
IF lv_elpro <> ''.
resv_i-lgort = lv_elpro.
strlc_e = resv_i-lgort.
ENDIF.