diff --git a/ZA2X/PROG/ZDEMO_EXCEL5.slnk b/ZA2X/PROG/ZDEMO_EXCEL5.slnk index 1966009..981abf9 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL5.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL5.slnk @@ -1,8 +1,8 @@ - - + + - + *&---------------------------------------------------------------------* @@ -16,43 +16,19 @@ REPORT zdemo_excel5. DATA: lo_excel TYPE REF TO zcl_excel, - lo_excel_writer TYPE REF TO zif_excel_writer, lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_style_conditional TYPE REF TO zcl_excel_style_conditional. DATA: ls_iconset TYPE zexcel_conditional_iconset. -DATA: lv_file TYPE xstring, - lv_bytecount TYPE i, - lt_file_tab TYPE solix_tab. -DATA: lv_full_path TYPE string, - lv_workdir TYPE string, - lv_file_separator TYPE c. -CONSTANTS: lv_default_file_name TYPE string VALUE '05_Conditional.xlsx'. +CONSTANTS: gc_save_file_name TYPE string VALUE '05_Conditional.xlsx'. +INCLUDE zdemo_excel_outputopt_incl. -PARAMETERS: p_path TYPE zexcel_export_dir. - -AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path. - lv_workdir = p_path. - cl_gui_frontend_services=>directory_browse( EXPORTING initial_folder = lv_workdir - CHANGING selected_folder = lv_workdir ). - p_path = lv_workdir. - -INITIALIZATION. - cl_gui_frontend_services=>get_sapgui_workdir( CHANGING sapworkdir = lv_workdir ). - cl_gui_cfw=>flush( ). - p_path = lv_workdir. START-OF-SELECTION. - IF p_path IS INITIAL. - p_path = lv_workdir. - ENDIF. - cl_gui_frontend_services=>get_file_separator( CHANGING file_separator = lv_file_separator ). - CONCATENATE p_path lv_file_separator lv_default_file_name INTO lv_full_path. - CREATE OBJECT lo_excel. " Get active sheet @@ -104,24 +80,8 @@ START-OF-SELECTION. lo_worksheet->set_cell( ip_row = 7 ip_column = 'E' ip_value = 10 ). lo_worksheet->set_cell( ip_row = 8 ip_column = 'E' ip_value = 500 ). - CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. - lv_file = lo_excel_writer->write_file( lo_excel ). - " Convert to binary - CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' - EXPORTING - buffer = lv_file - IMPORTING - output_length = lv_bytecount - TABLES - binary_tab = lt_file_tab. -* " This method is only available on AS ABAP > 6.40 -* lt_file_tab = cl_bcs_convert=>xstring_to_solix( iv_xstring = lv_file ). -* lv_bytecount = xstrlen( lv_file ). - " Save the file - cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = lv_bytecount - filename = lv_full_path - filetype = 'BIN' - CHANGING data_tab = lt_file_tab ). +*** Create output + lcl_output=>output( lo_excel ).