WDA学习(19）：UI Element:Table使用

1.12 UI Element:Table使用

1.Table Filter and Sort

1.1创建Context节点;

NODE_SFLIGHT,

 

FILTER_COL:CARRID,CONNID栏位做为筛选器栏位

 

1.2创建Layout UI Element;

创建Table,绑定节点NODE_SFLIGHT;

设置Property:onFilter,绑定Action:FILTER;

设置Property:onSort,绑定Action：SORT;

 

创建TableColumnGroup:

包含TableColumn:

T_TABLE1_CARRID

T_TABLE1_CONNID

设置Property: isFiltered勾选

 

创建Toolbar:

Button:Append Row,绑定Action:ADD_ROW;

Button:Delete,绑定Action：DELETE_ROW;

 

Table的OnFilter,OnSort方法，设置Action：FILTER,SORT;

 

1.3实现Action对应Method;

ADD_ROW方法:

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.

  lo_node = wd_context->get_child_node( name = wd_this->WDCTX_node_sflight ).
  lo_element = lo_node->create_element( ).
  lo_node->bind_element( new_item = lo_element set_initial_elements = abap_false ). 

DELETE_ROW方法：

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.
  DATA:ls_sflight TYPE wd_this->Element_node_sflight.

  lo_node = wd_context->get_child_node( name = wd_this->WDCTX_node_sflight ).
  lo_element = lo_node->get_element( ).
  IF lo_element IS BOUND.
    lo_node->remove_element( element = lo_element ).
  ENDIF. 

FILTER方法：

  "filter
  "table实现filter方法
  "column属性设置：isFiltered 是否使用filter, filterValue:筛选器值
  DATA:lo_table TYPE REF TO CL_WD_TABLE.
  DATA:lo_method_handler TYPE REF TO IF_WD_TABLE_METHOD_HNDL.

  lo_table ?= wd_this->v_view->get_element( id = 'T_TABLE1' ).
  lo_method_handler ?= lo_table->_METHOD_HANDLER.
  lo_method_handler->apply_filter( ). 

SORT方法：

  "sort排序
  "table实现sort方法
  "column设置属性sortState: notSortable不允许sort, down 降序，up升序，none无；
  DATA:lo_table TYPE REF TO CL_WD_TABLE.
  DATA:lo_method_handler TYPE REF TO IF_WD_TABLE_METHOD_HNDL.

  lo_table ?= wd_this->v_view->get_element( id = 'T_TABLE1' ).
  lo_method_handler ?= lo_table->_METHOD_HANDLER.
  lo_method_handler->apply_sorting( ).

INIT_DATA方法：初始化数据；

查询Sflight数据绑定显示；

设置Filter可选值；

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.
  DATA:lt_sflight TYPE wd_this->Elements_node_sflight.
  DATA:ls_sflight LIKE LINE OF lt_sflight.

  DATA:lo_node_info TYPE REF TO if_wd_context_node_info.
  DATA:lo_node_info_filter TYPE REF TO if_wd_context_node_info.
  DATA:ls_val_set TYPE wdr_context_attr_value.
  DATA:lt_val_set TYPE SORTED TABLE OF wdr_context_attr_value WITH UNIQUE DEFAULT KEY.

  "查询数据
  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sflight FROM sflight.
  lo_node = wd_context->get_child_node( name = wd_this->WDCTX_node_sflight ).
  lo_node->bind_table( new_items = lt_sflight set_initial_elements = abap_true ).

  lo_node_info = wd_context->get_node_info( ).
  lo_node_info_filter = lo_node_info->get_child_node( name = wd_this->wdctx_filter_col ).
  LOOP AT lt_sflight INTO ls_sflight.
    ls_val_set-text = ls_val_set-value = ls_sflight-carrid.
    INSERT ls_val_set INTO TABLE lt_val_set.
  ENDLOOP.
  "设置Filter可选值
  lo_node_info_filter->set_attribute_value_set( name = 'CARRID' value_set = lt_val_set ).

2.Table Cell Popin

2.1创建Context节点NODE_SFLIGHT；

节点结构和Table:Sflight一致。

额外节点内创建Node:CELL_POPIN,可以保存多行数据;

CLASS:String类型；

Value:INT4类型；

 

额外创建Attribute:POPIN_NAME,保存POP IN组件ID;

 

2.2创建Layout;

Table组件，右键Create Binding选择显示字段和Sflight一致；

Table参数selectedPopin：绑定Context节点中POPIN_NAME字段；

创建TableColumnGroup组件:T_POPIN,POP IN的控制字段；

创建TableColumn组件:TOGGLE_POPIN列；

设置Property: selectedCellVariant值toggle_key；

选择TableColumn,右键Insert Cell Variant创建TablePopinToggleCell组件；

onToggle参数绑定Action:TOGGLE_POPIN_CELL;

variantKey参数设定值toggle_key，和TableColumn一致；

创建TableColumn组件:ACTION列；

创建LinkToAction组件:onAction参数绑定Action: OPEN_ROW_POPIN;

 

选择Table,创建TablePopin组件,绑定Action:CLOSE_POPIN;

创建BusinessGraphics组件；

设置参数：seriesSource，绑定Context节点CELL_POPIN;

选择BusinessGraphics，右键Insert Category创建Category组件，描述绑定CELL_POPIN.CLASS字段；

选择BusinessGraphics，右键Insert Series创建SimpleSeries组件，value绑定CELL_POPIN.VALUE字段；

 

2.3Action方法实现

Action:CLOSE_POPIN

 

Action: OPEN_ROW_POPIN,参数和close_popin一致；

  DATA:ls_sflight TYPE wd_this->Element_node_sflight.
  DATA:ls_cell_popin TYPE wd_this->Element_cell_popin.
  DATA:lt_cell_popin TYPE wd_this->Elements_cell_popin.
  DATA:lo_node TYPE REF TO if_wd_context_node.

  context_element->get_static_attributes( IMPORTING static_attributes = ls_sflight ).

  "设置row popin数据
  ls_cell_popin-class = 'Max Seats(link)'.
  ls_cell_popin-value = ls_sflight-seatsmax.
  APPEND ls_cell_popin TO lt_cell_popin.
  ls_cell_popin-class = 'Occ Seats(link)'.
  ls_cell_popin-value = ls_sflight-seatsocc.
  APPEND ls_cell_popin TO lt_cell_popin.

  lo_node = context_element->get_child_node( wd_this->wdctx_cell_popin ).
  lo_node->bind_table( lt_cell_popin ).

  context_element->set_attribute( name = 'POPIN_NAME' value = 'TABLE_ROW_POPIN' ).

Action: TOGGLE_POPIN_CELL,参数一致；

  DATA:ls_sflight TYPE wd_this->Element_node_sflight.
  DATA:ls_cell_popin TYPE wd_this->Element_cell_popin.
  DATA:lt_cell_popin TYPE wd_this->Elements_cell_popin.
  DATA:lo_node TYPE REF TO if_wd_context_node.

  context_element->get_static_attributes( IMPORTING static_attributes = ls_sflight ).

  "设置row popin数据
  ls_cell_popin-class = 'Max Seats(toggle)'.
  ls_cell_popin-value = ls_sflight-seatsmax.
  APPEND ls_cell_popin TO lt_cell_popin.
  ls_cell_popin-class = 'Occ Seats(toggle)'.
  ls_cell_popin-value = ls_sflight-seatsocc.
  APPEND ls_cell_popin TO lt_cell_popin.

  lo_node = context_element->get_child_node( wd_this->wdctx_cell_popin ).
  lo_node->bind_table( lt_cell_popin ). 

INIT_DATA方法，查询节点数据，在View的INIT,或者mobify时执行；

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.
  DATA:lt_sflight TYPE wd_this->Elements_node_sflight.
  DATA:ls_sflight LIKE LINE OF lt_sflight.
  "查询数据
  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sflight FROM sflight.
  lo_node = wd_context->get_child_node( name = wd_this->WDCTX_node_sflight ).
  lo_node->bind_table( new_items = lt_sflight set_initial_elements = abap_true ).

 

 

3.Table Subtotal

3.1创建Context节点NODE_SFLIGHT;

结构和Table:Sflight一致；

创建Attribute: CELL_VARIANT,String类型；

 

3.2创建Layout;

创建Table组件；

修改TableColumn,Carrid对应列；

设置Property:selectedCellVariant,绑定CELL_VARIANT的值；

 

选择TableColumn,右键Insert Cell Variant创建TableSummaryCell组件；

设置cellDesign参数值：Total/SubTotal,只是表现底色不同;

设置variantKey参数值：SUM；

3.3实现方法

INIT_DATA,查询数据绑定显示，其中cell_variant设置值和variantKey的值对应；

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.
  DATA:lt_sflight TYPE wd_this->Elements_node_sflight.
  DATA:lt_sflight_temp TYPE wd_this->Elements_node_sflight.
  DATA:ls_sflight LIKE LINE OF lt_sflight.
  DATA:ls_sum_sflight LIKE LINE OF lt_sflight.
  "查询数据
  SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_sflight FROM sflight.
  "创建汇总行
  LOOP AT lt_sflight INTO ls_sflight.
    AT NEW carrid.
      CLEAR ls_sum_sflight.
    ENDAT.
    AT NEW connid.
      ls_sum_sflight-carrid = ls_sflight-carrid.
      ls_sum_sflight-connid = ls_sflight-connid.
      ls_sum_sflight-fldate = ls_sflight-fldate.
      ls_sum_sflight-currency = ls_sflight-currency.
      ls_sum_sflight-planetype = ls_sflight-planetype.
      ls_sum_sflight-cell_variant = 'SUM'.
    ENDAT.
    ls_sum_sflight-seatsmax = ls_sum_sflight-seatsmax + ls_sflight-seatsmax.
    ls_sum_sflight-seatsocc = ls_sum_sflight-seatsocc + ls_sflight-seatsocc.
    ls_sum_sflight-price = ls_sum_sflight-price + ls_sflight-price.
    ls_sum_sflight-paymentsum = ls_sum_sflight-paymentsum + ls_sflight-paymentsum.
    AT END OF connid.
      APPEND ls_sum_sflight TO lt_sflight_temp.
    ENDAT.
    AT END OF carrid.
      CLEAR ls_sum_sflight.
    ENDAT.
    APPEND ls_sflight TO lt_sflight_temp.

  ENDLOOP.

  lo_node = wd_context->get_child_node( name = wd_this->wdctx_node_sflight ).
  lo_node->bind_table( new_items = lt_sflight_temp set_initial_elements = abap_true ).

4.Context Change Log

4.1创建Context节点，NODE_SCARR;

字段结构和SCARR一致；

 

创建Context节点，NODE_CHANGE_LOG,记录修改记录；

节点结构Attribute名称，类型：

NODE_NAME: WDR_CTX_NODE_NAME,节点名；

SEQUENCE：WDR_SEQUENCE，Log序号；

NODE_PATH：WDR_CTX_ELEMENT_PATH，节点路径；

CHANGE_KIND：WDR_CHANGE_KIND，修改类型；

ELEMENT_INDEX：WDR_INDEX，Element顺序，Table中哪一行；

ATTRIBUTE_NAME：WDR_ATTRIBUTE_NAME，Attribute名称；

OLD_VALUE：String,旧值；

NEW_VALUE：String,新值；

 

4.2创建Layout;

创建Toolbar组件，执行某些操作；

创建Table组件，显示Scarr表信息；

创建Table组件，显示Change Log信息；

 

4.3实现方法

默认Log是打开的。可以通过方法设置；

Disable change Log:

  "取消change log
  wd_context->get_context( )->disable_context_change_log( ). 

Enable change Log:

  "使能change log
  wd_context->get_context( )->enable_context_change_log( ). 

方法Get Change Data，获取修改记录，更新显示；

主要使用wd_context->get_context()->get_context_change_log()方法获取修改记录；

  DATA:lo_node TYPE REF TO if_wd_context_node.
  DATA:lo_element TYPE REF TO if_wd_context_element.
  DATA:lt_change_list TYPE wdr_context_change_list.
  DATA:ls_change_list TYPE wdr_context_change.
  "chang log
  DATA:lt_change_log TYPE wd_this->elements_node_change_log.
  DATA:ls_change_log TYPE wd_this->element_node_change_log.
  FIELD-SYMBOLS:<lv_old_val> TYPE ANY.
  FIELD-SYMBOLS:<lv_new_val> TYPE ANY.

  lt_change_list = wd_context->get_context( )->get_context_change_log( and_reset = abap_false ).
  LOOP AT lt_change_list INTO ls_change_list
    WHERE attribute_name IS NOT INITIAL.
    CLEAR ls_change_log.
    ls_change_log-node_name = ls_change_list-node_name.
    ls_change_log-sequence = ls_change_list-sequence.
    ls_change_log-node_path = ls_change_list-node_path.
    ls_change_log-change_kind = ls_change_list-change_kind.
    ls_change_log-element_index = ls_change_list-element_index.
    ls_change_log-attribute_name = ls_change_list-attribute_name.
    ASSIGN ls_change_list-old_value->* TO <lv_old_val>.
    ASSIGN ls_change_list-new_value->* TO <lv_new_val>.
    ls_change_log-old_value = <lv_old_val>.
    ls_change_log-new_value = <lv_new_val>.
    APPEND ls_change_log TO lt_change_log.
  ENDLOOP.
  "绑定数据
  lo_node = wd_context->get_child_node( name = wd_this->wdctx_node_change_log ).
  lo_node->bind_table( new_items = lt_change_log set_initial_elements = abap_true ).