METHOD eh_onzobject_id_link.***定义    DATA :      lv_crmt_object_guid TYPE crmt_object_guid,      lv_index            TYPE        i,      lr_property_access  TYPE REF TO if_bol_bo_property_access,      lv_object_id        TYPE        crmt_object_id_db.***获取对象*==获取选中行INDEX    cl_thtmlb_util=>get_event_info( EXPORTING iv_event = htmlb_event_ex  IMPORTING ev_index = lv_index ).    CHECK lv_index IS NOT INITIAL .*==获取选中行context    lr_property_access  ?= me->typed_context->searchresultnode->collection_wrapper->find( iv_index = lv_index ).    CHECK lr_property_access IS BOUND .*==生成订单BOL    CLEAR :lv_crmt_object_guid .    lv_crmt_object_guid = lr_property_access->get_property_as_string( iv_attr_name = 'OBJECT_GUID' ).    CHECK lv_crmt_object_guid IS NOT INITIAL .    CALL FUNCTION 'ZCRM_NAVIGATE_BT'      EXPORTING        iv_guid = lv_crmt_object_guid.  ENDMETHOD.

FUNCTION zcrm_navigate_bt.*"----------------------------------------------------------------------*"*"Local Interface:*"  IMPORTING*"     VALUE(IV_GUID) TYPE  CRMT_OBJECT_GUID OPTIONAL*"----------------------------------------------------------------------  gr_bol_core = cl_crm_bol_core=>get_instance( ).  gr_bol_core->load_component_set('ONEORDER' ).  TRY.      CALL METHOD gr_bol_core->get_root_entity        EXPORTING          iv_object_name = 'BTOrder'               "#EC NOTEXT  BTOrder          iv_object_guid = iv_guid        RECEIVING          rv_result      = gr_btorder.    CATCH cx_crm_genil_model_error .      RETURN .  ENDTRY .***对象跳转*==导航组件  gv_bsp_dlc_object_type = cl_crm_uiu_ibase_tool=>get_bt_ui_object_type( gr_btorder )."设计对象类型  CALL METHOD cl_crm_ui_descriptor_obj_srv=>create_entity_based    EXPORTING      ir_entity           = gr_btorder      iv_ui_object_type   = gv_bsp_dlc_object_type      iv_ui_object_action = 'B'    RECEIVING      rr_result           = gr_if_bol_bo_property_access.*==动态导航collection  CREATE OBJECT gr_if_bol_bo_col TYPE cl_crm_bol_bo_col .  gr_if_bol_bo_col->add( iv_entity = gr_btorder  iv_set_focus = abap_true ).  gr_if_bol_bo_col->insert(  iv_bo = gr_if_bol_bo_property_access iv_index = 1 ).*==动态导航  gr_crm_ui_navigation_service = cl_crm_ui_navigation_service=>get_instance( ).  IF gr_crm_ui_navigation_service IS BOUND .    gr_crm_ui_navigation_service->navigate_dynamically( gr_if_bol_bo_col  ).  ENDIF .ENDFUNCTION.

 

 

2.

METHOD eh_ontosrvord.* Added by wizard: Handler for event 'TOSRVORD'    DATA: lv_index        TYPE int4,*        lr_comp_controller    TYPE REF TO cl_bt111s_o_bspwdcomponen_impl,*        lr_cuco               TYPE REF TO cl_bt111s_o_cucosearch_impl,          lr_entity       TYPE REF TO if_bol_bo_property_access,          lv_event        TYPE REF TO cl_htmlb_event_tableview,          lr_msg_srv      TYPE REF TO cl_bsp_wd_message_service,          lv_subrc        TYPE sy-subrc,          lv_tableview_ex TYPE REF TO cl_thtmlb_table_view.*    CALL METHOD cl_thtmlb_util=>get_event_info*      EXPORTING*        iv_event = htmlb_event_ex*      IMPORTING*        ev_index = lv_index.*   set entity as current one    lr_entity ?= me->typed_context->btadminh->collection_wrapper->get_current( ).    CHECK lr_entity IS BOUND.    DATA l_guid TYPE crmd_orderadm_h-guid.    DATA l_srv_no TYPE crmd_orderadm_h-object_id.    CALL METHOD lr_entity->get_property_as_string      EXPORTING        iv_attr_name = 'OBJECT_ID'*       iv_use_iso_format = ABAP_FALSE      RECEIVING        rv_result    = l_srv_no.    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'      EXPORTING        input         = l_srv_no     IMPORTING       OUTPUT        = l_srv_no.    DATA: wa_zsrv_order_relat TYPE zsrv_order_relat.    SELECT SINGLE *      FROM zsrv_order_relat      INTO wa_zsrv_order_relat      WHERE zsrv_order = l_srv_no.    select SINGLE guid      FROM crmd_orderadm_h      INTO l_guid      WHERE object_id = wa_zsrv_order_relat-ZWORK_ORDER        AND process_type LIKE 'ZW%'.    DATA lr_core TYPE REF TO cl_crm_bol_core.    DATA lr_bt TYPE REF TO cl_crm_bol_entity.    lr_core = cl_crm_bol_core=>get_instance( ).*初始化 BT为组件集名称    lr_core->start_up( 'BT' ).    TRY.        CALL METHOD lr_core->get_root_entity          EXPORTING            iv_object_name = 'BTOrder'            iv_object_guid = l_guid   " 单句对应的GUID          RECEIVING            rv_result      = lr_bt.      CATCH cx_crm_genil_model_error .    ENDTRY.    CHECK lr_bt IS BOUND.    RAISE EVENT history_trigger.    DATA: lr_nav_descr   TYPE REF TO if_bol_bo_property_access.    DATA: lr_navigation  TYPE REF TO if_crm_ui_navigation_service.    DATA: lr_col         TYPE REF TO cl_crm_bol_bo_col.    DATA: rv_value_node  TYPE REF TO cl_bsp_wd_value_node.    cl_crm_ui_descriptor_obj_srv=>create_ui_object_based(      EXPORTING iv_ui_object_type   = 'BT116_SRVO'                iv_ui_object_action = 'B'      RECEIVING rr_result           = lr_nav_descr ).    CHECK lr_nav_descr IS BOUND.    lr_navigation = cl_crm_ui_navigation_service=>get_instance( me ).    CHECK lr_navigation IS BOUND.* Check whether navigation is supported    IF lr_navigation->is_dynamic_nav_supported( lr_nav_descr ) NE abap_true.      RETURN.    ELSE.      CREATE OBJECT lr_col.      lr_col->if_bol_bo_col~add( iv_entity = lr_nav_descr ).      lr_col->if_bol_bo_col~add( iv_entity = lr_bt iv_set_focus = abap_true ).      lr_navigation->navigate_dynamically( lr_col ).    ENDIF.  ENDMETHOD.