ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
2007-12-19 15:51
896 查看
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表示新增
xlips-updkz = 'U'.
endif.
modify xlips.
clear xlips.
endloop.
endif.
*ylips[] = xlips[].
ENDFORM.
备注:其实这个增强可以根据需要进行修改,以达到其他的特需的用户需求。
用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表示新增
xlips-updkz = 'U'.
endif.
modify xlips.
clear xlips.
endloop.
endif.
*ylips[] = xlips[].
ENDFORM.
备注:其实这个增强可以根据需要进行修改,以达到其他的特需的用户需求。
相关文章推荐
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items(感谢天元提供)
- ABAP--如何实现交货单的任何一item库位发生人工修改时系统自动更新所有items
- sqlDependency提供了这样一种能力:当被监测的数据库中的数据发生变化时,SqlDependency会自动触发OnChange事件来通知应用程序,从而达到让系统自动更新数据(或缓存)的目的.
- SAP 如何用ABAP实现自动发送外部邮件
- Android 如何实现带滚动条的TextView,在更新文字时自动滚动到最后一行?
- 安卓开发中,如何在代码中实现第三方推送更新,下载好更新后,自动卸载旧版本再安装,而不是直接覆盖安装
- 请高手帮忙看看代码如何修改(我要实现表单调用数据并更新到数据库)
- 如何实现缓存系统的更新机制
- 如何实现缓存系统的更新机制
- HttpModule 实现 ASP.Net (*.aspx) 中文简繁体的自动转换,不用修改原有的任何代码,直接部署即可!
- 当我们修改WEB-INF下的任何一个配置文件的时候,如何让tomcat自动加载
- iOS自动更新如何实现
- 友盟下线后,开发者该如何实现自动更新
- 如何实现Windows系统Users组用户可修改IP属性和限制Users组用户访问文件的权限!
- 基于Quick-cocos2dx 2.2.3 的动态更新实现(不需修改任何框架上的)
- 获得Android系统所有已安装的应用并联网自动检测升级更新
- Win10总是自动下载更新系统,该如何关闭?
- 配置-如何用ABAP实现自动发送外部邮件