ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items

最新推荐文章于 2024-08-19 11:16:49 发布

zjut_xiongfeng

最新推荐文章于 2024-08-19 11:16:49 发布

阅读量774

点赞数

文章标签： header table c

本文链接：https://blog.csdn.net/zjut_xiongfeng/article/details/3176338

版权

本文介绍了在ABAP中如何实现当交货单的任意一项库存位置发生人工修改时，系统自动更新所有相关项目的步骤。主要涉及程序SAPMV50A中的USEREXIT_SAVE_DOCUMENT_PREPARE子过程，通过遍历并更新XLIPS表来确保库存信息同步。

摘要由CSDN通过智能技术生成

1、找到出口
用se38打开程序SAPMV50A,在子过程列表找出USEREXIT_SAVE_DOCUMENT_PREPARE。

2、在USEREXIT_SAVE_DOCUMENT_PREPARE写入下列代码
FORM USEREXIT_SAVE_DOCUMENT_PREPARE.
DATA: XLIPS_C LIKE LIPSVB OCCURS 0 WITH HEADER LINE.
DATA: I_LIPS LIKE LIPSVB OCCURS 0 WITH HEADER LINE.

IF XLIKP-VKORG <> 'CN04'.
EXIT.
ENDIF.

if lips is not initial.
**物料号对应的库位
* LOOP AT XLIPS WHERE UEPOS = '000000' AND CHARG <> ''.
*     MOVE-CORRESPONDING XLIPS TO I_LIPS.
*     APPEND I_LIPS.
*     CLEAR I_LIPS.
* ENDLOOP.
xlips_c[] = xlips[].
loop at xlips where uepos <> '000000'.
   read table xlips_c with key posnr = xlips-uepos
                               matnr = lips-matnr.
   if sy-subrc = 0.
        xlips-lgort = lips-lgort.
*U 表示该纪录被修改，需要更新,D表示删除,I表示新增