co01/co02时通过增强 EXIT_SAPLCOSD_001修改组件的默认库存地点

需求背景：在某项目中，创建生产订单读取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.