Result:
Step 1: Use TCode SMW0 to upload a template file
Step 1.1: Tcode SMW0 -> F8
Step 1.2: F8
Step 1.3: F5 (Create) -> input Name + Description -> import a template file
Note:
If face error “No MIME type assigned to object” then you shoule define MIME type
application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
*.xlsx
Step 2: declare at TOP include
TABLES: sscrfields.
DATA: go_get_temp TYPE REF TO zcl_get_template.
Step 3: add below row at code for design Selection Screen
SELECTION-SCREEN FUNCTION KEY 1.
Step 4: event INITIALIZATION
PERFORM set_button.
FORM set_button .
DATA smp_dyntxt TYPE smp_dyntxt.
CLEAR smp_dyntxt.
smp_dyntxt–text = TEXT–003.”text of the button
smp_dyntxt–icon_id = ‘@49@’.
smp_dyntxt–icon_text = TEXT–003.”text of the button
smp_dyntxt–quickinfo = TEXT–003.”text of the button
sscrfields–functxt_01 = smp_dyntxt.
ENDFORM.
Step 5: event AT SELECTION-SCREEN
IF sscrfields–ucomm = ‘FC01’.
PERFORM download_template.
ENDIF.
FORM download_template .
DATA: ls_return TYPE bapiret2.
CREATE OBJECT go_get_temp.
go_get_temp->download_temp(
EXPORTING
p_object_name = ‘ZRE400U_TEMPLATE’ ” SAP WWW Gateway Object Name
IMPORTING
es_return = ls_return ” Return Parameter
).
ENDFORM.
/////////////////////////////////////////////////////////////////////////////////////////////////
Class ZCL_GET_TEMPLATE
P_OBJECT_NAME Importing Type W3OBJID SAP WWW Gateway Object Name
ES_RETURN Exporting Type BAPIRET2 Return Parameter
METHOD download_temp.
DATA: ls_wwwdata_tab TYPE wwwdatatab.
CLEAR: es_return.
*Make sure template exists in SMw0 as binary object
SELECT * FROM wwwdata INNER JOIN tadir
ON wwwdata~objid = tadir~obj_name
INTO CORRESPONDING FIELDS OF ls_wwwdata_tab UP TO 1 ROWS
WHERE wwwdata~srtf2 = 0
AND wwwdata~relid = ‘MI’
AND tadir~pgmid = ‘R3TR’
AND tadir~object = ‘W3MI’
AND tadir~obj_name = p_object_name.
ENDSELECT.
IF sy–subrc <> 0.
es_return–type = ‘E’.
es_return–id = ‘OO’.
es_return–number = ‘000’.
es_return–message_v1 = ‘Template’.
es_return–message_v2 = p_object_name.
es_return–message_v3 = ‘does not exist in’.
es_return–message_v4 = ‘transaction SMW0’.
MESSAGE ID ‘OO’ TYPE ‘E’ NUMBER ‘000’
WITH ‘Template’ p_object_name ‘does not exist in’
INTO es_return–message.
* PERFORM fill_return USING
* ‘E’
* ‘OO’
* ‘000’
* ‘Template’
* p_object_name
* ‘does not exist in’
* ‘transaction SMW0’
* CHANGING es_return.
EXIT.
ENDIF.
CALL FUNCTION ‘DOWNLOAD_WEB_OBJECT’
EXPORTING
key = ls_wwwdata_tab.
ENDMETHOD.
P_OBJECT_NAME Importing Type W3OBJID
DESTINATION Importing Type LOCALFILE
ES_RETURN Exporting Type BAPIRET2
method DOWNLOAD_TEMP2.
DATA: ls_wwwdata_tab TYPE wwwdatatab.
CLEAR: es_return.
*Make sure template exists in SMw0 as binary object
SELECT * FROM wwwdata INNER JOIN tadir
ON wwwdata~objid = tadir~obj_name
INTO CORRESPONDING FIELDS OF ls_wwwdata_tab UP TO 1 ROWS
WHERE wwwdata~srtf2 = 0
AND wwwdata~relid = ‘MI’
AND tadir~pgmid = ‘R3TR’
AND tadir~object = ‘W3MI’
AND tadir~obj_name = p_object_name.
ENDSELECT.
IF sy–subrc <> 0.
es_return–type = ‘E’.
es_return–id = ‘OO’.
es_return–number = ‘000’.
es_return–message_v1 = ‘Template’.
es_return–message_v2 = p_object_name.
es_return–message_v3 = ‘does not exist in’.
es_return–message_v4 = ‘transaction SMW0’.
MESSAGE ID ‘OO’ TYPE ‘E’ NUMBER ‘000’
WITH ‘Template’ p_object_name ‘does not exist in’
INTO es_return–message.
* PERFORM fill_return USING
* ‘E’
* ‘OO’
* ‘000’
* ‘Template’
* p_object_name
* ‘does not exist in’
* ‘transaction SMW0’
* CHANGING es_return.
EXIT.
ENDIF.
DATA: filename(255) TYPE c.
* sc_tmp = ‘ZST_template’.
* CONCATENATE sc_tmp ‘_’ sy-datum INTO sc_tmp.
CALL FUNCTION ‘DOWNLOAD_WEB_OBJECT’
EXPORTING
key = ls_wwwdata_tab
destination = destination.
endmethod.
/////////////////////////////////////////////////////////////////////////////////////////////////
Enhancement to default file name
ENHANCEMENT 1 ZEI_DEFAULT_FNAME. “active version
if sy–tcode = ‘ZRE400U’.
data DEFAULT_FILE_NAME type string.
DATA: filefilter2 TYPE string,
filename2 TYPE string,
path2 TYPE string,
fullpath2 TYPE string,
user_action2 TYPE i,
cur_guicopdepage2 TYPE tcp00–cpcodepage.
DEFAULT_FILE_NAME = ‘ZRE400U_TEMPLATE.XLSX’.
CLASS cl_gui_frontend_services DEFINITION LOAD.
user_action2 = cl_gui_frontend_services=>action_ok.
IF p_temp EQ space. “process with user query
CALL METHOD cl_gui_frontend_services=>file_save_dialog
EXPORTING
file_filter = filefilter2
DEFAULT_FILE_NAME = DEFAULT_FILE_NAME
CHANGING
filename = filename2
path = path2
fullpath = fullpath2
user_action = user_action2.
ELSE.
CALL METHOD cl_gui_frontend_services=>GET_TEMP_DIRECTORY
changing temp_dir = path2.
CALL METHOD cl_gui_cfw=>flush.
IF p_temp NE ‘f’.
CONCATENATE path2 ‘\’ p_filename INTO fullpath2.
ELSE.
fullpath2 = p_filename.
ENDIF.
ENDIF.
CASE p_objtype.
WHEN ‘HT’.
IF user_action2 = cl_gui_frontend_services=>action_ok.
CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
filename = fullpath2
filetype = ‘ASC’
trunc_trailing_blanks = ‘X’
write_lf = ‘X’
TABLES
data_tab = html.
ENDIF.
WHEN OTHERS.
IF user_action2 = cl_gui_frontend_services=>action_ok.
CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
filename = fullpath2
filetype = ‘BIN’
bin_filesize = p_fsize
TABLES
data_tab = mime.
ENDIF.
ENDCASE.
p_filename = fullpath2.
check 0 = 1.
endif.
ENDENHANCEMENT.
