业务需求:不同类型的工单产成品只能与其对应库位入库
**&--------------------------------------------------------------------- **& 包括 ZXMBCU02 **&--------------------------------------------------------------------- IF ( sy-tcode = 'MIGO' OR sy-tcode = 'MB31' OR sy-tcode = 'SE37' OR sy-tcode = '' ) AND i_mseg-bwart = '101' AND i_mseg-werks = '6666'. DATA:bo(1). bo = i_mseg-aufnr+5(1). IF bo = '1' OR bo = '2'. IF i_mseg-lgort <> '3001' AND i_mseg-lgort <> '3002'. MESSAGE '该类型订单只能入3001/3002库位' TYPE 'E'. ENDIF. ELSEIF bo = '3' OR bo = '9'. IF i_mseg-lgort <> '3001' AND i_mseg-lgort <> '3002' AND i_mseg-lgort <> '3006'. MESSAGE '该类型订单只能入3001/3002/3006库位' TYPE 'E'. ENDIF. ELSEIF bo = '5'. IF i_mseg-lgort <> '3004' AND i_mseg-lgort <> '3005'. MESSAGE '该类型订单只能入3004/3005库位' TYPE 'E'. ENDIF. ENDIF. CLEAR bo. ENDIF.