且构网

分享程序员开发的那些事...
且构网 - 分享程序员编程开发的那些事

A tool to review detail of all saved queries for a given user

更新时间:2022-08-22 12:49:24

requirement: you have created many saved queries and you would like to get a list of all of them. By double clicking the list item, you can navigate to the detail of each.


A tool to review detail of all saved queries for a given user

A tool to review detail of all saved queries for a given user

A tool to review detail of all saved queries for a given user

report source code:



*&---------------------------------------------------------------------*


*& Report  ZVIEW_SAVED_QUERY


*&


*&---------------------------------------------------------------------*


*&


*&


*&---------------------------------------------------------------------*


REPORT zview_saved_query.



DATA: lt_saved_query TYPE STANDARD TABLE OF crmd_shortcut,


     ls_saved_query LIKE LINE OF lt_saved_query,


     ls_d_query     TYPE crmt_dyn_query,


     lv_guid        TYPE char4 VALUE 'guid',


     lv_type        TYPE char4 VALUE 'type',


     lv_app         TYPE char10 VALUE 'application',


     lv_desc        TYPE string VALUE 'description'.



START-OF-SELECTION.


 SELECT * INTO TABLE lt_saved_query FROM crmd_shortcut WHERE owner_key = sy-uname.



 WRITE: lv_guid COLOR COL_NEGATIVE, lv_type COLOR COL_POSITIVE, lv_app COLOR


 COL_GROUP, lv_desc COLOR COL_KEY.


 LOOP AT lt_saved_query INTO ls_saved_query.


   WRITE: / ls_saved_query-guid UNDER lv_guid, ls_saved_query-type,


   ls_saved_query-application, ls_saved_query-description.


   HIDE ls_saved_query-guid.


 ENDLOOP.



AT LINE-SELECTION.


 PERFORM display_detail USING ls_saved_query-guid.



FORM display_detail USING iv_guid TYPE crmd_shortcut-guid.


 READ TABLE lt_saved_query ASSIGNING FIELD-SYMBOL()


   WITH KEY guid = iv_guid.


 ASSERT sy-subrc = 0.



 SELECT SINGLE * INTO ls_d_query FROM crmt_dyn_query


    WHERE query_id = -parameter_.



   ASSERT sy-subrc = 0.



   cl_demo_output=>display_xml( ls_d_query-selection_param ).


ENDFORM.