在EWM中很少有创建或者修改业务对象的BAPI存在，更多的是通过很多面向对象的类方法来实现。

以下这个简单的创建TU应该能很好的体现SCM平台中的OO特性。

REPORT yewm_tu_creation NO STANDARD PAGE HEADING.

TYPES:

BEGIN OF lty_key_wrk,

tu_num                 TYPE /scwm/de_tu_num,

tu_sr_act_num  TYPE /scwm/de_tu_sr_act_num,

END OF lty_key_wrk.

DATA:

lo_tu_sp                    TYPE REF TO                 /scwm/cl_ui_tu_sp,

lt_aspect                   TYPE                                /scwm/tt_asp_tu,

ls_aspect                   TYPE                                /scwm/s_asp_tu,

lt_aspect_o              TYPE                                /scwm/tt_asp_tu,

lt_return_codes     TYPE                                /scmb/t_sp_return_code,

lv_rejected                             TYPE                                char01,

lo_attr_hndl             TYPE REF TO                 /scmb/cl_attribute_handler,

lo_msg_hndl            TYPE REF TO                 /scmb/cl_message_handler,

ls_key_wrk      TYPE                               lty_key_wrk,

lt_key_wrk      TYPE TABLE OF           lty_key_wrk.

START-OF-SELECTION.

"创建TU对象

CREATE OBJECT:

lo_attr_hndl,

lo_msg_hndl,

lo_tu_sp               EXPORTING     io_attribute_handler = lo_attr_hndl

io_message_handler = lo_msg_hndl.

ls_aspect-act_dir                 = "1" inbound / "2" outbound —Direction of Shipping and Receiving Activity

ls_aspect-start_act_d        = sy-datum.

ls_aspect-start_act_t         = sy-uzeit.

ls_aspect-end_act_d          = sy-datum.

ls_aspect-end_act_t           = '235959'.

ls_aspect-mtr                        = Means of Transport

ls_aspect-pmat                     = TU Packaging Material

APPEND ls_aspect TO lt_aspect.

CLEAR ls_aspect.

"通过INSERT方法来创建TU

lo_tu_sp->insert(   EXPORTING     inrecords         = lt_aspect

aspect               = '/SCWM/S_ASP_TU'

IMPORTING    outrecords      = lt_aspect_o

rejected            = lv_rejected

return_codes = lt_return_codes ).

READ TABLE lt_return_codes TRANSPORTING NO FIELDS WITH KEY failed = abap_true.

IF sy-subrc = 0 OR lv_rejected = abap_true.

"ERROR

ELSE.

READ TABLE lt_aspect_o INTO ls_aspect INDEX 1.

IF sy-subrc = 0.

ls_key_wrk-tu_num                             = ls_aspect-tu_num.

ls_key_wrk-tu_sr_act_num              = ls_aspect-tu_sr_act_num.

APPEND ls_key_wrk TO lt_key_wrk.

CLEAR: ls_key_wrk, ls_aspect.

ENDIF.

"保存并提交

lo_tu_sp->save( ).

COMMIT WORK AND WAIT.

ENDIF.

"激活TU对象

/scwm/cl_sr_bom=>cleanup( ).

TRY.

/scwm/cl_sr_my_service=>switch_tu_active(

EXPORTING

iv_lgnum             = 仓库号

it_aspk_tu          = lt_key_wrk

IMPORTING

ev_rejected       = lv_rejected ).

IF lv_rejected = abap_true.

"ERROR

ELSE.

lo_tu_sp->save( ).

COMMIT WORK AND WAIT.

ENDIF.

CATCH /scwm/cx_sr_error.

ENDTRY.