货铺QQ群号：834508274
进群统一修改群名片，例如BJ_ABAP_森林木。群内禁止发广告及其他一切无关链接，小程序等，进群看公告，谢谢配合
不修改昵称会被不定期踢除，谢谢配合
REPORT ZDEMO_VL01N.
PARAMETERS P_VBELN TYPE VBELN_VA.
PARAMETERS P_SERNR TYPE OBJK-SERNR.
PARAMETERS P_VSTEL TYPE VSTEL.
DATA:LS_VBAK TYPE VBAK.
DATA:LT_VBAP TYPE TABLE OF VBAP.
DATA:LS_VBAP TYPE VBAP.
DATA:LV_DELIVERY TYPE BAPISHPDELIVNUMB-DELIV_NUMB,
LV_NUM_DELIVERIES TYPE BAPIDLVCREATEHEADER-NUM_DELIVERIES,
LT_SALES_ORDER_ITEMS LIKE TABLE OF BAPIDLVREFTOSALESORDER,
LT_RETURN LIKE TABLE OF BAPIRET2.
DATA:LS_SALES_ORDER_ITEMS LIKE LINE OF LT_SALES_ORDER_ITEMS.
DATA:LS_RETURN LIKE LINE OF LT_RETURN.
DATA:LT_SERIAL_NUMBERS LIKE TABLE OF BAPIDLVSERIALNUMBER.
DATA:LS_SERIAL_NUMBERS LIKE LINE OF LT_SERIAL_NUMBERS.
DATA:LV_SHIP_POINT TYPE BAPIDLVCREATEHEADER-SHIP_POINT.
DATA:LV_DUE_DATE TYPE BAPIDLVCREATEHEADER-DUE_DATE.
START-OF-SELECTION.
SELECT SINGLE * FROM VBAK INTO LS_VBAK
WHERE VBELN = P_VBELN.
SELECT SINGLE * FROM VBAP INTO LS_VBAP
WHERE VBELN = P_VBELN.
CHECK SY-SUBRC = 0.
CLEAR: LV_DELIVERY,LV_NUM_DELIVERIES, LT_SALES_ORDER_ITEMS[], LT_SERIAL_NUMBERS[], LT_RETURN[].
LS_SALES_ORDER_ITEMS-REF_DOC = LS_VBAK-VBELN. "参考订单号
LS_SALES_ORDER_ITEMS-REF_ITEM = '000010'. "行项目号 单个航项目
"可以使用默认
LS_SALES_ORDER_ITEMS-DLV_QTY = 1 . "数量
LS_SALES_ORDER_ITEMS-SALES_UNIT = 'EA'. "单位
APPEND LS_SALES_ORDER_ITEMS TO LT_SALES_ORDER_ITEMS.
LS_SERIAL_NUMBERS-REF_DOC = LS_VBAK-VBELN.
LS_SERIAL_NUMBERS-REF_ITEM = 10.
LS_SERIAL_NUMBERS-SERIALNO = P_SERNR.
CALL FUNCTION 'CONVERSION_EXIT_GERNR_INPUT'EXPORTINGINPUT = LS_SERIAL_NUMBERS-SERIALNOIMPORTINGOUTPUT = LS_SERIAL_NUMBERS-SERIALNO.
APPEND LS_SERIAL_NUMBERS TO LT_SERIAL_NUMBERS.
LV_SHIP_POINT = P_VSTEL.
CLEAR LV_DELIVERY.
LV_DUE_DATE = SY-DATUM + 365.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'EXPORTINGSHIP_POINT = LV_SHIP_POINTDUE_DATE = LV_DUE_DATEIMPORTINGDELIVERY = LV_DELIVERYNUM_DELIVERIES = LV_NUM_DELIVERIESTABLESSALES_ORDER_ITEMS = LT_SALES_ORDER_ITEMSSERIAL_NUMBERS = LT_SERIAL_NUMBERSRETURN = LT_RETURN.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'EXPORTINGWAIT = 'X'.
WRITE LV_DELIVERY.
