【转载】ABAP物料仓位扩充

ABAPer_Kang

已于 2022-07-25 17:20:52 修改

阅读量701

点赞数

CC 4.0 BY-SA版权

文章标签： servlet java mybatis

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

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

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

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

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.