CL GUI FRONTEND SERVICES

Datei Download von Applikations- zu Pränsentationsserver

"Read file from application server and get datasets from file
       cl_rsan_ut_appserv_file_reader=>appserver_file_read( EXPORTING i_filename = lv_path_filename
                                                           CHANGING c_data_tab = gt_data_tab ).
      gt_table = gt_data_tab.

       "Open dialog for saving and path for saving on client
       cl_gui_frontend_services=>file_save_dialog( EXPORTING window_title = 'Template Download'
                                                             default_file_name = lv_def_file_name
                                                             default_extension = 'csv'
                                                             file_filter = '*.csv'
                                                   CHANGING filename = gv_filename
                                                            path = gv_path
                                                            fullpath = gv_path_file ).

       "Build file like read and save it to client path link
       cl_gui_frontend_services=>gui_download( EXPORTING filename = gv_path_file
                                             CHANGING data_tab = gt_table ).

Datei Upload vom Pränsentations- zum Applikationsserver

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_up.
 TRY.
     p_doshow = .
     p_dodown = .
     IF p_doshow <> abap_true AND p_dodown <> abap_true.
       gv_title = 'Download file selection for template'(001).
       cl_gui_frontend_services=>file_open_dialog( EXPORTING window_title = gv_title
                                                   CHANGING file_table  = gt_filename
                                                            rc          = gv_cnt
                                                            user_action = gv_action ).
       IF gv_cnt > 1.
         MESSAGE e062(cacsib_edt).
       ELSE.
         IF NOT gv_cnt < 1.
           READ TABLE gt_filename INTO p_up INDEX 1.
         ENDIF.
       ENDIF.
     ENDIF.
   CATCH zcx_bc_basic INTO go_cx_bc_basic.
     gs_message_bal_msg = go_cx_bc_basic->get_msg_in_bal_structure( ).
     APPEND gs_message_bal_msg TO gt_messages_bal_msg.
 ENDTRY.

gv_path_filename = p_up.
       "Upload from client to application server
       cl_gui_frontend_services=>gui_upload( EXPORTING filename = gv_path_filename
                                             CHANGING data_tab = gt_table ).
       gt_data_tab = gt_table.

       "File from Path
       lcl_utilities=>get_filename_from_path( EXPORTING iv_path_filename = gv_path_filename IMPORTING ev_filename = gv_filename ).

       "Rename it with Filename pattern from cust table and date/time stamp
       lcl_utilities=>rename_build_to_dir_path( EXPORTING iv_filename = gv_filename
                                                          io_cust = go_cust
                                                IMPORTING ev_path_filename = gv_to_dir_file ).

       "Write file to application server
       cl_rsan_ut_appserv_file_writer=>appserver_file_write( EXPORTING i_filename = gv_to_dir_file
                                                                       i_data_tab = gt_data_tab
                                                                       i_overwrite = abap_true
                                                             IMPORTING e_lines_written = DATA(gv_lines_written) ).