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.