VL01N创建外向交货单的bapi(BAPI_OUTB_DELIVERY_CREATE_SLS)

  REPORT  z0908.
  TABLES:vbfa.
  "-------BAPI_OUTB_DELIVERY_CREATE_SLS 创建外向交货单
  DATA:v_msg(255) TYPE c,
       errmsg(255) TYPE c,
       vbeln LIKE vbfa-vbeln.
  DATA: delivery          TYPE bapishpdelivnumb-deliv_numb,
        num_deliveries    TYPE bapidlvcreateheader-num_deliveries,
        sales_order_items LIKE bapidlvreftosalesorder OCCURS 0 WITH HEADER LINE,
        return            LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
*SELECTION-SCREEN
  DATA: l_vbak TYPE vbak,
        lt_vbap TYPE TABLE OF vbap WITH HEADER LINE.
  SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE text-001.
  PARAMETERS:  l_vbeln  LIKE vbak-vbeln.
  SELECTION-SCREEN END OF BLOCK bk1.
*START-OF-SELECTION
  START-OF-SELECTION.
    IF l_vbeln IS NOT INITIAL."输入销售单号
      SELECT SINGLE * INTO l_vbak  FROM vbak WHERE vbeln = l_vbeln.
      SELECT  * INTO CORRESPONDING FIEL