傳入採購訂單項目建交貨單

 

*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     REFERENCE(O_RETURN) TYPE  ZMMS0021
*"  TABLES
*"      IT_ITEM STRUCTURE  ZMMS0106
*"----------------------------------------------------------------------
  DATA:lt_stock_items TYPE TABLE OF bapidlvreftosto.
  DATA:ls_stock_items TYPE bapidlvreftosto.
  DATA:lt_created_items TYPE TABLE OF bapidlvitemcreated.
  DATA:ls_created_items TYPE bapidlvitemcreated.
  DATA:lv_delivery TYPE bapishpdelivnumb-deliv_numb.
  DATA:lv_vstel TYPE vstel.
  DATA:lv_ledat TYPE ledat.
  DATA:lt_return TYPE TABLE OF bapiret2.


  LOOP AT it_item INTO DATA(ls_item).
    ls_stock_items-ref_doc = ls_item-ebeln."參考憑證
    ls_stock_items-ref_item = ls_item-ebelp."參考項
*    ls_stock_items-dlv_qty = ls_item-menge."數量
    APPEND ls_stock_items TO lt_stock_items.

    ls_created_items-ref_doc = ls_item-ebeln."參考憑證
    ls_created_items-ref_item = ls_item-ebelp."參考項
    ls_created_items-material = ls_item-matnr."物料編號
    ls_created_items-material_long = ls_item-matnr."物料編號
*    ls_created_items-dlv_qty = ls_item-menge."數量
    APPEND ls_created_items TO lt_created_items.
  ENDLOOP.

  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_STO'
    EXPORTING
      ship_point        = lv_vstel
      due_date          = lv_ledat
    IMPORTING
      delivery          = lv_delivery
    TABLES
      stock_trans_items = lt_stock_items
      created_items     = lt_created_items
      return            = lt_return.

  FREE MEMORY ID 'ZPOS_LGORT_FLAG'.

  DELETE lt_return WHERE type = 'E' AND id = 'BAPI' AND number = '001'.

  LOOP AT lt_return INTO DATA(ls_return) WHERE type = 'E'.
    CONCATENATE o_return-message ls_return-message INTO o_return-message SEPARATED BY '/'.
  ENDLOOP.

  IF sy-subrc = 0.

    "建立失敗
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

    o_return-type = 'E'.
    CONCATENATE '交貨單建立失敗：' o_return-message INTO o_return-message.

  ELSE.
    "建立成功
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = 'X'.

    o_return-zdjh = lv_delivery."交貨單
    o_return-type = 'S'.
    o_return-message = '交貨單建立成功'.

  ENDIF.