修改交货单中的序列号

  *&---------------------------------------------------------------------*
*& Report  ZTEST_DN_UPDATE_SERIAL_NO
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_DN_UPDATE_SERIAL_NO.
DATA: dn_header_data      LIKE bapiobdlvhdrchg,
      dn_header_control   LIKE bapiobdlvhdrctrlchg,
      dn_delivery         LIKE likp-vbeln,
      dn_return           LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
      dn_item_data        LIKE TABLE OF bapiobdlvitemchg WITH HEADER LINE,
      dn_item_control     LIKE bapiobdlvitemctrlchg OCCURS 0 WITH HEADER LINE,
      dn_item_serial_no   LIKE TABLE OF bapidlvitmserno WITH HEADER LINE,
      dn_techn_control    LIKE BAPIDLVCONTROL."add by changgf 20110219
DATA: g_transaction_id LIKE arfctid,
      g_status_of_transaction(15).

START-OF-SELECTION.

*  CALL FUNCTION 'TRANSACTION_BEGIN'
*    IMPORTING
*      transaction_id = g_transaction_id.

  dn_header_data-deliv_numb = '0500029959'.
  dn_header_control-deliv_numb = '0500029959'.

  dn_item_serial_no-deliv_numb = '0500029959'.
  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM10'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM11'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM12'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM13'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM14'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM15'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM17'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM18'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-SAFHOAGH15B'.
  append dn_item_serial_no.

  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-MJM16'.
  append dn_item_serial_no.



  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
    EXPORTING
      header_data    = dn_header_data
      header_control = dn_header_control
      delivery       = dn_delivery
    TABLES
      return         = dn_return
      item_serial_no = dn_item_serial_no.
  READ TABLE dn_return WITH KEY type = 'E'.
  IF sy-subrc <> 0.
*    CALL FUNCTION 'TRANSACTION_STATUS'
*      IMPORTING
*        status = g_status_of_transaction.

    IF g_status_of_transaction = 'COMMIT_WORK'.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ENDIF.

*    CALL FUNCTION 'TRANSACTION_END'
*      EXPORTING
*        transaction_id = g_transaction_id
*      EXCEPTIONS
*        OTHERS         = 1.

  ENDIF.

  REFRESH dn_return.

  DELETE dn_item_serial_no WHERE serialno = 'ZSD-MJM10'.
  dn_item_serial_no-itm_number = '000010'.
  dn_item_serial_no-serialno = 'ZSD-SAFHOAGH16'.
  append dn_item_serial_no.

CALL FUNCTION 'SERIAL_INTTAB_REFRESH'
      EXPORTING
        objects_status_refresh = 'E'.

  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
    EXPORTING
      header_data    = dn_header_data
      header_control = dn_header_control
      delivery       = dn_delivery
    TABLES
      return         = dn_return
      item_serial_no = dn_item_serial_no.
  READ TABLE dn_return WITH KEY type = 'E'.
  IF sy-subrc <> 0.
*    CALL FUNCTION 'TRANSACTION_STATUS'
*      IMPORTING
*        status = g_status_of_transaction.

    IF g_status_of_transaction = 'COMMIT_WORK'.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ENDIF.

*    CALL FUNCTION 'TRANSACTION_END'
*      EXPORTING
*        transaction_id = g_transaction_id
*      EXCEPTIONS
*        OTHERS         = 1.

  ENDIF.




END-OF-SELECTION.

 

 

上面的测试程序主要是为了解决RF扫描序列号到交货单中时，如果中途发现扫描错误，再次扫描更正数据后执行BAPI时会报错，报序列号被其它的ITEM占用。后来是以下的函数解决了问题。

 

CALL FUNCTION 'SERIAL_INTTAB_REFRESH'
      EXPORTING
        objects_status_refresh = 'E'.

 

 

 GOOGLE 搜索：WS_DELIVERY_UPDATE_2 SERIAL

 

https://forums.sdn.sap.com/thread.jspa?threadID=1397725

 

To update serial nos to delivery in RF use the following FM L_SER_WS_DELIVERY_UPDATE.

Use as follows:-

    CALL FUNCTION 'SERIAL_INTTAB_REFRESH'
      EXPORTING
        objects_status_refresh = 'E'.
 
    CALL FUNCTION 'L_SER_WS_DELIVERY_UPDATE'
      EXPORTING
        vbkok_wa                 = y_wa_vbkok
        synchron                 = 'X'
        commit                   = ' '
        delivery                 = y_p_vbel
        nicht_sperren            = 'X'
        if_get_delivery_buffered = ' '
        if_error_messages_send_0 = 'X'
        it_sernr_update          = y_li_sernr
      EXCEPTIONS
        error_message            = 1
        OTHERS                   = 2.
 
    CASE sy-subrc.
      WHEN 0.
        COMMIT WORK.
      WHEN OTHERS.
 
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

 

Internally it is just making a call to 'WS_DELIVERY_UPDATE_2'
So try using the FM WS_DELIVERY_UPDATE_2

 

https://forums.sme.sap.com/message.jspa?messageID=8847913

BAPI_OUTB_DELIVERY_CHANGE / WS_DELIVERY_UPDATE

BAPI_OUTB_DELIVERY_CHANGE & L_SER_WS_DELIVERY_UPDATE

这两个FUNCTION，一个会做序列号的检查，后面一个不会做检查，直接保存进去

 

CALL FUNCTION 'WS_DELIVERY_UPDATE'
                EXPORTING
                 vbkok_wa                           = w_vbkok_wa
*                COMMIT                             = 'X'
                 delivery                           = v_delivery
                 if_database_update                 = '1'
                 if_error_messages_send_0           = 'X'
                 it_sernr_update                    = t_sernr_update

 

 

 http://sap.ittoolbox.com/groups/technical-functional/sap-dev/serial-number-in-handling-unit-308912

I am trying to add serial numbers to items in a handling unit in an outbound delivery (Sales Order) calling 1. SERIAL_INTTAB_REFRESH, 2. SERNR_ADD_TO_HU and 3. SERIAL_LISTE_POST_HU. I don't get errors but the serial number does not get added to the HU.

 

http://forums.sdn.sap.com/thread.jspa?threadID=576174

https://forums.sme.sap.com/thread.jspa?threadID=1779645&tstart=0

 

WS_DELIVERY_UPDATE_2