使用MIME OBJECT

 

 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