MRP Para algunos materiales - Ampliación M61X0001

SAP provee la funcionalidad MRP a nivel de planta (MD01) y a nivel de material (MD02/MD03). Dependerá de la implementación si se debe realizar la ejecución para una planta o para un conjunto especifico de materiales. 

 

Utilizando la ampliación  M61X0001

SAP provee la ampliación M61X0001. Esta puede ser verificada e implementada haciendo uso de la transacción SMOD



Una vez lo haga, seleccione la opción componentes.

Esta presentará dos módulos de función para los Exits:

• EXIT_SAPLM61C_001 
• EXIT_SAPMM61X_001

Double click uno de los modulos de función y visualice la lista de objetos (Ctrl+Shift+F5)

 

Una vez hecho esto, dentro del exit, en este caso el EXIT_SAPMM61X_001 encontrará el include ZXM61U01. Es en este lugar donde deberá incluirse el código. 

 

A continuación se ilustra un ejemplo del programa dentro del éxit. 

============================================

Function EXIT_SAPLM61C_001
*----------------------------------------------------------------------*
* INCLUDE ZXM61U02 *
*----------------------------------------------------------------------*
* PLEASE NOTE: this code must be identical to ZXM61U01.
CLEAR: NO_PLANNING, STOP_PLANNING.
CASE USER_KEY.
*----------------------------------------------------------------------*
* select materials for one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
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.
ENDCASE.


Function EXIT_SAPMM61X_001
*----------------------------------------------------------------------*
* INCLUDE ZXM61U01 *
*----------------------------------------------------------------------*
* PLEASE NOTE: this code must be identical to ZXM61U02.
CLEAR: NO_PLANNING, STOP_PLANNING.
CASE USER_KEY.
*----------------------------------------------------------------------*
* select materials for one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
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.
ENDCASE.