MBCF0002 EXIT_SAPMM07M_001 函数出口增强

业务需求：不同类型的工单产成品只能与其对应库位入库

**&---------------------------------------------------------------------
**&  包括                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.