SAP MM01 User exit

*&---------------------------------------------------------------------*
*&  Include           ZXMG0U02
*&---------------------------------------------------------------------*
DATA: WA_MARC TYPE MARC,
      L_MATNR TYPE MARA-MATNR,
*      l_str TYPE n LENGTH 2,    "Mark by Lisa wong 02/04/2013
      L_STR1(1) TYPE C,           "Add by Lisa wong 02/04/2013
      L_STR2(1) TYPE C,           "Add by Lisa wong 02/04/2013
      L_FLAG(1) TYPE C,           "Add by Lisa wong 02/04/2013
      L_CNT TYPE N,               "Add by Lisa Wong 02/04/2013
      L_PEINH TYPE MBEW-PEINH,
      CH1 TYPE CHAR01,
      CH2 TYPE CHAR01,
      CH3 TYPE CHAR11,
      CH4 TYPE CHAR11,
      CH5 TYPE CHAR03,
      CH6 TYPE CHAR03,
      L_PSTAT TYPE PSTAT_D.

***********************************************  add by jack   Not allow discontinuation date as past
IF WMARC-KZAUS = '1' OR WMARC-KZAUS = '2' .
  IF WMARC-AUSDT < SY-DATUM AND WMARC-NFMAT <> SPACE .
    MESSAGE 'Invalid effective out-date' TYPE 'E' .
  ENDIF .
ENDIF .
***********************************************

*********************** add by agateliu check exist in table zhscode_01
IF SY-TCODE = 'MM01' OR SY-TCODE = 'MM02'.
  DATA: L_ZSTAWN LIKE ZHSCODE_01-ZSTAWN.
  IF WMARC-WERKS IS NOT INITIAL.
    SELECT SINGLE ZSTAWN INTO L_ZSTAWN
        FROM ZHSCODE_01
        WHERE ZSTAWN = WMARC-STAWN+0(4)
         AND MTVER = WMARC-MTVER.
    IF SY-SUBRC <> 0.
*      message e030(zwf) with wmarc-stawn wmarc-mtver.
    ENDIF.
  ENDIF.
ENDIF.

DATA: EXP_AUSP TYPE TABLE OF AUSP.
DATA: WA_AUSP LIKE LINE OF EXP_AUSP.
DATA: L_CUST TYPE KNA1-KUNNR.
DATA: L_PROJ TYPE CHAR20.