[BAPI]创建物料主数据的工厂视图[BAPI_MATERIAL_SAVEDATA]

可以通过BAPI  BAPI_MATERIAL_SAVEDATA为物料主数据创建/拓展 工厂视图(plant view).

例子代码如下：

实现功能很简单，就是将物料主数据拓展到新的工厂，也就是在MARC表中为新工厂创建一条记录。

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

REPORT ztest_material_plant. TABLES:mara.   * 数据声明 DATA:       clidainp       LIKE  bapi_mara_ga, "客户端层次物料数据             clidaout       LIKE  bapi_mara,    "客户端层次物料数据             clidaoutx      LIKE  bapi_marax,  "BAPI_MARA 的复选框结构             headdata       LIKE  bapimathead,  "带有控制信息的表头段             return         LIKE  bapiret2,     "返回参数             lwa_plantdata  TYPE bapi_marc,             lwa_plantdatax TYPE bapi_marcx,             returnmes      LIKE bapi_matreturn2 OCCURS 0 WITH HEADER LINE.   * 取出要处理的物料编号 PARAMETERS: p_matnr LIKE  marc-matnr,             p_werks LIKE  marc-werks.   * 抬头数据 ，物料和视图维护 headdata-material      =  p_matnr. headdata-storage_view  = 'X'.  "工厂视图 lwa_plantdata-plant  = p_werks. lwa_plantdatax-plant = p_werks.   * CallBAPI CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'   EXPORTING     headdata       = headdata     plantdata      = lwa_plantdata     plantdatax     = lwa_plantdatax   IMPORTING     return         = return   TABLES     returnmessages = returnmes.   IF return-type = 'E'.   CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.   LOOP AT returnmes.     WRITE: / returnmes-message.   ENDLOOP. ELSEIF return-type = 'S'. * Commit to release the locks   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.   WRITE: / '修改成功 ', p_matnr, 'OK'. ENDIF.

程序运行成功后，会在MM03中查看到新创建的工厂视图

以上。