• 博客园logo
  • 会员
  • 众包
  • 新闻
  • 博问
  • 闪存
  • 赞助商
  • HarmonyOS
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
^ω^SAp傻X^o^
博客园    首页    新随笔    联系   管理    订阅  订阅
WDA基础十三:常用模板管理

常用的模板一般是SMW0和OAOR,根据不同需求来的。

WAD有个不好的地方就是不支持GUI上的OLE和DOI,所以需要做转换,下面是常用的方式:

FUNCTION ZCRM_DOWNLOAD_TEMPLATE
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(IV_OBJID) TYPE  W3OBJID
*"----------------------------------------------------------------------
  DATA:
    LS_FILEKEY TYPE          WWWDATATAB,
    LT_MIME    TYPE TABLE OF W3MIME.

  DATA:
    LV_XSTRING          TYPE XSTRING,
    LV_FILENAME         TYPE STRING,
    LV_MIME_TYPE        TYPE STRING.

  LS_FILEKEY-RELID = 'MI'.
  LS_FILEKEY-OBJID = IV_OBJID.

  CALL FUNCTION 'WWWDATA_IMPORT'
    EXPORTING
      KEY    = LS_FILEKEY
    TABLES
      MIME   = LT_MIME
    EXCEPTIONS
      OTHERS = 1.

  IF sy-subrc <> 0.
    RETURN.
  ENDIF.

  CALL METHOD CL_BCS_CONVERT=>SOLIX_TO_XSTRING
    EXPORTING
      IT_SOLIX   = LT_MIME
*     IV_SIZE    =
    RECEIVING
      EV_XSTRING = LV_XSTRING.

  SELECT SINGLE VALUE INTO LV_MIME_TYPE
    FROM WWWPARAMS
    WHERE RELID = LS_FILEKEY-RELID
    AND OBJID = LS_FILEKEY-OBJID
    AND NAME = 'fileextension'.

  SELECT SINGLE VALUE INTO LV_FILENAME
    FROM WWWPARAMS
    WHERE RELID = LS_FILEKEY-RELID
    AND OBJID = LS_FILEKEY-OBJID
    AND NAME = 'filename'.

  CL_WD_RUNTIME_SERVICES=>ATTACH_FILE_TO_RESPONSE(
    EXPORTING
      I_FILENAME      = LV_FILENAME
      I_CONTENT       = LV_XSTRING
      I_MIME_TYPE     = LV_MIME_TYPE
      I_IN_NEW_WINDOW = ABAP_FALSE
      I_INPLACE       = ABAP_FALSE ).



ENDFUNCTION.

后来做FTP的时候就想到了另一个办法:

文件上传下载类型的模板。。。

^_^很多人都把资料锁进了note里,以后还怎么百度呢^_^
posted on 2017-10-12 16:04  ^ω^SAP傻X^o^  阅读(857)  评论(0)    收藏  举报
刷新页面返回顶部
博客园  ©  2004-2025
浙公网安备 33010602011771号 浙ICP备2021040463号-3