1.创建MIME object
事物码SMW0创建二进制,选择自己的开发包,点击创建上传模板。
2.在程序中下载模板
*&---------------------------------------------------------------------*
*& INITIALIZATION
*&---------------------------------------------------------------------*
INITIALIZATION.
sscrfields-functxt_01 = '下载模板'(012).
*&---------------------------------------------------------------------*
*& AT SELECTION-SCREEN
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN.
PERFORM frm_download_model.
*&---------------------------------------------------------------------*
*& Form FRM_DOWNLOAD_MODEL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM frm_download_model .
DATA pfolder LIKE rlgrap-filename.
DATA objdata LIKE wwwdatatab.
CHECK sscrfields-ucomm EQ 'FC01'.
CLEAR sscrfields-ucomm.
*检测文件是否存在
SELECT SINGLE * FROM wwwdata AS f INNER JOIN tadir AS p
ON f~objid = p~obj_name
INTO CORRESPONDING FIELDS OF objdata
WHERE objid EQ 'ZPPR0206_TEMPLATE.XLS'
AND f~srtf2 = 0
AND f~relid = 'MI'
AND p~pgmid = 'R3TR'
AND p~object = 'W3MI'.
IF objdata IS INITIAL.
MESSAGE '模板文件不存在!' TYPE 'S' DISPLAY LIKE 'E'.
STOP.
ENDIF.
*选择下载路径
PERFORM frm_get_folder CHANGING pfolder.
IF pfolder IS INITIAL.
STOP.
ENDIF.
CONCATENATE pfolder '/ZPPR0206_作业内容代码项目表维护模板.XLS' INTO pfolder.
CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
EXPORTING
key = objdata
destination = pfolder.
STOP.
ENDFORM. " FRM_DOWNLOAD_MODEL