<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZPPWS002 > Funtions Exits > EXIT_SAPMM61X_001 > ZXM61U01

*&---------------------------------------------------------------------*
*&  Include           ZXM61U01                                         *
*&---------------------------------------------------------------------*
 
CLEAR: NO_PLANNING, STOP_PLANNING.
*----------------------------------------------------------------------*
* immediately exclude material with deletion flag
* this will reduce unnecessary MRP list with termination
*----------------------------------------------------------------------*
IF MT61D-LVORM = 'X'.
   NO_PLANNING = 'X'.
ENDIF.
 
*----------------------------------------------------------------------*
* select materials for one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
 
CASE USER_KEY.
 
  WHEN '001'.
*      UXPAR = USER_PAR.
*      CONDENSE UXPAR.
*      WRITE UXPAR+0(3) TO DISPO.
*      IF DISPO IS INITIAL.
*        EXIT.
*      ENDIF.
*      IF MT61D-DISPO <> DISPO.
*        NO_PLANNING = 'X'.
*      ENDIF.
*->Change reason: want to select multiple MRP controllers
 
     UXPAR = USER_PAR.
    CONDENSE UXPAR.
 
    IF not UXPAR ns ';'.
      WRITE UXPAR+0(3) TO DISPO.
      IF DISPO IS INITIAL.
        EXIT.
      ENDIF.
      IF MT61D-DISPO <> DISPO.
         NO_PLANNING = 'X'.
      ENDIF.
 
    ELSE.
      replace space in UXPAR with ''.
      FIND MT61D-DISPO IN UXPAR IGNORING CASE.
 
      IF sy-subrc NE 0.
*not found
         NO_PLANNING = 'X'.
      ENDIF.
 
    ENDIF.
 
*----------------------------------------------------------------------*
* select materials excluding one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
  WHEN '002'.
*      UXPAR = USER_PAR.
*      CONDENSE UXPAR.
*      WRITE UXPAR+0(3) TO DISPO.
*      IF DISPO IS INITIAL.
*        EXIT.
*      ENDIF.
*      IF MT61D-DISPO = DISPO.
*        NO_PLANNING = 'X'.
*      ENDIF.
*->Change reason: want to select multiple MRP controllers
 
     UXPAR = USER_PAR.
    CONDENSE UXPAR.
 
    IF not UXPAR ns ';'.
      WRITE UXPAR+0(3) TO DISPO.
      IF DISPO IS INITIAL.
        EXIT.
      ENDIF.
      IF MT61D-DISPO = DISPO.
         NO_PLANNING = 'X'.
      ENDIF.
 
    ELSE.
      replace space in UXPAR with ''.
      FIND MT61D-DISPO IN UXPAR IGNORING CASE.
 
      IF sy-subrc EQ 0.
*found
         NO_PLANNING = 'X'.
      ENDIF.
 
    ENDIF.
 
 
ENDCASE.