SAP: ME11 Enhancement MM06IF01_INFO_AENDERN

本文链接：https://blog.csdn.net/yong325/article/details/8813816

此博客介绍了如何在SAP中通过ME11事务码增强MM06IF01_INFO_AENDERN函数，自动更新材料主数据的计划交货时间。内容包括使用ENHANCEMENT 1 ZMM06IF01_INFO_AENDERN进行增强，以及在循环中调用BAPI_MATERIAL_SAVEDATA更新数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form INFO_AENDERN, End                                                                                                                            A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZMM06IF01_INFO_AENDERN.    "active version
*Add by Lisa Wong 03/11/2013 auto update plan delivery time in material master

DATA: T_HEAD LIKE BAPIMATHEAD,
      T_PLANTDATA LIKE BAPI_MARC,
      T_PLANTDATAX LIKE BAPI_MARCX,
      T_RETURN LIKE BAPIRET2..

DATA: T_EORD LIKE TABLE OF EORD WITH HEADER LINE,
      L_PLIFZ LIKE MARC-PLIFZ.
SELECT SINGLE  PLIFZ INTO L_PLIFZ
  FROM MARC
WHERE MARC~MATNR = EINA-MATNR
   AND MARC~WERKS = EINE-WERKS.
CHECK L_PLIFZ <> EINE-APLFZ .

SELECT  * INTO TABLE T_EORD FROM EORD
  WHERE EORD~LIFNR = EINA-LIFNR
    AND EORD~WERKS = EINE-WERKS
    AND EORD~MATNR  = EINA-MATNR.

*  DELETE T_EORD WHERE BDATU < EINE-PRDAT.

T_HEAD-MATERIAL = EINA-MATNR.
T_HEAD-MRP_VIEW = 'X'.
T_PLANTDATA-PLANT = EINE-WERKS.
T_PLANTDATA-PLND_DELRY = EINE-APLFZ.

T_PLANTDATAX-PLANT = EINE-WERKS.
T_PLANTDATAX-PLND_DELRY = 'X'.

  LOOP AT T_EORD.
    IF T_EORD-FEBEL = 'X' OR T_EORD-AUTET <> ' ' OR T_EORD-FLIFN = 'X'.
     CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        HEADDATA       = T_HEAD
        PLANTDATA  = T_PLANTDATA
        PLANTDATAX = T_PLANTDATAX
      IMPORTING
        RETURN     = T_RETURN.
    ENDIF.
  ENDLOOP.
  CLEAR: T_HEAD,T_PLANTDATA,T_PLANTDATAX.
  REFRESH T_EORD.
ENDENHANCEMENT.
*$*$-End:   (1)---------------------------------------------------------------------------------$*$*
ENDFORM.                    "INFO_AENDERN