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'

  ).

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

1.14 WDA Popup,Message,Focus

1.Pop弹窗功能：使用Popup打开Window

2.Message Manager显示信息功能

3.External Window功能

4.Pop弹出功能：使用Popup创建弹窗

5.UI Element Focus功能

WDA学习（21）：WDA Popup,Message,Focus的相关教程结束。

相关推荐

学习Linux，要把握哪些重点？

shell学习总结

SwiftUI学习（一）

学习 Linux，101: 使用基本 SQL 命令

XV6学习（1） Lab util

MySQL 学习四 SQL优化

再学习之Spring(依赖注入)

Java 系列之spring学习--依赖注入（二）