如果使用BDC的话,可能会遇到弹出消息,
重新 Read PP Master Data的代码如下:
PARAMETERS:p_aufnr TYPE aufk-aufnr DEFAULT '100000075'.
START-OF-SELECTION.
DATA:lv_number TYPE bapi_order_key-order_number,
ls_orderdata TYPE bapi_pp_order_change,
ls_orderdatax TYPE bapi_pp_order_changex.
DATA:ls_return TYPE bapiret2,
lv_order_type TYPE bapi_order_copy-order_type,
ls_order_status TYPE bapi_order_status,
lv_master_data_read TYPE bapiflag-bapiflag.
lv_number = p_aufnr.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = lv_number
IMPORTING
output = lv_number.
SELECT SINGLE gstrp
INTO @DATA(lv_gstrp)
FROM afko
WHERE aufnr = @lv_number.
ls_orderdata-explosion_date = lv_gstrp.
ls_orderdata-explode_new = 'X'.
ls_orderdatax-explosion_date = 'X'.
CALL FUNCTION 'BAPI_PRODORD_CHANGE'
EXPORTING
number = lv_number
orderdata = ls_orderdata
orderdatax = ls_orderdatax
IMPORTING
return = ls_return
order_type = lv_order_type
order_status = ls_order_status
master_data_read = lv_master_data_read.
IF ls_return-type = 'E'
OR ls_return-type = 'A'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
WRITE:/ ls_return-message.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
WRITE:/ 'Sucess'.
ENDIF.