Hyperlink to Service Request

Question

Hello collegues,
I have a fact sheet Z, in the BSP_DLC_fs component.
This Block has the service request of the BP.
My customer need that exists a hyperlink to service request detail.
I`ve implemented the GET_P_XX.. Method, and I`ve  implemented an event relationed.
In the code of the event, I indentified the guid of the service request, but I don´t have certeid about the component that need call (BTQRSrvReq, BTAdminH,SRQM_INCIDENT_H,BT311_CSR I´m confused with this elements)
Also, I don´t know how call the view.
Thanks a lot,
Roberto

Answer 1

Hi,
we have realized exactly the same.
Here the coding from our eventhandler:
DATA: lv_index       TYPE int4,
        lr_entity      TYPE REF TO cl_crm_bol_entity,
        lv_event       TYPE REF TO cl_htmlb_event_tableview,
        lr_msg_srv     TYPE REF TO cl_bsp_wd_message_service.
data:  lr_data_collection         TYPE REF TO if_bol_bo_col.
DATA  lr_nav_srv             TYPE REF TO if_crm_ui_navigation_service.
DATA: lr_property            TYPE REF TO if_bol_bo_property_access,
      lv_id     TYPE CRMT_OBJECT_ID.
* get index of result list selected
  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->btqrsrvreq->collection_wrapper->find( iv_index = lv_index ).
  lv_id = lr_entity->get_property_as_string( iv_attr_name = 'OBJECT_ID' ).
  DATA: query          TYPE REF TO cl_crm_bol_query_service,
        result         TYPE REF TO if_bol_bo_col.
* get Query service
    query = cl_crm_bol_query_service=>get_instance( 'BTQuery1O' ).
    query->set_property( iv_attr_name = 'OBJECT_ID'
                      iv_value = lv_id ).
* execute query
    result ?= query->get_query_result( ).
    lr_entity ?= result->get_first( ).
  CHECK lr_entity IS BOUND.
  CALL METHOD cl_crm_ui_descriptor_obj_srv=>create_entity_based
    EXPORTING
      ir_entity           = lr_entity
      iv_ui_object_type   = 'CRM_SRQM_INCIDENT'
      iv_ui_object_action = 'B'
    RECEIVING
      rr_result           = lr_property.
  CREATE OBJECT lr_data_collection TYPE cl_crm_bol_bo_col.
  lr_data_collection->add( lr_property ).
  lr_data_collection->add( lr_entity ).
  lr_nav_srv = cl_crm_ui_navigation_service=>get_instance( me ).
  IF lr_nav_srv IS BOUND.
    lr_nav_srv->navigate_dynamically( lr_data_collection ).
  ENDIF.
Good Luck.
Kind regards
Manfred