WDA-3-ALV查询

 主要是梳理下WebDynpro For ABAP开发过程:

1.创建WebDynpro组件

2.创建WebDynpro应用

1.创建WebDynpro组件

 1.1创建

 路径:选择Package-->创建-->Web Dynpro-->WebDynpro组件(接口)

  

 

 1.2WebDynpro组件

  已使用的组件 中增加ALV 及Select Options组件,然后保存。

 

 标准组件:

 SALV_WD_TABLE      显示ALV数据表

 WDR_SELECT_OPTIONS    区间查询条件

 POWL_UI_COMP       POWL个人对象工作清单

 1.3 CompentController

 Properties标签页中创建控制范围

 

 

 

 创建数据结构:ZSMM1801_MATERIAL

 

 Context创建Node

 

 

 Cardinality参数:

 The following values are possible:

  • 1..1 : The node contains exactly one instance that must always be instantiated
  • 0..1 : The node contains exactly one instance that does not have to be instantiated
  • 1..n : The node can contain multiple instances and at least one of them must be instantiated
  • 0..n : The node can contain multiple instances and none of them must be instantiated

 The default is 1..1.

 Selection参数:

 The following values are possible:

  1..1 : Exactly one instance (table row) must be selected. It is automatically the lead selection.

  0..1 : No more than one instance (table row) can be selected. It is automatically the lead selection.

  1..n : Any number of instances can be selected, but at least one must be selected. One of them is the lead selection.

  0..n : Any number of instances can be selected, but none must be selected. One of the selected ones is the lead selection.

 The default is 0..1.

 

 上述Context设置完成,进入Attributes之前需要先创建辅助类ZCL_MM_SEARCH_MATERIAL:

 事务代码:SE24

 

 

 

 

 

 

 类保存并激活,然后维护WebDynpro组件辅助类:

 

 转到ComponentController 维护Attributes标签页。

 

 维护Methods标签页

 

 1.4VIEW设置

 打开MAIN主视图

  设置ROOTUIELEMENTCONTAINER:

  A.增加两个PANEL控件:TRY_SEL 查询条件  TRY_ALV 显示ALV

  B.TRY_SEL增加控件ViewContainerUIElement(VC_SEL)、控件ButtonRow(BTNR_SEARCH)、控件Button(BTN_SEARCH)

  C.TRY_ALV增加控件TransparentContainer(TC_DISPLAY)、控件ViewContainerUIElement(VC_ALV)

  设置完成后界面如下:

  

  上图中文本资源的设置可用两种方式:

  事务代码:SE63

  事务代码:SOTR_EDIT

  

  

  保存后维护相关控件的文本,如下所示:

  

  控件BTN_SEARCH图标维护:

  

  控件BTN_SEARCH按钮事件

  

  

  维护Context标签页:

  

  维护Attributes标签页如下所示:

  

  维护Action标签页

   

  维护Methods标签页

  

  VIEW视图设置完成,代码部分后面具体讲述。

 1.5Windows

  维护Windows窗口,选择VC_SEL右键选择嵌套视图

  

  

  Select options维护完成后,继续维护VC_ALV嵌套视图。

  

  维护完成后如下图所示:

  

  其他标签页设置如下:

  

  

  

  

  上述步骤完成后,整个WebDynpro组件相关设置就结束了,下一步进入代码设置环节。

 1.6代码部分

  注意事件执行先后顺序:WDA-WebDynpro事件执行先后顺序

   ComponentController维护Methods相关方法:

  

  组件初始化WDDOINIT方法:

method wddoinit .
  free:  wd_this->go_sel.
  clear: wd_this->gv_message.
  
  "初始Select-options
  wd_this->init_sel( ).
  "初始ALV
  wd_this->init_alv( ).

endmethod.

  INIT_ALV方法:

method init_alv .
  data:
    lo_nd_zsmm_mat type ref to if_wd_context_node,
    lo_cmp_alv     type ref to if_wd_component_usage,
    lo_cmpif_alv   type ref to iwci_salv_wd_table,
    lo_config      type ref to cl_salv_wd_config_table.

* alv component usage
  lo_cmp_alv = wd_this->wd_cpuse_alv_mat( ).
  if lo_cmp_alv->has_active_component( ) is initial.
    lo_cmp_alv->create_component( ).
  endif.

* set data node
  lo_nd_zsmm_mat = wd_context->get_child_node( name = wd_this->wdctx_zsmm_material ).
  lo_cmpif_alv  = wd_this->wd_cpifc_alv_mat( ).
  lo_cmpif_alv->set_data( lo_nd_zsmm_mat ).

* configure alv
  lo_config = lo_cmpif_alv->get_model( ).

* table settings
  lo_config->if_salv_wd_table_settings~set_fixed_table_layout( value = abap_true ).
  lo_config->if_salv_wd_table_settings~set_visible_row_count( 11 ).
  lo_config->if_salv_wd_table_settings~set_footer_visible( if_salv_wd_c_table_settings=>footer_visible_on_demand ).
  lo_config->if_salv_wd_table_settings~set_scrollable_col_count( 11 ).
  lo_config->if_salv_wd_table_settings~set_read_only( abap_false ).
  lo_config->if_salv_wd_table_settings~set_data_check( if_salv_wd_c_table_settings=>data_check_on_cell_event ).

  lo_config->if_salv_wd_std_functions~set_view_list_allowed( abap_false ).
  lo_config->if_salv_wd_std_functions~set_pdf_allowed( abap_false ).
  lo_config->if_salv_wd_std_functions~set_edit_check_available( abap_false ).
  lo_config->if_salv_wd_std_functions~set_edit_insert_row_allowed( abap_false ).
  lo_config->if_salv_wd_std_functions~set_edit_append_row_allowed( abap_false ).
  lo_config->if_salv_wd_std_functions~set_edit_delete_row_allowed( abap_false ).

** table toolbar
*  data:
*    lo_fun_add    type ref to cl_salv_wd_function,
*    lo_btn_add    type ref to cl_salv_wd_fe_button,
*    lo_fun_new    type ref to cl_salv_wd_function,
*    lo_btn_new    type ref to cl_salv_wd_fe_button,
*    lo_fun_chg    type ref to cl_salv_wd_function,
*    lo_btn_chg    type ref to cl_salv_wd_fe_button,
*    lo_fun_invite type ref to cl_salv_wd_function,
*    lo_btn_invite type ref to cl_salv_wd_fe_button,
*    lo_fun_save   type ref to cl_salv_wd_function,
*    lo_btn_save   type ref to cl_salv_wd_fe_button.
*
*  lo_fun_add = lo_config->if_salv_wd_function_settings~create_function( 'ADD' ).
*  create object lo_btn_add.
*  lo_btn_add->set_text( wd_assist->get_text( key = 'ADD' ) ).
*  lo_fun_add->set_editor( lo_btn_add ).
*
*  lo_fun_new = lo_config->if_salv_wd_function_settings~create_function( 'NEW' ).
*  create object lo_btn_new.
*  lo_btn_new->set_text( wd_assist->get_text( key = 'NEW' ) ).
*  lo_fun_new->set_editor( lo_btn_new ).
*
*  lo_fun_chg = lo_config->if_salv_wd_function_settings~create_function( 'CHG' ).
*  create object lo_btn_chg.
*  lo_btn_chg->set_text( wd_assist->get_text( key = 'CHG' ) ).
*  lo_fun_chg->set_editor( lo_btn_chg ).
*
*  lo_fun_invite = lo_config->if_salv_wd_function_settings~create_function( 'INVITE' ).
*  create object lo_btn_invite.
*  lo_btn_invite->set_text( wd_assist->get_text( key = 'INV' ) ).
*  lo_fun_invite->set_editor( lo_btn_invite ).
*
*  lo_fun_save = lo_config->if_salv_wd_function_settings~create_function( 'SAVE' ).
*  create object lo_btn_save.
*  lo_btn_save->set_text( wd_assist->get_text( key = 'SAV' ) ).
*  lo_fun_save->set_editor( lo_btn_save ).

* table columns and column header
  data:
    lt_columns         type salv_wd_t_column_ref,
    ls_column          type salv_wd_s_column_ref,
    lo_column          type ref to cl_salv_wd_column,
    lo_header          type ref to cl_salv_wd_column_header,
    lo_dropdown_by_key type ref to cl_salv_wd_uie_dropdown_by_key,
    lo_input_field     type ref to cl_salv_wd_uie_input_field,
    lo_text_view       type ref to cl_salv_wd_uie_text_view,
    lv_field_name      type string,
    lv_length          type i.


  lt_columns = lo_config->if_salv_wd_column_settings~get_columns( ).
  
 
 "ALV输出字段 loop at lt_columns into ls_column. lo_column
= ls_column-r_column. lo_header = lo_column->get_header( ). lo_header->set_ddic_binding_field( if_salv_wd_c_column_settings=>ddic_bind_none ). case ls_column-id. when 'MATNR'. "lo_column->set_width( value = '18' ). lo_header->set_text( value = wd_assist->get_text( key = 'A01' ) ). when 'ERNAM'. "lo_column->set_width( value = '12' ). lo_header->set_text( value = wd_assist->get_text( key = 'A02' ) ). when 'ERSDA'. "lo_column->set_width( value = '8' ). lo_header->set_text( value = wd_assist->get_text( key = 'A03' ) ). when 'MTART'. "lo_column->set_width( value = '4' ). lo_header->set_text( value = wd_assist->get_text( key = 'A04' ) ). when 'MBRSH'. "lo_column->set_width( value = '1' ). lo_header->set_text( value = wd_assist->get_text( key = 'A05' ) ). when 'MATKL'. "lo_column->set_width( value = '9' ). lo_header->set_text( value = wd_assist->get_text( key = 'A06' ) ). when 'MEINS'. "lo_column->set_width( value = '3' ). lo_header->set_text( value = wd_assist->get_text( key = 'A07' ) ). when 'GROES'. "lo_column->set_width( value = '32' ). lo_header->set_text( value = wd_assist->get_text( key = 'A08' ) ). when 'SPART'. "lo_column->set_width( value = '2' ). lo_header->set_text( value = wd_assist->get_text( key = 'A09' ) ). when 'WERKS'. "lo_column->set_width( value = '4' ). lo_header->set_text( value = wd_assist->get_text( key = 'A10' ) ). when 'EKGRP'. "lo_column->set_width( value = '3' ). lo_header->set_text( value = wd_assist->get_text( key = 'A11' ) ). when others. lo_column->set_visible( value = cl_wd_uielement=>e_visible-blank ). endcase. endloop. endmethod.

  设置文本元素(A01-->A11):

  

  

  

  INIT_SEL方法:

method init_sel .
  data:
    lo_cmp_selopt   type ref to if_wd_component_usage,
    lo_cmpif_selopt type ref to iwci_wdr_select_options.

* alv component usage
  lo_cmp_selopt = wd_this->wd_cpuse_select_opt( ).
  if lo_cmp_selopt->has_active_component( ) is initial.
    lo_cmp_selopt->create_component( ).
  endif.
  lo_cmpif_selopt = wd_this->wd_cpifc_select_opt( ).

* sets the helper reference
* wd_this->go_selopt = wd_this->wd_cpifc_cmp_sel_opt( ).
  wd_this->go_sel = lo_cmpif_selopt->init_selection_screen( ).
  call method wd_this->go_sel->set_global_options
    exporting
      i_display_btn_cancel  = abap_false
      i_display_btn_check   = abap_false
      i_display_btn_reset   = abap_false
      i_display_btn_execute = abap_false.

  data lo_field type ref to data.

  define mcr_add_selopt.
    free lo_field.
    lo_field = wd_this->go_sel->create_range_table( &2 ).
    wd_this->go_sel->add_selection_field(
      i_id           = &1
      it_result      = lo_field
      i_description  = &3 ).
  end-of-definition.

  define mcr_add_parameter_d.
    free lo_field.
    create data lo_field type (&2).
    wd_this->go_sel->add_parameter_field(
      i_id           = &1
      i_value        = lo_field
      i_description  = &3
      i_as_dropdown  = abap_true
      it_value_set   = &4 ).
  end-of-definition.

  data: lv_text type string.

  clear: lv_text.
  lv_text = wd_assist->get_text( key = 'S01' ).
  mcr_add_selopt    'BU_WERKS'    'WERKS_D' lv_text.

  clear: lv_text.
  lv_text = wd_assist->get_text( key = 'S02' ).
  mcr_add_selopt    'BU_MATNR'    'MATNR'  lv_text.
endmethod.

  文本元素(S01,S02)设置方式同上。

  BT_SEARCH查询按钮方法:

  进入视图VIEW-MAIN,点击查询按钮,获取事件onAction:BT_SEARCH,双击事件。

  

  设置ONACTIONBT_SEARCH事件触发方法:wd_comp_controller->bt_search( ).

  

  注意:WD_COMP_CONTROLLER 是继承COMPONENTCONTROLLER的接口

  

  维护COMPONENTCONTROLLER的方法BT_SEARCH

  

method bt_search .
  data:
    lo_data     type ref to data,
    lt_sel_item type if_wd_select_options=>tt_selection_screen_item.

  field-symbols:
    <fs_bu_werks> type table,
    <fs_bu_matnr> type table,
    <fs_sel_item> like line of lt_sel_item.

  clear: wd_this->gv_message.

  wd_this->go_sel->get_selection_screen_items(
    importing
      et_selection_screen_items = lt_sel_item ).

  loop at lt_sel_item assigning <fs_sel_item>.
    case <fs_sel_item>-m_id.
      when 'BU_WERKS'.
        assign <fs_sel_item>-mt_range_table->* to <fs_bu_werks>.
      when 'BU_MATNR'.
        assign <fs_sel_item>-mt_range_table->* to <fs_bu_matnr>.
    endcase.
  endloop.

  data lo_nd_zsmm_mat type ref to if_wd_context_node.
  data lt_zsmm_mat type wd_this->elements_zsmm_material.
  data ls_zsmm_mat type wd_this->element_zsmm_material.

  lo_nd_zsmm_mat = wd_context->get_child_node( name = wd_this->wdctx_zsmm_material ).

  data:
    lt_material type table of zsmm1801_material.

  field-symbols:
    <fs_material> type zsmm1801_material.

  select *
    into corresponding fields of table lt_material
    from mara as a
   inner join marc as b
      on a~matnr = b~matnr
   where a~matnr in <fs_bu_matnr>
     and b~werks in <fs_bu_werks>.

  loop at lt_material assigning <fs_material>.
    move-corresponding <fs_material> to ls_zsmm_mat.
    append ls_zsmm_mat to lt_zsmm_mat.
    clear:ls_zsmm_mat.
  endloop.

  "Data binding
  lo_nd_zsmm_mat->bind_table( new_items = lt_zsmm_mat set_initial_elements = abap_true ).
endmethod.

   BT_ALV_FUN(ALV状态栏新增按钮—当前测试未设置,后续讲解)方法:

  上述代码完成后进行校验并激活。

2.创建WebDynpro应用程序

 2.1创建WebDynpro应用程序

 选择WebDynpro组件并创建WebDynpro应用程序:

 

 

 

 

 保存。

 2.2测试

 

 出现如上错误,应该是辅助类的继承问题,可以在COMPONENTCONTROLLER方法WDDOINIT中设置断点进行调试,看看在运行哪一步骤出错,然后针对问题进行处理。

 问题调整后再测试运行:

点击查询按钮:

至此,ALV的查询完成。

原文地址:https://www.cnblogs.com/ricoo/p/10213558.html