bapi BAPI_OUTB_DELIVERY_CHANGE 修改交货单中的序列号

*&---------------------------------------------------------------------*

*& 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:-

<code class="jive-code jive-java">    CALL FUNCTION <span style="color: rgb(0, 0, 128);">'SERIAL_INTTAB_REFRESH'</span>
EXPORTING
objects_status_refresh = <span style="color: rgb(0, 0, 128);">'E'</span>.
 
CALL FUNCTION <span style="color: rgb(0, 0, 128);">'L_SER_WS_DELIVERY_UPDATE'</span>
EXPORTING
vbkok_wa                 = y_wa_vbkok
synchron                 = <span style="color: rgb(0, 0, 128);">'X'</span>
commit                   = <span style="color: rgb(0, 0, 128);">' '</span>
delivery                 = y_p_vbel
nicht_sperren            = <span style="color: rgb(0, 0, 128);">'X'</span>
if_get_delivery_buffered = <span style="color: rgb(0, 0, 128);">' '</span>
if_error_messages_send_0 = <span style="color: rgb(0, 0, 128);">'X'</span>
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.
</code>

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