面向对象创建多个TABSTRIP

最新推荐文章于 2024-01-04 16:31:57 发布

原创最新推荐文章于 2024-01-04 16:31:57 发布 · 977 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#api #header #c

WEB DYNPRO ABAP 专栏收录该内容

12 篇文章

订阅专栏

这篇博客介绍了如何在LAYOUT上使用面向对象的方法新建一个TABSTRIP，并通过循环动态添加7个标签页。在wddomodifyview方法中，创建了WDY控制器和相关对象，设置每个标签页的头部和内容，并调用API进行操作。

上传不了图...

LAYOUT上新建:TABSTRIP,命名:TABSTRIP

wddomodifyview 中加入如下代码:

METHOD wddomodifyview .
  IF first_time EQ abap_true.
  DATA l_controller TYPE wdy_controllert.
  DATA l_controllers TYPE wdy_controllert_table.
  DATA l_wd_tabstrip TYPE REF TO cl_wd_tabstrip.
  DATA l_wd_tab TYPE REF TO cl_wd_tab.
  DATA l_wd_caption TYPE REF TO cl_wd_caption.
  DATA l_wd_view TYPE REF TO if_wd_view.
  DATA l_id_caption TYPE string.
  DATA l_id_vcu TYPE string.
  DATA l_text TYPE string.
  DATA lr_content TYPE REF TO cl_wd_view_container_uielement.
  DATA lr_view TYPE REF TO if_wd_view.
  DATA l_api TYPE REF TO if_wd_controller.
  l_api = wd_this->wd_get_api( ).
    l_wd_tabstrip ?= view->get_element( 'TABSTRIP' ).

    DO 7 TIMES.
      DATA temp(20) TYPE c.
      temp =  sy-tabix + 1 .
      CONDENSE temp.
      CONCATENATE 'SELECT_TAB__'  temp INTO l_id_caption.
      CONCATENATE 'VCU__'  temp INTO l_id_vcu.
      CONCATENATE '星期'  temp INTO l_text.

      l_wd_tab = cl_wd_tab=>new_tab( ).
      l_wd_caption = cl_wd_caption=>new_caption( id = l_id_caption  text = l_text ).
      l_wd_tab->set_header( l_wd_caption ).
      lr_content = cl_wd_view_container_uielement=>new_view_container_uielement(
                     id = l_id_vcu "c_change_request_container
                     view = lr_view ).
      l_wd_tab->set_content( lr_content ).
      l_wd_tabstrip->add_tab( l_wd_tab ).
    ENDDO.

  ENDIF.

ENDMETHOD.