RTTI Sample extended (#515)

Co-authored-by: Viktor Hoffmann <viktor.hoffmann@swisskrono.com>

Author: abapsheep

src/z2ui5_cl_demo_app_328.clas.abap

@@ -3,81 +3,146 @@ CLASS z2ui5_cl_demo_app_328 DEFINITION PUBLIC.
   PUBLIC SECTION.
     INTERFACES z2ui5_if_app.
 
-    DATA mr_table     TYPE REF TO data.
+    DATA mt_table     TYPE REF TO data.
+
     DATA mo_table_obj TYPE REF TO z2ui5_cl_demo_app_329.
 
-    METHODS ui5_view_display
-      IMPORTING
-        client TYPE REF TO z2ui5_if_client.
+    DATA client       TYPE REF TO z2ui5_if_client.
 
   PROTECTED SECTION.
+    METHODS get_data.
+
   PRIVATE SECTION.
+    METHODS ui5_view_display.
 ENDCLASS.
 
 
 CLASS z2ui5_cl_demo_app_328 IMPLEMENTATION.
 
   METHOD z2ui5_if_app~main.
 
+    me->client = client.
+
     IF client->check_on_init( ).
 
-      mr_table = z2ui5_cl_util=>rtti_create_tab_by_name( 'Z2UI5_T_01' ).
-      FIELD-SYMBOLS <table> TYPE STANDARD TABLE.
-      ASSIGN mr_table->* TO <table>.
+      get_data( ).
+
+      mo_table_obj = z2ui5_cl_demo_app_329=>factory( mt_table ).
 
-      SELECT * FROM z2ui5_t_01
-        INTO CORRESPONDING FIELDS OF TABLE @<table>
-        UP TO 1 ROWS.
+      ui5_view_display( ).
 
-      mo_table_obj = z2ui5_cl_demo_app_329=>factory( mr_table ).
-      ui5_view_display( client ).
-      RETURN.
     ENDIF.
 
     CASE client->get( )-event.
+
       WHEN 'BACK'.
         client->nav_app_leave( ).
+
+      WHEN 'SELECTION_CHANGE'.
+
+        client->view_model_update( ).
+
+*        IF mt_table->* <> mo_table_obj->mr_data->*.
+*          client->message_toast_display( 'Error - MT_TABLE <> MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+*       ELSE.
+*          client->message_toast_display( 'Success - MT_TABLE = MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+*        ENDIF.
+
       WHEN 'GO'.
-        IF mr_table->* <> mo_table_obj->mr_data->*.
-          client->message_toast_display( 'Error - MT_TABLE <> MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+
+        ASSIGN mt_table->* TO FIELD-SYMBOL(<tab>).
+
+        LOOP AT <tab> ASSIGNING FIELD-SYMBOL(<line>).
+
+          ASSIGN COMPONENT 'SELKZ' OF STRUCTURE <line> TO FIELD-SYMBOL(<selkz>).
+          IF <selkz> IS NOT ASSIGNED.
+            CONTINUE.
+          ENDIF.
+
+          IF <selkz> = abap_true.
+            DATA(okay) = abap_true.
+            EXIT.
+          ENDIF.
+
+        ENDLOOP.
+
+        IF okay = abap_true.
+
+          get_data( ).
+
+          mo_table_obj = z2ui5_cl_demo_app_329=>factory( mt_table ).
+
+          ui5_view_display( ).
+
+          IF mt_table->* <> mo_table_obj->mr_data->*.
+            client->message_toast_display( 'Error - MT_TABLE <> MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+          ELSE.
+            client->message_toast_display( 'Success - MT_TABLE = MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+          ENDIF.
+
         ELSE.
-          client->message_toast_display( 'Success - MT_TABLE = MO_TABLE_OBJ->MR_TABLE_DATA'  ).
+          client->message_toast_display( 'Plases select a Line'  ).
         ENDIF.
+
     ENDCASE.
 
   ENDMETHOD.
 
   METHOD ui5_view_display.
 
-    DATA(page) = z2ui5_cl_xml_view=>factory( )->shell( )->page( title      = 'RTTI IV'
-                                       navbuttonpress = client->_event( 'BACK' )
-                                       shownavbutton  = client->check_app_prev_stack( ) ).
+    DATA(page) = z2ui5_cl_xml_view=>factory( )->shell( )->page( title          = 'RTTI IV'
+                                                                navbuttonpress = client->_event( 'BACK' )
+                                                                shownavbutton  = client->check_app_prev_stack( ) ).
 
     page->button( text  = 'GO'
                   press = client->_event( 'GO' )
                   type  = 'Success' ).
 
-    DATA(table) = page->table( client->_bind( mr_table->* ) ).
+    page->table( headertext      = 'Table'
+                 mode            = 'MultiSelect'
+                 items           = client->_bind_edit( mt_table->* )
+                 selectionchange = client->_event( 'SELECTION_CHANGE' )
+              )->columns(
+                  )->column( )->text( 'id '
+              )->get_parent( )->get_parent(
+              )->items(
+                  )->column_list_item( selected = '{SELKZ}'
+                      )->cells(
+                          )->text( '{ID}' ).
 
-    DATA(columns) = table->columns( ).
-    DATA(mt_comp) = z2ui5_cl_util=>rtti_get_t_attri_by_table_name( 'Z2UI5_T_01' ).
+    client->view_display( page ).
 
-    LOOP AT mt_comp INTO DATA(comp) WHERE name CP `ID*`.
-      columns->column( )->text( comp-name ).
-    ENDLOOP.
+  ENDMETHOD.
 
-    DATA(cells) = columns->get_parent( )->items(
-                                       )->column_list_item( valign = 'Middle'
-                                                            type   = 'Navigation'
-                                       )->cells( ).
+  METHOD get_data.
+    DATA selkz TYPE abap_bool.
 
-    LOOP AT mt_comp INTO comp.
-      cells->object_identifier( text = |\{{ comp-name }\}| ).
-    ENDLOOP.
+    FIELD-SYMBOLS <table> TYPE STANDARD TABLE.
 
-    client->_bind( mo_table_obj->mr_data->* ).
+    DATA(t_comp) = z2ui5_cl_util=>rtti_get_t_attri_by_table_name( 'Z2UI5_T_01' ).
 
-    client->view_display( page ).
+    APPEND LINES OF VALUE cl_abap_structdescr=>component_table(
+                              ( name = 'SELKZ'
+                                type = CAST #( cl_abap_datadescr=>describe_by_data( selkz ) ) ) ) TO t_comp.
+
+    TRY.
+
+        DATA(new_struct_desc) = cl_abap_structdescr=>create( t_comp ).
+
+        DATA(new_table_desc) = cl_abap_tabledescr=>create( p_line_type  = new_struct_desc
+                                                           p_table_kind = cl_abap_tabledescr=>tablekind_std ).
+
+        CREATE DATA mt_table TYPE HANDLE new_table_desc.
+
+        ASSIGN mt_table->* TO <table>.
+
+        SELECT id FROM z2ui5_t_01
+          INTO CORRESPONDING FIELDS OF TABLE @<table>
+          UP TO 4 ROWS.
+
+      CATCH cx_root.
+
+    ENDTRY.
 
   ENDMETHOD.