WDA SEARCH step by step

之前写了不少的东西,其实大多数都是给自己看的,我的习惯是把资料放到网上,用的时候直接看博客。

之前硬盘轻轻摔了一下,几年的资料没了,然后就再也不用硬盘了。

昨天有人突然问我关于WDA的问题,毕竟奇怪,这年头竟然还有来学WDA的。。。闲着也是闲着,那就做几个小例子,服务大众吧。

一,本篇分两小部分,先说用NODE节点做查询条件的,再说用SELECT-OPTION做查询条件的。

1.新建WDA组件:ZLYWDA01.

选择Web Dynpro Comp./Intf.

 输入WDA组件名称ZLYWDA01,回车。

这时会弹出提示框:选择YES

 填写完整组件的描述和初始组件建立的视图和窗口。(这里我修改了窗口名称W_MAIN,视图名称V_MAIN。。这是我自己的命名规范,可随意)

 回车创建,这时候组件还是未激活状态,右键,激活。

2.新建NODE节点

前面说了,先做node节点的查询,所以我们这里要建NODE节点了,再建之前,先说一下怎么建。

 正常来说,这三个地方都可能会建NODE,但是NODE作用的范围不同。

COMPONENTCONTROLLER可以理解为全局,这里定义的NODE,在整个程序中的任何位置都可以用,也如果创建的时候勾选了接口节点,别的程序引用到这个程序的时候,也是可以用接口节点的。

VIEW 里建的节点智能当前视图使用,一般也不会做其他引用。

WINDOW里建的节点只能当前窗口使用,这里一般不建议用,一般窗口只做展示可数据预处理,不做NODE节点控制。

所以呢,这里就先在视图中建一个查询用的字段节点:

双击视图V_MAIN,选择视图的Context节点页签,右键新建节点:

输入节点(NODE)名称 ,下面的信息默认,

右键节点,添加属性,这里就建单的添加两个做测试。

添加第一个搜索字段,object

 

添加第二个搜索字段:process_type

 

2.新建布局。

查询节点创建完之后,点到layout布局页签

在做页面设计之前,先在脑海里有个整体的概念,要设计成什么样的。

我们这里只是做建单的查询和结果显示,所以就设计两块:查询和结果。

新建tray做查询块和结果块。并添加折叠块说明描述。

 

 

 

 3.将node字段添加到SEARCH块中。(一种是单独建label和input字段,另一种就是直接全部引入进来)这里用后者

 

 

 带回来布局里的效果如下:

 如上图,SEARCH这个TRAY的layout属性是默认的布局,FlowLayout,横列的。

这个样式不够好看,我们给改成MatrixLayout

 为了好看,我们将第二个查询字段设置到第二列:

 这里的布局MatrixLayout,是以MatrixHeadData为行开头,MatrixData跟在后面排成一行,直到下一个headdata重启一行。

字段是以从上到下顺序分布的,如果要调节字段位置,需要上下移动字段和label的位置。再结合行列开始标记就差不多了。

效果如下:

到这里,查询节点和布局已经完成了,下面做结果节点。

 如果是直接参考某个数据库字典 结构或者表,可以直接再创建节点中的字典结构中添加对应的表或者结构。

同SEARCH一样,添加查询结果字段。

这里就只添加几个做测试例子。

回到layout中,在查询结果块中添加table控件。

 

 绑定NODE到表控件:

 右键,创建绑定:

选择ITAB节点。

 

 保存,效果如下:

现在查询和结果都有了,下面就开始做查询操作。

在SEARCH块中添加查询按钮。

 

 创建查询事件:

 

 到查询方法中添加代码:

METHOD onactionsearch .
  DATA lo_nd_search TYPE REF TO if_wd_context_node.
  DATA lo_el_search TYPE REF TO if_wd_context_element.
  DATA ls_search TYPE wd_this->element_search.

  DATA lo_nd_itab TYPE REF TO if_wd_context_node.
  DATA lt_itab TYPE wd_this->elements_itab.
  "取查询节点
*   navigate from <CONTEXT> to <SEARCH> via lead selection
  lo_nd_search = wd_context->get_child_node( name = wd_this->wdctx_search ).
*   get element via lead selection
  lo_el_search = lo_nd_search->get_element( ).
*   @TODO handle not set lead selection
  IF lo_el_search IS INITIAL.
*   get all declared attributes
    lo_el_search->get_static_attributes(
      IMPORTING
        static_attributes = ls_search ).
  ENDIF.

  "查询逻辑处理

  SELECT object_id process_type posting_date sales_org stat_user INTO TABLE lt_itab FROM zhsb_order_index UP TO 10 ROWS.


  "赋值结果节点

* navigate from <CONTEXT> to <ITAB> via lead selection
  lo_nd_itab = wd_context->get_child_node( name = wd_this->wdctx_itab ).
  lo_nd_itab->bind_table( new_items = lt_itab set_initial_elements = abap_true ).

ENDMETHOD.

如果用这种方式,需要定义range表,然后挨个判断界面是否有输入,然后再把值填到range表中,最后用range表查询。这里就不做处理了。

好了,右键组件,新建应用程序来测试看看。

属性名称

 

 点击保存,复制URL测试或者右键应用程序测试;

效果如下:

给下拉框初始化。

添加init_drop方法:

METHOD init_dorp .
  DATA lo_nd_search TYPE REF TO if_wd_context_node.
  DATA l_node_info TYPE REF TO if_wd_context_node_info.
  DATA: lt_value_set TYPE  zcrm_tabtyp_wdy_key,
        ls_value_set TYPE wdy_key_value.
  "查询单据类型和文本,对应到下拉的key 和VALUE
  SELECT process_type AS key p_description_20 AS value INTO TABLE lt_value_set
    FROM crmc_proc_type_t WHERE process_type BETWEEN 'ZSV1' AND 'ZSV3' AND langu = sy-langu.

*获取下拉节点
  lo_nd_search = wd_context->get_child_node( name = wd_this->wdctx_search ).
  "获取下拉节点属性
  l_node_info = lo_nd_search->get_node_info( ).
  "下拉节点赋值
  l_node_info->set_attribute_value_set( name = 'PROCESS_TYPE' value_set = lt_value_set ).


ENDMETHOD.

最后将init_dorp方法在视图init里调用:

 效果如下:

原文地址:https://www.cnblogs.com/sapSB/p/13925181.html