update

oblomov-dev · oblomov-dev · commit cbecdffa7aa6 · 2025-05-20T16:26:40.000Z
diff --git a/src/z2ui5_cl_tm_se16_01.clas.abap b/src/z2ui5_cl_tm_se16_01.clas.abap
@@ -3,14 +3,17 @@ CLASS z2ui5_cl_tm_se16_01 DEFINITION PUBLIC.
   PUBLIC SECTION.
     INTERFACES z2ui5_if_app.
 
-    DATA mo_ui_ranges TYPE REF TO z2ui5_cl_layo_var_ui.
+    DATA mv_tabname     TYPE string VALUE `USR01`.
+    DATA mr_table       TYPE REF TO data.
+    DATA mo_multiselect TYPE REF TO z2ui5_cl_sel_multisel.
+    DATA ms_layout TYPE z2ui5_t_11.
+    METHODS on_navigated.
 
   PROTECTED SECTION.
     DATA client TYPE REF TO z2ui5_if_client.
 
     METHODS on_event.
     METHODS view_display.
-    METHODS on_navigated.
     METHODS on_init.
 
   PRIVATE SECTION.
@@ -23,21 +26,20 @@ CLASS z2ui5_cl_tm_se16_01 IMPLEMENTATION.
 
     CASE client->get( )-event.
 
-      WHEN 'DISPLAY_POPUP_SELECT_LAYOUT'.
-        client->nav_app_call( z2ui5_cl_layo_manager=>choose_layout( handle01 = 'ZSE16'
-                                                              handle02 = mo_ui_ranges->mo_sql->ms_sql-tabname ) ).
+      WHEN 'POPUP_LAYOUT'.
+        client->nav_app_call( z2ui5_cl_layo_manager=>choose_layout(
+            handle01 = 'ZSE16'
+            handle02 = mv_tabname ) ).
+
+      WHEN 'UPDATE_TABLE'.
+        on_init( ).
 
       WHEN 'GO'.
-        DATA(lo_tab_output) = NEW z2ui5_cl_tm_se16_02( ).
-        lo_tab_output->mo_sql = z2ui5_cl_layo_var_sql=>factory( mo_ui_ranges->mo_sql->ms_sql ).
-        client->nav_app_call( lo_tab_output ).
+        client->nav_app_call( NEW z2ui5_cl_tm_se16_02( ) ).
 
       WHEN 'BACK'.
         client->nav_app_leave( ).
 
-      WHEN OTHERS.
-        mo_ui_ranges->on_event( client ).
-
     ENDCASE.
 
   ENDMETHOD.
@@ -51,91 +53,93 @@ CLASS z2ui5_cl_tm_se16_01 IMPLEMENTATION.
                                        shownavbutton  = client->check_app_prev_stack( )
                                         floatingfooter = abap_true
                                         ).
-
-    IF mo_ui_ranges->mo_sql->ms_sql-tabname IS NOT INITIAL.
-      mo_ui_ranges->paint( view   = page
-                           client = client ).
+    DATA(vbox) = page->vbox( ).
+
+    vbox->hbox(
+        )->input(  value = client->_bind_edit( mv_tabname ) description = `Table` submit = client->_event( `UPDATE_TABLE` )
+        )->button( press = client->_event( `UPDATE_TABLE` ) text = `Post`
+        ).
+    vbox->hbox(
+        )->input(  value = client->_bind_edit( ms_layout-layout ) description = `Layout` enabled = abap_false
+        )->button( press = client->_event( `POPUP_LAYOUT` ) text = `Post`
+      ).
+    IF mv_tabname IS NOT INITIAL.
+      mo_multiselect->set_output( client = client view = vbox ).
     ENDIF.
 
+
     page->footer( )->overflow_toolbar(
         )->toolbar_spacer(
-        )->button( text  = z2ui5_cl_layo_var_ui=>go_button( )-text
+        )->button( text  = `GO`
                    type  = `Emphasized`
-                   press = client->_event( z2ui5_cl_layo_var_ui=>go_button( )-event_name ) ).
+                   press = client->_event( `GO` ) ).
 
     client->view_display( view->stringify( ) ).
 
   ENDMETHOD.
 
   METHOD z2ui5_if_app~main.
     TRY.
-
         me->client = client.
 
         IF client->check_on_init( ).
           on_init( ).
-        ELSEIF client->check_on_navigated( ).
+          RETURN.
+        ENDIF.
+
+        IF mo_multiselect->main( client ).
+          RETURN.
+        ENDIF.
+
+        IF client->check_on_navigated( ).
           on_navigated( ).
-        ELSE.
-          on_event( ).
         ENDIF.
+        on_event( ).
 
       CATCH cx_root INTO DATA(x).
         client->message_box_display( x ).
     ENDTRY.
   ENDMETHOD.
 
+  METHOD on_init.
+
+    mr_table = z2ui5_cl_util=>rtti_create_tab_by_name( mv_tabname ).
+    mo_multiselect = z2ui5_cl_sel_multisel=>factory_by_name(
+                       val       = mv_tabname
+                      s_variant =  VALUE #( handle01 = 'ZSE16' )
+             ).
+
+*    mo_layout = z2ui5_cl_layo_manager=>factory( control  = z2ui5_cl_layo_manager=>m_table
+*                                          data     = mr_table
+*                                          handle01 = 'ZSE16'
+*                                          handle02 = mv_tabname ).
+
+
+
+    view_display( ).
+
+  ENDMETHOD.
+
+
   METHOD on_navigated.
 
     TRY.
         DATA(lo_popup) = CAST z2ui5_cl_layo_pop_w_sel( client->get_app_prev( ) ).
         DATA(lo_layout) = lo_popup->result( ).
 
         IF lo_layout-check_confirmed = abap_true.
-
           FIELD-SYMBOLS <layout> TYPE z2ui5_t_11.
           ASSIGN lo_layout-row->* TO <layout>.
-
-          mo_ui_ranges->mo_sql->ms_sql-layout_name = <layout>-layout.
-          mo_ui_ranges->mo_sql->ms_sql-layout_id   = <layout>-guid.
-          client->view_model_update( ).
-
+          ms_layout = <layout>.
         ENDIF.
-
+        RETURN.
       CATCH cx_root.
     ENDTRY.
-
     TRY.
-        CAST z2ui5_cl_tm_se16_02( client->get_app_prev( ) ).
+        DATA(lo_app) = CAST z2ui5_cl_tm_se16_02( client->get_app_prev( ) ).
         view_display( ).
-        RETURN.
       CATCH cx_root.
     ENDTRY.
-
-    mo_ui_ranges->on_navigated( client ).
-
-  ENDMETHOD.
-
-  METHOD on_init.
-
-    DATA lr_table TYPE REF TO data.
-
-    mo_ui_ranges = NEW z2ui5_cl_layo_var_ui( ).
-    mo_ui_ranges->mo_sql = NEW #( ).
-    mo_ui_ranges->mo_sql->ms_sql-tabname = `USR01`.
-    mo_ui_ranges->mo_sql->ms_sql-count   = `500`.
-
-    lr_table = z2ui5_cl_util=>rtti_create_tab_by_name( `T100` ).
-    mo_ui_ranges->mo_layout = z2ui5_cl_layo_manager=>factory( control  = z2ui5_cl_layo_manager=>m_table
-                                          data     = lr_table
-                                          handle01 = 'Z2UI5_CL_SE16'
-                                          handle02 = mo_ui_ranges->mo_sql->ms_sql-tabname
-                                          handle03 = ''
-                                          handle04 = '' ).
-
-    mo_ui_ranges->init_filter_tab( ).
-    view_display( ).
-
   ENDMETHOD.
 
 ENDCLASS.
diff --git a/src/z2ui5_cl_tm_se16_01.clas.xml b/src/z2ui5_cl_tm_se16_01.clas.xml
@@ -5,7 +5,7 @@
    <VSEOCLASS>
     <CLSNAME>Z2UI5_CL_TM_SE16_01</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>se16 - selection screen</DESCRIPT>
+    <DESCRIPT>se16n - selection screen</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
diff --git a/src/z2ui5_cl_tm_se16_02.clas.abap b/src/z2ui5_cl_tm_se16_02.clas.abap
@@ -3,13 +3,12 @@ CLASS z2ui5_cl_tm_se16_02 DEFINITION PUBLIC.
   PUBLIC SECTION.
     INTERFACES z2ui5_if_app.
 
-    DATA mo_sql     TYPE REF TO z2ui5_cl_layo_var_sql.
-    DATA mo_variant TYPE REF TO z2ui5_cl_sel_var_db.
-    DATA mo_layout  TYPE REF TO z2ui5_cl_layo_manager.
+    DATA mo_layout TYPE REF TO z2ui5_cl_layo_manager.
+    DATA mo_prev   TYPE REF TO z2ui5_cl_tm_se16_01.
+    DATA mr_table  TYPE REF TO data.
 
   PROTECTED SECTION.
-    DATA client               TYPE REF TO z2ui5_if_client.
-    DATA mv_check_initialized TYPE abap_bool.
+    DATA client TYPE REF TO z2ui5_if_client.
 
     METHODS on_event.
     METHODS view_display.
@@ -26,7 +25,7 @@ CLASS z2ui5_cl_tm_se16_02 IMPLEMENTATION.
 
     CASE client->get( )-event.
       WHEN `BUTTON_START`.
-        mo_sql->read( ).
+*        mo_sql->read( ).
         view_display( ).
       WHEN 'BACK'.
         client->nav_app_leave( ).
@@ -43,12 +42,12 @@ CLASS z2ui5_cl_tm_se16_02 IMPLEMENTATION.
 
     DATA(page) = view->shell( )->page(
                      id             = `page_main`
-                     title          = |abap2UI5 - SE16-CLOUD -{ mo_sql->ms_sql-tabname }|
+                     title          = |abap2UI5 - SE16-CLOUD -{ mo_prev->mv_tabname }|
                      navbuttonpress = client->_event( 'BACK' )
                      floatingfooter = abap_true
                      shownavbutton  = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL ) ).
 
-    z2ui5_cl_layo_xml_builder=>xml_build_table( i_data   = mo_sql->ms_sql-t_ref
+    z2ui5_cl_layo_xml_builder=>xml_build_table( i_data   = mr_table
                                                 i_xml    = page
                                                 i_client = client
                                                 i_layout = mo_layout ).
@@ -69,33 +68,22 @@ CLASS z2ui5_cl_tm_se16_02 IMPLEMENTATION.
 
         me->client = client.
 
-        IF mv_check_initialized = abap_false.
-          mv_check_initialized = abap_true.
+        IF client->check_on_init( ).
           on_init( ).
-          RETURN.
-
-        ENDIF.
-
-        IF client->get( )-check_on_navigated = abap_true.
+        ELSEIF client->check_on_navigated( ).
           on_navigated( ).
-          RETURN.
-        ENDIF.
-
-        IF client->get( )-event IS NOT INITIAL.
+        ELSEIF client->get( )-event IS NOT INITIAL.
           on_event( ).
-          RETURN.
         ENDIF.
 
       CATCH cx_root INTO DATA(x).
-        client->message_box_display( text = x->get_text( )
-                                     type = `error` ).
+        client->message_box_display( x ).
     ENDTRY.
   ENDMETHOD.
 
   METHOD on_navigated.
 
     TRY.
-
         DATA(app) = CAST z2ui5_cl_layo_pop( client->get_app( client->get( )-s_draft-id_prev_app ) ).
         mo_layout = app->mo_layout.
 
@@ -113,33 +101,25 @@ CLASS z2ui5_cl_tm_se16_02 IMPLEMENTATION.
 
   METHOD on_init.
 
-    IF mo_sql IS NOT BOUND.
-      mo_sql = z2ui5_cl_layo_var_sql=>factory( ).
-      mo_sql->ms_sql-tabname = 'USR01'.
-    ENDIF.
-
-    mo_sql->read( ).
+    mo_prev = CAST #( client->get_app_prev( ) ).
+    mr_table = z2ui5_cl_util=>rtti_create_tab_by_name( mo_prev->mv_tabname ).
 
     IF mo_layout IS NOT BOUND.
 
-      IF mo_sql->ms_sql-layout_id IS INITIAL.
+      IF mo_prev->ms_layout-guid IS INITIAL.
 
         mo_layout = z2ui5_cl_layo_manager=>factory( control  = z2ui5_cl_layo_manager=>m_table
-                                                    data     = mo_sql->ms_sql-t_ref
+                                                    data     = mr_table
                                                     handle01 = 'ZSE16'
-                                                    handle02 = mo_sql->ms_sql-tabname
-                                                    handle03 = ''
-                                                    handle04 = '' ).
+                                                    handle02 = mo_prev->mv_tabname ).
       ELSE.
 
         mo_layout = z2ui5_cl_layo_manager=>factory( control  = z2ui5_cl_layo_manager=>m_table
-                                                    data     = mo_sql->ms_sql-t_ref
+                                                    data     = mr_table
                                                     handle01 = 'ZSE16'
-                                                    handle02 = mo_sql->ms_sql-tabname
-                                                    handle03 = ''
-                                                    handle04 = '' ).
+                                                    handle02 = mo_prev->mv_tabname ).
 
-        mo_layout = z2ui5_cl_layo_manager=>factory_by_guid( layout_guid = mo_sql->ms_sql-layout_id
+        mo_layout = z2ui5_cl_layo_manager=>factory_by_guid( layout_guid = mo_prev->ms_layout-guid
                                                             t_comps     = mo_layout->ms_layout-t_layout ).
       ENDIF.
 
diff --git a/src/z2ui5_cl_tm_se16_02.clas.xml b/src/z2ui5_cl_tm_se16_02.clas.xml
@@ -5,7 +5,7 @@
    <VSEOCLASS>
     <CLSNAME>Z2UI5_CL_TM_SE16_02</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>se16 - table display</DESCRIPT>
+    <DESCRIPT>se16n - table display</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>
