1. 程式人生 > >co01/co02時通過增強 EXIT_SAPLCOSD_001修改元件的預設庫存地點

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.