SAP BAPI 批量修改物料主数据增强字段

通过屏幕增强，我在MM01中增强两个字段

image.png

• 数据定义

* BAPI数据声明
DATA: CLIDAINP  LIKE BAPI_MARA_GA, "客户端层次物料数据
      CLIDAOUT  LIKE  BAPI_MARA,    "客户端层次物料数据
      CLIDAOUTX LIKE  BAPI_MARAX,  "BAPI_MARA 的复选框结构
      HEADDATA  LIKE  BAPIMATHEAD,  "带有控制信息的表头段
      RETURN    LIKE  BAPIRET2,     "返回参数
      RETURNMES LIKE BAPI_MATRETURN2 OCCURS 0 WITH HEADER LINE.
DATA:LT_EXTENSION  TYPE STANDARD TABLE OF BAPIPAREX , "参考结构
     LS_EXTENSION  TYPE BAPIPAREX,
     LT_EXTENSIONX TYPE STANDARD TABLE OF BAPIPAREXX , "参考结构
     LS_EXTENSIONX TYPE BAPIPAREXX.
DATA:WA_ZEXTEN  LIKE BAPI_TE_MARA,
     WA_ZEXTENX LIKE BAPI_TE_MARAX.

• 读取物料数据

      CALL FUNCTION 'BAPI_MATERIAL_GET_ALL'
        EXPORTING
          MATERIAL   = GS_TAB-MATNR
        IMPORTING
          CLIENTDATA = CLIDAINP
        TABLES
          RETURN     = RETURNMES.
      IF SY-SUBRC EQ 0.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
      ENDIF.

BAPI_MATERIAL_GET_ALL 这个FUNCTION可以取出该物料下的基础数据

• 抬头数据 ，物料和视图维护

      HEADDATA-MATERIAL    = GS_TAB-MATNR.
      HEADDATA-BASIC_VIEW  = 'X'.

      WA_ZEXTEN-MATERIAL    = GS_TAB-MATNR.
      "物料是必须要给的，不然报S类型的消息，但是不更新MARA表
      WA_ZEXTEN-ZJPAUDIT = GS_TAB-JPAUDIT.
      "要更新的字段
      LS_EXTENSION-STRUCTURE = 'BAPI_TE_MARA'.
     "扩展结构是系统标准的（敲重点）
      LS_EXTENSION-VALUEPART1 = WA_ZEXTEN.
      APPEND LS_EXTENSION TO LT_EXTENSION.
      CLEAR LS_EXTENSION.

      *给更新字段打上啊X标识
     WA_ZEXTENX-MATERIAL    = GS_TAB-MATNR.
      WA_ZEXTENX-ZJPAUDIT = 'X'.
      LS_EXTENSIONX-STRUCTURE = 'BAPI_TE_MARAX'.
      LS_EXTENSIONX-VALUEPART1 = WA_ZEXTENX.
      APPEND LS_EXTENSIONX TO LT_EXTENSIONX.
      CLEAR LS_EXTENSIONX.

附加结构参考

image.png image.png

自己往标准结构，表里面插入数据，一般通过附加结构，新建一个结构插入，插入的结构不可以提前建好引用，我的理解是你通过点击结构的附加结构按钮，建立的会出现某种勾稽关系吧。

• CallBAPI

      CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
        EXPORTING
          HEADDATA       = HEADDATA
          CLIENTDATA     = CLIDAOUT
          CLIENTDATAX    = CLIDAOUTX
        IMPORTING
          RETURN         = RETURN
        TABLES
          RETURNMESSAGES = RETURNMES
          EXTENSIONIN    = LT_EXTENSION "敲重点
          EXTENSIONINX   = LT_EXTENSIONX."敲重点
      IF RETURN-TYPE = 'E'.
        GS_TAB-TYPE = 'E'.
        GS_TAB-MESS = RETURN-MESSAGE.
        ROLLBACK WORK.
      ELSE.
        GS_TAB-MESS = TEXT-011.
        GS_TAB-TYPE = 'S'.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT = 'X'.
      ENDIF.
      MODIFY GT_TAB FROM GS_TAB.
      CLEAR GS_TAB.
      MESSAGE TEXT-011 TYPE 'S'.
    ELSE.
      GS_TAB-TYPE = 'E'.
      GS_TAB-MESS = TEXT-012 .
      MODIFY GT_TAB FROM GS_TAB.
      CLEAR GS_TAB.
    ENDIF.

先确定自己的前台可以跑通，在测试bapi