SMW0 附件上传下载

下面看如何在程序内使用模板(部分代码)
  DATA:    p_file TYPE ibipparms-path.
  DATA:    lo_objdata LIKE wwwdatatab,
           lo_mime LIKE w3mime,
           lc_filename  TYPE string  VALUE 'zlm_accout',                "默认下载名称
           lc_fullpath  TYPE string  VALUE 'D:\' ,
           lc_path      TYPE  string VALUE 'D:\' ,
           ls_destination LIKE rlgrap-filename,
           ls_objnam TYPE string,
           li_rc LIKE sy-subrc,
           ls_errtxt TYPE string.
  DATA:    p_objid TYPE wwwdatatab-objid VALUE 'ZBKT_ACCOUT',
           p_dest LIKE sapb-sappfad.

  DATA:   l_wa_data       LIKE  str_account_infor.
  DATA:   row             TYPE int4.

  "保存下载的模板
  CALL METHOD cl_gui_frontend_services=>file_save_dialog "调用保存对话框
    EXPORTING
      default_extension    = 'XLS'
      default_file_name    = lc_filename
    CHANGING
      filename             = lc_filename
      path                 = lc_path
      fullpath             = lc_fullpath                 "获取模板保存路径
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF lc_fullpath = ''.
*
  ENDIF.
 ls_destination = lc_fullpath. "保存路径 
  "检查表wwwdata中是否存在所指定的模板文件
  SELECT SINGLE relid objid
  FROM  wwwdata INTO CORRESPONDING FIELDS OF lo_objdata
  WHERE srtf2 = 0
    AND relid = 'MI'
    AND objid = p_objid.
  IF sy-subrc NE 0 OR lo_objdata-objid EQ space.
    "如果不存在,则给出错误提示
  ENDIF.
 
 "下载模板
  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      key         = lo_objdata
      destination = ls_destination          
    IMPORTING
      rc          = li_rc.
  IF li_rc NE 0.
*
  ENDIF.
RIPRO主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
SapiBook » SMW0 附件上传下载

发表评论