CRM BP SEARCH 优化

最新推荐文章于 2025-09-08 08:17:01 发布

weixin_30247307

最新推荐文章于 2025-09-08 08:17:01 发布

阅读量101

点赞数

CC 4.0 BY-SA版权

文章标签：大数据

原文链接：http://www.cnblogs.com/sapSB/p/6922783.html

本文介绍了一种针对SAP CRM系统中业务伙伴(BP)搜索功能的优化方案，通过将BU_GROUP和SALE_ORG字段加入搜索条件，并创建新视图ZCRMV_BP_SEARCH来提高查询效率。

出于方便的目的，这边将BU_GROUP，SALE_ORG加到了BP搜索里面，因为CRM项目推广了很多国家，每个国家一个SALE ORG，而标准的BP HEADER ADV SEARCH里竟然没有BU_GROUP。。。。所以这边就把这两个字段加到搜索条件里了。

至于怎么加进去的就不说了，已经经历了好几代开发的手了。。。

但是效率一直是用户所追求的，而标准的BP搜索，都是很挫的那种，先做查询优先级，然后根据优先得出的PARTNER KEY再去关联其他信息做过滤。。。

可能是查询条件太多，牵涉的表太多，所以系统才用这种办法吧，但是每次500条，然后过滤，然后再500，再过滤，直到补齐查询的MAX HIT

以上是查询的逻辑，不多说，下面来说说怎么优化性的将这两个字段加入到主查询中(因为这两个字段是最常用的，也最可能单独使用的，所以不加到查询中，只过滤会很慢)

1.复制标准的查询类：CL_BUPA_IL_HEADER_SEARCH->ZL_BUPA_IL_HEADER_SEARCH

此类中的GET_DYNAMIC_QUERY_RESULT会做个优先排序：checked_search_available

然后在GET_RESULT_TABLE_CHECKED中动态拼接查询方法：CALL METHOD me->(lv_method_name)

前面基本不动，因为要把这两个查询条件放到主查询中，所以在上面的lv_method_name 等于‘SEARCH_BP_GENERAL’的时候，增加处理逻辑

增加SEARCH接构：ls_bp_gen_search01 TYPE Zcrmt_bupa_il_bp_gen_search,（额外DATA定义的）

selection处理前，添加parameters:

"add attr to gen field by ly 20170525
  IF ME->GV_CONDITION = 'X'.
    APPEND 'ZSALES_ORG' to gt_bp_gen_attributes.
    APPEND 'ZBP_GROUP' to gt_bp_gen_attributes.
  ENDIF.

处理结束后删除：

"delete add attr gen field append up by ly 20170525
  IF ME->GV_CONDITION = 'X'.
    delete gt_bp_gen_attributes WHERE table_line = 'ZSALES_ORG'.
    delete gt_bp_gen_attributes WHERE table_line = 'ZBP_GROUP'.
  ENDIF.

调用查询方法增强：

* get partner package matching the but000 criteria:
    IF ME->GV_CONDITION = ''."BP查询开关，未开启则走原始逻辑 add by ly 20170526
      CALL METHOD cl_bupa_il_search_service=>search_by_bp_general
        EXPORTING
          is_control               = is_control
          is_bp_gen_search         = ls_bp_gen_search
          iv_max_hit               = lv_max_hits
          it_selection_parameters  = lt_bp_gen_params
          iv_last_selected_partner = lv_last_selected_partner
        CHANGING
          ct_partner_keys          = lt_partner_keys
          ct_return                = ct_return.
      "CHANGE FROM cl_bupa_il_search_service=>search_by_bp_general TO Zcl_bupa_il_search_service=>search_by_bp_general
      "by ly 20170525
    ELSE."BP查询开关，未开启则走原始逻辑开启则走新逻辑 add by ly 20170526
      CALL METHOD Zcl_bupa_il_search_service=>zsearch_by_bp_general
        EXPORTING
          is_control               = is_control
          is_bp_gen_search         = ls_bp_gen_search01
          iv_max_hit               = lv_max_hits
          it_selection_parameters  = lt_bp_gen_params
          iv_last_selected_partner = lv_last_selected_partner
          GV_CONDITION             = ME->GV_CONDITION
        CHANGING
          ct_partner_keys          = lt_partner_keys
          ct_return                = ct_return.
    ENDIF.

复制cl_bupa_il_search_service的search_by_bp_general到zcl_bupa_il_search_service为：ZSEARCH_BP_GENERAL

而原本的zsearch_by_bp_general改为调用ZSEARCH_BP_GENERAL

METHOD zsearch_by_bp_general.
  "CHANGE TO BY LY 20170525
    CALL METHOD zcl_bupa_il_search_service=>ZSEARCH_BP_GENERAL"search_by_bp_general
    EXPORTING
      is_control               = is_control
      is_bp_gen_search         = is_bp_gen_search
      iv_max_hit               = iv_max_hit
      it_selection_parameters  = it_selection_parameters
      iv_last_selected_partner = iv_last_selected_partner
      GV_CONDITION             = GV_CONDITION
    CHANGING
      ct_partner_keys          = ct_partner_keys
      ct_return                = ct_return.
ENDMETHOD.

拼接动态查询时添加：（append_where_cond_to_select原样从cl_bupa_il_search_service中复制过来，包括对应用到的结构）

  "add where  cluse by ly 20170525  BP查询开关开启 添加查询条件    BEGIN
    IF is_bp_gen_search-ZBP_GROUP IS NOT INITIAL AND GV_CONDITION = 'X'.
    CALL METHOD cl_bupa_il_search_service=>map_attribute_to_range_tab
      EXPORTING
        iv_attribute_name       = 'ZBP_GROUP'
        it_selection_parameters = it_selection_parameters
      IMPORTING
        et_range_tab            = lt_group.
    IF lt_group IS NOT INITIAL.
      append_where_cond_to_select( EXPORTING iv_where_line     = 'BU_GROUP IN lt_group '
                                   CHANGING ct_where_pattern = lt_where_pattern ). "#EC NOTEXT
    ENDIF.
  ENDIF.

  IF is_bp_gen_search-ZSALES_ORG IS NOT INITIAL AND GV_CONDITION = 'X'.
    CALL METHOD cl_bupa_il_search_service=>map_attribute_to_range_tab
      EXPORTING
        iv_attribute_name       = 'ZSALES_ORG'
        it_selection_parameters = it_selection_parameters
      IMPORTING
        et_range_tab            = lt_SALES_ORG.
    IF lt_SALES_ORG IS NOT INITIAL.
      append_where_cond_to_select( EXPORTING iv_where_line     = 'SALES_ORG IN lt_SALES_ORG '
                                   CHANGING ct_where_pattern = lt_where_pattern ). "#EC NOTEXT
    ENDIF.
  ENDIF.
  "add where  cluse by ly 20170525  BP查询开关开启 添加查询条件    end

修改查询的对象，从BUT000到新的视图‘ZCRMV_BP_SEARCH’（此视图后面说明）

* DATA:  lv_from_clause TYPE string VALUE 'BUT000 '.
 DATA:  lv_from_clause TYPE string VALUE 'ZCRMV_BP_SEARCH '."CHANGE BY LY 20170525
 IF ( is_bp_gen_search-ZSALES_ORG IS INITIAL AND is_bp_gen_search-ZBP_GROUP IS INITIAL ) or is_control-employees = 'X'."add by ly 20170525
   lv_from_clause = 'BUT000'.
 ENDIF.

 IF GV_CONDITION = ''."BP查询开关，如果未开启，则走原始逻辑
   lv_from_clause = 'BUT000'.
 ENDIF.

另外，在查询后的数据过滤，也做个指向更改：FILTER_BY_SEARCH_CRITERIA

DATA ls_search_criteria01  TYPE ZHSCRMT_BUPA_IL_HEADER_SEARCH."change by ly 20170525
DATA ls_search_criteria    TYPE crmt_bupa_il_header_search.

* search by general but000 data
  IF ls_search_criteria01-bpgeneral IS NOT INITIAL.
    IF ME->GV_CONDITION = ''.
      CALL METHOD cl_bupa_il_search_service=>search_by_bp_general
        EXPORTING
          is_control              = ls_control
          is_bp_gen_search        = ls_search_criteria-bpgeneral
          it_selection_parameters = lt_selection_parameters
        CHANGING
          ct_partner_keys         = ct_partner_keys
          ct_return               = lt_return.
      APPEND LINES OF lt_return TO ct_return .
      IF ct_partner_keys IS INITIAL.
*     criteria given, but no result found
        RETURN.
      ENDIF.
    ELSE.
      "change by ly 20170525
      CALL METHOD zcl_bupa_il_search_service=>ZSEARCH_BP_GENERAL
        EXPORTING
          is_control              = ls_control
          is_bp_gen_search        = ls_search_criteria01-bpgeneral
          it_selection_parameters = lt_selection_parameters
          GV_CONDITION             = ME->GV_CONDITION
        CHANGING
          ct_partner_keys         = ct_partner_keys
          ct_return               = lt_return.
      APPEND LINES OF lt_return TO ct_return .
      IF ct_partner_keys IS INITIAL.
*     criteria given, but no result found
        RETURN.
      ENDIF.
    ENDIF.

  ENDIF.