Dynamische Anzahl an Tabreiter in Webdynro

Re: Dynamische Anzahl an Tabreiter in Webdynro

Code: Alles auswählen.

DATA: o_tab      TYPE REF TO cl_wd_tabstrip,
        o_obj      TYPE REF TO cl_wd_tab,
        o_text      TYPE REF TO cl_wd_caption,
        o_table    TYPE REF TO cl_wd_table,
        o_node      TYPE REF TO if_wd_context_node,
        o_container TYPE REF TO cl_wd_uielement_container.

  DATA: v_texto  TYPE char20,
        v_string TYPE string.

  CHECK NOT first_time IS INITIAL.

  DO 5 TIMES.

    WRITE sy-index TO v_texto.
    CONDENSE v_texto.
    CONCATENATE 'NOVO' v_texto INTO v_string.
    o_tab ?= view->get_element( id = 'TABSTRIP' ).
    o_obj = cl_wd_tab=>new_tab( ).
    o_text = cl_wd_caption=>new_caption( text = v_string ).
    o_obj->set_header( the_header = o_text ).
    o_node = wd_context->get_child_node( 'SFLIGHT' ).
    o_container ?= view->get_root_element( ).
    o_table = cl_wd_dynamic_tool=>create_table_from_node( ui_parent = o_container
                                                          table_id = v_string
                                                          node = o_node ).

    o_obj->register_to_view( i_view = view ).
    o_obj->set_content( the_content = o_table ).
    o_tab->add_tab( the_tab = o_obj ).