UI基础一：值节点赋值

METHOD EH_ONSEARCH.
*CALL METHOD SUPER->EH_ONSEARCH
** EXPORTING
** HTMLB_EVENT =
** HTMLB_EVENT_EX =
* .
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_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.
CONCATENATE LS_SELECTION-ATTR_NAME LS_SELECTION-OPTION LS_SELECTION-LOW INTO GS_CLAUSE SEPARATED BY ' '.
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.
"值类型转化添加到结果
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. ME->TYPED_CONTEXT->SEARCHRESULTNODE->COLLECTION_WRAPPER->ADD( LR_VALUE_NODE ).
ENDLOOP.
ENDMETHOD.