New RTTI Samples (#524)

* New RTTI Samples

* Update

---------

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

Author: abapsheep

src/z2ui5_cl_demo_app_332.clas.abap

@@ -26,7 +26,7 @@ CLASS z2ui5_cl_demo_app_332 IMPLEMENTATION.
 
       get_data( ).
 
-      mo_table_obj = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
+      mo_table_obj = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
 
       ui5_view_display( client ).
 

src/z2ui5_cl_demo_app_333.clas.abap

@@ -10,16 +10,23 @@ CLASS z2ui5_cl_demo_app_333 DEFINITION PUBLIC.
       END OF ty_s_layout.
     TYPES ty_t_layout TYPE STANDARD TABLE OF ty_s_layout WITH EMPTY KEY.
 
+    TYPES: BEGIN OF ty_s_DATA,
+             guid TYPE sysuuid_c32,
+           END OF ty_s_DATA.
+    TYPES ty_t_DATA TYPE STANDARD TABLE OF ty_s_DATA WITH EMPTY KEY.
+
     DATA mt_layout TYPE ty_t_layout.
+    DATA ms_DATA TYPE ty_s_data.
     DATA mr_data   TYPE REF TO data.
 
     CLASS-METHODS factory
       IMPORTING
         i_data        TYPE REF TO data
+        vis_cols      TYPE int4
       RETURNING
         VALUE(result) TYPE REF TO z2ui5_cl_demo_app_333.
 
- class-DATA MS_STRUC type c LENGTH 10 VALUE 'STRUCT'.
+    CLASS-DATA cv_value TYPE c LENGTH 10 VALUE 'STRUCT'.
 
   PROTECTED SECTION.
 
@@ -40,12 +47,17 @@ CLASS z2ui5_cl_demo_app_333 IMPLEMENTATION.
       APPEND INITIAL LINE TO result->mt_layout REFERENCE INTO DATA(layout).
 
       layout->name = comp-name.
-      IF sy-tabix < 4.
+      IF sy-tabix <= vis_cols.
         layout->visible = abap_true.
       ENDIF.
 
     ENDLOOP.
 
+    TRY.
+        result->ms_data-guid = z2ui5_cl_util=>uuid_get_c32( ).
+      CATCH cx_root.
+    ENDTRY.
+
     result->mr_data = i_data.
 
   ENDMETHOD.

src/z2ui5_cl_demo_app_334.clas.abap

@@ -27,8 +27,8 @@ CLASS z2ui5_cl_demo_app_334 IMPLEMENTATION.
 
       get_data( ).
 
-      mo_layout_obj = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
-      mo_layout_obj_2 = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
+      mo_layout_obj = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
+      mo_layout_obj_2 = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 5 ).
 
       ui5_view_display( client ).
 
@@ -54,6 +54,10 @@ CLASS z2ui5_cl_demo_app_334 IMPLEMENTATION.
       client->message_toast_display( 'ERROR - mo_layout_obj_2->mr_data  is not bound!' ).
     ENDIF.
 
+ IF mo_layout_obj_2->ms_data-guid eq mo_layout_obj->ms_data-guid.
+      client->message_toast_display( 'ERROR - GUIDS!' ).
+    ENDIF.
+
     client->view_model_update( ).
 
   ENDMETHOD.

src/z2ui5_cl_demo_app_335.clas.abap

@@ -16,6 +16,7 @@ CLASS z2ui5_cl_demo_app_335 DEFINITION PUBLIC.
   PROTECTED SECTION.
 
   PRIVATE SECTION.
+    METHODS get_data_2.
 ENDCLASS.
 
 
@@ -27,8 +28,8 @@ CLASS z2ui5_cl_demo_app_335 IMPLEMENTATION.
 
       get_data( ).
 
-      mo_layout_obj = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
-      mo_layout_obj_2 = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
+      mo_layout_obj = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
+      mo_layout_obj_2 = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
 
       ui5_view_display( client ).
 
@@ -42,20 +43,29 @@ CLASS z2ui5_cl_demo_app_335 IMPLEMENTATION.
 
       WHEN 'GO'.
 
-      DATA(app) = Z2UI5_CL_DEMO_APP_336=>factory(  ).
-      client->nav_app_call( app ).
+        DATA(app) = z2ui5_cl_demo_app_336=>factory( ).
+        client->nav_app_call( app ).
+
+      WHEN 'CHANGE'.
+
+             get_data_2( ).
 
     ENDCASE.
 
+    IF     client->get( )-check_on_navigated = abap_true
+       AND client->check_on_init( )          = abap_false.
+      ui5_view_display( client ).
+    ENDIF.
+
     IF ms_struc IS INITIAL.
       client->message_toast_display( 'ERROR - MS_STRUC is initial!' ).
     ENDIF.
 
-    IF mo_layout_obj->mr_data  IS not BOUND.
+    IF mo_layout_obj->mr_data IS NOT BOUND.
       client->message_toast_display( 'ERROR - mo_layout_obj->mr_data is not bound!' ).
     ENDIF.
 
-    IF mo_layout_obj_2->mr_data IS not BOUND.
+    IF mo_layout_obj_2->mr_data IS NOT BOUND.
       client->message_toast_display( 'ERROR - mo_layout_obj_2->mr_data  is not bound!' ).
     ENDIF.
 
@@ -69,10 +79,15 @@ CLASS z2ui5_cl_demo_app_335 IMPLEMENTATION.
                                                                 navbuttonpress = client->_event( 'BACK' )
                                                                 shownavbutton  = client->check_app_prev_stack( ) ).
 
-    page->button( text  = 'GO'
+    page->button( text  = 'CALL Next App'
                   press = client->_event( 'GO' )
                   type  = 'Success' ).
 
+    page->button( text  = 'Change Data'
+                  press = client->_event( 'CHANGE' )
+                  type  = 'Success' ).
+
+
     DATA(form) = page->simple_form( editable        = abap_true
                                     layout          = `ResponsiveGridLayout`
                                     adjustlabelspan = abap_true
@@ -111,4 +126,12 @@ CLASS z2ui5_cl_demo_app_335 IMPLEMENTATION.
 
   ENDMETHOD.
 
+  METHOD get_data_2.
+
+    SELECT SINGLE * FROM z2ui5_t_01
+      INTO CORRESPONDING FIELDS OF @ms_STRUC
+      where id ne @ms_struc-id.
+
+  ENDMETHOD.
+
 ENDCLASS.

src/z2ui5_cl_demo_app_336.clas.abap

@@ -8,6 +8,10 @@ CLASS z2ui5_cl_demo_app_336 DEFINITION PUBLIC.
         !client TYPE REF TO z2ui5_if_client.
 
 
+    DATA ms_struc        TYPE z2ui5_t_01.
+    DATA mo_layout_obj   TYPE REF TO z2ui5_cl_demo_app_333.
+    DATA mo_layout_obj_2 TYPE REF TO z2ui5_cl_demo_app_333.
+
     CLASS-METHODS factory
       RETURNING
         VALUE(result) TYPE REF TO z2ui5_cl_demo_app_336.
@@ -24,6 +28,9 @@ CLASS z2ui5_cl_demo_app_336 IMPLEMENTATION.
 
     IF client->check_on_init( ).
 
+      mo_layout_obj = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
+      mo_layout_obj_2 = z2ui5_cl_demo_app_333=>factory( i_data = REF #( ms_struc ) vis_cols = 3 ).
+
       ui5_view_display( client ).
 
     ENDIF.

src/z2ui5_cl_demo_app_336.clas.xml

@@ -5,7 +5,7 @@
    <VSEOCLASS>
     <CLSNAME>Z2UI5_CL_DEMO_APP_336</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>RTTI - Struc with Class Data and Popup</DESCRIPT>
+    <DESCRIPT>RTTI - Popup</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>