二维码

[其它] 用SMW0方式实现上传及下载execl模板

Twilight发表于 2014-11-17 19:23zhongguomao 最后回复于 2017-08-03 14:12 [复制链接] 3132 1

用execl模板导入数据的方法,在项目中很常见;上传及下载execl模板文件除了可以用OAOR方式,还可以使用SMW0方式。

1、T-CODE:SMW0 上传execl文件
选择Binary data for WebRFC applications(应用程序的二进制数据)
SMW0 1.jpg
输入Package,模板上传保存在包里,方便以后传输
SMW0 2.jpg
点击新建,输入对象名称和描述,然后点击右下角按钮,选择要上载的EXCEL模板
SMW0 3.jpg
PS:如果系统会给出提示:"无分配给对象 .XLS的 MIME 类型" ,则说明需要先维护 .XLS 文件的MIME TYPE
点菜单“设置”--》维护MIME类型
SMW0 4.jpg
点击“新增”增加一个类型: TYPE:  EXCEL  ,    EXTENSION :   *.xls,保存
SMW0 5.jpg

2、程序中调用函数,实现下载
  1. FORM f_download_template .
  2.   DATA: ls_key LIKE wwwdatatab.
  3.   DATA: ls_destination LIKE rlgrap-filename VALUE 'D:\已销未提-订单虚拟发货导入Excel模板.xls'.
  4.   DATA: lv_rc LIKE sy-subrc.

  5. *检查模板是否存在
  6.   SELECT SINGLE wwwdata~relid wwwdata~objid
  7.   INTO CORRESPONDING FIELDS OF ls_key
  8.   FROM wwwdata
  9.   WHERE relid = 'MI' AND objid = gc_objid AND srtf2 = 0.
  10.   IF sy-subrc <> 0.
  11.     MESSAGE e208(00) WITH '模板不存在,请使用T-code:smw0,维护对象名称ZDQ_169!'.
  12.   ELSE.
  13. * 下载模板
  14.     CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
  15.       EXPORTING
  16.         key         = ls_key
  17.         destination = ls_destination
  18.       IMPORTING
  19.         rc          = lv_rc.
  20.     IF lv_rc NE 0.
  21.       MESSAGE e368(00) WITH '模板文件:' gc_objid '下载失败!'.
  22.     ELSE.
  23.       MESSAGE s208(00) WITH '模板文件下载成功!文件保存在D:\目录下'.
  24.     ENDIF.
  25.   ENDIF.
  26. ENDFORM.                    " f_download_template
复制代码

实现效果
SMW0 6.jpg

评分

参与人数 1雨露 +5 收起 理由
zhuweirizhao063 + 5 很给力!

查看全部评分

回复

使用道具 举报

zhongguomao
太简单的东西还是不要写出来了。。。
回复 支持 反对

使用道具 举报

快速回帖

本版积分规则
您需要登录后才可以回帖 登录 | 注册有礼

快速回复 返回顶部 返回列表