我们都非常熟悉生产订单的创建以及对现有操作和组件的修改。 但是，如果我们需要删除现有组件并将组件添加到给定的production order中，该怎么办？
一般我们通过CO02事务，然后到组件概览并进行操作来进行组件的添加或删除。 但是如果我们需要从程序级别来做呢？
以下代码片段可用于创建生产订单、删除现有组件和添加新组件，然后发布生产订单。
创建生产订单:
可以使用 BAPI_PRODORD_CREATE 创建生产订单。 它可以如下面的代码片段所示使用。
*** Production Order Creation
DATA: ls_orderdata TYPE bapi_pp_order_create,
ls_return TYPE bapiret2,
lv_order_number TYPE bapi_order_key-order_number,
lv_order_type TYPE bapi_order_copy-order_type.
* Assign data to BAPI Header to create Production order
ls_orderdata-material = '000000000000000001'.
ls_orderdata-plant = '0001'.
ls_orderdata-order_type = 'PP01'.
ls_orderdata-basic_start_date = sy-datum.
ls_orderdata-basic_start_time = sy-uzeit.
ls_orderdata-basic_end_date = sy-datum.
ls_orderdata-basic_end_time = sy-uzeit.
ls_orderdata-quantity = 1.
CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'
EXPORTING
iso_code = 'PCE'
IMPORTING
sap_code = ls_orderdata-quantity_uom
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
IF NOT ls_orderdata IS INITIAL.
* BAPI Create Production Order
CALL FUNCTION 'BAPI_PRODORD_CREATE'
EXPORTING
orderdata = ls_orderdata
IMPORTING
return = ls_return
order_number = lv_order_number
order_type = lv_order_type.
IF ( ls_return-type = 'S' OR
ls_return-type = 'I' OR
ls_return-type = 'W' ) OR
ls_return IS INITIAL.
* Commit data
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
* Data Rollback
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ENDIF.
工单组件删除:
创建生产订单后，从订单物料的 BOM 中获取组件。 如果我们要删除特定组件或所有组件，则可以使用 CO_XT_COMPONENT_DELETE 功能模块来完成，如下面的代码片段所示。 其中CO_XT_ORDER_PREPARE_COMMIT 和 CO_XT_ORDER_INITIALIZE用于提交更改并初始化处理过程中所需的所有其他表.
*** Deleting Components from Production Order
DATA: lt_resbkeys TYPE coxt_t_resbdel,
lt_return TYPE STANDARD TABLE OF bapiret2,
lv_error TYPE flag.
* Fetch existing components of given Production Order
SELECT rsnum, rspos INTO TABLE @DATA(lt_resb)
FROM resb
WHERE aufnr = @lv_order_number. " Previously created order
IF sy-subrc EQ 0.
lt_resbkeys = CORRESPONDING #( lt_resb ).
ENDIF.
IF NOT lt_resbkeys[] IS INITIAL.
* BAPI to delete the components of Production Order
CALL FUNCTION 'CO_XT_COMPONENTS_DELETE'
EXPORTING
it_resbkeys_to_delete = lt_resbkeys
IMPORTING
e_error_occurred = lv_error
TABLES
ct_bapireturn = lt_return
EXCEPTIONS
delete_failed = 1
OTHERS = 2.
IF lv_error = space.
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
es_bapireturn = ls_return
e_error_occurred = lv_error.
IF ( ls_return-type = 'S' OR
ls_return-type = 'W' OR
ls_return-type = 'I' ) OR
ls_return IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
CALL FUNCTION 'CO_XT_ORDER_INITIALIZE'.
ELSE.
CLEAR: lv_error,
ls_return.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ELSE.
CLEAR lv_error.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ENDIF.
向工单添加组件:
如果我们需要向生产订单添加组件，可以使用 CO_XT_COMPONENT_ADD 功能模块来完成。 其中需要使用 CO_XT_ORDER_PREPARE_COMMIT 和 CO_XT_ORDER_INITIALIZE
提交更改并初始化处理期间所需的所有其他表。但是通过使用上述功能模块，我们有一个小问题： 添加的组件中将缺少项目编号。 这是由于 I_POSNO（功能模块 I 中的参数）和 RESB-POSNR 的类型不兼容.
所以为了解决这个问题，我们将通过在DB更新之前将其分配给内部表来修改POSNR，以更正组件中的空白项目编号.
*** Adding components to Production Order
DATA: ls_storage_location TYPE coxt_s_storage_location,
ls_storage_locationx TYPE coxt_s_storage_locationx,
ls_requ_quan TYPE coxt_s_quantity,
lv_operation TYPE co_aplzl,
lv_batch TYPE coxt_batch,
lv_batchx TYPE coxt_batchx,
lv_postp TYPE postp,
lv_sequence TYPE plnfolge,
lv_material TYPE matnr,
lv_positionno TYPE positionno,
lv_numc TYPE numc4.
TYPES: BEGIN OF ty_resb_bt.
INCLUDE TYPE resbb.
TYPES: indold TYPE syst_tabix.
TYPES: no_req_upd TYPE syst_datar.
TYPES: END OF ty_resb_bt.
TYPES tt_resb_bt TYPE TABLE OF ty_resb_bt.
FIELD-SYMBOLS: <ft_resb_bt> TYPE tt_resb_bt,
<fs_resb_bt> TYPE ty_resb_bt.
ls_storage_location-werks = '0001'.
ls_storage_locationx-werks = 'X'.
ls_storage_location-lgort = 'LGOT'.
ls_storage_locationx-lgort = 'X'.
lv_batch = '0000000001'.
lv_batchx = 'X'.
ls_requ_quan-quantity = 1.
CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'
EXPORTING
iso_code = 'PCE'
IMPORTING
sap_code = ls_requ_quan-uom
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
lv_positionno = '0010'.
lv_postp = 'L'.
lv_material = '000000000000000002'.
SELECT SINGLE aufnr, aufpl INTO @DATA(ls_afko)
FROM afko
WHERE aufnr = @lv_order_number.
IF sy-subrc EQ 0.
* Fetch operation to which it has to be assigned
SELECT SINGLE aufpl, aplzl, plnfl INTO @DATA(ls_afvc)
FROM afvc
WHERE aufpl = @ls_afko-aufpl.
IF sy-subrc EQ 0.
lv_operation = ls_afvc-aplzl.
lv_sequence = ls_afvc-plnfl.
ENDIF.
ENDIF.
* BAPI to add components to Production Order
CALL FUNCTION 'CO_XT_COMPONENT_ADD'
EXPORTING
is_order_key = lv_order_number
i_material = lv_material
is_requ_quan = ls_requ_quan
i_operation = lv_operation
i_sequence = lv_sequence
is_storage_location = ls_storage_location
is_storage_locationx = ls_storage_locationx
i_batch = lv_batch
i_batchx = lv_batchx
i_postp = lv_postp
i_posno = lv_positionno
IMPORTING
es_bapireturn = ls_return
e_error_occurred = lv_error.
IF lv_error = space.
CLEAR: lv_numc,
ls_return.
* Modify POSNR via ASSIGN before DB update to correct the blank
* item number in Components due to incompatible types of I_POSNO
* (type CIF_R3RES-POSITIONNO) and RESB-POSNR
ASSIGN ('(SAPLCOBC)RESB_BT[]') TO <ft_resb_bt>.
LOOP AT <ft_resb_bt> ASSIGNING <fs_resb_bt>.
lv_numc = sy-tabix * 10.
<fs_resb_bt>-posnr = lv_numc.
CLEAR lv_numc.
ENDLOOP.
* Commit transaction
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
es_bapireturn = ls_return
e_error_occurred = lv_error.
IF ( ls_return-type = 'S' OR
ls_return-type = 'W' OR
ls_return-type = 'I' ) OR
ls_return IS INITIAL.
* Commit data
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
CALL FUNCTION 'CO_XT_ORDER_INITIALIZE'.
ELSE.
CLEAR: lv_error,
ls_return.
* Data Rollback
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ELSE.
CLEAR: lv_error,
ls_return.
* Data Rollback
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
Release生产工单:
创建订单后，可以通过以下代码片段Release它。.
*** Release Created Production Order
DATA: lt_order TYPE STANDARD TABLE OF bapi_order_key,
ls_order TYPE bapi_order_key.
SELECT SINGLE a~aufnr, a~objnr, b~stat INTO @DATA(ls_aufk)
FROM aufk AS a
INNER JOIN jest AS b
ON a~objnr = b~objnr
WHERE a~aufnr = @lv_order_number
AND b~stat = 'I0002'
AND b~inact = @space.
IF sy-subrc NE 0.
ls_order-order_number = lv_order_number.
* If production order is not released then append the order to table
* LT_ORDER to release the order
APPEND ls_order TO lt_order.
CLEAR ls_order.
ENDIF.
IF NOT lt_order[] IS INITIAL.
CLEAR ls_return.
* Release Production order
CALL FUNCTION 'BAPI_PRODORD_RELEASE'
IMPORTING
return = ls_return
TABLES
orders = lt_order.
IF ( ls_return-type = 'S' OR
ls_return-type = 'W' OR
ls_return-type = 'I' ) OR
ls_return IS INITIAL.
CLEAR ls_return.
* Commit Data
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
* Data Rollback
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
CLEAR ls_return.
ENDIF.
ENDIF.
对于更改现有组件，我们可以使用 CO_XT_COMPONENT_CHANGE 配合 CO_XT_ORDER_PREPARE_COMMIT 和 CO_XT_ORDER_INITIALIZE来一起完成。
注意：CO_XT_COMPONENT_CHANGE / CO_XT_COMPONENT_ADD 这些都是 SAP 未发布的常规功能模块，使用时需要谨慎。