matinal：SAP ABAP CO02生产工单重读主数据BAPI

最新推荐文章于 2024-03-07 15:31:00 发布

SAPmatinal

最新推荐文章于 2024-03-07 15:31:00 发布

阅读量600

点赞数 1

分类专栏： ABAP技术文章标签：服务器 linux 运维数据库算法前端

本文链接：https://blog.csdn.net/SAPmatinal/article/details/133314492

版权

ABAP技术专栏收录该内容

1022 篇文章 124 订阅

订阅专栏

DATA:ls_orderdata TYPE bapi_pp_order_change,
　　   ls_orderdatax TYPE bapi_pp_order_changex,
　　   ls_return TYPE bapiret2,
　　   ls_read TYPE bapiflag-bapiflag.

LOOP AT gt_data ASSIGNING FIELD-SYMBOL(<fs_add>) WHERE checkbox = 'X' .

　　CLEAR ls_orderdata .
　　CLEAR ls_orderdatax .
　　CLEAR ls_return .
　　CLEAR ls_read .

　　"afpo~verid
　　ls_orderdata-prod_version = <fs_add>-verid1 . "生产版本
　　ls_orderdata-explosion_date = sy-datum .
　　ls_orderdata-explode_new = 'X' .

　　ls_orderdatax-prod_version = 'X' .
　　ls_orderdatax-explosion_date = 'X' .
　　ls_orderdatax-routing = 'X' .

　　CALL FUNCTION 'BAPI_PRODORD_CHANGE'
　　　　EXPORTING
　　　　　　"aufk~aufnr
　　　　　　number = <fs_add>-aufnr "生产订单号
　　　　　　orderdata = ls_orderdata
　　　　　　orderdatax = ls_orderdatax
　　　　IMPORTING
　　　　　　return = ls_return
* 　　　　　 ORDER_TYPE =
* 　　　　　 ORDER_STATUS =
　　　　　　"重读主数据成功就会返回X，否则为空
　　　　　　master_data_read = ls_read
* 　　　 TABLES
* 　　　　　 FSH_BUNDLES =
　　　　.
　　IF ls_return-type = 'E' AND ls_read = '' .

　　　　<fs_add>-type = icon_red_light .
　　　　<fs_add>-message = '读取主数据失败，请检查订单状态及投料报工入库记录。' && ls_return-message .
　　　　CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

　　ELSE .

　　　　<fs_add>-verid = <fs_add>-verid1 .
　　　　<fs_add>-type = icon_green_light .
　　　　<fs_add>-message = '读取主数据成功' .
　　　　CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
　　　　　　EXPORTING
　　　　　　　　wait = 'X'.

　　ENDIF .

ENDLOOP .