EXIT_SAPMM07M_001 MIGO(库存转移相关)增强

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.