WDA学习（21）：WDA Popup,Message,Focus
1.14 WDA Popup,Message,Focus
WDA测试Popup，Message，光标Focus功能。
1.创建Component;
COMPONENTCONTROLLER页签
Context页签：创建Context Node:MESSAGE;
创建Attribute:MSG,类型CHAR1;
创建Attribute:MSG_TYPE,类型String;
Attributes页签：创建Attribute,名称POPUP,类型IF_WD_WINDOW;
Methods页签：创建Method,名称SHOW_MSG;
设置Parameter,名称MSG,类型STRING;
设置Parameter,名称MSG_TYPE,类型CHAR1;
代码实例：
"显示信息 DATA: lo_current_controller TYPE REF TO if_wd_controller, lo_message_manager TYPE REF TO if_wd_message_manager. "获取message manager lo_current_controller ?= wd_this->wd_get_api( ). CALL METHOD lo_current_controller->get_message_manager RECEIVING message_manager = lo_message_manager. "report message IF msg_type = 'S'. CALL METHOD lo_message_manager->report_success EXPORTING message_text = msg. ELSEIF msg_type = 'E'. CALL METHOD lo_message_manager->report_error_message EXPORTING message_text = msg. ELSEIF msg_type = 'I'. CALL METHOD lo_message_manager->report_message EXPORTING message_text = msg. ENDIF.
2.创建Main View，设置Layout；
1.Pop弹窗功能：使用Popup打开Window
使用if_wd_window_manager的create_window创建窗口，window_name这个参数设置自定义的Window;
这种方式需要创建VIEW:V_POP1，Layout只显示一个Message,也可以自定义页面;
然后创建Window Name:W_POP，包含VIEW:V_POP1;
创建LinkToAction组件，名称pop to window，绑定Action：POP_TO_WINDOW；
代码实例：
data:lo_window_manager type ref to if_wd_window_manager. data:lo_api_component type ref to if_wd_component. data:lo_api type ref to if_wd_view_controller. if wd_comp_controller->popup is initial. * create window lo_api_component = wd_comp_controller->wd_get_api( ). lo_window_manager = lo_api_component->get_window_manager( ). wd_comp_controller->popup = lo_window_manager->create_window( window_name = 'W_POP' title = '弹窗1' message_display_mode = if_wd_window=>CO_MSG_DISPLAY_MODE_NONE close_button = abap_true button_kind = if_wd_window=>CO_BUTTONS_YESNO "use constants if_wd_window=>CO_BUTTONS_* message_type = if_wd_window=>CO_MSG_TYPE_QUESTION "use constants if_wd_window=>CO_MSG_TYPE_* default_button = if_wd_window=>CO_BUTTON_YES "use constants if_wd_window=>CO_BUTTON_* close_in_any_case = abap_false ). lo_api = wd_this->wd_get_api( ). * subscribe to YES-Button wd_comp_controller->popup->subscribe_to_button_event( button = if_wd_window=>co_button_yes action_name = 'YES' action_view = lo_api ). * subscribe to NO-Button wd_comp_controller->popup->subscribe_to_button_event( button = if_wd_window=>co_button_no action_name = 'NO' action_view = lo_api ). ENDIF. * open popup wd_comp_controller->popup->open( ).
POP_TO_WINDOW这里注册了YES,NO两个Action，需要在Main View创建Action：YES,NO。设置MSG点击了yes or no;
实例代码ONACTIONYES：
DATA lo_nd_message TYPE REF TO if_wd_context_node. DATA lo_el_message TYPE REF TO if_wd_context_element. DATA ls_message TYPE wd_this->Element_message. DATA lv_msg TYPE wd_this->Element_message-msg. * navigate from <CONTEXT> to <MESSAGE> via lead selection lo_nd_message = wd_context->get_child_node( name = wd_this->wdctx_message ). * get element via lead selection lo_el_message = lo_nd_message->get_element( ). lv_msg = '点击yes'. * set single attribute lo_el_message->set_attribute( name = 'MSG' value = lv_msg ). "关闭弹窗 wd_comp_controller->popup->close( ).
2.Message Manager显示信息功能
创建Button组件,绑定Action: SHOW_MSG;
创建DropDownByKey组件,选择message类型；
代码实例：获取Message类型，调用component controller的show_msg方法；
DATA:lo_nd_message TYPE REF TO if_wd_context_node. DATA:lo_el_message TYPE REF TO if_wd_context_element. DATA:lv_msg_type TYPE wd_this->element_message-msg_type. DATA:lv_msg TYPE string VALUE '显示信息'. "获取信息类型 lo_nd_message = wd_context->get_child_node( name = 'MESSAGE' ). lo_el_message = lo_nd_message->get_element( ). lo_el_message->get_attribute( EXPORTING name = 'MSG_TYPE' IMPORTING value = lv_msg_type ). * report message IF lv_msg_type = 'S'. wd_comp_controller->show_msg( msg = lv_msg msg_type = 'S' ). ELSEIF lv_msg_type = 'E'. wd_comp_controller->show_msg( msg = lv_msg msg_type = 'E' ). ELSEIF lv_msg_type = 'I'. wd_comp_controller->show_msg( msg = lv_msg msg_type = 'I' ). ELSEIF lv_msg_type = 'W'. wd_comp_controller->show_msg( msg = lv_msg msg_type = 'W' ). ENDIF.
创建INIT_DROPDOWN方法；
初始化方法WDDOINIT中调用INIT_DROPDOWN方法；
"设置dropdown 信息类型 DATA:wd_node_info TYPE REF TO if_wd_context_node_info. DATA:wd_node TYPE REF TO if_wd_context_node. DATA value_set TYPE wdr_context_attr_value_list. DATA entry TYPE wdr_context_attr_value. wd_node = wd_context->get_child_node( name = 'MESSAGE' ). *初始化 entry-text = 'S'. entry-value = 'S'. APPEND entry TO value_set. entry-text = 'E'. entry-value = 'E'. APPEND entry TO value_set. entry-text = 'W'. entry-value = 'W'. APPEND entry TO value_set. wd_node_info = wd_node->get_node_info( ). wd_node_info->set_attribute_value_set( name = 'MSG_TYPE' value_set = value_set ).
3.External Window功能
通过URL打开其他WDA Application；
创建LinkToAction组件，open url,绑定Action: OPEN_URL;
创建LinkToAction组件，Open Application Url,绑定Action：OPEN_APPL_URL;
代码实例：ONACTIONOPEN_URL
通过if_wd_window_managet->create_external_window方法，打开新页签URL;
DATA:lo_window_manager TYPE REF TO if_wd_window_manager. DATA:lo_api_component TYPE REF TO if_wd_component. DATA:lo_view_control TYPE REF TO if_wd_view_controller. DATA:lo_window TYPE REF TO if_wd_window. "获取view controller lo_view_control = wd_this->wd_get_api( ). "获取view component lo_api_component = lo_view_control->if_wd_controller~get_component( ). "获取window manager lo_window_manager = lo_api_component->get_window_manager( ). lo_window_manager->create_external_window( EXPORTING url = 'https://www.baidu.com' title = 'open external window' modal = abap_false has_menubar = abap_true "false,弹出新窗口打开网页; is_resizable = abap_false "是否可重设大小 has_scrollbars = abap_false has_statusbar = abap_false has_toolbar = abap_false "false,没有标签，收藏等工具栏 has_location = abap_true "false,没有上一页，下一页，搜寻工具栏 RECEIVING window = lo_window ). "打开window lo_window->open( ).
代码实例：ONACTIONOPEN_APPL_URL
通过cl_wd_utilities=>construct_wd_url,根据component获取对应url;
DATA:lo_window_manager TYPE REF TO if_wd_window_manager. DATA:lo_api_component TYPE REF TO if_wd_component. DATA:lo_window TYPE REF TO if_wd_window. DATA:lv_url TYPE string. "获取application url cl_wd_utilities=>construct_wd_url( EXPORTING application_name = 'Z_TEST_WDA96' IMPORTING out_absolute_url = lv_url ). * "添加parameter * cl_http_server=>if_http_server~append_field_url( * EXPORTING * name = 'param1' * value = 'value1' * CHANGING * url = lv_url * ). "获取 component controller lo_api_component = wd_comp_controller->wd_get_api( ). "获取window manager lo_window_manager = lo_api_component->get_window_manager( ). lo_window_manager->create_external_window( EXPORTING url = lv_url title = 'open external window' modal = abap_false has_menubar = abap_true "false,弹出新窗口打开网页; is_resizable = abap_false "是否可重设大小 has_scrollbars = abap_false has_statusbar = abap_false has_toolbar = abap_false "false,没有标签，收藏等工具栏 has_location = abap_true "false,没有上一页，下一页，搜寻工具栏 RECEIVING window = lo_window ). "打开window lo_window->open( ).
4.Pop弹出功能：使用Popup创建弹窗
点击按钮打开弹窗；
创建LinkToAction组件，绑定Action：POP_TO_CONFIRM；
代码实例：ONACTIONPOP_TO_CONFIRM
使用if_wd_window_manager->create_popup_to_confirm方法创建一个confirm弹窗；
DATA:lo_window_manager TYPE REF TO if_wd_window_manager. DATA:lo_api_component TYPE REF TO if_wd_component. DATA:lo_view_controller TYPE REF TO if_wd_view_controller. DATA:lo_window TYPE REF TO if_wd_window. DATA:lv_string TYPE string. DATA:lt_string TYPE TABLE OF string. "获取当前视图controller lo_view_controller = wd_this->wd_get_api( ). lo_api_component = lo_view_controller->if_wd_controller~get_component( ). lo_window_manager = lo_api_component->get_window_manager( ). lv_string = 'This is Pop up to Confirm'. APPEND lv_string TO lt_string. lv_string = 'This is Pop up to Confirm'. APPEND lv_string TO lt_string. lo_window_manager->create_popup_to_confirm( EXPORTING text = lt_string button_kind = if_wd_window=>co_buttons_yesno message_type = if_wd_window=>co_msg_type_information close_button = abap_true "关闭按钮 window_title = 'Pop up confirm' window_left_position = 100 window_top_position = 200 window_position = if_wd_window=>co_center window_width = '200px' window_height = '400px' default_button = if_wd_window=>co_button_yes RECEIVING result = lo_window ). lo_window->subscribe_to_button_event( EXPORTING tooltip = 'yes' button_text = 'button yes' button = if_wd_window=>co_button_yes action_name = 'HDL_YES' action_view = lo_view_controller ). lo_window->subscribe_to_button_event( EXPORTING tooltip = 'no' button_text = 'button no' button = if_wd_window=>co_button_no action_name = 'HDL_NO' action_view = lo_view_controller ). "设置任何action发生后关闭 lo_window->set_close_in_any_case( abap_true ). "打开pop lo_window->open( ). "直接调用关闭 "lo_window->close( ).
代码实例：ONACTIONHDL_YES,处理YES点击事件；
wd_comp_controller->show_msg( msg = 'yes' msg_type = 'S' ).
代码实例：ONACTIONHDL_NO,处理NO点击事件；
wd_comp_controller->show_msg( msg = 'no' msg_type = 'S' ).
5.UI Element Focus功能
设置UI Element鼠标Focus;
MAIN View的初始化方法WDDOINIT方法调用INIT_INPFOCUS方法；
创建INIT_INPFOCUS方法；
代码实例：
通过if_wd_view_controller->request_focus方法，设置focus；
DATA:lo_node TYPE REF TO if_wd_context_node. DATA:lo_element TYPE REF TO if_wd_context_element. DATA:ls_inp TYPE wd_this->element_node_inp. DATA:lo_view_controll TYPE REF TO if_wd_view_controller. lo_view_controll = wd_this->wd_get_api( ). lo_node = wd_context->get_child_node( wd_this->wdctx_node_inp ). lo_element = lo_node->get_element( ). ls_inp-inp1 = 'hello'. ls_inp-inp2 = 'world'. "设置值 lo_element->set_static_attributes( EXPORTING static_attributes = ls_inp ). "设置Focus lo_view_controll->request_focus( EXPORTING context_element = lo_element attribute = 'INP2' ).
本文来自博客园，作者：渔歌晚唱，转载请注明原文链接：https://www.cnblogs.com/tangToms/p/16581981.html
