SAP中文件的上传和下载

在SAP中上传文件我知道的有两种方法。

1、可以使用SMW0事务码。

2、写代码实现。

DATA:lt_file TYPE filetable WITH HEADER LINE,
           rec TYPE i.
  DATA: l_filter TYPE string.

* 选择上传文件
  CONCATENATE cl_gui_frontend_services=>filetype_excel
                          cl_gui_frontend_services=>filetype_all
                 INTO l_filter.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = 'Upload Excel'
*     default_extension       = '.xls'
*     default_filename        =
      file_filter             = l_filter
      initial_directory       = 'C:\'
    CHANGING
      file_table              = lt_file[]
      rc                      = rec
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF  rec >= 1.
    READ TABLE lt_file INDEX 1.
    p_file = lt_file-filename.
  ELSEIF rec = 0.
    CLEAR p_file.
  ELSE.
    MESSAGE e000 WITH text-e01.
  ENDIF.

 

下载文件就没那么方便要Coding了，代码如下

 

DATA:lc_table TYPE filetable,
            l_rc       TYPE i,
            l_file      LIKE rlgrap-filename.
  FIELD-SYMBOLS: TYPE file_table .
  DATA: l_string TYPE string.

  DATA: obj_name LIKE wwwdatatab-objid.
  DATA: objdata LIKE wwwdatatab,
             rc LIKE sy-subrc.

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = g_filetitle
      file_filter             = g_filefilter
      initial_directory       = g_initdir
    CHANGING
      file_table              = lc_table
      rc                      = l_rc
    EXCEPTIONS
      cntl_error              = 1
      file_open_dialog_failed = 2
      error_no_gui            = 3.

  CALL METHOD cl_gui_cfw=>flush
    EXCEPTIONS
      cntl_error        = 1
      cntl_system_error = 2.

  READ TABLE lc_table ASSIGNING INDEX 1.

  CHECK sy-subrc EQ 0.
  l_file = -filename.
  CONDENSE l_file.

  SELECT SINGLE relid objid
    FROM wwwdata
    INTO CORRESPONDING FIELDS OF objdata
    WHERE srtf2 = 0
      AND relid = 'MI'
      AND bjid = p_name.
  IF sy-subrc <> 0.
    CONCATENATE '模板文件:' p_name '不存在，请用TCODE：SMW0进行加载'
           INTO l_string.
    MESSAGE l_string TYPE 'E'.
    EXIT.
  ENDIF.
  IF  objdata-objid = space .
    CONCATENATE '模板文件:' p_name '不存在，请用TCODE：SMW0进行加载'
           INTO l_string.
    MESSAGE l_string TYPE 'E'.
    EXIT.
  ENDIF.

  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = objdata
      destination = l_file
    IMPORTING
      rc          = rc.
  IF rc <> 0.
    WRITE : / '模板文件:' , obj_name, '下载失败，请与开发人员联系'.
  ELSE.
    MESSAGE '该模板下载成功！！' TYPE 'S'.
    STOP.
  ENDIF.

 

 

注：上面的代码不是哥我原创的，是项目中施实公司高手留下的，方便日后查找，我把它放在日志里面，如果那位原创的高手看到，可别告我侵权啊^_^。

 

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/23353800/viewspace-731662/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/23353800/viewspace-731662/