VL01N销售订单拣配bapi

   data:wa_items type bapidlvreftosalesorder,
       begin of temp_item occurs 0,
         item(2000),
       end   of temp_item,
       begin of it_item occurs 0,
         sequence,
         item(6) type n,
       end   of it_item,
       wa_item like line of it_item,
       begin of item_list occurs 0,
         item(6) type n,
       end   of item_list,
       l_it_orderitem type standard table of bapidlvreftosalesorder with header line.

  data:lx_vbkok type vbkok,
       it_prott like table of prott with header line,
       it_vbpok like table of vbpok with header line.
*& 因过账时,有行项目的限制,需要对过账项目进行拆分,拣配的次数之间用'-'分割
*& 项目内用','
  refresh:temp_item.
  split item_divison at '-' into table temp_item.

  loop at temp_item.
    clear:it_item.
    it_item-sequence = sy-tabix.
    refresh:item_list.
    shift temp_item-item left deleting leading ''.
    split temp_item-item at ',' into table item_list.
    loop at item_list.
      it_item-item = item_list-item.
      collect it_item.
    endloop.

  endloop.
  sort it_item by sequence item.
  sort sales_order_items by ref_doc ref_item.
*& 按拆分的项目,进行创建交货单
  loop at it_item.

    wa_item = it_item.
    at end of sequence.
      refresh:l_it_orderitem .
      loop at sales_order_items where ref_item <= wa_item-item.
        l_it_orderitem = sales_order_items.
        append l_it_orderitem.
        clear:l_it_orderitem.
        delete sales_order_items.
      endloop.

      call function 'BAPI_OUTB_DELIVERY_CREATE_SLS'
        exporting
          ship_point        = ship_point
          due_date          = due_date
          debug_flg         = debug_flg
        importing
          delivery          = delivery
          num_deliveries    = num_deliveries
        tables
          sales_order_items = l_it_orderitem
          serial_numbers    = serial_numbers
          extension_in      = extension_in
          deliveries        = deliveries
          created_items     = created_items
          extension_out     = extension_out
          return            = return.

      read table return with key type = 'E'.

      if sy-subrc ne 0.

        call function 'BAPI_TRANSACTION_COMMIT'
          exporting
            wait = 'X'.

        refresh:it_vbpok.
        clear:it_vbpok,lx_vbkok.
        loop at  l_it_orderitem.

          if sy-tabix = 1.
            lx_vbkok-vbeln_vl = delivery.
            lx_vbkok-vbtyp_vl = 'J' .
            lx_vbkok-vbeln = l_it_orderitem-ref_doc.
            lx_vbkok-wabuc = 'X'.
          endif.

          it_vbpok-vbeln_vl = delivery.
          read table created_items index sy-tabix.
          it_vbpok-posnr_vl = created_items-deliv_item.
          it_vbpok-vbeln = l_it_orderitem-ref_doc.
          it_vbpok-posnn = l_it_orderitem-ref_item.
*it_vbpok-matnr = fp_afpo-matnr.
*it_vbpok-charg = fp_afpo-charg.
*it_vbpok-werks = fp_afpo-dwerk.
          it_vbpok-taqui = 'X'.
*& 拣配数量
          it_vbpok-pikmg = l_it_orderitem-dlv_qty.
          append it_vbpok.

        endloop.
*&更改拣配数量,当不自动过帐时,需要更改参数如下,并且需要再提交一次
        call function 'WS_DELIVERY_UPDATE'
          exporting
            vbkok_wa                 = lx_vbkok
*&            synchron                 = 'X'
            commit                   = 'X'
            delivery                 = delivery
            update_picking           = 'X'

*&            nicht_sperren            = 'X'
*&            if_database_update       = 'X'
*&            if_error_messages_send_0 = 'X'
          tables
            vbpok_tab                = it_vbpok
            prot                     = it_prott.
           

         read table it_prott with key msgty = 'E'.
        if sy-subrc <> 0.
          call function 'BAPI_TRANSACTION_COMMIT'
*            EXPORTING
*              WAIT          =
*            IMPORTING
*              RETURN        =
                    .

        endif.

 

            

      else.
        call function 'BAPI_TRANSACTION_ROLLBACK'.

      endif.
    endat.
  endloop.