ICode9
精准搜索请尝试： 精确搜索
首页
编程语言>
数据库
系统相关
互联网
其他分享
Python
Java
JavaScript
android
PHP
首页 > 其他分享> 文章详细

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

2022-08-13 09:01:22  阅读：206  来源： 互联网

标签：WDA Popup 21 lo window wd msg message TYPE


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,Popup,21,lo,window,wd,msg,message,TYPE
来源： https://www.cnblogs.com/tangToms/p/16581981.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

关于我们 | 联系我们 | 留言反馈

专注分享技术，共同学习，共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有