WDA 新SELECT OPTION
感谢肖总的提示,不然还不知道wda的新select option。。。
使用前提:SE24类:CL_WDR_SELECT_OPTIONS_20
核对了多个版本,ERP系统版本要S4 1701往上,CRM系统7 EHP3及以上,没有怎么管这个,不对也别怪我。。。
SE80,查看SELECT OPTION的组件:WD_SELECT_OPTIONS_20是否存在,如果不存在则不能使用。
1.新建WDA组件ZLYTEST_SELECT,并激活
2.双击WDA添加SELECT OPTION组件和ALV组件。
3。双击COMPONENTCONTROLLER,添加查询结果节点。结构预先定义。
4.双击V_MAIN视图,将ALV组件和SELECT OPTION添加到视图中。布局中添加两个UI element
5.初始化alv和select option对象
METHOD init_alv .
DATA: lr_comp_alv TYPE REF TO if_wd_component_usage,
lr_comp_if_alv TYPE REF TO iwci_salv_wd_table.
DATA:gt_zcrmt0060 TYPE TABLE OF zcrmt0060,
gw_zcrmt0060 LIKE LINE OF gt_zcrmt0060,
gv_string TYPE string. DATA: lr_column_settings TYPE REF TO if_salv_wd_column_settings,
lr_column TYPE REF TO cl_salv_wd_column,
lr_column_header TYPE REF TO cl_salv_wd_column_header. DATA: lt_column TYPE salv_wd_t_column_ref,
ls_column TYPE salv_wd_s_column_ref. ****
DATA: lr_input_field TYPE REF TO cl_salv_wd_uie_input_field,
lr_checkbox TYPE REF TO cl_salv_wd_uie_checkbox,
lr_image TYPE REF TO cl_salv_wd_uie_image,
lr_dropdown_by_key TYPE REF TO cl_salv_wd_uie_dropdown_by_key.
DATA lr_column_id TYPE string.
****
DATA: lr_field_amnt TYPE REF TO cl_salv_wd_field . DATA: lv_aggr_rule TYPE REF TO cl_salv_wd_aggr_rule,
lr_sort_rule TYPE REF TO cl_salv_wd_sort_rule. lr_comp_alv = wd_this->wd_cpuse_alv( ) .
IF lr_comp_alv->has_active_component( ) IS INITIAL.
lr_comp_alv->create_component( ).
ENDIF. DATA lr_config TYPE REF TO cl_salv_wd_config_table.
DATA:lr_func_config TYPE REF TO cl_salv_wd_config_table. lr_comp_if_alv = wd_this->wd_cpifc_alv( ).
lr_config = lr_comp_if_alv->get_model( ).
lr_func_config = lr_comp_if_alv->get_model( ). lr_column_settings ?= lr_config .
lt_column = lr_column_settings->get_columns( ). SELECT * INTO TABLE gt_zcrmt0060 FROM zcrmt0060 WHERE sales_org = 'O 50000297' AND
component_name = 'ZHSCRM_DEALER_RET'
AND alv = 'ALV'.
SORT gt_zcrmt0060 BY posit ASCENDING. *========================================================= DATA: l_value TYPE REF TO cl_salv_wd_config_table. l_value = lr_comp_if_alv->get_model( ).
l_value->if_salv_wd_table_settings~set_fixed_table_layout( abap_false ). "使列宽不可自动调节
l_value->if_salv_wd_table_settings~set_width( '100%' ) . "设置宽度
l_value->if_salv_wd_table_settings~set_visible_row_count( '' ). "显示的行数
l_value->if_salv_wd_table_settings~set_scrollable_col_count( '' ).
l_value->if_salv_wd_table_settings~set_read_only( abap_true ).
l_value->if_salv_wd_table_settings~set_display_empty_rows( abap_false ). l_value->if_salv_wd_table_settings~set_selection_mode( cl_wd_table=>e_selection_mode-multi_no_lead ).
l_value->if_salv_wd_function_settings~set_enabled( abap_true ) .
* l_value->if_salv_wd_std_functions~set_display_as_allowed( abap_false ) .
* l_value->if_salv_wd_std_functions~set_sort_headerclick_allowed( abap_false ) .
l_value->if_salv_wd_std_functions~set_edit_check_available( abap_false ) .
l_value->if_salv_wd_std_functions~set_edit_insert_row_allowed( abap_false ) .
* l_value->if_salv_wd_std_functions~set_export_allowed( abap_true ) .
* l_value->if_salv_wd_std_functions~set_view_list_allowed( abap_false ).
l_value->if_salv_wd_std_functions~set_pdf_allowed( abap_false ) .
l_value->if_salv_wd_std_functions~set_edit_append_row_allowed( abap_false ) .
l_value->if_salv_wd_std_functions~set_edit_delete_row_allowed( abap_false ) .
l_value->if_salv_wd_std_functions~set_filter_filterline_allowed( abap_true ).
l_value->if_salv_wd_std_functions~set_filter_complex_allowed( abap_true ).
* l_value->if_salv_wd_std_functions~set_dialog_settings_allowed( abap_true ). DATA: lr_table_settings TYPE REF TO if_salv_wd_table_settings.
lr_table_settings ?= l_value.
lr_table_settings->set_data_check( '' ).
lr_table_settings->set_read_only( abap_false ). LOOP AT lt_column INTO ls_column.
lr_column_id = ls_column-id.
lr_column = ls_column-r_column. lr_column->set_resizable( value = 'X' ).
lr_column->set_width( value = '' ). READ TABLE gt_zcrmt0060 INTO gw_zcrmt0060 WITH KEY field = ls_column-id.
IF sy-subrc = .
IF gw_zcrmt0060-visiable = 'X'.
lr_column_header = ls_column-r_column->create_header( ).
ls_column-r_column->set_position( gw_zcrmt0060-posit ).
IF gw_zcrmt0060-text CS 'CRM/'.
gv_string = gw_zcrmt0060-text.
lr_column_header->set_text( zcl_otr=>get_text( gv_string ) ).
ELSE.
IF gw_zcrmt0060-text IS NOT INITIAL.
gv_string = gw_zcrmt0060-text.
lr_column_header->set_text( gv_string ).
ENDIF.
ENDIF.
ELSE.
ls_column-r_column->set_position( gw_zcrmt0060-posit ).
lr_column = lr_column_settings->get_column( ls_column-id ).
lr_column->set_visible( if_wdl_core=>visibility_none ).
ENDIF.
ELSE.
ls_column-r_column->set_position( gw_zcrmt0060-posit ).
lr_column = lr_column_settings->get_column( ls_column-id ).
lr_column->set_visible( if_wdl_core=>visibility_none ).
ENDIF.
"使用配置表替代原来的case逻辑 ENDLOOP.
ENDMETHOD.
METHOD init_select .
DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.
DATA lo_interfacecontroller TYPE REF TO iwci_wd_select_options_20. "创建selec option组件对象
lo_cmp_usage = wd_this->wd_cpuse_select_option( ).
IF lo_cmp_usage->has_active_component( ) IS INITIAL.
lo_cmp_usage->create_component( ).
ENDIF.
"取到当前的select option 对象
lo_interfacecontroller = wd_this->wd_cpifc_select_option( ). "设置select option全局参数
* wd_comp_controller->mo_select_option = lo_interfacecontroller->init_select_options(
wd_this->mo_select_option = lo_interfacecontroller->init_select_options(
* general_texts = ls_general_texts " wdso_general_texts
* general_visibility = ls_general_visibility " wdso_general_visibility
* global_options = ls_global_options " wdso_global_options
* saved_searches = lt_saved_searches " wdso_tt_value_set
* personalization = ls_pers
actual_search = 'C'
). "初始化select option的字段
DATA gt_select_attr TYPE wdr_so_t_attributes.
DATA gw_select_attr TYPE wdr_so_s_attributes.
DATA gt_value_set TYPE wdr_context_attr_value_list.
DATA gw_value_set TYPE wdr_context_attr_value.
DATA select_init TYPE wdr_so_t_values.
* DATA VAR_DATE_ATTRIBUTES TYPE WDR_SO_T_OPDEP_VALUESET.
* DATA RENDER_ONLY_INITIAL_DATA TYPE WDY_BOOLEAN.
* DATA PROPOSED_ROWS TYPE WDR_SO_T_VALUES.
gw_select_attr-attribute = 'OBJECT_ID'.
gw_select_attr-attr_type = 'ID'.
gw_select_attr-text = 'OBJECT ID'.
gw_select_attr-dataelement = 'CRMT_OBJECT_ID'. gw_select_attr-value_set = gt_value_set[].
APPEND gw_select_attr TO gt_select_attr.
CLEAR:gw_select_attr.
gw_select_attr-attribute = 'PROCESS_TYPE'.
gw_select_attr-attr_type = 'ID'.
gw_select_attr-text = 'Transaction Type'.
gw_select_attr-dataelement = 'CRMT_PROCESS_TYPE_DB'.
APPEND gw_select_attr TO gt_select_attr.
CLEAR:gw_select_attr.
gw_select_attr-attribute = 'PORTAL'.
gw_select_attr-attr_type = 'CK'.
gw_select_attr-text = 'PORTAL FLAG'.
gw_select_attr-dataelement = 'ZE_PORTAL_FLAG'.
APPEND gw_select_attr TO gt_select_attr.
wd_this->mo_select_option->add_attributes(
EXPORTING
attributes = gt_select_attr
* initial_data = initial_data
* var_date_attributes = var_date_attributes
* render_only_initial_data = render_only_initial_data
* IMPORTING
* proposed_rows = proposed_rows
). ENDMETHOD.
将ALV和select option初始化的方法加到WDA视图的WDDOINIT里
6.在WINDOW里绑定视图下面的UI对象和组件
7.将ALV数据对象绑定COMPONENTCONTROLLER结果节点
8.创建application,并测试。结果如下:
9.SELECT OPTION的查询参数处理和结果绑定
METHOD onactionsearch . DATA rt_range TYPE wdr_so_t_range_ref.
DATA rs_range TYPE wdr_so_s_range_ref.
DATA max_nr_of_results TYPE i.
DATA max_nr_of_results_is_null TYPE wdy_boolean.
DATA select_all TYPE wdy_boolean.
DATA lo_nd_retab TYPE REF TO if_wd_context_node.
DATA lt_retab TYPE wd_this->elements_retab.
FIELD-SYMBOLS: <fs_object_id> TYPE table,
<fs_flag> TYPE table,
<fs_type> TYPE table. wd_this->mo_select_option->get_input_complete_as_range(
IMPORTING
range_ref = rt_range
max_nr_of_results = max_nr_of_results
max_nr_of_results_is_null = max_nr_of_results_is_null
select_all = select_all
). LOOP AT rt_range INTO rs_range.
CASE rs_range-attribute.
WHEN 'OBJECT_ID'.
ASSIGN rs_range-range->* TO <fs_object_id>.
WHEN 'PORTAL'.
ASSIGN rs_range-range->* TO <fs_flag>.
WHEN 'PROCESS_TYPE'.
ASSIGN rs_range-range->* TO <fs_type>.
WHEN OTHERS.
ENDCASE.
ENDLOOP. SELECT guid object_id posting_date po_number_ship AS po_number_sold
retailer zzzmodeno
shipto AS ship_to stat_user AS stat
INTO CORRESPONDING FIELDS OF TABLE lt_retab
FROM zhsb_order_index
WHERE object_id IN <fs_object_id>
AND process_type IN <fs_type>. lo_nd_retab = wd_context->get_child_node( name = wd_this->wdctx_retab ).
lo_nd_retab->bind_table( new_items = lt_retab set_initial_elements = abap_true ). ENDMETHOD.
WDA 新SELECT OPTION的更多相关文章
- WDA基础十八:Select option配置
为了省代码...为了方便管理WDA的查询条件... 首先建配置表: 说明: 上面的KEY基本都是维护的维度,可以根据销售组织,根据用户组,根据组件,根据SELECT OPTION的不同...等等,可以 ...
- 接前一篇:new select option保存搜索条件
WD_SELECT_OPTIONS_20新加了很多好玩的东西,尤其是里面的保存搜索条件和使用保存的搜索条件.因为这个比较想WEB UI,所以兴趣比较高一点,WEB UI里是把参数拼成XML存起来的,我 ...
- multiple类型的select option在django后台如何取值
之前前端的select都是单选类型,在新的场景中允许用户选择多个条件, 前端的代码如下: <form action="{% url 'info:result-list' %}" ...
- selectDOM操作详解-select option详细解释
首先从一个面试题来讲,我最近在做前端面试题,题目如下: 完成函数showlmg(),要求能够动态根据下拉列表的选项变化,更新图片的显示<body><script type=" ...
- jquery获得select option的值 和对select option的操作
jQuery获取Select元素,并选择的Text和Value: 1. $("#select_id").change(function(){//code...}); //为Se ...
- IE8 下 select option 内容过长 , 展开时信息显示不全解决办法
IE8 下 select option 内容过长 , 展开时信息显示不全 , 简单折衷的方式就是给 option 加上 title 属性 , 但是又不想一个个的修改,怎么办呢,代码如下 : //sel ...
- JQuery 对 Select option 的操作---转载
<select id="selectID" > <option value="1">1</option> <optio ...
- jquery获得select option的值 和对select option的操作【转藏】
获取Select : 获取select 选中的 text : $("#ddlRegType").find("option:selected").text(); ...
- 通过匹配绑定select option的文本值 模糊匹配
//通过匹配绑定select option的文本值 模糊匹配 $(".class option:contains('文本值')").attr("selected" ...
随机推荐
- python3下爬取网页上的图片的爬虫程序
import urllib.request import re #py抓取页面图片并保存到本地 #获取页面信息 def getHtml(url): html = urllib.request.urlo ...
- Why choose Nexiq USB-link 125032 Diesel Truck Diagnose
Nexiq 125032 usb link is Diesel Truck diagnostic Interface. Nexiq truck scanner can compatible with ...
- MySQL ERROR 1698 (28000): Access denied for user 'root'@'localhost'
今天在安装MySQL的过程中竟然没有让我输入密码,登录的时候也不需要密码就能进入,这让我很困惑. 进了数据库就设置密码,用了各种方式都不行. 虽然我这数据库没啥东西但也不能没有密码就裸奔啊,有点丢人是 ...
- linux 定时任务,压缩 日志,并删除掉 指定日期之前的 日志
sh文件 #!/bin/sh myPath="/var/www/Client/storage/logs/" myFile="lumen.log" cd $myP ...
- iOS项目之iPhoneX遇到的坑
问题一: 今天升级到Xcode 9.0,里面多了iPhone 8,iPhone 8P,iPhone X三款手机模拟器,而且发现最多可以同时运行五个模拟器.但随之而来的问题也出现了,就是 iPhone ...
- qt注册表关联文件格式
注册表相关知识:http://www.360doc.com/content/12/0812/19/3688062_229808059.shtml(超详细超实用) 将某种类型的格式关联到某个可执行程序, ...
- 论文笔记:ProxylessNAS: Direct Neural Architecture Search on Target Task and Hardware
ProxylessNAS: Direct Neural Architecture Search on Target Task and Hardware 2019-03-19 16:13:18 Pape ...
- 编码原则 之 Once and Only Once
原文 The Once and Only Once principle can be thought of as a subset of the Don’t Repeat Yourself princ ...
- [转载]vb 时间戳与时间互转
转自:https://blog.csdn.net/boys1999/article/details/23298415 vb 时间戳与时间互转 2014年04月09日 21:13:47 boys1999 ...
- sql server把一个库表的某个字段更新到另一张表的相同字段
缘由:进行update时忘了加where条件,导致所有数据全部update.. sql: 1 update Activity set endTime=b.endTime from idj_tl_bf. ...