SD的增强

根据采购订单创建交货单

BAPI_OUTB_DELIVERY_CREATE_SLS

模拟VL01N, 示例:

 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.
Licensed under CC BY-NC-SA 4.0
comments powered by Disqus