CRM WEB UI 01 BOL向导创建的搜索

创建BOL的步骤就不说了，自己找，学习这个之前，需要自己先找个SAP CRM资料预习一下

T-CODE:BSP_WD_CMPWB

1.创建组件：输入组件名：ZLYTEST03，点击创建按钮，回车，选择包和请求。。。回车，回车，回车，知道创建成功，进入组件里。

2.加入BOL：点击运行时资源库编辑器，点击修改右键'MODEL'，添加自建的或者标准的BOL。保存，F3退出一下，再进入，会带出BOL浏览器按钮。

3.创建视图：点击组件结构浏览器，选择视图，右键，‘创建搜索页面’，选择搜索节点和结果节点（此节点需要在BOL中添加）。单选或者多选。。选择需要做链接的字段（如无，则下一步），如果需要结果视图中增加按钮，可自行添加，点击继续，完成。

4.配置SEARCH界面和RESULT界面，需要那些字段自己加。

5.运行，会出现上面配置的搜索条件和搜索界面界面（如果是自己一个个建的，需要将查询和结果视图加到视图集中，将视图集加到WINDOWS中）

6.搜索代码实现：在查询视图的事件处理器中，重定义查询（如果已经在BOL里写了查询代码的，自行解决）

DATA:
      LR_QUERY_SERVICE   TYPE REF TO   CL_CRM_BOL_DQUERY_SERVICE,
      LR_MESSAGE_SERVICE TYPE REF TO   CL_BSP_WD_MESSAGE_SERVICE,
      LV_MESSAGE         TYPE          STRING,
      LR_SEL_PARAMS      TYPE REF TO   IF_BOL_BO_COL,
      LR_COL             TYPE REF TO   IF_BOL_BO_COL,
      LR_PARAM           TYPE REF TO   IF_BOL_BO_PROPERTY_ACCESS,
      LR_ITERATOR        TYPE REF TO   IF_BOL_BO_COL_ITERATOR,
      LS_SELECTION       TYPE          GENILT_SELECTION_PARAMETER,
      LT_PARAMS          TYPE          GENILT_SELECTION_PARAMETER_TAB,
      LV_MAX_HITS        TYPE          I,
      LR_VALUENODE       TYPE REF TO   CL_BSP_WD_VALUE_NODE,
      GS_CLAUSE          TYPE STRING,
      GT_CLAUSE          TYPE TABLE OF STRING,
      GT_EKKO            TYPE TABLE OF EKKO,
      GW_EKKO            TYPE EKKO..

    "获取当前查询节点
    LR_QUERY_SERVICE ?= ME->TYPED_CONTEXT->SEARCHQUERYNODE->COLLECTION_WRAPPER->GET_CURRENT( ).

    "检查查询节点实例化
    CHECK LR_QUERY_SERVICE IS BOUND.

    "清空结果节点内容
    ME->TYPED_CONTEXT->SEARCHRESULTNODE->COLLECTION_WRAPPER->CLEAR( ).

    "获取查询对象
    LR_SEL_PARAMS = LR_QUERY_SERVICE->GET_SELECTION_PARAMS( ).

    "获取最大值
    LR_QUERY_SERVICE->GET_PROPERTY_AS_VALUE( EXPORTING IV_ATTR_NAME = 'MAX_HITS'
                                             IMPORTING EV_RESULT = LV_MAX_HITS ).

    "获取查询对象的BOL迭代器^_^
    LR_ITERATOR   = LR_SEL_PARAMS->GET_ITERATOR( ).

    "迭代器循环获取查询对象的值
    LR_PARAM      = LR_ITERATOR->GET_FIRST( ).

    WHILE LR_PARAM IS BOUND.
      LR_PARAM->GET_PROPERTIES( IMPORTING ES_ATTRIBUTES = LS_SELECTION ).
      IF LS_SELECTION-LOW IS NOT INITIAL OR LS_SELECTION-HIGH IS NOT INITIAL."选择条件有值
        IF LS_SELECTION-LOW IS NOT INITIAL AND LS_SELECTION-HIGH IS NOT INITIAL AND LS_SELECTION-OPTION = 'BT'.
          CONCATENATE LS_SELECTION-ATTR_NAME 'BETWEEN' LS_SELECTION-LOW 'AND' LS_SELECTION-HIGH INTO GS_CLAUSE SEPARATED BY ' '.
        ENDIF.
        IF LS_SELECTION-LOW IS NOT INITIAL.

IF LS_SELECTION-OPTION <> 'EQ' AND LS_SELECTION-OPTION <> 'NE'.
            REPLACE ALL OCCURRENCES OF '*' IN LS_SELECTION-LOW WITH '%'.
            CONCATENATE '''' LS_SELECTION-LOW '''' INTO LS_SELECTION-LOW.
            CONCATENATE LS_SELECTION-ATTR_NAME 'LIKE' LS_SELECTION-LOW INTO GS_CLAUSE SEPARATED BY ' '.
            ELSE.
              CONCATENATE LS_SELECTION-ATTR_NAME LS_SELECTION-OPTION LS_SELECTION-LOW INTO GS_CLAUSE SEPARATED BY ' '.
          ENDIF.

ENDIF.

APPEND GS_CLAUSE TO GT_CLAUSE.

ENDIF.
*      APPEND LS_SELECTION TO LT_PARAMS.
      LR_PARAM = LR_ITERATOR->GET_NEXT( ).
    ENDWHILE.

    SELECT * INTO CORRESPONDING FIELDS OF TABLE GT_EKKO
        FROM EKKO WHERE (GT_CLAUSE).

    DATA:  LR_REF_ANY    TYPE REF TO DATA,
           LR_VALUE_NODE TYPE REF TO CL_BSP_WD_VALUE_NODE.

    CREATE OBJECT LR_COL TYPE CL_CRM_BOL_BO_COL.

    LOOP AT GT_EKKO INTO GW_EKKO.
      GET REFERENCE OF GW_EKKO INTO LR_REF_ANY.
      CREATE OBJECT LR_VALUE_NODE
        TYPE
        CL_BSP_WD_VALUE_NODE
        EXPORTING
          IV_DATA_REF = LR_REF_ANY.
      LR_COL->ADD( LR_VALUE_NODE ).

    ENDLOOP.

    ME->TYPED_CONTEXT->SEARCHRESULTNODE->COLLECTION_WRAPPER->ADD_COLLECTION( LR_COL ).

好了，到这里，搜索视图搞定了。。。可以运行起来看看了