ALV捕捉回车键Word下载.docx

ALV捕捉回车键Word下载.docx

《ALV捕捉回车键Word下载.docx》由会员分享，可在线阅读，更多相关《ALV捕捉回车键Word下载.docx（13页珍藏版）》请在冰豆网上搜索。

TYPElvc_title,

gt_exclude 

TYPETABLEOFchar20WITHHEADERLINE,

savefile 

gt_excel 

TYPETABLEOFalsmex_tabline.

excel 

TYPEole2_object,

application 

workbook 

sheet 

cells 

exrows 

excolumns 

borders 

linestyle 

ranges 

interior 

pagebreak 

TYPEole2_object.

*ALVUsed

it_fieldcat 

TYPEslis_t_fieldcat_alv,

it_sort 

TYPEslis_t_sortinfo_alv,

it_events 

TYPEslis_t_event,

wa_fieldcat 

TYPEslis_fieldcat_alv,

wa_sort 

TYPEslis_sortinfo_alv,

wa_events 

LIKELINEOFit_events,

ls_layout 

TYPEslis_layout_alv,

lc_glay 

TYPElvc_s_glay.

DATAtem_grid 

TYPEREFTOcl_gui_alv_grid.

*----------------------------------------------------------------------*

* 

CLASSLCL_EVENT_RECEIVERDEFINITION

*

CLASSlcl_event_receiverDEFINITION.

PUBLICSECTION.

METHODShandle_modify

FOREVENTdata_changed_finishedOFcl_gui_alv_grid

IMPORTINGe_modifiedet_good_cells.

ENDCLASS. 

"

LCL_EVENT_RECEIVERDEFINITION

CLASSLCL_EVENT_RECEIVERIMPLEMENTATION

CLASSlcl_event_receiverIMPLEMENTATION.

METHODhandle_modify.

PERFORMrefresh.

DATAstblTYPElvc_s_stbl.

稳定刷新

stbl-row='

X'

."

基于行的稳定刷新

stbl-col='

基于列稳定刷新

CALLMETHODtem_grid->

refresh_table_display

EXPORTING

is_stable=stbl.

ENDMETHOD. 

HANDLE_MODIFY

LCL_EVENT_RECEIVERIMPLEMENTATION

DATAgt_event_receiverTYPEREFTOlcl_event_receiver.

Formdownloadtemplate

DownloadExcelTemplateFromSAPAndSaveToLocal

-->

PTEMPLATENAMETemplateFileName

PSAVEFILENAMEExcelFileName

FORMdownloadtemplateUSINGptemplatenameTYPEchar100

psavefilename.

path 

filenameTYPEstring,

title 

TYPEstringVALUE'

请选择保存的路径及文件名'

filter 

TYPEstring.

CONCATENATEcl_gui_frontend_services=>

filetype_excel

cl_gui_frontend_services=>

filetype_all

INTOfilter.

CALLMETHODcl_gui_frontend_services=>

file_save_dialog

default_file_name=psavefilename

window_title 

=title

file_filter 

=filter

CHANGING

filename 

=filename

=path

fullpath 

=savefile.

CHECKsavefileISNOTINITIAL.

CALLFUNCTION'

SAP_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.

CHECKdoc_tableISNOTINITIAL.

GUI_DOWNLOAD'

bin_filesize 

=savefile

filetype 

='

BIN'

data_tab 

=doc_table

EXCEPTIONS

file_write_error 

=1

no_batch 

=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 

=16

disk_full 

=17

dp_timeout 

=18

file_not_found 

=19

dataprovider_exception=20

control_flush_error 

=21

OTHERS 

=22.

IFsy-subrc=0.

PERFORMmain_process.

PERFORMwriteexcel.

MESSAGEs032WITHsavefile.

ELSE.

MESSAGEIDsy-msgidTYPEsy-msgtyNUMBERsy-msgno

WITHsy-msgv1sy-msgv2sy-msgv3sy-msgv4.

ENDIF.

*DATA:

ls_wwwdatatabTYPEwwwdatatab,

ls_savefile 

TYPErlgrap-filename,

ls_filename 

TYPEw3file-name,

rc 

TYPEsy-subrc.

*ls_wwwdatatab-relid='

MI'

*ls_wwwdatatab-objid=ptemplatename.

*ls_filename=psavefilename.

**ls_savefile=psavefilename.

*CALLFUNCTION'

DOWNLOAD_WEB_OBJECT'

key 

=ls_wwwdatatab

destination=ls_savefile

=rc

temp 

=ls_filename.

*IFrc=0.

MESSAGEls_filenameTYPE'

S'

** 

savefile=ls_filename.

PERFORMopenexcelfileUSING1ls_filename.

*ENDIF.

ENDFORM. 

downloadtemplate

Formoutputalv

OutputALV

IT_ALVDATAInternalTableOfALVData

FORMoutputalvTABLESit_alvdataTYPESTANDARDTABLE.

wa_events-name='

CALLER_EXIT'

wa_events-form='

FM_BUTTON'

APPENDwa_eventsTOit_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_set 

SET_STATUS'

i_callback_user_command 

USER_COMMAND'

i_callback_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_events

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_USER 

t_outtab 

=it_alvdata

program_error 

=2.

IFsy-subrc<

>

0.

outputalv

Formuser_command

ALVUserCommandCallBackFunction

P_UCOMM 

OKCode

P_SELFIELDSelectedALVField

FORMuser_commandUSINGp_ucomm 

LIKEsy-ucomm

p_selfieldTYPEslis_selfield.

CASEp_ucomm.

WHEN'

&

XLS'

PERFORMdownloadtemplateUSINGgc_templatenamegc_filename.

UPL'

PERFORMeditexcel.

PERFORMuploadexcel.

P