enabled excel download of queried table (#4)

Author: choper725

src/z2ui5_sql_cl_app_01.clas.abap

@@ -4,6 +4,41 @@ CLASS z2ui5_sql_cl_app_01 DEFINITION PUBLIC.
 
     INTERFACES z2ui5_if_app.
 
+    TYPES:
+      BEGIN OF ty_value_map,
+        pc TYPE string,
+        ea TYPE string,
+      END OF ty_value_map.
+
+    TYPES:
+      BEGIN OF ty_column_config,
+        label             TYPE string,
+        property          TYPE string,
+        type              TYPE string,
+        unit              TYPE string,
+        delimiter         TYPE abap_bool,
+        unit_property     TYPE string,
+        width             TYPE string,
+        scale             TYPE i,
+        text_align        TYPE string,
+        display_unit      TYPE string,
+        true_value        TYPE string,
+        false_value       TYPE string,
+        template          TYPE string,
+        input_format      TYPE string,
+        wrap              TYPE abap_bool,
+        auto_scale        TYPE abap_bool,
+        timezone          TYPE string,
+        timezone_property TYPE string,
+        display_timezone  TYPE abap_bool,
+        utc               TYPE abap_bool,
+        value_map         TYPE ty_value_map,
+      END OF ty_column_config.
+
+    DATA: mt_column_config TYPE STANDARD TABLE OF ty_column_config WITH EMPTY KEY.
+    DATA: mv_column_config TYPE string.
+
+
     TYPES:
       BEGIN OF ty_history_out,
         s_db  TYPE z2ui5_sql_cl_history_api=>ty_s_entry,
@@ -71,7 +106,6 @@ CLASS z2ui5_sql_cl_app_01 DEFINITION PUBLIC.
     DATA client TYPE REF TO z2ui5_if_client.
 
     METHODS z2ui5_view_display.
-    METHODS z2ui5_view_settings_popup.
     METHODS sql_db_read.
 
 
@@ -112,8 +146,7 @@ ENDCLASS.
 
 
 
-CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
-
+CLASS Z2UI5_SQL_CL_APP_01 IMPLEMENTATION.
 
 
   METHOD history_db_read.
@@ -340,6 +373,7 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
       ASSIGN  ms_draft-s_preview-tab->* TO <tab>.
 
       DATA(tab) = lo_view_nested->ui_table(
+                            id = `previewTab`
                             rows = client->_bind_local( <tab> )
                             editable = abap_false
                             alternaterowcolors = abap_true
@@ -355,6 +389,12 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
                  )->input( width = `30%` value = client->_bind_edit( ms_draft-s_preview-search_field ) description = `All Column Search`
                     submit = client->_event( `PREVIEW_SEARCH` )
                  )->toolbar_spacer(
+                 )->_z2ui5( )->spreadsheet_export( tableid = `previewTab` icon = 'sap-icon://excel-attachment' type = 'Emphasized'
+                                                   columnconfig = client->_bind( val = mt_column_config
+                                                   custom_filter = NEW z2ui5_cl_cc_spreadsheet( )
+                                                   custom_mapper = z2ui5_cl_ajson_mapping=>create_lower_case( )
+                                                 )
+                  )->get_parent(
                  ).
 
       DATA(lt_fields) = z2ui5_cl_util=>rtti_get_t_attri_by_struc( <tab> ).
@@ -373,6 +413,7 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
 
   ENDMETHOD.
 
+
   METHOD result_display.
 
     DATA : lo_descr_table TYPE REF TO cl_abap_tabledescr,
@@ -398,6 +439,8 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
 
       MODIFY lt_comp FROM ls_comp.
 
+      APPEND VALUE ty_column_config( label = ls_comp-name property = ls_comp-name type = `String` ) TO mt_column_config.
+
     ENDLOOP.
 
     DATA(lo_new_type) = cl_abap_structdescr=>create( lt_comp ).
@@ -425,6 +468,7 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
     history_db_save( ).
     client->view_model_update( ).
 
+
   ENDMETHOD.
 
 
@@ -446,17 +490,18 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
 
   ENDMETHOD.
 
+
   METHOD sql_on_run.
 
     z2ui5_scl_cl_query_on_prem=>sql_logic(
       EXPORTING
         query         = ms_draft-sql_input
         max_rows = ms_draft-sql_max_rows
      IMPORTING
-        lw_from       = data(lw_from)
-        lo_result     = data(lo_result)
-        lw_query     = data(lw_query)
-        lt_fieldlist2 = data(lt_fieldlist2)
+        lw_from       = DATA(lw_from)
+        lo_result     = DATA(lo_result)
+        lw_query     = DATA(lw_query)
+        lt_fieldlist2 = DATA(lt_fieldlist2)
     ).
 
     result_display(
@@ -486,7 +531,16 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
 
         IF ms_control-check_initialized = abap_false.
           ms_control-check_initialized = abap_true.
-          z2ui5_on_init_set_app( ).
+
+          client->view_display( z2ui5_cl_xml_view=>factory(
+            )->_z2ui5( )->timer(  client->_event( `START` )
+              )->_generic( ns = `html` name = `script` )->_cc_plain_xml( z2ui5_cl_cc_spreadsheet=>get_js( )
+              )->stringify( ) ).
+
+*          client->nav_app_call( z2ui5_cl_popup_js_loader=>factory( z2ui5_cl_cc_spreadsheet=>get_js( mv_column_config ) ) ).
+
+
+*          z2ui5_on_init_set_app( ).
           RETURN.
         ENDIF.
 
@@ -561,8 +615,8 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
     z2ui5_sql_cl_history_api=>db_create_draft( client->get( )-s_draft-id ).
 
     CASE client->get( )-event.
-      WHEN 'VIEW_SETTINGS_DIALOG'.
-        z2ui5_view_settings_popup( ).
+      WHEN 'START'.
+        z2ui5_on_init_set_app( ).
 
       WHEN `PREVIEW_FILTER`.
         client->nav_app_call( z2ui5_cl_popup_get_range_multi=>factory( ms_draft-s_preview-t_filter ) ).
@@ -594,7 +648,7 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
   ENDMETHOD.
 
 
-  METHOD z2ui5_on_init_set_app.
+  METHOD z2ui5_on_init_set_app  .
 
     ms_draft-sql_input = `Select * from T100`.
     ms_draft-history_cont_size = `30%`.
@@ -662,26 +716,4 @@ CLASS z2ui5_sql_cl_app_01 IMPLEMENTATION.
     client->view_display( view->stringify( ) ).
 
   ENDMETHOD.
-
-
-  METHOD z2ui5_view_settings_popup.
-    DATA(popup_settings) = z2ui5_cl_xml_view=>factory_popup( ).
-
-    popup_settings = popup_settings->view_settings_dialog(
-                                    confirm = client->_event( 'ALL_EVENT' )
-                                    sortitems = client->_bind_edit( t_tab_sort )
-                                    groupitems = client->_bind_edit( t_tab_group )
-                                    filteritems = client->_bind_edit( t_tab_filter )
-                        )->sort_items(
-                          )->view_settings_item( text = `{TEXT}` key = `{KEY}` selected = `{SELECTED}` )->get_parent( )->get_parent(
-                        )->group_items(
-                          )->view_settings_item( text = `{TEXT}` key = `{KEY}` selected = `{SELECTED}` )->get_parent( )->get_parent(
-                        )->filter_items(
-                          )->view_settings_filter_item( text = `{TEXT}` key = `{KEY}` multiselect = abap_true
-                            )->items(
-                              )->view_settings_item( text = `{TEXT}` key = `{KEY}` ).
-
-    client->popup_display( popup_settings->stringify( ) ).
-
-  ENDMETHOD.
 ENDCLASS.