内向交貨單建立函數（BBP_INB_DELIVERY_CREATE、BAPI_DELIVERYPROCESSING_EXEC） VL31N

1 ， BBP_INB_DELIVERY_CREATE

  ls_head-deliv_date = sy-datum.

  ls_head-ship_point = '2000'.

  ls_item-deliv_item = '000010'.

  ls_item-material = 'B01-089791-B1'.

  ls_item-deliv_qty = '1.000'.

  ls_item-unit = 'PCS'.

  ls_item-po_number = '2015031250'.

  ls_item-po_item = '00010'.

  APPEND ls_item TO lt_item.

  CLEAR ls_item.

  CALL FUNCTION 'BBP_INB_DELIVERY_CREATE'

    EXPORTING

      is_inb_delivery_header = ls_head

    IMPORTING

      ef_delivery            = lv_dn

    TABLES

      it_inb_delivery_detail = lt_item

      return                 = lt_ret.

2 ， BAPI_DELIVERYPROCESSING_EXEC

  ls_req-id = '1'.

  ls_req-document_numb = '2015031250'.

  ls_req-document_item = '00010'.

  ls_req-extdelv_no = ''.  "LIFEX

  ls_req-plant = '2000'.

  ls_req-stge_loc = 'A097'.

  ls_req-quantity_base__uom = '1'.

  ls_req-delivery_date = sy-datum.

  ls_req-delivery_time = sy-uzeit.

  ls_req-document_type = 'B'.  " B - PO  , L - DN , A - SALES ORDER

  APPEND ls_req TO lt_req.

  CLEAR ls_req.

  CALL FUNCTION 'BAPI_DELIVERYPROCESSING_EXEC'

    TABLES

      request      = lt_req

      createditems = lt_result           "ID - DN

      return       = lt_return.