【转载】ABAP物料仓位扩充

SAP物料库存扩展数据保存函数实现

转载已于 2022-07-25 17:20:52 修改 · 737 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：https://blog.youkuaiyun.com/zhongguomao/article/details/79591023

文章标签：

#servlet #java #mybatis

于 2022-07-25 17:19:58 首次发布

这是一个SAP ABAP函数，用于扩展物料在特定工厂库位的库存数据。当指定的物料、工厂和库位不存在时，该函数会创建相关数据。通过调用'BAPI_MATERIAL_SAVEDATA'来保存头数据和存储位置信息。

FUNCTION ZMM_EXTEND_MATERIAL_LGORT.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_MATNR) TYPE MARD-MATNR
*" VALUE(I_WERKS) TYPE MARD-WERKS
*" VALUE(I_LGORT) TYPE MARD-LGORT
*"----------------------------------------------------------------------

DATA:I_HEADDATA LIKE BAPIMATHEAD,
I_STORAGELOCATIONDATA LIKE BAPI_MARD,
I_STORAGELOCATIONDATAX LIKE BAPI_MARDX,
I_RETURN LIKE BAPIRET2.
DATA: LW_MARD TYPE MARD.
SELECT SINGLE * FROM MARD INTO LW_MARD
WHERE MATNR = I_MATNR
AND WERKS = I_WERKS
AND LGORT = I_LGORT.
IF SY-SUBRC <> 0."不存在扩库位
CLEAR I_HEADDATA.
I_HEADDATA-MATERIAL = I_MATNR.
I_HEADDATA-STORAGE_VIEW = 'X'.
CLEAR I_STORAGELOCATIONDATA.
CLEAR I_STORAGELOCATIONDATAX.
I_STORAGELOCATIONDATA-PLANT = I_WERKS.
I_STORAGELOCATIONDATA-STGE_LOC = I_LGORT.
I_STORAGELOCATIONDATAX-PLANT = I_WERKS.
I_STORAGELOCATIONDATAX-STGE_LOC = I_LGORT.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
HEADDATA = I_HEADDATA
STORAGELOCATIONDATA = I_STORAGELOCATIONDATA
STORAGELOCATIONDATAX = I_STORAGELOCATIONDATAX
IMPORTING
RETURN = I_RETURN.
ENDIF.
ENDFUNCTION.