WDA学习（21）：WDA Popup,Message,Focus|江阴雨辰互联

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 managerlo_current_controller ?= wd_this->wd_get_api( ).CALL METHOD lo_current_controller->get_message_managerRECEIVINGmessage_manager = lo_message_manager."report messageIF msg_type = 'S'.CALL METHOD lo_message_manager->report_successEXPORTINGmessage_text = msg.ELSEIF msg_type = 'E'.CALL METHOD lo_message_manager->report_error_messageEXPORTINGmessage_text = msg.ELSEIF msg_type = 'I'.CALL METHOD lo_message_manager->report_messageEXPORTINGmessage_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 windowlo_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_NONEclose_button           = abap_truebutton_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-Buttonwd_comp_controller->popup->subscribe_to_button_event(button             = if_wd_window=>co_button_yesaction_name        = 'YES'action_view        = lo_api).
* subscribe to NO-Buttonwd_comp_controller->popup->subscribe_to_button_event(button             = if_wd_window=>co_button_noaction_name        = 'NO'action_view        = lo_api).ENDIF.
* open popupwd_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 selectionlo_nd_message = wd_context->get_child_node( name = wd_this->wdctx_message ).
*   get element via lead selectionlo_el_message = lo_nd_message->get_element( ).lv_msg = '点击yes'.
*   set single attributelo_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(EXPORTINGname = 'MSG_TYPE'IMPORTINGvalue = lv_msg_type).
* report messageIF 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 controllerlo_view_control = wd_this->wd_get_api( )."获取view componentlo_api_component = lo_view_control->if_wd_controller~get_component( )."获取window managerlo_window_manager = lo_api_component->get_window_manager( ).lo_window_manager->create_external_window(EXPORTINGurl = ''title = 'open external window'modal = abap_falsehas_menubar = abap_true "false,弹出新窗口打开网页;is_resizable = abap_false "是否可重设大小has_scrollbars = abap_falsehas_statusbar = abap_falsehas_toolbar = abap_false "false,没有标签，收藏等工具栏has_location = abap_true  "false,没有上一页，下一页，搜寻工具栏RECEIVINGwindow = lo_window)."打开windowlo_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 urlcl_wd_utilities=>construct_wd_url(EXPORTINGapplication_name = 'Z_TEST_WDA96'IMPORTINGout_absolute_url = lv_url).
*  "添加parameter
*  cl_http_server=>if_http_server~append_field_url(
*    EXPORTING
*      name = 'param1'
*      value = 'value1'
*    CHANGING
*      url = lv_url
*  )."获取 component controllerlo_api_component = wd_comp_controller->wd_get_api( )."获取window managerlo_window_manager = lo_api_component->get_window_manager( ).lo_window_manager->create_external_window(EXPORTINGurl = lv_urltitle = 'open external window'modal = abap_falsehas_menubar = abap_true "false,弹出新窗口打开网页;is_resizable = abap_false "是否可重设大小has_scrollbars = abap_falsehas_statusbar = abap_falsehas_toolbar = abap_false "false,没有标签，收藏等工具栏has_location = abap_true  "false,没有上一页，下一页，搜寻工具栏RECEIVINGwindow = lo_window)."打开windowlo_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."获取当前视图controllerlo_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(EXPORTINGtext = lt_stringbutton_kind = if_wd_window=>co_buttons_yesnomessage_type = if_wd_window=>co_msg_type_informationclose_button = abap_true "关闭按钮window_title = 'Pop up confirm'window_left_position = 100window_top_position = 200window_position = if_wd_window=>co_centerwindow_width = '200px'window_height = '400px'default_button = if_wd_window=>co_button_yesRECEIVINGresult = lo_window).lo_window->subscribe_to_button_event(EXPORTINGtooltip = 'yes'button_text = 'button yes'button = if_wd_window=>co_button_yesaction_name        = 'HDL_YES'action_view        = lo_view_controller).lo_window->subscribe_to_button_event(EXPORTINGtooltip = 'no'button_text = 'button no'button = if_wd_window=>co_button_noaction_name        = 'HDL_NO'action_view        = lo_view_controller)."设置任何action发生后关闭lo_window->set_close_in_any_case( abap_true )."打开poplo_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(EXPORTINGstatic_attributes = ls_inp)."设置Focuslo_view_controll->request_focus(EXPORTINGcontext_element = lo_elementattribute = 'INP2').

发布者：admin，转转请注明出处：http://www.yc00.com/news/1706080533a1439394.html

WDA学习（21）：WDA Popup,Message,Focus