使用 BAPI_NETWORK_COMP_实现生产订单组件的增删改查
对于生产订单组件的增删改有多种办法，比较常用的有使用内部函数CO_XT_COMPONENT_*，有改造BAPI_ALM_ORDER_MAINTAIN来实现，各有千秋。
本文档介绍，通过PS模块的BAPI_NETWORK_COMP_*系列BAPI，来实现如组件先删后建的覆盖式操作，组件部分字段修改，组件信息查询等功能
## 2.1、组件列表查询
查询组件基本数据
"--------------------@斌将军--------------------DATA:lv_number TYPE bapi_network_list-network, ls_return TYPE bapiret2, lt_activity TYPE TABLE OF bapi_network_comp_act_rng, lt_components_list TYPE TABLE OF bapi_network_comp_list.
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETLIST' EXPORTING number = lv_number* MAX_ROWS = 0 IMPORTING return = ls_return TABLES i_activity_range = lt_activity e_components_list = lt_components_list."--------------------@斌将军--------------------## 2.2、组件列表详细信息查询
查询组件详细的数据
"--------------------@斌将军--------------------DATA:lv_number TYPE bapi_network_list-network, lt_detail TYPE TABLE OF bapi_network_comp_detail.
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_GETDETAIL' EXPORTING number = lv_number TABLES e_components_detail = lt_detail."--------------------@斌将军--------------------## 2.3、组件删除
移除组件
"--------------------@斌将军--------------------DATA:lv_number TYPE bapi_network_list-network, lt_remove TYPE TABLE OF bapi_network_comp_id, ls_remove TYPE bapi_network_comp_id, lt_message TYPE TABLE OF bapi_meth_message, ls_message TYPE bapi_meth_message.
DATA:lv_check TYPE char1, lv_message TYPE char255.
"此处使用查询BAPI得到的组件列表，赋值给移除内表LOOP AT lt_detail INTO ls_detail. CLEAR ls_remove. ls_remove-component = ls_detail-component. APPEND ls_remove TO lt_remove.ENDLOOP.
lv_number = '000001001211'."工单号
CALL FUNCTION 'BAPI_NETWORK_COMP_REMOVE' EXPORTING number = lv_number TABLES i_components_remove = lt_remove e_message_table = lt_message.
LOOP AT lt_message INTO ls_message WHERE message_type CA 'AEX'. lv_check = 'E'. lv_message = lv_message && ls_message-message_text.ENDLOOP.
IF lv_check = 'E'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = abap_true.ENDIF."--------------------@斌将军--------------------## 2.4、组件新增
新增组件，LCNIF_MATF27做移动类型增强
"--------------------@斌将军--------------------DATA:lv_number TYPE bapi_network_list-network, lt_components TYPE TABLE OF bapi_network_comp_add, ls_components TYPE bapi_network_comp_add, lt_message TYPE TABLE OF bapi_meth_message, ls_message TYPE bapi_meth_message.
DATA:lv_check TYPE char1, lv_message TYPE char255.
lv_number = '000001001211'."工单号
ls_components-item_number = '0030'."项目编号ls_components-activity = '0010'."必输 作业ls_components-material = '000000000003000135'."物料ls_components-plant = 'P010'."工厂ls_components-type_of_pur_resv = 'F'."beskz."必输 采购类型ls_components-entry_quantity = 1."数量ls_components-base_uom = 'KG'."单位ls_components-backflush = 'X'."反冲*ls_components-batch = ''."批次ls_components-item_cat = 'L'."项目类别APPEND ls_components TO lt_components.
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.CALL FUNCTION 'BAPI_NETWORK_COMP_ADD' EXPORTING number = lv_number TABLES i_components_add = lt_components e_message_table = lt_message.
LOOP AT lt_message INTO ls_message WHERE message_type CA 'AEX'. lv_check = 'E'. lv_message = lv_message && ls_message-message_text.ENDLOOP.
IF lv_check = 'E'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = abap_true.ENDIF."--------------------@斌将军--------------------## 2.5、组件修改
修改组件的数量和反冲标识等数据。
其中修改工序时，同时修改反冲标识会不起作用，这个需要注意。
"--------------------@斌将军--------------------DATA:lv_number TYPE bapi_network_list-network, ls_return TYPE bapiret2, lt_components_change TYPE TABLE OF bapi_network_comp_change, ls_components_change TYPE bapi_network_comp_change, lt_components_change_update TYPE TABLE OF bapi_network_comp_cng_upd, ls_components_change_update TYPE bapi_network_comp_cng_upd, lt_message TYPE TABLE OF bapi_meth_message, ls_message TYPE bapi_meth_message.
DATA:lv_check TYPE char1, lv_message TYPE char255.
lv_number = '000001001211'."工单号
CLEAR:ls_components_change.ls_components_change-component = '00000039290006'."BAPI获取到的组件唯一标识*ls_components_change-activity = '0020'."工序ls_components_change-entry_quantity = 2."数量ls_components_change-backflush = ''."反冲APPEND ls_components_change TO lt_components_change.
CLEAR:ls_components_change_update.ls_components_change_update-component = '00000039290006'.*ls_components_change_update-activity = 'X'.ls_components_change_update-entry_quantity = 'X'.ls_components_change_update-backflush = 'X'.APPEND ls_components_change_update TO lt_components_change_update.
CALL FUNCTION 'BAPI_PS_INITIALIZATION'.CALL FUNCTION 'BAPI_NETWORK_COMP_CHANGE' EXPORTING number = lv_number IMPORTING return = ls_return TABLES i_components_change = lt_components_change i_components_change_update = lt_components_change_update e_message_table = lt_message.
LOOP AT lt_message INTO ls_message WHERE message_type CA 'AEX'. lv_check = 'E'. lv_message = lv_message && ls_message-message_text.ENDLOOP.
IF lv_check = 'E'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = abap_true.ENDIF."--------------------@斌将军--------------------