New Sample

src/z2ui5_cl_demo_app_339.clas.abap

@@ -13,7 +13,7 @@ CLASS z2ui5_cl_demo_app_339 DEFINITION
     DATA mt_table_tmp    TYPE REF TO data.
     DATA mt_table        TYPE REF TO data.
 
-    DATA mo_layout_obj   TYPE REF TO z2ui5_cl_demo_app_333.
+    DATA mo_layout   TYPE REF TO z2ui5_cl_demo_app_333.
 
     METHODS set_app_data
       IMPORTING
@@ -37,7 +37,7 @@ CLASS z2ui5_cl_demo_app_339 IMPLEMENTATION.
 
   METHOD get_comp.
 
-    DATA index TYPE int4.
+    DATA selkz TYPE abap_bool.
 
     IF mv_table IS INITIAL.
       mv_table = 'Z2UI5_T_01'.
@@ -70,8 +70,8 @@ CLASS z2ui5_cl_demo_app_339 IMPLEMENTATION.
         ENDTRY.
 
         DATA(component) = VALUE cl_abap_structdescr=>component_table(
-                                    ( name = 'ROW_ID'
-                                      type = CAST #( cl_abap_datadescr=>describe_by_data( index ) ) ) ).
+                                    ( name = 'SELKZ'
+                                      type = CAST #( cl_abap_datadescr=>describe_by_data( selkz ) ) ) ).
 
         APPEND LINES OF component TO result.
 
@@ -83,6 +83,12 @@ CLASS z2ui5_cl_demo_app_339 IMPLEMENTATION.
   METHOD on_event.
     CASE client->get( )-event.
 
+      WHEN 'SELECTION_CHANGE'.
+
+    client->nav_app_call( Z2UI5_CL_DEMO_APP_340=>factory(
+                            io_table  = mt_table
+                            io_layout = mo_layout  ) ).
+
       WHEN 'BACK'.
 
         client->nav_app_leave( ).
@@ -106,31 +112,34 @@ CLASS z2ui5_cl_demo_app_339 IMPLEMENTATION.
 
     ENDIF.
 
-    mo_layout_obj = z2ui5_cl_demo_app_333=>factory( i_data   = mt_table
+    mo_layout = z2ui5_cl_demo_app_333=>factory( i_data   = mt_table
                                                     vis_cols = 5 ).
 
     DATA(table) = page->table( width = 'auto'
+                               mode  = 'SingleSelectLeft'
+                               selectionchange  = client->_event( 'SELECTION_CHANGE' )
                                items = client->_bind_edit( val = mt_table->* ) ).
 
     DATA(columns) = table->columns( ).
 
-    LOOP AT mo_layout_obj->ms_data-t_layout REFERENCE INTO DATA(layout).
+    LOOP AT mo_layout->ms_data-t_layout REFERENCE INTO DATA(layout).
       DATA(lv_index) = sy-tabix.
 
       columns->column( visible = client->_bind( val       = layout->visible
-                                                tab       = mo_layout_obj->ms_data-t_layout
+                                                tab       = mo_layout->ms_data-t_layout
                                                 tab_index = lv_index )
        )->text( layout->name ).
 
     ENDLOOP.
 
     DATA(column_list_item) = columns->get_parent( )->items(
-                                       )->column_list_item( valign = 'Middle'
-                                                            type   = `Inactive`   ).
+                                       )->column_list_item( valign   = 'Middle'
+                                                            type     = `Inactive`
+                                                            selected = `{SELKZ}` ).
 
     DATA(cells) = column_list_item->cells( ).
 
-    LOOP AT mo_layout_obj->ms_data-t_layout REFERENCE INTO layout.
+    LOOP AT mo_layout->ms_data-t_layout REFERENCE INTO layout.
 
       lv_index = sy-tabix.
 
@@ -166,9 +175,10 @@ CLASS z2ui5_cl_demo_app_339 IMPLEMENTATION.
 
     ENDIF.
 
-    IF mo_layout_obj->mr_data->* <> mt_table->*.
-      client->message_toast_display( 'ERROR - mo_layout_obj->mr_data->* ne mt_table->*'  ).
+    IF mo_layout->mr_data->* <> mt_table->*.
+      client->message_toast_display( 'ERROR - mo_layout->mr_data->* ne mt_table->*'  ).
     ENDIF.
+
     on_event( client ).
 
   ENDMETHOD.

src/z2ui5_cl_demo_app_340.clas.abap

@@ -0,0 +1,123 @@
+CLASS z2ui5_cl_demo_app_340 DEFINITION
+  PUBLIC
+  CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA mv_init     TYPE abap_bool.
+    DATA mt_DATA_tmp TYPE REF TO data.
+    DATA mt_DATA     TYPE REF TO data.
+    DATA ms_DATA_row TYPE REF TO data.
+
+    DATA mo_layout   TYPE REF TO z2ui5_cl_demo_app_333.
+
+    CLASS-METHODS factory
+      IMPORTING
+        io_table      TYPE REF TO data
+        io_layout     TYPE REF TO z2ui5_cl_demo_app_333
+      RETURNING
+        VALUE(result) TYPE REF TO z2ui5_cl_demo_app_340.
+
+  PROTECTED SECTION.
+    METHODS on_init.
+    METHODS on_event    IMPORTING !client TYPE REF TO z2ui5_if_client.
+    METHODS render_main IMPORTING !client TYPE REF TO z2ui5_if_client.
+
+  PRIVATE SECTION.
+
+ENDCLASS.
+
+
+CLASS z2ui5_cl_demo_app_340 IMPLEMENTATION.
+
+  METHOD on_event.
+    CASE client->get( )-event.
+
+      WHEN 'POPUP_CLOSE'.
+
+        client->popup_destroy( ).
+
+        client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ).
+
+      WHEN 'BACK'.
+
+        client->nav_app_leave( ).
+
+    ENDCASE.
+  ENDMETHOD.
+
+  METHOD on_init.
+
+  ENDMETHOD.
+
+  METHOD render_main.
+
+    DATA(popup) = z2ui5_cl_xml_view=>factory_popup( ).
+
+    " TODO: variable is assigned but never used (ABAP cleaner)
+    DATA(simple_form) = popup->dialog( title        = 'Test'
+                                       contentwidth = '60%'
+                                       afterclose   = client->_event( 'POPUP_CLOSE' )
+          )->simple_form( title    = ''
+                          layout   = 'ResponsiveGridLayout'
+                          editable = abap_true
+          )->content( ns = 'form' )->label( text = 'Test'    )->input( value = 'TEST' ).
+
+    client->popup_display( popup->stringify( ) ).
+
+  ENDMETHOD.
+
+  METHOD z2ui5_if_app~main.
+
+    IF mv_init IS INITIAL.
+      mv_init = abap_true.
+
+      render_main( client ).
+
+    ENDIF.
+
+    IF mo_layout->mr_data IS INITIAL.
+      client->message_toast_display( 'ERROR - mo_layout_obj->mr_data is initial'  ).
+      RETURN.
+    ENDIF.
+
+    IF mo_layout->mr_data->* <> mt_data->*.
+      client->message_toast_display( 'ERROR - mo_layout_obj->mr_data->* ne mt_table->*'  ).
+    ENDIF.
+    on_event( client ).
+
+  ENDMETHOD.
+
+  METHOD factory.
+
+    " Add new empty row
+
+    result = NEW #( ).
+
+    result->mo_layout = io_layout.
+
+    TRY.
+        DATA(comp) = z2ui5_cl_util=>rtti_get_t_attri_by_any( io_table ).
+      CATCH cx_root.
+    ENDTRY.
+
+    TRY.
+        DATA(new_struct_desc) = cl_abap_structdescr=>create( 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 result->mt_data     TYPE HANDLE new_table_desc.
+        CREATE DATA result->mt_data_tmp TYPE HANDLE new_table_desc.
+        CREATE DATA result->ms_data_row TYPE HANDLE new_struct_desc.
+
+      CATCH cx_root.
+    ENDTRY.
+
+    result->mt_data->* = io_table->*.
+    result->mt_data_tmp->* = io_table->*.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/z2ui5_cl_demo_app_340.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_340</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>App in App - Popup</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>