Update 152 - Popup to Select - with mutliselect feature (#362)

* popup to select: add multi select

* update example with preselection

Author: christianguenter2

src/z2ui5_cl_demo_app_152.clas.abap

@@ -8,19 +8,23 @@ CLASS z2ui5_cl_demo_app_152 DEFINITION PUBLIC.
 
     TYPES:
       BEGIN OF ty_row,
-        title TYPE string,
-        value TYPE string,
-        descr TYPE string,
+        zzselkz TYPE abap_bool,
+        title   TYPE string,
+        value   TYPE string,
+        descr   TYPE string,
       END OF ty_row.
     DATA mt_tab TYPE STANDARD TABLE OF ty_row WITH EMPTY KEY.
 
     DATA mv_check_initialized TYPE abap_bool.
+    DATA mv_multiselect TYPE abap_bool.
+    DATA mv_preselect TYPE abap_bool.
     METHODS ui5_display.
     METHODS ui5_event.
     METHODS ui5_callback.
 
   PROTECTED SECTION.
   PRIVATE SECTION.
+
 ENDCLASS.
 
 
@@ -35,15 +39,30 @@ CLASS z2ui5_cl_demo_app_152 IMPLEMENTATION.
       WHEN 'POPUP'.
 
         mt_tab = VALUE #( descr = 'this is a description'
-             (  title = 'title_01'  value = 'value_01' )
-             (  title = 'title_02'  value = 'value_02' )
-             (  title = 'title_03'  value = 'value_03' )
-             (  title = 'title_04'  value = 'value_04' )
-             (  title = 'title_05'  value = 'value_05' ) ).
-
-        DATA(lo_app) = z2ui5_cl_pop_to_select=>factory( mt_tab ).
+             ( zzselkz = mv_preselect title = 'title_01'  value = 'value_01' )
+             ( zzselkz = mv_preselect title = 'title_02'  value = 'value_02' )
+             ( zzselkz = mv_preselect title = 'title_03'  value = 'value_03' )
+             ( zzselkz = mv_preselect title = 'title_04'  value = 'value_04' )
+             ( zzselkz = mv_preselect title = 'title_05'  value = 'value_05' ) ).
+
+        DATA(lo_app) = z2ui5_cl_pop_to_select=>factory(
+                           i_tab         = mt_tab
+                           i_multiselect = mv_multiselect
+                           i_title       = COND #(
+                                             WHEN mv_multiselect = abap_true
+                                             THEN `Multi select`
+                                             ELSE `Single select` ) ).
         client->nav_app_call( lo_app ).
 
+
+      WHEN 'MULTISELECT_TOGGLE'.
+
+        mv_preselect = COND #( WHEN mv_multiselect = abap_false
+                               THEN abap_false
+                               ELSE mv_preselect ).
+
+        client->view_model_update( ).
+
       WHEN 'BACK'.
         client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ).
 
@@ -66,6 +85,14 @@ CLASS z2ui5_cl_demo_app_152 IMPLEMENTATION.
                     target = '_blank'
 
                     )->get_parent(
+           )->hbox(
+           )->text( text = 'Multiselect: ' class = 'sapUiTinyMargin'
+           )->switch( state = client->_bind_edit( mv_multiselect ) change = client->_event( `MULTISELECT_TOGGLE` )
+           )->get_parent(
+           )->hbox(
+           )->text( text = 'Preselect all entries: ' class = 'sapUiTinyMargin'
+           )->switch( state = client->_bind_edit( mv_preselect ) enabled = client->_bind_edit( mv_multiselect )
+           )->get_parent(
            )->button(
             text  = 'Open Popup...'
             press = client->_event( 'POPUP' ) ).
@@ -98,9 +125,27 @@ CLASS z2ui5_cl_demo_app_152 IMPLEMENTATION.
     TRY.
         DATA(lo_prev) = client->get_app( client->get(  )-s_draft-id_prev_app ).
         DATA(ls_result) = CAST z2ui5_cl_pop_to_select( lo_prev )->result( ).
-        FIELD-SYMBOLS <row> TYPE ty_row.
-        ASSIGN ls_result-row->* TO <row>.
-        client->message_box_display( `callback after popup to select: ` && <row>-title ).
+
+        IF ls_result-check_confirmed = abap_false.
+          client->message_box_display( `Popup was cancelled` ).
+          RETURN.
+        ENDIF.
+
+        IF mv_multiselect = abap_false.
+
+          FIELD-SYMBOLS <row> TYPE ty_row.
+          ASSIGN ls_result-row->* TO <row>.
+          client->message_box_display( `callback after popup to select: ` && <row>-title ).
+
+        ELSE.
+
+          ASSIGN ls_result-table->* TO FIELD-SYMBOL(<table>).
+          client->nav_app_call( z2ui5_cl_pop_table=>factory(
+                                    i_tab   = <table>
+                                    i_title = 'Selected rows' ) ).
+
+        ENDIF.
+
       CATCH cx_root.
     ENDTRY.