New RTTI Sample Cell Binding

Author: Viktor Hoffmann

src/z2ui5_cl_demo_app_331.clas.abap

@@ -35,6 +35,8 @@ CLASS z2ui5_cl_demo_app_331 IMPLEMENTATION.
 
     ENDCASE.
 
+client->view_model_update( ).
+
   ENDMETHOD.
 
   METHOD ui5_view_display.

src/z2ui5_cl_demo_app_332.clas.abap

@@ -0,0 +1,96 @@
+CLASS z2ui5_cl_demo_app_332 DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA ms_struc     TYPE z2ui5_t_01.
+    DATA mo_table_obj TYPE REF TO z2ui5_cl_demo_app_333.
+
+    METHODS get_data.
+
+    METHODS ui5_view_display
+      IMPORTING
+        !client TYPE REF TO z2ui5_if_client.
+
+  PROTECTED SECTION.
+
+  PRIVATE SECTION.
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_332 IMPLEMENTATION.
+
+  METHOD z2ui5_if_app~main.
+
+    IF client->check_on_init( ).
+
+      get_data( ).
+
+      mo_table_obj = z2ui5_cl_demo_app_333=>factory( REF #( ms_struc ) ).
+
+      ui5_view_display( client ).
+
+    ENDIF.
+
+    CASE client->get( )-event.
+
+      WHEN 'BACK'.
+
+        client->nav_app_leave( ).
+
+    ENDCASE.
+
+
+ client->view_model_update( ).
+
+  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( ) ).
+
+    page->button( text  = 'GO'
+                  press = client->_event( 'GO' )
+                  type  = 'Success' ).
+
+    DATA(form) = page->simple_form( editable        = abap_true
+                                    layout          = `ResponsiveGridLayout`
+                                    adjustlabelspan = abap_true
+                              )->content( ns = `form` ).
+
+    DATA(index) = 0.
+
+    LOOP AT mo_table_obj->mt_layout REFERENCE INTO DATA(layout).
+
+      index += 1.
+
+      ASSIGN COMPONENT layout->name OF STRUCTURE mo_table_obj->mr_data->* TO FIELD-SYMBOL(<value>).
+      " assign component layout->name of structure ms_struc to field-symbol(<value>).
+      IF <value> IS NOT ASSIGNED.
+        RETURN.
+      ENDIF.
+
+      DATA(line) = form->label( wrapping = abap_false
+                                text     = layout->name  ).
+
+      line->input( value   = client->_bind( <value> )
+                   visible = client->_bind( val       = layout->visible
+                                            tab       = mo_table_obj->mt_layout
+                                            tab_index = index )
+                   enabled = abap_false ).
+    ENDLOOP.
+
+    client->view_display( page ).
+
+  ENDMETHOD.
+
+  METHOD get_data.
+
+    SELECT SINGLE * FROM z2ui5_t_01
+      INTO CORRESPONDING FIELDS OF @ms_STRUC.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/z2ui5_cl_demo_app_332.clas.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>Z2UI5_CL_DEMO_APP_332</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>RTTI - Struc wit Cell Binding</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/z2ui5_cl_demo_app_333.clas.abap

@@ -0,0 +1,51 @@
+CLASS z2ui5_cl_demo_app_333 DEFINITION PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES if_serializable_object.
+
+    TYPES:
+      BEGIN OF ty_s_layout,
+        name    TYPE string,
+        visible TYPE abap_bool,
+      END OF ty_s_layout.
+    TYPES ty_t_layout TYPE STANDARD TABLE OF ty_s_layout WITH EMPTY KEY.
+
+    DATA mt_layout TYPE ty_t_layout.
+    DATA mr_data   TYPE REF TO data.
+
+    CLASS-METHODS factory
+      IMPORTING
+        i_data        TYPE REF TO data
+      RETURNING
+        VALUE(result) TYPE REF TO z2ui5_cl_demo_app_333.
+
+  PROTECTED SECTION.
+
+  PRIVATE SECTION.
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_333 IMPLEMENTATION.
+
+  METHOD factory.
+
+    result = NEW #( ).
+
+    DATA(t_comp) = z2ui5_cl_util=>rtti_get_t_attri_by_any( i_data  ).
+
+    LOOP AT t_comp INTO DATA(comp).
+
+      APPEND INITIAL LINE TO result->mt_layout REFERENCE INTO DATA(layout).
+
+      layout->name = comp-name.
+      IF sy-tabix < 4.
+        layout->visible = abap_true.
+      ENDIF.
+
+    ENDLOOP.
+
+    result->mr_data = i_data.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/z2ui5_cl_demo_app_333.clas.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>Z2UI5_CL_DEMO_APP_333</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>Data Object for Sample 331</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>