修改交货单（修改时增加批次、批次拆分、序列号）并实现拣配，不进行过账操作（SD_DELIVERY_UPDATE_PICKING、BAPI_OUTB_DELIVERY_CHANGE）

FUNCTION zif_sd_002.
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(CODE) TYPE  CHAR1
*"     VALUE(MESSAGE) TYPE  CHAR200
*"  TABLES
*"      PICK STRUCTURE  ZSD_DN_PICK OPTIONAL
*"      PSN STRUCTURE  ZSD_P_SN OPTIONAL
*"      TRETURN STRUCTURE  ZSD_RET OPTIONAL
*"  EXCEPTIONS
*"      SYSTEM_FAILURE
*"      COMMUNICATION_FAILURE
*"----------------------------------------------------------------------


  DATA:header_data LIKE bapiobdlvhdrchg. "Delivery header
  DATA:header_control LIKE bapiobdlvhdrctrlchg. "delivery header control
  DATA:i_delivery_no LIKE bapiobdlvhdrchg-deliv_numb. "deliver number
  DATA:techn_control LIKE bapidlvcontrol. "TECHN_CONTROL
  DATA:item_data LIKE bapiobdlvitemchg OCCURS 0 WITH HEADER LINE. "ITEM_DATA delivery item
  DATA:item_control LIKE bapiobdlvitemctrlchg OCCURS 0 WITH HEADER LINE. "ITEM_CONTROL
  DATA:item_serial_no LIKE bapidlvitmserno OCCURS 0 WITH HEADER LINE.
  DATA:return LIKE bapiret2 OCCURS 0 WITH HEADER LINE. "Return
  DATA:wa_pick TYPE zsd_dn_pick.
  DATA:deliv_item LIKE bapiobdlvitemchg-deliv_item.
  DATA:lt_psn TYPE TABLE OF zsd_p_sn WITH HEADER LINE.
  DATA:l_count TYPE i.
  DATA:l_charg LIKE mseg-charg.

  DATA : i_vbkok   LIKE vbkok, "Delivery header
         i_vbpok   LIKE vbpok OCCURS 0 WITH HEADER LINE, "Delivery Picking
         vbkok_wa  TYPE vbkok,
         vbpok_tab TYPE vbpok OCCURS 0 WITH HEADER LINE,
         lt_prott  TYPE TABLE OF prott,
         lt_prott1 TYPE TABLE OF prott,
         ls_prott  TYPE prott.

  DATA:l_flag(1).


  DATA:ls_delivery_return TYPE bapiret2 .
  DATA:str TYPE string.
  DATA:i_message TYPE string.

  SORT pick BY vbeln posnr.

  lt_psn[] = psn[].

*Set Delivery Header data
  LOOP AT pick.
    MOVE-CORRESPONDING pick TO wa_pick.
    AT NEW vbeln.
      CLEAR i_delivery_no.
      CLEAR header_data.
      CLEAR techn_control.
      CLEAR header_control.

      REFRESH item_data.
      CLEAR item_data.

      REFRESH item_control.
      CLEAR item_control.

      REFRESH item_serial_no.
      CLEAR item_serial_no.

      REFRESH i_vbpok.
      CLEAR i_vbpok.

      REFRESH vbpok_tab.
      CLEAR vbpok_tab.

      CLEAR deliv_item.

      CLEAR l_flag.

      deliv_item = '900000'.

      i_delivery_no             = wa_pick-vbeln."'0080249529'.
      header_data-deliv_numb    = i_delivery_no.
      techn_control-upd_ind     = 'U'.
      header_control-deliv_numb = i_delivery_no.


      CLEAR i_vbkok.
      i_vbkok-vbeln_vl = i_delivery_no.
      i_vbkok-wabuc = 'X'. "Post Good Issue Automatic
      i_vbkok-wadat_ist = sy-datum.

      CLEAR vbkok_wa.
      vbkok_wa-vbeln_vl = i_delivery_no.

      CLEAR l_charg.
      CLEAR l_count.
      LOOP AT lt_psn WHERE vbeln = wa_pick-vbeln AND posnr = wa_pick-posnr.
        l_count = l_count + 1.
        l_charg = lt_psn-charg.
      ENDLOOP.

      IF l_count > 1 AND l_charg <> ''.
        l_flag = '1'.
      ELSEIF  l_count <= 1 AND l_charg <> ''.
        l_flag = '2'.
      ELSEIF  l_count >= 1 AND l_charg = ''.
        l_flag = '3'.
      ENDIF.
    ENDAT.

    "处理需要批次拆分的行项目
    IF l_flag = '1'.
      LOOP AT lt_psn WHERE vbeln = wa_pick-vbeln AND posnr = wa_pick-posnr.
        deliv_item = deliv_item + 1.
        item_data-deliv_numb = i_delivery_no.
        item_data-deliv_item = deliv_item.                  "'900001'.
        item_data-hieraritem = wa_pick-posnr."'40'.            "The batch split record below delivery item hierary
        item_data-usehieritm = '1'.
        item_data-material   = wa_pick-matnr."'W065B0X030601002'.
        item_data-batch      = lt_psn-charg."'BCFA2907'.
        item_data-dlv_qty    = lt_psn-lfimg.
        item_data-fact_unit_nom   = 1.
        item_data-fact_unit_denom = 1.
        APPEND item_data.
        CLEAR item_data.

        CLEAR item_control.
        READ TABLE item_control WITH KEY deliv_numb = i_delivery_no deliv_item = wa_pick-posnr.
        IF sy-subrc <> 0.
          item_control-deliv_numb = i_delivery_no.
          item_control-deliv_item = wa_pick-posnr."'40'.
          item_control-chg_delqty = 'X'.
          APPEND item_control.
          CLEAR item_control.
        ENDIF.

        item_control-deliv_numb = i_delivery_no.
        item_control-deliv_item = deliv_item.               "'900001'.
        item_control-chg_delqty = 'X'.
        APPEND item_control.
        CLEAR item_control.


        CLEAR i_vbpok.
        i_vbpok-vbeln_vl = i_delivery_no. "Delivery NO
        i_vbpok-posnr_vl = deliv_item. "Delivery Item
        i_vbpok-vbeln    = i_delivery_no. "Delivery NO
        i_vbpok-posnn    = deliv_item. "Delivery Item
        i_vbpok-matnr    = wa_pick-matnr.
        i_vbpok-charg    = lt_psn-charg.
        i_vbpok-lfimg    = lt_psn-lfimg. "Actual quantity delivered (in sales units)
        APPEND i_vbpok.

        CLEAR: vbpok_tab.
        vbpok_tab-vbeln_vl = i_delivery_no.
        vbpok_tab-posnr_vl = deliv_item.
        vbpok_tab-vbeln    = i_delivery_no.
        vbpok_tab-posnn    = deliv_item.
        vbpok_tab-charg    = lt_psn-charg."批次
        vbpok_tab-matnr    = wa_pick-matnr."物料
        vbpok_tab-pikmg    = lt_psn-lfimg."实际已交货量（按销售单位）
        vbpok_tab-meins    = wa_pick-vrkme."基本计量单位

        APPEND vbpok_tab.
      ENDLOOP.
    ELSEIF l_flag = '2'.

      LOOP AT lt_psn WHERE vbeln = wa_pick-vbeln AND posnr = wa_pick-posnr.
        item_data-deliv_numb = i_delivery_no.
        item_data-deliv_item = wa_pick-posnr.               "'900001'.
        item_data-material   = wa_pick-matnr."'W065B0X030601002'.
        item_data-batch      = lt_psn-charg."'BCFA2907'.
        item_data-dlv_qty    = lt_psn-lfimg.
        item_data-fact_unit_nom   = 1.
        item_data-fact_unit_denom = 1.
        APPEND item_data.
        CLEAR item_data.

        item_control-deliv_numb = i_delivery_no.
        item_control-deliv_item = wa_pick-posnr."'40'.
        item_control-chg_delqty = 'X'.
        APPEND item_control.
        CLEAR item_control.

        CLEAR i_vbpok.
        i_vbpok-vbeln_vl = i_delivery_no. "Delivery NO
        i_vbpok-posnr_vl = wa_pick-posnr. "Delivery Item
        i_vbpok-vbeln    = i_delivery_no. "Delivery NO
        i_vbpok-posnn    = wa_pick-posnr. "Delivery Item
        i_vbpok-matnr    = wa_pick-matnr.
        i_vbpok-charg    = lt_psn-charg.
        i_vbpok-lfimg    = lt_psn-lfimg. "Actual quantity delivered (in sales units)
        APPEND i_vbpok.

        CLEAR: vbpok_tab.
        vbpok_tab-vbeln_vl = i_delivery_no.
        vbpok_tab-posnr_vl = wa_pick-posnr.
        vbpok_tab-vbeln    = i_delivery_no.
        vbpok_tab-posnn    = wa_pick-posnr.
        vbpok_tab-charg    = lt_psn-charg."批次
        vbpok_tab-matnr    = wa_pick-matnr."物料
        vbpok_tab-pikmg    = lt_psn-lfimg."实际已交货量（按销售单位）
        vbpok_tab-meins    = wa_pick-vrkme."基本计量单位

        APPEND vbpok_tab.

      ENDLOOP.
    ELSEIF l_flag = '3'.

      item_data-deliv_numb = i_delivery_no.
      item_data-deliv_item =  wa_pick-posnr.                "'900001'.
      item_data-material   = wa_pick-matnr."'W065B0X030601002'.
      item_data-dlv_qty    = wa_pick-lfimg.
      item_data-fact_unit_nom   = 1.
      item_data-fact_unit_denom = 1.
      APPEND item_data.
      CLEAR item_data.

      item_control-deliv_numb = i_delivery_no.
      item_control-deliv_item = wa_pick-posnr."'40'.
      item_control-chg_delqty = 'X'.
      APPEND item_control.
      CLEAR item_control.

      LOOP AT psn WHERE vbeln = wa_pick-vbeln AND posnr = wa_pick-posnr.
        item_serial_no-deliv_numb = i_delivery_no.
        item_serial_no-itm_number = wa_pick-posnr.
        item_serial_no-serialno   = psn-sernr.
        APPEND item_serial_no.
        CLEAR item_serial_no.
      ENDLOOP.

      CLEAR i_vbpok.
      i_vbpok-vbeln_vl = i_delivery_no. "Delivery NO
      i_vbpok-posnr_vl = wa_pick-posnr. "Delivery Item
      i_vbpok-vbeln    = i_delivery_no. "Delivery NO
      i_vbpok-posnn    = wa_pick-posnr. "Delivery Item
      i_vbpok-matnr    = wa_pick-matnr.
      i_vbpok-charg    = ''.
      i_vbpok-lfimg    = wa_pick-lfimg. "Actual quantity delivered (in sales units)
      APPEND i_vbpok.

      CLEAR: vbpok_tab.
      vbpok_tab-vbeln_vl = i_delivery_no.
      vbpok_tab-posnr_vl = wa_pick-posnr.
      vbpok_tab-vbeln    = i_delivery_no.
      vbpok_tab-posnn    = wa_pick-posnr.
      vbpok_tab-charg    = ''."批次
      vbpok_tab-matnr    = wa_pick-matnr."物料
      vbpok_tab-pikmg    = wa_pick-lfimg."实际已交货量（按销售单位）
      vbpok_tab-meins    = wa_pick-vrkme."基本计量单位

      APPEND vbpok_tab.

    ENDIF.

    AT END OF vbeln.
      CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
        EXPORTING
          header_data    = header_data
          header_control = header_control
          delivery       = i_delivery_no
          techn_control  = techn_control
        TABLES
          item_data      = item_data
          item_control   = item_control
          item_serial_no = item_serial_no
          return         = return.
      CLEAR return.
      READ TABLE return WITH KEY type = 'E'.
      IF sy-subrc NE 0.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            wait = 'X'.

        "修改拣配数量
        CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING'
          EXPORTING
            vbkok_wa  = vbkok_wa
            synchron  = 'X'
          TABLES
            vbpok_tab = vbpok_tab
            prot      = lt_prott1.

        READ TABLE lt_prott1 INTO ls_prott WITH KEY msgty = 'E'.
        IF sy-subrc EQ 0.
          LOOP AT lt_prott1  INTO ls_prott  WHERE msgty CA  'AE' .
            CALL FUNCTION 'MESSAGE_TEXT_BUILD'
              EXPORTING
                msgid               = ls_prott-msgid
                msgnr               = ls_prott-msgno
                msgv1               = ls_prott-msgv1
                msgv2               = ls_prott-msgv2
                msgv3               = ls_prott-msgv3
                msgv4               = ls_prott-msgv4
              IMPORTING
                message_text_output = str.

            IF i_message IS INITIAL .
              MOVE str TO i_message .
            ELSE .
              CONCATENATE i_message '/' str INTO i_message .
            ENDIF .
          ENDLOOP .

          treturn-vbeln = i_delivery_no.
          treturn-zflag = 'E'.
          treturn-zmessage = '交货单修改批次成功，拣配失败！'.
        ELSE.
          treturn-vbeln = i_delivery_no.
          treturn-zflag = 'S'.
          treturn-zmessage = '交货单拣配成功！'.
        ENDIF.
      ELSE.
        CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
        LOOP AT return  INTO ls_delivery_return  WHERE type CA  'AE' .

          CALL FUNCTION 'MESSAGE_TEXT_BUILD'
            EXPORTING
              msgid               = ls_delivery_return-id
              msgnr               = ls_delivery_return-number
              msgv1               = ls_delivery_return-message_v1
              msgv2               = ls_delivery_return-message_v2
              msgv3               = ls_delivery_return-message_v3
              msgv4               = ls_delivery_return-message_v4
            IMPORTING
              message_text_output = str.

          IF i_message IS INITIAL .
            MOVE str TO i_message .
          ELSE .
            CONCATENATE i_message '/' str INTO i_message .
          ENDIF .
        ENDLOOP .
        treturn-vbeln = i_delivery_no.
        treturn-zflag = 'E'.
        treturn-zmessage = i_message.
      ENDIF.
      APPEND treturn.
      CLEAR treturn.
    ENDAT.
  ENDLOOP.

ENDFUNCTION.