07-23-2007 7:39 AM
Hi to all,
I have a big problem. I have to do a copy of VL02N but with less features than the original to work on a mobile device. Do you know if there is a BAPI to use for adding, deleting, changing and saving the serial numbers?
Serial numbers are: select a row, go to "Extras" -> "Serial Numbers" and you will have serials for the choosen material.
Please help me!!
Thank you very much,
Anronio
07-23-2007 7:48 AM
Hi
Use
SORT lt_serials BY rfpos.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
vbkok_wa = lwa_vbkok
delivery = i_vbeln
commit = 'X'
it_sernr_update = lt_serials
IMPORTING
ef_error_sernr_update = l_sernr_update
EXCEPTIONS
OTHERS = 99.
<b>OR</b>
FORM serial_no_update TABLES p_it_returns STRUCTURE ztpi_dlvreturn.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
header_data = it_header_data (delivery number alone is sufficient)
header_control = it_header_control (delivery number alone is sufficient)
delivery = v_delivery (delivery number alone is sufficient)
TECHN_CONTROL =
TABLES
HEADER_PARTNER =
HEADER_PARTNER_ADDR =
HEADER_DEADLINES =
ITEM_DATA =
ITEM_CONTROL =
item_serial_no = it_item_serial_no
SUPPLIER_CONS_DATA =
EXTENSION1 =
EXTENSION2 =
return = it_return
TOKENREFERENCE =
.
READ TABLE it_return WITH KEY type = 'E'.
IF sy-subrc NE 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
endif.
Regards
Raj
07-23-2007 7:48 AM
Hi
Use
SORT lt_serials BY rfpos.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
vbkok_wa = lwa_vbkok
delivery = i_vbeln
commit = 'X'
it_sernr_update = lt_serials
IMPORTING
ef_error_sernr_update = l_sernr_update
EXCEPTIONS
OTHERS = 99.
<b>OR</b>
FORM serial_no_update TABLES p_it_returns STRUCTURE ztpi_dlvreturn.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CHANGE'
EXPORTING
header_data = it_header_data (delivery number alone is sufficient)
header_control = it_header_control (delivery number alone is sufficient)
delivery = v_delivery (delivery number alone is sufficient)
TECHN_CONTROL =
TABLES
HEADER_PARTNER =
HEADER_PARTNER_ADDR =
HEADER_DEADLINES =
ITEM_DATA =
ITEM_CONTROL =
item_serial_no = it_item_serial_no
SUPPLIER_CONS_DATA =
EXTENSION1 =
EXTENSION2 =
return = it_return
TOKENREFERENCE =
.
READ TABLE it_return WITH KEY type = 'E'.
IF sy-subrc NE 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
endif.
Regards
Raj
07-23-2007 10:19 AM