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.

 

转载于:https://www.cnblogs.com/sapSB/p/6800265.html