Dynamic Text Edit and Groups

Question

Hi Experts ,
I want to create dynamic text edits and groups.
Thank You.

Answer 1

Hi Radhika,
Sorry was busy with some other tasks. Just go through this sample code snippet which does the following.
1) It dynamically creates a context node named CHILD and then creates 4 attributes ATTR1, ATTR2,..
2) Creates a GROUP UI element with a caption attached to it
3) Create 4 textEdit UI elements bound to the 4 context attributes created earlier and embed them within the group
Regards,
Uday
METHOD wddomodifyview.
  DATA: lr_container TYPE REF TO cl_wd_uielement_container,
        lr_group TYPE REF TO cl_wd_group,
        lr_caption_group TYPE REF TO cl_wd_caption,
        lr_textedit TYPE REF TO cl_wd_text_edit,
        lr_node_info TYPE REF TO if_wd_context_node_info,
        lr_node TYPE REF TO if_wd_context_node,
        lr_element TYPE REF TO if_wd_context_element,
        lr_attribute_info TYPE wdr_context_attribute_info,
        content TYPE string,
        attribute_name TYPE string,
     lv_textview_id TYPE string.
  CHECK first_time = abap_true.
  lr_node_info = wd_context->get_node_info( ).
  CALL METHOD lr_node_info->add_new_child_node
    EXPORTING
      name                         = 'CHILD'
      is_mandatory                 = abap_false
      is_multiple                  = abap_true
      is_multiple_selection        = abap_true
      is_singleton                 = abap_false
      is_initialize_lead_selection = abap_true
      is_static                    = abap_false
    RECEIVING
      child_node_info              = lr_node_info.
  lr_container ?= view->get_root_element( ).
  cl_wd_matrix_layout=>new_matrix_layout( container = lr_container ).
  lr_group = cl_wd_group=>new_group( id = 'GROUP' ).
  lr_group->set_width( value = '50%' ).
  cl_wd_matrix_layout=>new_matrix_layout( container = lr_group ).
  cl_wd_matrix_head_data=>new_matrix_head_data( element = lr_group ).
  lr_caption_group = cl_wd_caption=>new_caption( text = 'Group Header' ).
  lr_group->set_header( the_header = lr_caption_group ).
  DO 4 TIMES.
    MOVE sy-index TO attribute_name.
** Preparing the data to be displayed in the textEdit i.e, data for context attribute
    CONCATENATE 'This'
                'is the'
                'data for textEdit number: '
                 attribute_name  INTO content SEPARATED BY cl_abap_char_utilities=>newline.
    CONCATENATE 'ATTR'
                attribute_name INTO attribute_name.
** Condense the ID to ensure that the format is consistent with SAP standard
    CONDENSE attribute_name NO-GAPS.
** Prepare properties of attribute & add to context node CHILD
    lr_attribute_info-name = attribute_name.
    lr_attribute_info-type_name = 'STRING'.
    lr_attribute_info-value_help_mode = '0'.
    lr_node_info->add_attribute( EXPORTING attribute_info = lr_attribute_info ).
    lr_node = wd_context->get_child_node( name = 'CHILD' ).
    lr_element = lr_node->create_element( ).
    lr_element->set_attribute( name  = attribute_name
                               value = content ).
    lr_node->bind_element( new_item             = lr_element
                           set_initial_elements = abap_false ).
** Compute the attribute path dynamically i.e, like CHILD.ATTR1
    CONCATENATE 'CHILD.'
                attribute_name INTO attribute_name.
    CONDENSE attribute_name NO-GAPS.
    lr_textedit = cl_wd_text_edit=>new_text_edit( cols  = 10
                                                  rows  = 5
                                                  width = '90%'
                                                  bind_value = attribute_name ).
    cl_wd_matrix_head_data=>new_matrix_head_data( element = lr_textedit ).
    lr_group->add_child( the_child = lr_textedit ).
  ENDDO.
lr_container->add_child( the_child = lr_group ).
ENDMETHOD.