使用函数BBP_INB_DELIVERY_CREATE(VL31n)创建内向交货单时,交货单内的物料字段为空
2015-09-07 20:17
537 查看
一、背景:
使用函数BBP_INB_DELIVERY_CREATE(VL31n)创建内向交货单时,交货单内的物料字段为空,网上查了一些资料,找到了下面的解决方法,希望有更好的解决方法的筒子们告知一下。
二、以下步骤是解决方法:
第一步:调用BBP_INB_DELIVERY_CREATE
DATA:DEL_HEADER LIKE BBP_INBD_L.
DATA:DEL_TAB LIKE BBP_INBD_D OCCURS 0 WITH HEADER LINE.
DATA:DEL_RET LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE.
DATA:DEL_NO TYPE VBELN_VL.
LOOP AT INPUT.
MOVE-CORRESPONDING INPUT TO OUTPUT.
CLEAR DEL_HEADER.
DEL_HEADER-DELIV_DATE = INPUT-EINDT.
DEL_HEADER-DELIV_EXT = 12121.
CLEAR DEL_TAB.
REFRESH DEL_TAB.
DEL_TAB-DELIV_QTY = INPUT-LFIMG.
SELECT SINGLE
MEINS
MATNR
INTO (DEL_TAB-UNIT, DEL_TAB-MATERIAL)
FROM EKPO
WHERE EBELN = INPUT-EBELN
AND EBELP = INPUT-EBELP.
* DEL_TAB-MATERIAL = 'YL10-00101-000'.
DEL_TAB-PO_NUMBER = INPUT-EBELN.
DEL_TAB-PO_ITEM = INPUT-EBELP.
APPEND DEL_TAB.
CLEAR DEL_TAB.
CALL FUNCTION 'BBP_INB_DELIVERY_CREATE'
EXPORTING
IS_INB_DELIVERY_HEADER = DEL_HEADER
IMPORTING
EF_DELIVERY = DEL_NO
TABLES
IT_INB_DELIVERY_DETAIL = DEL_TAB
RETURN = DEL_RET.
IF SY-SUBRC = 0 and DEL_NO <> ''.
OUTPUT-VBELN = DEL_NO.
OUTPUT-FLAG = 'S'.
OUTPUT-MESSAGE = '创建内项交货成功!'.
ELSE.
OUTPUT-FLAG = 'E'.
OUTPUT-MESSAGE = '创建内项交货失败'.
ENDIF.
APPEND OUTPUT.
CLEAR OUTPUT.
ENDLOOP.
第二步:Implicit Enhancement in end of FM ME_CONFIRMATION_VIA_EDI.
DATA: WA_XKOMDLGN LIKE LINE OF XKOMDLGN.
**To update Material Number..
LOOP AT T_KOM INTO WA_XKOMDLGN.
SELECT SINGLE MATNR INTO WA_XKOMDLGN-MATNR
FROM EKPO WHERE EBELN EQ WA_XKOMDLGN-VGBEL
AND EBELP EQ WA_XKOMDLGN-VGPOS
MODIFY T_KOM FROM WA_XKOMDLGN.
ENDLOOP.
使用函数BBP_INB_DELIVERY_CREATE(VL31n)创建内向交货单时,交货单内的物料字段为空,网上查了一些资料,找到了下面的解决方法,希望有更好的解决方法的筒子们告知一下。
二、以下步骤是解决方法:
第一步:调用BBP_INB_DELIVERY_CREATE
DATA:DEL_HEADER LIKE BBP_INBD_L.
DATA:DEL_TAB LIKE BBP_INBD_D OCCURS 0 WITH HEADER LINE.
DATA:DEL_RET LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE.
DATA:DEL_NO TYPE VBELN_VL.
LOOP AT INPUT.
MOVE-CORRESPONDING INPUT TO OUTPUT.
CLEAR DEL_HEADER.
DEL_HEADER-DELIV_DATE = INPUT-EINDT.
DEL_HEADER-DELIV_EXT = 12121.
CLEAR DEL_TAB.
REFRESH DEL_TAB.
DEL_TAB-DELIV_QTY = INPUT-LFIMG.
SELECT SINGLE
MEINS
MATNR
INTO (DEL_TAB-UNIT, DEL_TAB-MATERIAL)
FROM EKPO
WHERE EBELN = INPUT-EBELN
AND EBELP = INPUT-EBELP.
* DEL_TAB-MATERIAL = 'YL10-00101-000'.
DEL_TAB-PO_NUMBER = INPUT-EBELN.
DEL_TAB-PO_ITEM = INPUT-EBELP.
APPEND DEL_TAB.
CLEAR DEL_TAB.
CALL FUNCTION 'BBP_INB_DELIVERY_CREATE'
EXPORTING
IS_INB_DELIVERY_HEADER = DEL_HEADER
IMPORTING
EF_DELIVERY = DEL_NO
TABLES
IT_INB_DELIVERY_DETAIL = DEL_TAB
RETURN = DEL_RET.
IF SY-SUBRC = 0 and DEL_NO <> ''.
OUTPUT-VBELN = DEL_NO.
OUTPUT-FLAG = 'S'.
OUTPUT-MESSAGE = '创建内项交货成功!'.
ELSE.
OUTPUT-FLAG = 'E'.
OUTPUT-MESSAGE = '创建内项交货失败'.
ENDIF.
APPEND OUTPUT.
CLEAR OUTPUT.
ENDLOOP.
第二步:Implicit Enhancement in end of FM ME_CONFIRMATION_VIA_EDI.
DATA: WA_XKOMDLGN LIKE LINE OF XKOMDLGN.
**To update Material Number..
LOOP AT T_KOM INTO WA_XKOMDLGN.
SELECT SINGLE MATNR INTO WA_XKOMDLGN-MATNR
FROM EKPO WHERE EBELN EQ WA_XKOMDLGN-VGBEL
AND EBELP EQ WA_XKOMDLGN-VGPOS
MODIFY T_KOM FROM WA_XKOMDLGN.
ENDLOOP.
相关文章推荐
- 单点登陆
- mac下安装MYSQL-python
- 函数指针
- 严重: Context initialization failed org.springframework.beans.factory.BeanCreationException: Error cre
- LeetCode_populating-next-right-pointers-in-each-node
- StringBufferDemo
- 三种循环结构打印表
- Could not publish server configuration for Tomcat v6.0 Server at localhost
- Java集合类详解
- TCP/IP,http,socket,长连接,短连接——小结。
- eclipse调试java程序的九个技巧--有链接
- 标准C++中的string类的用法总结
- 小算法:一个排名区间,对应一个奖品,给定一个排名区间,判断它要领取奖品的id
- BFS最短路+状态dp(hdu3681)好
- 小程序
- glyphicons-halflings-regular.woff 404
- 使SourceInsight支持Python语言的方法
- sizeWithFont:方法使用明细
- SingleDemo2
- HDU5428 - The Factor (因式分解)