转载地址
https://www.cnblogs.com/StephenAmell/p/16742366.html
修改组件仓库的范例
DATA: lv_po TYPE coxt_ord_key,
ls_component TYPE coxt_s_ord_comp_key,
ls_requ TYPE coxt_s_quantity,
ls_requx TYPE coxt_s_quantityx,
ls_conf TYPE coxt_s_quantity,
ls_confx TYPE coxt_s_quantityx,
lv_matnr TYPE coxt_material,
lv_matnrx TYPE coxt_materialx,
ls_oper TYPE coxt_s_ord_opr_key,
ls_operx TYPE coxt_s_ord_opr_keyx,
ls_storage TYPE coxt_s_storage_location,
ls_storagex TYPE coxt_s_storage_locationx,
lv_charg TYPE coxt_batch,
lv_chargx TYPE coxt_batchx,
lv_cuobj TYPE coxt_config_object,
lv_cuobjx TYPE coxt_config_objectx,
ls_return TYPE coxt_bapireturn.
"生产订单
lv_po = '000022016565'.
"预留单项次
ls_component-rsnum = '0001065926'.
ls_component-rspos = '0001'.
"组件
lv_matnr = 'CTCN0009-XQ'.
lv_matnrx = 'X'.
"组件领料仓库
ls_storage-werks = '2000'.
ls_storage-lgort = '2173'.
ls_storagex-werks = 'X'.
ls_storagex-lgort = 'X'.
CALL FUNCTION 'CO_XT_COMPONENT_CHANGE'
EXPORTING
is_order_key = lv_po "生产订单
is_order_component_key = ls_component "组件
is_requirement_quantity = ls_requ "组件需求数量
is_requirement_quantityx = ls_requx
is_confirmed_quantity = ls_conf "生产数量
is_confirmed_quantityx = ls_confx
i_material = lv_matnr "组件物料
i_materialx = lv_matnrx
is_order_operation_key = ls_oper "组件指派工序
is_order_operation_keyx = ls_operx
is_storage_location = ls_storage "组件领料仓库
is_storage_locationx = ls_storagex
i_batch = lv_charg "批次
i_batchx = lv_chargx
i_mi_configuration_object = lv_cuobj "内置对象号码
i_mi_configuration_objectx = lv_cuobjx
IMPORTING
es_bapireturn = ls_return.
IF ls_return-type NE 'E'.
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
es_bapireturn = ls_return.
IF ls_return NE 'E'.
COMMIT WORK AND WAIT.
WRITE '修改成功'.
ELSE.
ROLLBACK WORK.
WRITE '修改失败'.
ENDIF.
ELSE.
ROLLBACK WORK.
WRITE '修改失败'.
ENDIF.
修改组件的工序范例
DATA: lv_po TYPE coxt_ord_key,
ls_component TYPE coxt_s_ord_comp_key,
ls_requ TYPE coxt_s_quantity,
ls_requx TYPE coxt_s_quantityx,
ls_conf TYPE coxt_s_quantity,
ls_confx TYPE coxt_s_quantityx,
lv_matnr TYPE coxt_material,
lv_matnrx TYPE coxt_materialx,
ls_oper TYPE coxt_s_ord_opr_key,
ls_operx TYPE coxt_s_ord_opr_keyx,
ls_storage TYPE coxt_s_storage_location,
ls_storagex TYPE coxt_s_storage_locationx,
lv_charg TYPE coxt_batch,
lv_chargx TYPE coxt_batchx,
lv_cuobj TYPE coxt_config_object,
lv_cuobjx TYPE coxt_config_objectx,
ls_return TYPE coxt_bapireturn.
DATA: lt_resb_get TYPE TABLE OF resbdget,
ls_resb_get TYPE resbdget.
"生产订单
lv_po = '000022016565'.
"预留单项次
ls_component-rsnum = '0001065926'.
ls_component-rspos = '0001'.
"组件
lv_matnr = 'CTCN0009-XQ'.
lv_matnrx = 'X'.
"工厂
ls_storage-werks = '2000'.
CALL FUNCTION 'CO_XT_COMPONENT_CHANGE'
EXPORTING
is_order_key = lv_po "生产订单
is_order_component_key = ls_component "组件
is_requirement_quantity = ls_requ "组件需求数量
is_requirement_quantityx = ls_requx
is_confirmed_quantity = ls_conf "生产数量
is_confirmed_quantityx = ls_confx
i_material = lv_matnr "组件物料
i_materialx = lv_matnrx
is_order_operation_key = ls_oper "组件指派工序
is_order_operation_keyx = ls_operx
is_storage_location = ls_storage "组件领料仓库
is_storage_locationx = ls_storagex
i_batch = lv_charg "批次
i_batchx = lv_chargx
i_mi_configuration_object = lv_cuobj "内置对象号码
i_mi_configuration_objectx = lv_cuobjx
IMPORTING
es_bapireturn = ls_return.
IF ls_return-type NE 'E'.
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
es_bapireturn = ls_return.
IF ls_return NE 'E'.
"获取生产订单
CALL FUNCTION 'CO_BC_RESBD_OF_ORDER_GET'
EXPORTING
aufnr_act = lv_po "生产订单
TABLES
resbd_get = lt_resb_get.
LOOP AT lt_resb_get INTO ls_resb_get
WHERE rsnum = '0001065926' AND rspos = '0001'.
"修改组件的工序
ls_resb_get-vornr = '0040'.
MODIFY lt_resb_get FROM ls_resb_get.
ENDLOOP.
CALL FUNCTION 'CO_BC_UPDATE_CMP_OF_ORDERS'
TABLES
resbd_get = lt_resb_get.
COMMIT WORK AND WAIT.
CALL FUNCTION 'CO_XT_ORDER_INITIALIZE'.
WRITE '修改成功'.
ELSE.
ROLLBACK WORK.
WRITE '修改失败'.
ENDIF.
ELSE.
ROLLBACK WORK.
WRITE '修改失败'.
ENDIF.
标签：CO,storage,COMPONENT,coxt,lv,ls,组件,TYPE,CHANGE From： https://www.cnblogs.com/wangzuoer/p/18064401