|
rosefish 发表于 2013-11-26 19:34 ![]()
order_item_in =
order_item_inx =
LOOP AT GT_DATA INTO LW_DATA WHERE CHECKBOX IS NOT INITIAL.
CLEAR: order_item_in,order_item_inx,return1,order_header_inx.
* order_header_in-PRICE_DATE = LW_DATA-PRSDT.
*
* order_header_inx-PRICE_DATE = 'X'.
order_header_inx-updateflag = 'U'.
order_item_in-itm_number = lw_data-posnr.
order_item_in-price_date = lw_data-prsdt.
APPEND order_item_in.
order_item_inx-itm_number = lw_data-posnr.
order_item_in-price_date = 'X'.
order_item_inx-updateflag = 'U'.
APPEND order_item_inx.
* *
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = LW_DATA-VBELN
* order_header_in = order_header_in
order_header_inx = order_header_inx
TABLES
return = return1
order_item_in = order_item_in
order_item_inX = order_item_inx.
IF return1-type = 'X' OR
return1-type = 'A' OR
return1-type = 'E'.
LW_DATA-LOG_P = RETURN1-MESSAGE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
else.
LW_DATA-LOG_P = RETURN1-MESSAGE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
ENDIF.
MODIFY GT_DATA FROM LW_DATA.
CLEAR LW_DATA.
ENDLOOP.
我是这样做的,return1已经返回了成功的消息,可是数据库的数据总是不更新,不知道为什么,请指点,谢谢! |
|