Created by Jerry Wang, last modified on May 02, 2014

該report 實現了在同一session內：

創建新的Individual Object

創建新的IBASE

創建新的Object component，并將step1的IObject assign給該object component

修改Object component

刪除Object component

transaction save
具體背景見該blog

REPORT ZIBASE_SOLUTION. PARAMETERS: txt TYPE char40 OBLIGATORY DEFAULT 'description test',eid TYPE char30 OBLIGATORY DEFAULT 'PROGRAM',oid TYPE comm_product-product_id OBLIGATORY DEFAULT 'CHILDOB8',fam TYPE comm_product-object_family OBLIGATORY DEFAULT '0401',cat TYPE comt_category_id OBLIGATORY DEFAULT 'OBJ_0401'. DATA: lt_param TYPE crmt_name_value_pair_tab,ls_param TYPE crmt_name_value_pair,lr_core TYPE REF TO cl_crm_bol_core,ls_object TYPE comm_product,lr_root TYPE REF TO if_bol_entity_col,ls_comp_det TYPE ibap_comp2,ls_comp_det_upd TYPE ibap_comp3,entity TYPE REF TO cl_crm_bol_entity. CHECK zcl_object_generator=>create_object( iv_id = oid iv_family = fam iv_catid = cat ) = abap_true. ls_param-name = cl_crm_ibase_il_constant=>createparam. ls_param-value = '01'. APPEND ls_param TO lt_param. lr_core = cl_crm_bol_core=>get_instance( ). lr_core->load_component_set('IBASE_ONLY'). CALL METHOD lr_core->root_createEXPORTINGiv_object_name = cl_crm_ibase_il_constant=>root_objectiv_create_param = lt_paramiv_number = 1RECEIVINGrv_result = lr_root. CHECK lr_root IS BOUND. entity ?= lr_root->get_current( ). CHECK entity IS BOUND. IF entity->lock( ) = abap_true.entity->switch_to_change_mode( ). ENDIF. entity->set_property_as_string( iv_attr_name = 'DESCR' iv_value = CONV #( txt ) ). entity->set_property_as_string( iv_attr_name = 'EXTID' iv_value = CONV #( eid ) ). lr_core->modify( ). DATA(lv_ibase_id) = entity->get_property_as_string( 'IBASE' ). DATA(component) = entity->create_related_entity( 'FirstLevelComponent' ). CHECK component IS NOT INITIAL. DATA(obj_comp) = component->create_related_entity( 'IBCompObj'). CHECK obj_comp IS NOT INITIAL. obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_ID' iv_value = CONV #( oid ) ). SELECT SINGLE * INTO ls_object FROM comm_product WHERE product_id = oid. ASSERT sy-subrc = 0. obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_GUID' iv_value = CONV #( ls_object-product_guid ) ). obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_FAMILY' iv_value = CONV #( ls_object-product_guid ) ). obj_comp->set_property_as_string( iv_attr_name = 'DESCR_EXT' iv_value = 'Jerry12345' ). lr_core->modify( ). DATA(lo_message_container) = entity->get_message_container( ). CALL METHOD lo_message_container->get_messagesEXPORTINGiv_message_type = if_genil_message_container=>mt_allIMPORTINGet_messages = DATA(lt_msg1). LOOP AT lt_msg1 ASSIGNING FIELD-SYMBOL(<msg1>).WRITE:/ <msg1>-message COLOR COL_NEGATIVE. ENDLOOP. CHECK lt_msg1 IS INITIAL. DATA(lo_transaction) = lr_core->get_transaction( ). DATA(lv_changed) = lo_transaction->check_save_needed( ). CHECK lv_changed EQ abap_true. DATA: ls_header TYPE ibap_head1,lt_struc_tab TYPE ibap_struc1_tab,ls_comp TYPE ibap_dat1. ls_header-ibase = lv_ibase_id. CALL FUNCTION 'CRM_IBASE_GET_DETAIL'EXPORTINGi_ibase_head = ls_headerIMPORTINGe_struc_ibase_tab = lt_struc_tabEXCEPTIONSnot_specified = 1doesnt_exist = 2no_authority = 3. CHECK sy-subrc = 0. READ TABLE lt_struc_tab ASSIGNING FIELD-SYMBOL(<line>) INDEX 1. ls_comp-instance = <line>-instance. CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'EXPORTINGi_comp = ls_compi_date = sy-datloi_time = sy-timloiv_do_auth_check = 'X'IMPORTINGe_comp_det = ls_comp_detEXCEPTIONSnot_specified = 1doesnt_exist = 2no_authority = 3OTHERS = 4. MOVE-CORRESPONDING ls_comp_det TO ls_comp_det_upd. ls_comp_det_upd-deviceid = '1'. ls_comp_det_upd-descr = '2'. CALL FUNCTION 'CRM_IBASE_COMP_CHANGE'EXPORTINGi_comp = ls_compi_comp_det = ls_comp_det_updEXCEPTIONSdata_not_consistent = 1ibase_locked = 2not_succesful = 3no_authority = 4OTHERS = 5. ASSERT sy-subrc = 0. DATA(lv_success) = lo_transaction->save( ). DATA(lo_glb_msg_cont) = lr_core->get_global_message_cont( ). CALL METHOD lo_glb_msg_cont->if_genil_message_container~get_messagesEXPORTINGiv_message_type = if_genil_message_container=>mt_allIMPORTINGet_messages = DATA(lt_msg). LOOP AT lt_msg ASSIGNING FIELD-SYMBOL(<msg>).WRITE:/ <msg>-message. ENDLOOP. IF lv_success = abap_true.lo_transaction->commit( ).WRITE:/ 'IBASE Created Successfully: ', lv_ibase_id COLOR COL_NEGATIVE. ELSE.lo_transaction->rollback( ). ENDIF. DATA: lv_datlo LIKE sy-datlo,lv_timlo LIKE sy-timlo,lv_valid_to LIKE ls_comp_det-valto. lv_valid_to = ls_comp_det-valfr + 1. CONVERT TIME STAMP lv_valid_to TIME ZONE sy-zonlo INTO DATE lv_datlo TIME lv_timlo. CALL FUNCTION 'CRM_IBASE_COMP_DELETE'EXPORTINGi_comp = ls_compi_date = lv_datloi_time = lv_timloEXCEPTIONSdata_not_consistent = 1ibase_locked = 2not_succesful = 3no_authority = 4. ASSERT sy-subrc = 0. CALL FUNCTION 'CRM_IBASE_SAVE'. COMMIT WORK AND WAIT. CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'EXPORTINGi_comp = ls_compi_date = sy-datloi_time = sy-timloiv_do_auth_check = 'X'IMPORTINGe_comp_det = ls_comp_detEXCEPTIONSnot_specified = 1doesnt_exist = 2no_authority = 3OTHERS = 4. IF sy-subrc = 2.WRITE: / 'Component does not exist!' COLOR COL_NEGATIVE. ELSE.WRITE: / 'Detail returned:' , ls_comp_det-instance COLOR COL_POSITIVE. ENDIF. CLASS zcl_object_generator DEFINITIONPUBLICFINALCREATE PUBLIC .PUBLIC SECTION.TYPE-POOLS abap .CLASS-METHODS create_objectIMPORTING!iv_id TYPE comm_product-product_id!iv_family TYPE comm_product-object_family!iv_catid TYPE comt_category_idRETURNINGVALUE(rv_create_ok) TYPE abap_bool .CLASS-METHODS class_constructor .PROTECTED SECTION.PRIVATE SECTION.CLASS-DATA so_core TYPE REF TO cl_crm_bol_core .CLASS-DATA so_fact TYPE REF TO cl_crm_bol_entity_factory .CLASS-DATA sv_id TYPE comm_product-product_id .CLASS-DATA sv_fam TYPE comm_product-object_family .CLASS-DATA sv_catid TYPE comt_category_id .CLASS-METHODS initIMPORTING!iv_id TYPE comm_product-product_id!iv_family TYPE comm_product-object_family!iv_catid TYPE comt_category_id .CLASS-METHODS create_header .TYPE-POOLS abap .CLASS-METHODS saveRETURNINGVALUE(rv_create_ok) TYPE abap_bool . ENDCLASS. CLASS ZCL_OBJECT_GENERATOR IMPLEMENTATION. * <SIGNATURE>---------------------------------------------------------------------------------------+ * | Static Public Method ZCL_OBJECT_GENERATOR=>CLASS_CONSTRUCTOR * +-------------------------------------------------------------------------------------------------+ * +--------------------------------------------------------------------------------------</SIGNATURE>METHOD class_constructor.so_core = cl_crm_bol_core=>get_instance( ).so_core->load_component_set( 'PROD_ALL' ).so_fact = so_core->get_entity_factory( 'Product' ).ENDMETHOD. * <SIGNATURE>---------------------------------------------------------------------------------------+ * | Static Private Method ZCL_OBJECT_GENERATOR=>CREATE_HEADER * +-------------------------------------------------------------------------------------------------+ * +--------------------------------------------------------------------------------------</SIGNATURE>METHOD create_header.DATA: lt_param TYPE crmt_name_value_pair_tab,ls_param TYPE crmt_name_value_pair.ls_param-name = 'PRODUCT_ID'.ls_param-value = sv_id.APPEND ls_param TO lt_param.ls_param-name = 'PRODUCT_TYPE'.ls_param-value = '01'.APPEND ls_param TO lt_param.ls_param-name = 'ROOT_CAT_ID'.ls_param-value = sv_catid.APPEND ls_param TO lt_param.ls_param-name = 'ROOT_HIER_ID'.ls_param-value = 'R3PRODSTYP'.APPEND ls_param TO lt_param.ls_param-name = 'SHORT_TEXT'.ls_param-value = 'Dummy'.APPEND ls_param TO lt_param.ls_param-name = 'OBJECT_FAMILY'.ls_param-value = sv_fam.APPEND ls_param TO lt_param.DATA(lr_product) = so_fact->create( lt_param ).IF lr_product IS INITIAL.DATA(lo_glb_msg_cont) = so_core->get_global_message_cont( ).CALL METHOD lo_glb_msg_cont->if_genil_message_container~get_messagesEXPORTINGiv_message_type = if_genil_message_container=>mt_allIMPORTINGet_messages = DATA(lt_msg).LOOP AT lt_msg ASSIGNING FIELD-SYMBOL(<msg>).WRITE:/ <msg>-message.ENDLOOP.ENDIF.ENDMETHOD. * <SIGNATURE>---------------------------------------------------------------------------------------+ * | Static Public Method ZCL_OBJECT_GENERATOR=>CREATE_OBJECT * +-------------------------------------------------------------------------------------------------+ * | [--->] IV_ID TYPE COMM_PRODUCT-PRODUCT_ID * | [--->] IV_FAMILY TYPE COMM_PRODUCT-OBJECT_FAMILY * | [--->] IV_CATID TYPE COMT_CATEGORY_ID * | [<-()] RV_CREATE_OK TYPE ABAP_BOOL * +--------------------------------------------------------------------------------------</SIGNATURE>METHOD create_object.init( iv_id = iv_id iv_family = iv_family iv_catid = iv_catid ).create_header( ).rv_create_ok = save( ).ENDMETHOD. * <SIGNATURE>---------------------------------------------------------------------------------------+ * | Static Private Method ZCL_OBJECT_GENERATOR=>INIT * +-------------------------------------------------------------------------------------------------+ * | [--->] IV_ID TYPE COMM_PRODUCT-PRODUCT_ID * | [--->] IV_FAMILY TYPE COMM_PRODUCT-OBJECT_FAMILY * | [--->] IV_CATID TYPE COMT_CATEGORY_ID * +--------------------------------------------------------------------------------------</SIGNATURE>METHOD init.sv_id = iv_id.sv_fam = iv_family.sv_catid = iv_catid.ENDMETHOD. * <SIGNATURE>---------------------------------------------------------------------------------------+ * | Static Private Method ZCL_OBJECT_GENERATOR=>SAVE * +-------------------------------------------------------------------------------------------------+ * | [<-()] RV_CREATE_OK TYPE ABAP_BOOL * +--------------------------------------------------------------------------------------</SIGNATURE>METHOD save.DATA(lo_transaction) = so_core->get_transaction( ).DATA(lv_changed) = lo_transaction->check_save_needed( ).CHECK lv_changed EQ abap_true.DATA(lv_success) = lo_transaction->save( ).IF lv_success = abap_true.lo_transaction->commit( ).rv_create_ok = abap_true.ELSE.lo_transaction->rollback( ).ENDIF.so_core->reset( ).ENDMETHOD. ENDCLASS.

總結

以上是生活随笔為你收集整理的在同一session内创建, 修改和删除IBASE component的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。