ITPub博客

首页 > Linux操作系统 > Linux操作系统 > SAP中文件的上传和下载

SAP中文件的上传和下载

原创 Linux操作系统 作者:100113 时间:2012-06-01 16:13:11 0 删除 编辑
在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/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2011-11-24

  • 博文量
    19
  • 访问量
    53343