1.OLE数据导入之模板下载

模板下载：
1.判断模板是否存在：
FORM frm_file_exist USING i_file TYPE clike.
DATA: l_file TYPE string,
l_result TYPE abap_bool.
l_file = i_file.
CALL METHOD cl_gui_frontend_services=>file_exist
EXPORTING
file = l_file
RECEIVING
result = l_result
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
wrong_parameter = 3
not_supported_by_gui = 4
OTHERS = 5.

• Return
  IF l_result IS INITIAL.
  sy-subrc = 8.
  ELSE.
  sy-subrc = 0.
  ENDIF.
  ENDFORM. "FRM_FILE_EXIST
  模板下载：
  FORM FRM_DOWNLOAD_TEMPLATE USING I_OBJID TYPE CLIKE
  I_FILE TYPE CLIKE.

• 判断模版文件是否存在
  PERFORM FRM_FILE_EXIST USING I_FILE.
  IF SY-SUBRC = 0. "已存在
  MESSAGE S398(00) WITH ‘模版’ I_FILE ‘已存在’ DISPLAY LIKE ‘W’.
  RETURN.
  ENDIF.

• 不存在,下载模版
  DATA: LS_INFO TYPE WWWDATATAB.
  LS_INFO-RELID = ‘MI’.
  LS_INFO-OBJID = I_OBJID.
  PERFORM FRM_DOWNLOAD_WEB_OBJECT USING LS_INFO I_FILE.
  IF SY-SUBRC = 0.
  MESSAGE S398(00) WITH ‘模版下载成功,下载目录:’ I_FILE.
  ELSE.
  MESSAGE E398(00) WITH ‘模版下载失败’.
  ENDIF.
  ENDFORM.

• 不存在,下载模版
  FORM FRM_DOWNLOAD_WEB_OBJECT USING IS_INFO TYPE WWWDATATAB
  I_DESC TYPE CLIKE.
  DATA: L_DESC TYPE RLGRAP-FILENAME,
  L_RC TYPE SY-SUBRC.

  L_DESC = I_DESC.

  CALL FUNCTION ‘DOWNLOAD_WEB_OBJECT’
  EXPORTING
  KEY = IS_INFO
  DESTINATION = L_DESC
  IMPORTING
  RC = L_RC.

• Return
  SY-SUBRC = L_RC.
  ENDFORM. " FRM_DOWNLOAD_WEB_OBJECT