ALV捕捉回车键Word下载.docx

1、 TYPE lvc_title, gt_exclude TYPE TABLE OF char20 WITH HEADER LINE, savefile gt_excel TYPE TABLE OF alsmex_tabline. excel TYPE ole2_object, application workbook sheet cells exrows excolumns borders linestyle ranges interior pagebreak TYPE ole2_object.*ALV Used it_fieldcat TYPE slis_t_fieldcat_alv, it

2、_sort TYPE slis_t_sortinfo_alv, it_events TYPE slis_t_event, wa_fieldcat TYPE slis_fieldcat_alv, wa_sort TYPE slis_sortinfo_alv, wa_events LIKE LINE OF it_events, ls_layout TYPE slis_layout_alv, lc_glay TYPE lvc_s_glay.DATA tem_grid TYPE REF TO cl_gui_alv_grid.*-* CLASS LCL_EVENT_RECEIVER DEFINITION

3、*CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION. METHODS handle_modify FOR EVENT data_changed_finished OF cl_gui_alv_grid IMPORTING e_modified et_good_cells.ENDCLASS. LCL_EVENT_RECEIVER DEFINITION CLASS LCL_EVENT_RECEIVER IMPLEMENTATIONCLASS lcl_event_receiver IMPLEMENTATION.METHOD handle_modify

4、. PERFORM refresh. DATA stbl TYPE lvc_s_stbl. 稳定刷新 stbl-row = X. 基于行的稳定刷新 stbl-col = 基于列稳定刷新 CALL METHOD tem_grid-refresh_table_display EXPORTING is_stable = stbl.ENDMETHOD.HANDLE_MODIFYLCL_EVENT_RECEIVER IMPLEMENTATIONDATA gt_event_receiver TYPE REF TO lcl_event_receiver . Form downloadtemplate Dow

5、nload Excel Template From SAP And Save To Local -PTEMPLATENAME Template File NamePSAVEFILENAME Excel File NameFORM downloadtemplate USING ptemplatename TYPE char100 psavefilename. path filename TYPE string, title TYPE string VALUE 请选择保存的路径及文件名, filter TYPE string.CONCATENATE cl_gui_frontend_services

6、=filetype_excel cl_gui_frontend_services=filetype_all INTO filter.CALL METHOD cl_gui_frontend_services=file_save_dialog default_file_name = psavefilename window_title = title file_filter = filter CHANGING filename = filename = path fullpath = savefile.CHECK savefile IS NOT INITIAL.CALL FUNCTION SAP_

7、OI_LOAD_MIME_DATA object_id = ptemplatename IMPORTING data_size = doc_size document_format = doc_format document_type = doc_type TABLES data_table = doc_table.CHECK doc_table IS NOT INITIAL.GUI_DOWNLOAD bin_filesize = savefile filetype = BIN data_tab = doc_table EXCEPTIONS file_write_error = 1 no_ba

8、tch = 2 gui_refuse_filetransfer = 3 invalid_type = 4 no_authority = 5 unknown_error = 6 header_not_allowed = 7 separator_not_allowed = 8 filesize_not_allowed = 9 header_too_long = 10 dp_error_create = 11 dp_error_send = 12 dp_error_write = 13 unknown_dp_error = 14 access_denied = 15 dp_out_of_memory

9、 = 16 disk_full = 17 dp_timeout = 18 file_not_found = 19 dataprovider_exception = 20 control_flush_error = 21 OTHERS = 22.IF sy-subrc = 0. PERFORM main_process. PERFORM writeexcel. MESSAGE s032 WITH savefile.ELSE. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-m

10、sgv4.ENDIF.* DATA:ls_wwwdatatab TYPE wwwdatatab, ls_savefile TYPE rlgrap-filename, ls_filename TYPE w3file-name, rc TYPE sy-subrc.* ls_wwwdatatab-relid = MI* ls_wwwdatatab-objid = ptemplatename.* ls_filename = psavefilename.* ls_savefile = psavefilename.* CALL FUNCTION DOWNLOAD_WEB_OBJECT key = ls_w

11、wwdatatab destination = ls_savefile = rc temp = ls_filename.* IF rc = 0. MESSAGE ls_filename TYPE S* savefile = ls_filename. PERFORM openexcelfile USING 1 ls_filename.* ENDIF.ENDFORM.downloadtemplate Form outputalv Output ALVIT_ALVDATA Internal Table Of ALV DataFORM outputalv TABLES it_alvdata TYPE

12、STANDARD TABLE.wa_events-name = CALLER_EXITwa_events-form = FM_BUTTONAPPEND wa_events TO it_events.lc_glay-edt_cll_cb = REUSE_ALV_GRID_DISPLAY I_INTERFACE_CHECK I_BYPASSING_BUFFER I_BUFFER_ACTIVE i_callback_program = sy-repid i_callback_pf_status_setSET_STATUS i_callback_user_commandUSER_COMMAND i_c

13、allback_top_of_page i_callback_html_top_of_page i_callback_html_end_of_list I_STRUCTURE_NAME = I_BACKGROUND_ID i_grid_title = gc_alvtitle i_grid_settings = lc_glay is_layout = ls_layout = it_fieldcat IT_EXCLUDING IT_SPECIAL_GROUPS = it_sort IT_FILTER IS_SEL_HIDE I_DEFAULT i_save IS_VARIANT = it_even

14、ts IT_EVENT_EXIT IS_PRINT IS_REPREP_ID I_SCREEN_START_COLUMN = 0 I_SCREEN_START_LINE I_SCREEN_END_COLUMN I_SCREEN_END_LINE I_HTML_HEIGHT_TOP I_HTML_HEIGHT_END IT_ALV_GRAPHICS IT_HYPERLINK IT_ADD_FIELDCAT IT_EXCEPT_QINFO IR_SALV_FULLSCREEN_ADAPTER* IMPORTING E_EXIT_CAUSED_BY_CALLER ES_EXIT_CAUSED_BY_

15、USER t_outtab = it_alvdata program_error = 2.IF sy-subrc 0. outputalv Form user_command ALV User Command Call Back FunctionP_UCOMM OK CodeP_SELFIELD Selected ALV FieldFORM user_command USING p_ucomm LIKE sy-ucomm p_selfield TYPE slis_selfield.CASE p_ucomm. WHEN &XLS PERFORM downloadtemplate USING gc_templatename gc_filename.UPL PERFORM editexcel. PERFORM uploadexcel. P