1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
DATA:
tab_g_so TYPE STANDARD TABLE OF bapidlvreftosalesorder WITH HEADER LINE,
tab_g_return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
g_delivery LIKE bapishpdelivnumb-deliv_numb,
lv_vstel LIKE bapidlvcreateheader-ship_point,
lv_datbi LIKE bapidlvcreateheader-due_date.
lv_vstel = 'AA01'.
lv_datbi = '20241120'.
SELECT vbeln AS ref_doc
posnr AS ref_item
zieme AS sales_unit
kwmeng AS dlv_qty
INTO CORRESPONDING FIELDS OF TABLE tab_g_so
FROM vbap
WHERE vbeln = '0001791471'
ORDER BY PRIMARY KEY.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'"#EC CI_USAGE_OK[2438131]
EXPORTING
ship_point = lv_vstel
due_date = lv_datbi
IMPORTING
delivery = g_delivery
TABLES
sales_order_items = tab_g_so
return = tab_g_return.
IF g_delivery <> ''.
"创建成功,message在tab_g_return里面
ENDIF.
|