WDA学习（8）：Select Options && OVS

1.9 Select Options && OVS

本实例展示如何使用Select Options结合OVS(Object Value Selector)使用。

1.创建Web Dynpro Component

Name:Z_TEST_WDA3

Window Name:Z_TEST_WDA3

View Name:MAIN

2.Component Usage使用Select Options

选择Web Dynpro Comp.添加Component Use

3.设置MAIN视图组件

Layout页签：

创建Group类型视图控件Group1,设置CAPTION的text属性；

创建ViewContainerUIElement类型视图控件View1,用来显示Select Options的容器；

Properties页签：

创建Select Options使用组件参数。

Attributes页签：

创建参数M_HANDLER,类型IF_WD_SELECT_OPTIONS

创建参数M_WD_SELECT_OPTIONS,类型IWCI_WDR_SELECT_OPTIONS

Methods页签：

创建Event Handler，响应OVS事件；

重写WDDONINIT方法，初始化Select Options

method WDDOINIT.
  DATA:LT_RANGE_TABLE TYPE REF TO DATA.
  DATA:LR_VALUE TYPE REF TO DATA.
  FIELD-SYMBOLS: <FS_DATE> TYPE SFLIGHT-FLDATE.
  "Component Usage对应接口
  DATA:L_REF_CMP_USAGE TYPE REF TO IF_WD_COMPONENT_USAGE.

* create the used component
  L_REF_CMP_USAGE = WD_THIS->WD_CPUSE_SELECT_OPTIONS( ).
  IF L_REF_CMP_USAGE->HAS_ACTIVE_COMPONENT( ) IS INITIAL.
    L_REF_CMP_USAGE->CREATE_COMPONENT( ).
  ENDIF.

  "select Options接口
  WD_THIS->M_WD_SELECT_OPTIONS = WD_THIS->WD_CPIFC_SELECT_OPTIONS( ).
  "init the select screen
  WD_THIS->M_HANDLER = WD_THIS->M_WD_SELECT_OPTIONS->INIT_SELECTION_SCREEN( ).

  "Set the Global options
  "是否显示cancel,check,reset,execute按钮
  WD_THIS->M_HANDLER->SET_GLOBAL_OPTIONS(
   I_DISPLAY_BTN_CANCEL = ABAP_FALSE
   I_DISPLAY_BTN_CHECK   = ABAP_FALSE
   I_DISPLAY_BTN_RESET   = ABAP_FALSE
   I_DISPLAY_BTN_EXECUTE = ABAP_FALSE ).

  "设置select option字段
  "1.创建对应range table;2.将range table设置到select option;
  "调用CREATE_RANGE_TABLE方法,创建range table
  LT_RANGE_TABLE = WD_THIS->M_HANDLER->CREATE_RANGE_TABLE(
    I_TYPENAME = 'S_CARR_ID' ).
  "add a new field to the selection
  "ADD_SELECTION_FIELD方法添加字段到select option
  "I_VALUE_HELP_STRUCTURE,I_VALUE_HELP_STRUCTURE_FIELD,设置对应数据库表,字段
  "I_ID = 'S_CARR_ID' 设置字段对应id
  "I_READ_ONLY设置字段是否只读 abap_boolean
  "IT_RESULT 设置select option字段对应内表
  "I_OBLIGATORY 设置是否必输abap_boolean
  "I_DESCRIPTION 设置描述
  WD_THIS->M_HANDLER->ADD_SELECTION_FIELD(
    I_ID = 'S_CARR_ID'
    I_VALUE_HELP_STRUCTURE = 'SFLIGHT'
    I_VALUE_HELP_STRUCTURE_FIELD = 'CARRID'
    IT_RESULT = LT_RANGE_TABLE
    I_READ_ONLY = abap_false ).

  "plane type使用ovs帮助方式
  "创建range table
  LT_RANGE_TABLE = WD_THIS->M_HANDLER->CREATE_RANGE_TABLE(
    I_TYPENAME = 'S_PLANETYE' ).
  "将字段加入select option
  "I_VALUE_HELP_TYPE 指定IF_WD_VALUE_HELP_HANDLER=>CO_PREFIX_OVS
  "使用ovs帮助
  WD_THIS->M_HANDLER->ADD_SELECTION_FIELD(
    I_ID = 'S_PLANETYE'
    I_VALUE_HELP_TYPE = IF_WD_VALUE_HELP_HANDLER=>CO_PREFIX_OVS
    IT_RESULT = LT_RANGE_TABLE
    I_READ_ONLY = abap_false ).

  "ADD_PARAMETER_FIELD方法创建单个输入参数
  CREATE DATA LR_VALUE TYPE SFLIGHT-FLDATE.
  WD_THIS->M_HANDLER->ADD_PARAMETER_FIELD(
    I_ID = 'DATE'
    I_DESCRIPTION = 'select date'
    I_VALUE_HELP_STRUCTURE = 'SFLIGHT'
    I_VALUE_HELP_STRUCTURE_FIELD = 'FLDATE'
    I_OBLIGATORY = ABAP_TRUE
    I_VALUE = LR_VALUE ).

endmethod.

View Code

实现ON_OVSSEL方法：

method ON_OVSSEL .
  TYPES:T_FLIGHT TYPE TABLE OF SFLIGHT.
  DATA:LT_SFLIGHT TYPE TABLE OF SFLIGHT,
       WA_SFLIGHT LIKE LINE OF LT_SFLIGHT.
  DATA:gs_where TYPE C LENGTH 72.
  DATA:gt_where LIKE TABLE OF gs_where.
  DATA:l_line TYPE I.

  FIELD-SYMBOLS:<LT_OVS_RESULT> TYPE T_FLIGHT,
                <WA_OVS_RESULT> LIKE LINE OF <LT_OVS_RESULT>,
                <WA_QUERY> LIKE LINE OF <LT_OVS_RESULT>,
                <LT_SEL_OPT_RESULT> TYPE STANDARD TABLE,
                <FIELD> TYPE DATA.

  "ovs帮助，回调方法,ovs组件会多次触发回调方法
  IF I_OVS_DATA-M_SELECTION_FIELD_ID = 'S_PLANETYE'.
    CASE I_OVS_DATA-M_OVS_CALLBACK_OBJECT->PHASE_INDICATOR.
        "阶段0：配置ovs组件.
        "M_OVS_CALLBACK_OBJECT是IF_WD_OVS接口对象
        "提供SET_CONFIGURATION方法
        "TABLE_MULTI_SELECT：设置是否多行选择,abap_boolean
        "WINDOW_TITLE:设置窗口标题
        "LABEL_TEXTS:文本标签，WDR_NAME_VALUE_LIST
        "COLUMN_TEXTS:列文本，WDR_NAME_VALUE_LIST
        "TABLE_HEADER:结果table头
      WHEN IF_WD_OVS=>CO_PHASE_0.
        I_OVS_DATA-M_OVS_CALLBACK_OBJECT->SET_CONFIGURATION(
          TABLE_MULTI_SELECT = ABAP_TRUE ).

        "阶段1:the structure of the selection fields to be displayed must be defined in this phase
        "使用SET_INPUT_STRUCTURE方法
        "INPUT,定义selection的表结构
        "LABEL_TEXTS,文本标签，WDR_NAME_VALUE_LIST
        "WINDOW_TITLE:设置窗口标题
      WHEN IF_WD_OVS=>CO_PHASE_1.
        I_OVS_DATA-M_OVS_CALLBACK_OBJECT->SET_INPUT_STRUCTURE(
          INPUT = WA_SFLIGHT ).

        "阶段2:获取帮助table值
        "使用参数QUERY_PARAMETERS，获取用户筛选条件
        "使用SET_OUTPUT_TABLE设置显示筛选结果
      WHEN IF_WD_OVS=>CO_PHASE_2.
        "根据用户筛选条件，筛选结果
        ASSIGN I_OVS_DATA-M_OVS_CALLBACK_OBJECT->QUERY_PARAMETERS->* TO  <WA_QUERY>.
        IF <WA_QUERY>-carrid IS NOT INITIAL.
          gs_where = 'CARRID = ' && ' ''' && <WA_QUERY>-carrid && ''''.
          APPEND gs_where TO gt_where.
          gs_where = ' AND'.
          APPEND gs_where TO gt_where.
        ENDIF.
        IF <WA_QUERY>-connid IS NOT INITIAL.
          gs_where = 'CONNID = ' && ' ''' && <WA_QUERY>-connid && ''''.
          APPEND gs_where TO gt_where.
          gs_where = ' AND'.
          APPEND gs_where TO gt_where.
        ENDIF.

        "去掉最后一条and记录
        DESCRIBE TABLE gt_where LINES l_line.
        LOOP AT gt_where INTO gs_where.
          IF sy-tabix = l_line AND gs_where = ' AND'.
            DELETE gt_where INDEX l_line.
          ENDIF.
        ENDLOOP.

        "根据条件动态查询
        SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE LT_SFLIGHT WHERE (gt_where).

        I_OVS_DATA-M_OVS_CALLBACK_OBJECT->SET_OUTPUT_TABLE(
          OUTPUT = LT_SFLIGHT ).

        "阶段3：The result of the search was displayed in the results view of the OVS component.
        "SELECTION参数获取选择的结果集
      WHEN IF_WD_OVS=>CO_PHASE_3.
        "获取选择结果
        ASSIGN I_OVS_DATA-M_OVS_CALLBACK_OBJECT->SELECTION->* TO <LT_OVS_RESULT>.

        "mt_selected_values，保存选择后数据，显示在Select Options页面
        ASSIGN I_OVS_DATA-MT_SELECTED_VALUES->* TO <LT_SEL_OPT_RESULT>.
        "处理选择结果
        LOOP AT <LT_OVS_RESULT> ASSIGNING <WA_OVS_RESULT>.
          ASSIGN COMPONENT 'PLANETYPE' OF STRUCTURE <WA_OVS_RESULT> TO <FIELD>.
          INSERT <FIELD> INTO TABLE <LT_SEL_OPT_RESULT>.
        ENDLOOP.
    ENDCASE.
  ENDIF.
endmethod.