VL10B 采购订单转DN

传入采购订单项目建交货单

FUNCTION zmmfmXXXX.

*"----------------------------------------------------------------------

*"*"本地接口：

*"  EXPORTING

*"     REFERENCE(O_RETURN) TYPE  ZMMS0021

*"  TABLES

*"      IT_ITEM STRUCTURE  ZMMS0185

*"----------------------------------------------------------------------

  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."数量

    ls_stock_items-sales_unit = ls_item-meins."数量单位

    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."数量

    ls_created_items-sales_unit = ls_item-meins."数量单位

    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.

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

  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 = .

    "创建失败

    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.

ENDFUNCTION.