update

Author: oblomov-dev

src/00/z2ui5_cl_layo_sample_01.clas.abap

@@ -3,31 +3,21 @@ CLASS z2ui5_cl_layo_sample_01 DEFINITION PUBLIC.
   PUBLIC SECTION.
     INTERFACES z2ui5_if_app.
 
-    TYPES:
-      BEGIN OF ty_s_tab,
-        selkz            TYPE abap_bool,
-        product          TYPE string,
-        create_date      TYPE string,
-        create_by        TYPE string,
-        storage_location TYPE string,
-        quantity         TYPE i,
-      END OF ty_s_tab.
-    TYPES ty_t_table TYPE STANDARD TABLE OF ty_s_tab WITH EMPTY KEY.
-
-    DATA mv_tabname TYPE string.
-    DATA mr_table   TYPE REF TO data.
-    DATA mt_filter  TYPE z2ui5_cl_util=>ty_t_filter_multi.
-
-  PROTECTED SECTION.
-    DATA client               TYPE REF TO z2ui5_if_client.
-    DATA mv_check_initialized TYPE abap_bool.
+    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 client TYPE REF TO z2ui5_if_client.
+    DATA mv_expanded TYPE abap_bool VALUE abap_true.
 
     METHODS on_event.
     METHODS view_display.
     METHODS set_data.
+    METHODS on_init.
 
+  PROTECTED SECTION.
   PRIVATE SECTION.
-    DATA mo_multiselect TYPE REF TO z2ui5_cl_layo_selscreen.
+
+
 ENDCLASS.
 
 
@@ -37,61 +27,24 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
 
     CASE client->get( )-event.
 
-      WHEN 'LIST_OPEN'.
-        mo_multiselect = z2ui5_cl_layo_selscreen=>factory( mt_filter ).
-        mo_multiselect->on_event( client ).
-        RETURN.
-
       WHEN `BUTTON_START`.
         set_data( ).
         client->view_model_update( ).
 
-      WHEN `PREVIEW_FILTER`.
-        client->nav_app_call( z2ui5_cl_pop_get_range_m=>factory( mt_filter ) ).
-
       WHEN 'BACK'.
-        client->nav_app_leave( client->get_app( client->get( )-s_draft-id_prev_app_stack ) ).
+        client->nav_app_leave( ).
+
     ENDCASE.
 
   ENDMETHOD.
 
   METHOD set_data.
 
-*     DATA lt_range TYPE rs_t_rscedst.
-
-*     LOOP AT mt_filter INTO DATA(ls_filter).
-*       LOOP AT ls_filter-t_range INTO DATA(ls_range).
-*
-*         INSERT VALUE #(
-*             fnam = ls_filter-name
-*             sign = ls_range-sign
-*             option = ls_range-option
-*             low = ls_range-low
-*             high = ls_range-high
-*          ) INTO TABLE lt_range.
-*
-*       ENDLOOP.
-*     ENDLOOP.
-
-*     DATA lv_result TYPE string.
-**     data lt_where type rsdmd_t_where.
-*     CALL FUNCTION 'RSDS_RANGE_TO_WHERE'
-*       EXPORTING
-*         i_t_range = lt_range
-**        i_th_range     =
-**        i_r_renderer   =
-*       IMPORTING
-*         e_where   = lv_result
-**        e_t_where = lt_where
-**  EXCEPTIONS
-**        internal_error = 1
-**        others    = 2
-*       .
-
+    DATA(lv_where) = z2ui5_cl_util=>filter_get_sql_where( mo_multiselect->ms_result-t_filter ).
     SELECT FROM (mv_tabname)
      FIELDS
        *
-*      where (lv_result)
+      WHERE (lv_where)
      INTO TABLE @mr_table->*
      UP TO 100 ROWS.
 
@@ -104,44 +57,48 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
     view = view->shell( )->page( id             = `page_main`
                                  title          = 'abap2UI5 - Select-Options'
                                  navbuttonpress = client->_event( 'BACK' )
-                                 shownavbutton  = xsdbool( client->get( )-s_draft-id_prev_app_stack IS NOT INITIAL ) ).
+                                 shownavbutton  = client->check_app_prev_stack( ) ).
 
-    DATA(vbox) = view->vbox( )->input( value       = client->_bind_edit( mv_tabname )
-                                       description = `Tablename` ).
+    DATA(vbox) = view->vbox( ).
 
-    vbox->button( text  = `GO`
-                  press = client->_event( 'TAB' ) ).
+*    ->input( value       = mv_tabname
+*                                       enabled    = abap_false
+*                                       description = `Tablename` ).
 
-    DATA(lo_multiselect) = z2ui5_cl_layo_selscreen=>factory( mt_filter ).
+*    vbox->button( text  = `GO`
+*                  press = client->_event( 'TAB' ) ).
 
-    lo_multiselect->set_output2( t_filter = mt_filter
-                                 client2  = client
-                                 view     = vbox ).
+
+    DATA(lo_panel) = vbox->panel(
+         expandable = abap_true
+         expanded         = client->_bind_edit( mv_expanded )
+         headertext       = |Selection Screen|
+    ).
+
+    mo_multiselect->set_output( client = client view = lo_panel ).
 
     ASSIGN mr_table->* TO FIELD-SYMBOL(<table>).
-    DATA(tab) = vbox->table( items = client->_bind( val = <table> )
+    DATA(tab) = vbox->table( client->_bind( <table> )
            )->header_toolbar(
              )->overflow_toolbar(
                  )->toolbar_spacer(
-*                 )->button( text = `Filter` press = client->_event( `PREVIEW_FILTER` ) icon = `sap-icon://filter`
-           )->button( text  = `Go`
+               )->button( text  = `Go`
                       press = client->_event( `BUTTON_START` )
                       type  = `Emphasized`
             )->get_parent( )->get_parent( ).
 
     DATA(lo_columns) = tab->columns( ).
-    lo_columns->column( )->text( text = `SPRLS` ).
+    lo_columns->column( )->text( text = `SPRSL` ).
     lo_columns->column( )->text( text = `ARBGB` ).
     lo_columns->column( )->text( text = `MSGNR` ).
     lo_columns->column( )->text( text = `TEXT` ).
 
     DATA(lo_cells) = tab->items( )->column_list_item( ).
-    lo_cells->text( `{SPRLS}` ).
+    lo_cells->text( `{SPRSL}` ).
     lo_cells->text( `{ARBGB}` ).
     lo_cells->text( `{MSGNR}` ).
     lo_cells->text( `{TEXT}` ).
 
-
     client->view_display( view->stringify( ) ).
 
   ENDMETHOD.
@@ -150,32 +107,12 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
 
     me->client = client.
 
-    IF mv_check_initialized = abap_false.
-      mv_check_initialized = abap_true.
-      mv_tabname = `T100`.
-
-      mr_table = z2ui5_cl_util=>rtti_create_tab_by_name( mv_tabname ).
-
-      FIELD-SYMBOLS <table> TYPE STANDARD TABLE.
-      ASSIGN mr_table->* TO <table>.
-      mt_filter = z2ui5_cl_util=>filter_get_multi_by_data( <table> ).
-*       DELETE mt_filter WHERE name = `SELKZ`.
-      view_display( ).
+    IF client->check_on_init( ).
+      on_init( ).
       RETURN.
     ENDIF.
 
-    IF client->get( )-check_on_navigated = abap_true.
-      TRY.
-          DATA(lo_popup) = CAST z2ui5_cl_pop_get_range( client->get_app( client->get( )-s_draft-id_prev_app ) ).
-          IF lo_popup->result( )-check_confirmed = abap_true.
-            FIELD-SYMBOLS <tab> TYPE z2ui5_cl_util=>ty_s_filter_multi.
-            ASSIGN mt_filter[ name = mo_multiselect->mv_popup_name ] TO <tab>.
-            <tab>-t_range = lo_popup->result( )-t_range.
-            <tab>-t_token = z2ui5_cl_util=>filter_get_token_t_by_range_t( <tab>-t_range ).
-            client->view_model_update( ).
-          ENDIF.
-        CATCH cx_root.
-      ENDTRY.
+    IF mo_multiselect->main( client ).
       RETURN.
     ENDIF.
 
@@ -185,4 +122,13 @@ CLASS z2ui5_cl_layo_sample_01 IMPLEMENTATION.
 
   ENDMETHOD.
 
+
+  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 ).
+    view_display( ).
+
+  ENDMETHOD.
+
 ENDCLASS.