SAP EXCEL模板下载

最新推荐文章于 2024-06-09 14:32:01 发布

每天都要学习哦

最新推荐文章于 2024-06-09 14:32:01 发布

阅读量127

点赞数

文章标签：开发语言

本文链接：https://blog.csdn.net/loveboygirl/article/details/129415407

版权

SELECTION-SCREEN FUNCTION KEY 1."模板下载按钮

INITIALIZATION.
SSCRFIELDS-FUNCTXT_01 = ICON_EXPORT && '下载模板'."按钮样式设置
AT SELECTION-SCREEN."功能实现
*下载模板
  IF SSCRFIELDS-UCOMM = 'FC01'.
    PERFORM DOWNLOAD_MODEL.
  ENDIF.

 DATA: lv_filename    TYPE string,
        lv_path        TYPE string,
        lv_fullpath    TYPE string,
        lv_user_action TYPE i,
        lv_destination LIKE rlgrap-filename,
        ls_objdata     LIKE wwwdatatab,
        lv_objid       TYPE wwwdatatab-objid,
        lv_rc          TYPE sy-subrc.


  lv_filename = '预测导入'."模板名称

* 获取模板保存路劲

  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
*     window_title         =
      default_extension    = 'XLSX'"文件格式
      default_file_name    = lv_filename
*     with_encoding        =
*     file_filter          =
      initial_directory    = lv_path
*     prompt_on_overwrite  = 'X'
    CHANGING
      filename             = lv_filename
      path                 = lv_path
      fullpath             = lv_fullpath
      user_action          = lv_user_action
*     file_encoding        =
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    CLEAR: lv_destination.
    lv_destination = lv_fullpath.
  ENDIF.

  CHECK lv_user_action <> 9.

  SELECT SINGLE relid objid
    FROM wwwdata
    INTO CORRESPONDING FIELDS OF ls_objdata
   WHERE srtf2 = 0
     AND objid = 'ZPP014'                        "导入模板时输入的对象名称
     AND relid = 'MI'.
  IF sy-subrc = 0.
    CLEAR: lv_rc.
    CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'                   "#EC *
      EXPORTING
        key         = ls_objdata
        destination = lv_destination
      IMPORTING
        rc          = lv_rc.
    IF lv_rc NE 0.
      MESSAGE '该数据模板不存在！' TYPE 'E'.
    ELSE.
      MESSAGE '模板下载成功' TYPE 'S'.
    ENDIF.
  ELSE.
    MESSAGE '该数据模板不存在！' TYPE 'E'.
  ENDIF.