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 ).

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