SAP_常用BAPI_创建修改物料主数据（BAPI_MATERIAL_SAVEDATA）

最新推荐文章于 2025-05-21 14:22:07 发布

原创最新推荐文章于 2025-05-21 14:22:07 发布 · 5.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#创建物料 #修改物料 #BAPI #BAPI_MATERIAL_SAVEDA

SAP_常用BAPI 专栏收录该内容

5 篇文章

订阅专栏

本文详细介绍了如何使用 BAPI(Material Savedata) 函数进行物料数据的批量处理，包括判断是否需要扩展物料记录、处理物料描述、单位、国际编号等关键信息，并通过流程控制确保数据的一致性和完整性。

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

BAPI_MATERIAL_SAVEDATA

  LOOP AT pt_out.
    CLEAR: ls_headdata,ls_return.
    REFRESH: lt_extensionin,lt_extensioninx.

    "---判断是否需要扩展修改
    READ TABLE gt_mard WITH KEY matnr = pt_out-matnr
                                werks = pt_out-werks
                                lgort = pt_out-lgort
                                BINARY SEARCH.
    IF sy-subrc EQ 0 AND gt_mard-lgort1 EQ pt_out-lgort1 AND gt_mard-lgort2 EQ pt_out-lgort2.
      l_proc_n_lines = l_proc_n_lines + 1.   "无需处理
      pt_out-bz = '无需扩展'.
      MODIFY pt_out TRANSPORTING bz.
      CONTINUE.
    ENDIF.

    ls_headdata-material = pt_out-matnr.
    ls_headdata-storage_view  = 'X'.

    ls_bapi_te_mard-plant = pt_out-werks.
    ls_bapi_te_mard-stge_loc = pt_out-lgort.
    ls_bapi_te_mard-lgort1 = pt_out-lgort1.
    ls_bapi_te_mard-lgort2 = pt_out-lgort2.

    ls_bapi_te_mardx-plant = pt_out-werks.
    ls_bapi_te_mardx-stge_loc = pt_out-lgort.
    ls_bapi_te_mardx-lgort1 = 'X'.
    ls_bapi_te_mardx-lgort2 = 'X'.

    lt_extensionin-structure = 'BAPI_TE_MARD'.
    lt_extensionin-valuepart1 = ls_bapi_te_mard.
    APPEND lt_extensionin.
    CLEAR lt_extensionin.

    lt_extensioninx-structure = 'BAPI_TE_MARDX'.
    lt_extensioninx-valuepart1 = ls_bapi_te_mardx.
    APPEND lt_extensioninx.
    CLEAR lt_extensioninx.

    CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
      EXPORTING
        headdata             = ls_headdata
*       CLIENTDATA           =
*       CLIENTDATAX          =
*       PLANTDATA            =
*       PLANTDATAX           =
*       FORECASTPARAMETERS   =
*       FORECASTPARAMETERSX  =
*       PLANNINGDATA         =
*       PLANNINGDATAX        =
*       storagelocationdata  =
*       storagelocationdatax =
*       VALUATIONDATA        =
*       VALUATIONDATAX       =
*       WAREHOUSENUMBERDATA  =
*       WAREHOUSENUMBERDATAX =
*       SALESDATA            =
*       SALESDATAX           =
*       STORAGETYPEDATA      =
*       STORAGETYPEDATAX     =
*       FLAG_ONLINE          = ''
*       FLAG_CAD_CALL        = ' '
*       NO_DEQUEUE           = ''
*       NO_ROLLBACK_WORK     = ''
      IMPORTING
        return               = ls_return
      TABLES
*       MATERIALDESCRIPTION  =
*       UNITSOFMEASURE       =
*       UNITSOFMEASUREX      =
*       INTERNATIONALARTNOS  =
*       MATERIALLONGTEXT     =
*       TAXCLASSIFICATIONS   =
*       RETURNMESSAGES       =
*       PRTDATA              =
*       PRTDATAX             =
        extensionin          = lt_extensionin
        extensioninx         = lt_extensioninx.
    IF ls_return-type CA 'EA'.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
      CONCATENATE ls_return-message ls_return-message_v1
        ls_return-message_v2 ls_return-message_v3
        ls_return-message_v4 INTO pt_out-bz.
      l_proc_f_lines = l_proc_f_lines + 1.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = c_strx.
      pt_out-bz = '扩展成功'.
      l_proc_s_lines = l_proc_s_lines + 1.
    ENDIF.
    "---已处理标识
    gt_out-flag = '2'.  "导入数据已处理
    MODIFY pt_out TRANSPORTING bz flag.
  ENDLOOP.