使用以下示例代码：

数据：
lo_log类型参考到/scwm/cl_log，
lo_sr_bom类型参考到/scwm/cl_sr_bom，
lo_tu_query类型参考到/scwm/cl_sr_tu_query。


DATA：< br> lt_bo_tu类型/scwm/tt_bo_tunit，
lt_do_tu类型/scwm/tt_bo_door。

数据：
lst_asp_tu类型/scwm/s_asp_tu，
lst_tu_door类型/scwm/s_bo_t lst_sel_tu_num_ext TYPE/scwm/s_sel_tu_num_ext。

DATA：
lv_seq_num TYPE/scmb/de_seq_num，
ls_tu_dlv TYPE/scwm/s_bo_tu_dlv，
lt_tu_dlv _lv_tu_lv_tu_lv_tu_lv_tu_lv_tu_lv_sort/scwm/tt_bo_tu_dlv_no_sort，
lt_bo_tu_dlv_cross TYPE/scwm/tt_bo_tu_dlv，
lt_bo_tu_dlv_success TYPE/scwm/tt_bo_tu_dlv_no_sort，
lo_bo_tu_s/s_r_s_r_s_r_s_r_s_s_r_s lt_protocol TYPE bapirettab。

lst_tu_door-tu_num = is_bo_tu_dlv-tu_num。
lst_tu_door-tu_sr_act_num = is_bo_tu_dlv-tu_sr_act_num。 => cleanup（）。

* Crea 业务对象管理器的实例--------------------------
免费eo_log。
清除ev_rejected。
尝试。< br> lo_sr_bom =/scwm/cl_sr_bom => get_instance（）。
eo_log = lo_sr_bom-> get_log（）。
CATCH/scwm/cx_sr_error。
ENDTRY。

lo_tu_query = NEW （eo_log）。

lst_sel_tu_num_ext-sign =/scdl/if_dl_query_c => sc_sign_include。
lst_sel_tu_num_ext-option =/scdl/if_dl_query_c => sc_option_eq。 = OUT} |
lo_tu_query-> add_tu_num_ext（is_tu_num_ext = lst_sel_tu_num_ext）。

*执行查询
尝试。
调用方法lo_sr_bom-> query
导出
io_tu_query = lo_tu_query
导入
et_bo_tu = lt_bo_tu
et_bo_door = lt_do_tu。

捕获/scwm/cx_sr_error。 " #EC NO_HANDLER
返回。
ENDTRY。
数据：ls_bo_data TYPE/scwm/s_bo_tu_data。

"分配交货
遍历it_docid分配字段符号（） 。
lv_seq_num = lv_seq_num + 1.
清除ls_tu_dlv。 （当iv_doccat被提供后iv_doccat ELSE wmegc_doccat_pdo时）。
ls_tu_dlv-docid = 。
ls_tu_dlv-seq_num = lv_seq_num。
ls_tu_d_lv_dlv-lgnum。
ENDLOOP。

循环到lt_bo_tu ASSIGNING FIELD-SYMBOL（）。
尝试。

-bo_ref-> add_tu_dlv（
导出
> iv_check_only = abap_true
iv_action_only = abap_false
it_bo_tu_dlv_no_sort = lt_bo_tu_dlv_no_sort
iv_cross_hu_add = abap_true
IMPORTING
et_bo_tu_d_lv_tu_d_lv_tu = lv
如果eo_log-> mp_severity CA'E'。
ev_rejected = abap_true。
退出。
ENDIF。

-bo_ref-> add_tu_dlv（
导出< br> iv_check_only = abap_false
iv_action_only = abap_true
it_bo_tu_dlv_no_sort = lt_bo_tu_dlv_no_sort
IMPORTING
et_bo_tu_dlv_no_sort_success = lt_bo_tu_dlv_br -s <_ abap_true。
退出。

ELSE。
lo_sr_bom-> save（）。
/scwm/cl_sr_tm => tm（）。
进行工作并等待。
< br> ENDIF。

捕获cx_root INTO DATA（lx_root）。
DATA（l_message）= lx_root-> get_text（）。
ENDTRY。

ENDLOOP。