显示所有SAP CRM用户保存的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(<hit>)
    WITH KEY guid = iv_guid.
  ASSERT sy-subrc = 0.

  SELECT SINGLE * INTO ls_d_query FROM crmt_dyn_query
     WHERE query_id = <hit>-parameter_.

    ASSERT sy-subrc = 0.

    cl_demo_output=>display_xml( ls_d_query-selection_param ).
ENDFORM.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

• 点赞
• 收藏
• 分享
• • 文章举报

汪子熙 博客专家 发布了6327 篇原创文章 · 获赞 617 · 访问量 99万+ 他的留言板 关注

标签：SAP,TYPE,lv,ls,query,guid,saved,CRM
来源： https://blog.csdn.net/i042416/article/details/103971621