update

Author: oblomov-dev

src/00/z2ui5_cl_layo_sample_02.clas.xml

@@ -1,11 +1,11 @@
-CLASS z2ui5_cl_layo_sample_01 DEFINITION PUBLIC.
+CLASS z2ui5_cl_sel_sample_01 DEFINITION PUBLIC.
 
   PUBLIC SECTION.
     INTERFACES z2ui5_if_app.
 
     DATA mv_tabname     TYPE string VALUE `T100`.
     DATA mr_table       TYPE REF TO data.
-    DATA mo_multiselect TYPE REF TO z2ui5_cl_layo_selscreen.
+    DATA mo_multiselect TYPE REF TO z2ui5_cl_sel_multisel.
     DATA client TYPE REF TO z2ui5_if_client.
     DATA mv_expanded TYPE abap_bool VALUE abap_true.
 
@@ -21,7 +21,7 @@ CLASS z2ui5_cl_layo_sample_01 DEFINITION PUBLIC.
 ENDCLASS.
 
 
-CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
+CLASS z2ui5_cl_sel_sample_01 IMPLEMENTATION.
 
   METHOD on_event.
 
@@ -61,14 +61,6 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
 
     DATA(vbox) = view->vbox( ).
 
-*    ->input( value       = mv_tabname
-*                                       enabled    = abap_false
-*                                       description = `Tablename` ).
-
-*    vbox->button( text  = `GO`
-*                  press = client->_event( 'TAB' ) ).
-
-
     DATA(lo_panel) = vbox->panel(
          expandable = abap_true
          expanded         = client->_bind_edit( mv_expanded )
@@ -126,7 +118,11 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
   METHOD on_init.
 
     mr_table = z2ui5_cl_util=>rtti_create_tab_by_name( mv_tabname ).
-    mo_multiselect = z2ui5_cl_layo_selscreen=>factory_by_name( mv_tabname ).
+    mo_multiselect = z2ui5_cl_sel_multisel=>factory_by_name(
+                       val       = mv_tabname
+                      s_variant =  value #( handle01 = 'TEST' )
+                     ).
+
     view_display( ).
 
   ENDMETHOD.

src/00/z2ui5_cl_layo_sample_01.clas.abap renamed to src/00/z2ui5_cl_sel_sample_01.clas.abap

@@ -3,9 +3,9 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <VSEOCLASS>
-    <CLSNAME>Z2UI5_CL_LAYO_VAR_DB</CLSNAME>
+    <CLSNAME>Z2UI5_CL_SEL_SAMPLE_01</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>variant - management</DESCRIPT>
+    <DESCRIPT>sample - multisel</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>

src/01/z2ui5_cl_layo_var_db.clas.xml renamed to src/00/z2ui5_cl_sel_sample_01.clas.xml

@@ -1,4 +1,4 @@
-CLASS z2ui5_cl_layo_sample_02 DEFINITION PUBLIC.
+CLASS z2ui5_cl_sel_sample_02 DEFINITION PUBLIC.
 
   PUBLIC SECTION.
 
@@ -16,7 +16,8 @@ CLASS z2ui5_cl_layo_sample_02 DEFINITION PUBLIC.
     TYPES ty_t_table TYPE STANDARD TABLE OF ty_s_tab WITH EMPTY KEY.
 
     DATA mt_table TYPE ty_t_table.
-    DATA mt_filter TYPE z2ui5_cl_util=>ty_t_filter_multi.
+    DATA mo_variant TYPE REF TO z2ui5_cl_sel_multisel_pop.
+*    DATA mt_filter TYPE z2ui5_cl_util=>ty_t_filter_multi.
 
   PROTECTED SECTION.
     DATA client TYPE REF TO z2ui5_if_client.
@@ -29,7 +30,7 @@ CLASS z2ui5_cl_layo_sample_02 DEFINITION PUBLIC.
 ENDCLASS.
 
 
-CLASS z2ui5_cl_layo_sample_02 IMPLEMENTATION.
+CLASS z2ui5_cl_sel_sample_02 IMPLEMENTATION.
 
 
   METHOD on_event.
@@ -39,7 +40,15 @@ CLASS z2ui5_cl_layo_sample_02 IMPLEMENTATION.
         set_data( ).
         client->view_model_update( ).
       WHEN `PREVIEW_FILTER`.
-        client->nav_app_call( z2ui5_cl_layo_pop_range=>factory( mt_filter ) ).
+        client->nav_app_call( mo_variant ).
+*        z2ui5_cl_sel_multisel_pop=>factory(
+*                                val             = mt_filter
+**                                check_db_active = abap_true
+**                                var_check_user  = abap_true
+*                                var_handle1     = 'TEST_POP'
+**                                var_handle2     =
+**                                var_handle3     =
+*                              ) ).
       WHEN 'BACK'.
         client->nav_app_leave( ).
     ENDCASE.
@@ -59,7 +68,7 @@ CLASS z2ui5_cl_layo_sample_02 IMPLEMENTATION.
 
     z2ui5_cl_util=>filter_itab(
       EXPORTING
-       filter = mt_filter
+       filter = mo_variant->mo_multiselect->ms_result-t_filter
       CHANGING
         val   = mt_table ).
 
@@ -112,33 +121,20 @@ CLASS z2ui5_cl_layo_sample_02 IMPLEMENTATION.
 
     IF client->check_on_init( ).
 
-      mt_filter = z2ui5_cl_layo_pop_range=>read_default(
-*        EXPORTING
-*          var_handle1 = SY-REPID
-*          var_handle2 =
-*          var_handle3 =
-*        RECEIVING
-*          result      =
-       )-t_filter.
-
-      IF mt_filter IS INITIAL.
-
-        mt_filter = z2ui5_cl_util=>filter_get_multi_by_data( mt_table ).
-        DELETE mt_filter WHERE name = `SELKZ`.
-
-      ELSE.
-        set_data( ).
-      ENDIF.
-
+      mo_variant = z2ui5_cl_sel_multisel_pop=>factory_by_data(
+        data             = mt_table
+        var_handle1     = 'TEST_POP'
+                            ).
+      set_data( ).
       view_display( ).
       RETURN.
     ENDIF.
 
     IF client->check_on_navigated( ).
       TRY.
-          DATA(lo_value_help) = CAST z2ui5_cl_layo_pop_range( client->get_app_prev( ) ).
+          DATA(lo_value_help) = CAST z2ui5_cl_sel_multisel_pop( client->get_app_prev( ) ).
           IF lo_value_help->result( )-check_confirmed = abap_true.
-            mt_filter = lo_value_help->result( )-t_filter.
+            mo_variant->mo_multiselect->ms_result-t_filter = lo_value_help->result( )-t_filter.
             set_data( ).
             client->view_model_update( ).
           ENDIF.

src/00/z2ui5_cl_layo_sample_02.clas.abap renamed to src/00/z2ui5_cl_sel_sample_02.clas.abap

@@ -3,9 +3,9 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <VSEOCLASS>
-    <CLSNAME>Z2UI5_CL_LAYO_POP_RANGE</CLSNAME>
+    <CLSNAME>Z2UI5_CL_SEL_SAMPLE_02</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>variant - popup ranges</DESCRIPT>
+    <DESCRIPT>sample - multisel popup</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>

src/01/z2ui5_cl_layo_pop_range.clas.xml renamed to src/00/z2ui5_cl_sel_sample_02.clas.xml

@@ -0,0 +1,75 @@
+CLASS z2ui5_cl_sel_sample_03 DEFINITION
+  PUBLIC
+  FINAL
+  CREATE PUBLIC .
+
+  PUBLIC SECTION.
+    INTERFACES z2ui5_if_app.
+
+    DATA mo_screen TYPE REF TO z2ui5_cl_sel_screen.
+
+    DATA mv_param TYPE string.
+  PROTECTED SECTION.
+    METHODS view_display.
+    METHODS on_navigated.
+    METHODS on_event.
+    DATA client TYPE REF TO z2ui5_if_client.
+  PRIVATE SECTION.
+
+
+ENDCLASS.
+
+
+
+CLASS z2ui5_cl_sel_sample_03 IMPLEMENTATION.
+
+  METHOD z2ui5_if_app~main.
+    me->client = client.
+
+    IF client->check_on_init( ).
+      mo_screen = z2ui5_cl_sel_screen=>factory( ).
+      view_display( ).
+      RETURN.
+    ENDIF.
+
+    IF mo_screen->main( client ).
+      RETURN.
+    ENDIF.
+
+    IF client->check_on_navigated( ).
+      on_navigated( ).
+    ELSE.
+      on_event( ).
+    ENDIF.
+
+  ENDMETHOD.
+
+
+  METHOD view_display.
+
+    DATA(page) = z2ui5_cl_xml_view=>factory( )->shell( )->page( ).
+
+    DATA(lo_selscreen) = mo_screen->factory_selscreen( page ).
+    lo_selscreen->parameters( mv_param ).
+
+    client->view_display( page->stringify( ) ).
+
+  ENDMETHOD.
+
+
+  METHOD on_navigated.
+
+  ENDMETHOD.
+
+
+  METHOD on_event.
+
+    CASE client->get( )-event.
+
+      WHEN 'ABC'.
+
+    ENDCASE.
+
+  ENDMETHOD.
+
+ENDCLASS.

src/00/z2ui5_cl_sel_sample_03.clas.abap

@@ -3,9 +3,9 @@
  <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
   <asx:values>
    <VSEOCLASS>
-    <CLSNAME>Z2UI5_CL_LAYO_SAMPLE_01</CLSNAME>
+    <CLSNAME>Z2UI5_CL_SEL_SAMPLE_03</CLSNAME>
     <LANGU>E</LANGU>
-    <DESCRIPT>variant - integrated ranges</DESCRIPT>
+    <DESCRIPT>selection-screen</DESCRIPT>
     <STATE>1</STATE>
     <CLSCCINCL>X</CLSCCINCL>
     <FIXPT>X</FIXPT>