上传附件到SMWO作为模板，应用代码的例子

原创已于 2025-02-15 22:13:04 修改 · 662 阅读

17 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

于 2025-02-15 12:30:30 首次发布

需求，先把附件放到SAP服务器上，在完成下载
在SMW0上传准备好的模板，然后在程序处理。
SMW0操作步骤：输入TCODE:SMW0

参见下面的文章

ABAP - SMW0 EXCEL模板下载和 EXCEL文件上传与解析（超详细教程）-CSDN博客

上传文档如果类型不存在会报错

如果没有配置类型参见

https://blog.51cto.com/u_15680210/5760438

测试的程序

*&---------------------------------------------------------------------*
*& Report YTEST4
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT YTEST4.

TABLES ekpo.

TABLES sscrfields.

PARAMETERS: p_file LIKE rlgrap-filename." obligatory.
SELECTION-SCREEN FUNCTION KEY 1.           "第一个按钮

INITIALIZATION.
  sscrfields-functxt_01 = '模板下载'.      "定义第一个按钮文本
** 给p_file绑定事件
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  PERFORM frm_selectfile CHANGING p_file.  "文件上传处理的FROM

AT SELECTION-SCREEN.
** 按钮命令事件处理  按钮功能
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      PERFORM frm_temp_download.           "模板下载处理的FROM
  ENDCASE.
START-OF-SELECTION.
  IF p_file NE ''.
    PERFORM frm_get_data_file.            "文件内容处理的FROM
  ELSE.
    MESSAGE '请先上传文件' TYPE 'S' DISPLAY LIKE 'E'.
  ENDIF.

FORM frm_selectfile CHANGING cv_selfile LIKE rlgrap-filename.
  DATA: lv_rc        TYPE i,
        lt_filetable TYPE filetable.

  DATA lv_file_filter TYPE string.
  DATA lv_window_title TYPE string.

  lv_window_title = '请选择导入Excel文件'."'请选择导入Excel文件'
  lv_file_filter = 'Excel(*.XLSX)|*.XLSX|全部文件 (*.*)|*.*|'."'Excel(*.XLSX)|*.XLSX|全部文件 (*.*)|*.*|'

  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title            = lv_window_title
      file_filter             = lv_file_filter
      multiselection          = space
    CHANGING
      file_table              = lt_filetable
      rc                      = lv_rc
    EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error              = 2
      error_no_gui            = 3
      not_supported_by_gui    = 4
      OTHERS                  = 5.
  IF sy-subrc <> 0.
    MESSAGE '文件上传失败' TYPE 'E'.
  ENDIF.
ENDFORM.                    "SELECT_FILE
FORM frm_temp_download .
  DATA: ls_wwwdatatab     LIKE wwwdatatab,
        lt_mime           LIKE w3mime OCCURS 10,
        lv_filename       TYPE string,
        lv_path           TYPE string,
        lv_fullpath       TYPE string,
        window_title      TYPE string,
        default_file_name TYPE string.
  DATA: lv_destination TYPE rlgrap-filename,
        lv_subrc       TYPE sy-subrc.
  CLEAR: ls_wwwdatatab,lt_mime[],lv_filename,lv_path,lv_fullpath,window_title,default_file_name.
  CLEAR: lv_destination,lv_subrc.
  ls_wwwdatatab-relid = 'MI'.
  ls_wwwdatatab-objid = 'ZPDF002'.                        "这里写入TCODE:SMW0上传的对象
  ls_wwwdatatab-text  = '非平台供应商开票格式规范化通知upadte-最新'.
  window_title = '下载导入模板'.
  default_file_name = '非平台供应商开票格式规范化通知upadte-最新'.

  CALL FUNCTION 'WWWDATA_IMPORT'                          "#EC *
    EXPORTING
      key               = ls_wwwdatatab
    TABLES
      mime              = lt_mime
    EXCEPTIONS
      wrong_object_type = 1
      import_error      = 2
      OTHERS            = 3.
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title         = window_title
      default_extension    = 'pdf'
      default_file_name    = default_file_name
    CHANGING
      filename             = lv_filename
      path                 = lv_path
      fullpath             = lv_fullpath
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc <> 0.
    STOP.
  ENDIF.
  IF lv_fullpath IS NOT INITIAL.
    lv_destination = lv_fullpath.
    CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
      EXPORTING
        key         = ls_wwwdatatab
        destination = lv_destination
      IMPORTING
        rc          = lv_subrc.
    IF lv_subrc = 0.
      MESSAGE '模板下载成功' TYPE 'S'.
    ELSE.
      MESSAGE '模板下载失败' TYPE 'E'.
    ENDIF.
  ENDIF.
ENDFORM.
FORM frm_get_data_file .
  DATA: lt_raw TYPE truxs_t_text_data.
  TYPES: BEGIN OF ty_datatab,
           fd01 TYPE string,    "存放第一列数据的字段
           fd02 TYPE string,    "存放第二列数据的字段
           fd03 TYPE string,    "存放第三列数据的字段
           fd04 TYPE string,    "存放第四列数据的字段
         END OF ty_datatab.
  DATA lt_datatab TYPE TABLE OF ty_datatab.
  DATA lw_datatab TYPE ty_datatab.
  REFRESH: lt_datatab[],lt_raw[].
** 调用函数将Excel内容保存到内表
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_line_header        = 'X'
      i_tab_raw_data       = lt_raw
      i_filename           = p_file
    TABLES
      i_tab_converted_data = lt_datatab
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.
  IF sy-subrc <> 0.
    MESSAGE '获取文件数据失败' TYPE 'I'.
    STOP.
  ENDIF.
  LOOP AT lt_datatab INTO lw_datatab.
  ENDLOOP.
ENDFORM.

标签

#sap