---

前言

这系列文章详细记录在Fiori应用中如何在前端和后端之间使用文件进行交互。
这篇的主要内容有：

1. 后端RAP的开发（S4HANA On-Premise）
   • 新建表格及CDS，管理模板文件
   • 新建Function（动态创建Excel文档并返回文件流）
2. 前端（UI5）
   • 提交请求并下载文档（例：在职证明）

一、后端开发

1. 新建管理模板表格

@EndUserText.label : 'Form Template Table'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #ALLOWED
define table ymoon_t000 {key client   : abap.clnt not null;key uuid     : sysuuid_x16 not null;attachment   : abap.string(0);attachment_x : abap.rawstring(0);filename     : abap.char(200);erdat        : erdat;erzet        : erzet;}

• 附上数据
  

工作模式和之前里的内容是一样的。就是把文件流保存到表格里。 额外一点就是把XString类型的数据也一并保存。这里不再熬述

• Method实现

  method upload_template."获取UI5传送的parameterdata(attachment) = keys[ 1 ]-%param-attachment.data(filename_full) = keys[ 1 ]-%param-filename."split filename_full at `.` into data(lv_filename) data(lv_filetype)."拆分数据，只保留excel内容 - lv_datasplit attachment at `;` into data(lv_dummy) data(lv_data).split lv_data at `,` into data(lv_format) lv_data.data:lv_excel_data type xstring."将base64的String转换为xstringcall function 'SCMS_BASE64_DECODE_STR'exportinginput  = lv_dataimportingoutput = lv_excel_dataexceptionsfailed = 1others = 2."更新模板文件data:ls_t000 type ymoon_t000.select single uuid from ymoon_t000 into @data(uuid_00) where filename = @filename_full.if uuid_00 is not initial.ls_t000-uuid = uuid_00.else.ls_t000-uuid = cl_system_uuid=>create_uuid_x16_static( ).endif.ls_t000-attachment = attachment.ls_t000-attachment_x = lv_excel_data.ls_t000-filename = filename_full.ls_t000-erdat = sy-datum.ls_t000-erzet = sy-uzeit.modify ymoon_t000 from ls_t000.endmethod.

2. 新建Function，动态创建文档

• BEDF 添加Function

static function download_form parameter ymoon_s012 result [1] ymoon_s013;

• Method实现（使用abap2xlsx插入数据并返回base64值）

  method download_form.types: begin of t_sheet1,name          type c length 60,bdate(200),id(20),sdate(200),position(100),salary(20),nyear(4),nmonth(2),nday(2),end of t_sheet1.data: gs_sheet1 type t_sheet1.data: ls_ymoon_s013 type ymoon_s013,ls_t000       type ymoon_t000.data: lo_excel  type ref to zcl_excel, "엑셀lo_reader type ref to zif_excel_reader,lo_root   type ref to cx_root. "异常类"excel worksheet类对象data:lo_worksheet type ref to zcl_excel_worksheet."excel超链接data:lo_hyperlink type ref to zcl_excel_hyperlink."style类data:lo_style type ref to zcl_excel_style."style的guiddata:lv_style_guid type zexcel_cell_style.data:lo_column    type ref to zcl_excel_column.data: lo_data type ref to zcl_excel_template_data.data:lv_line  type sy-tabix,lv_line2 type sy-tabix,lv_line3 type sy-tabix.data(uuid) = keys[ 1 ]-%param-uuid."动态获取内容select single name from ymoon_t010 into @data(lv_uname) where uuid = @uuid."测试数据gs_sheet1-name     = lv_uname.gs_sheet1-bdate    = '1990年1月1日'.gs_sheet1-id       = '11101019900101XXXX'.gs_sheet1-sdate    = '2020年10月20日'.gs_sheet1-position = '技术总监'.gs_sheet1-salary   = '20,000'.gs_sheet1-nyear    = sy-datum+0(4).gs_sheet1-nmonth   = sy-datum+4(2).gs_sheet1-nday     = sy-datum+6(2).select single attachment_x from ymoon_t000 into @data(lv_attachment_x).try.
* prepare datacreate object lo_data.lo_data->add( iv_sheet = 'Sheet1' iv_data = gs_sheet1 ).* create readercreate object lo_reader type zcl_excel_reader_2007.* load templatelo_excel = lo_reader->load( i_excel2007 = lv_attachment_x ).* merge data with templatelo_excel->fill_template( lo_data ).lo_worksheet = lo_excel->get_active_worksheet( ).*      lo_worksheet->set_cell( ip_column = 'C' ip_row = 4 ip_value = '테스트' ).
*lo_worksheet->calculate_column_widths( ).*** Create outputdata cl_writer type ref to zif_excel_writer.create object cl_writer type zcl_excel_writer_2007.data: xdata     type xstring,             " Will be used for sending as emailt_rawdata type solix_tab,           " Will be used for downloading or open directlybytecount type i.                   " Will be used for downloading or open directlyxdata = cl_writer->write_file( lo_excel ).data:lv_base64  type string.call function 'SCMS_BASE64_ENCODE_STR'exportinginput  = xdataimportingoutput = lv_base64.ls_ymoon_s013-attachment = lv_base64.ls_ymoon_s013-filename = '在职证明-' && lv_uname && '.xlsx'."返回base64append value #( %param = ls_ymoon_s013 ) to result .catch cx_root into lo_root.endtry.endmethod.

---

二、修改UI5项目

1.Table里添加下载证明列

<Button text="下载证明" press="onClickDown" type="Neutral"></Button>

2. 实现onClickDown事件

这里需要注意的是BDEF里定义的function是GET方法

onClickDown: function (e) {var that = thisvar oModel = this.getView().getModel();var uuid = e.getSource().getBindingContext().getProperty("Uuid");oModel.callFunction("/download_form",{method: "GET",urlParameters: {   //参数，首字母大写 "Uuid": uuid},success: function (odata, response) {//Model Refresh// debuggervar vContent = response.data.download_form;var file = vContent.Filename.split(".")var blob = that.base64toBlob(vContent.Attachment, 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet');File.save(blob, file[0], file[1], 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet');},error: function (res) {console.log(res)}})},

三、测试

四、附

• 此外，如果是OP的话，可以使用smw0管理模板文件。具体load方法可以参考如下代码。

//io_reader  type ref to zif_excel_reader
//ro_excel   type ref to zcl_excells_key-relid = 'MI'.ls_key-objid = iv_w3objid .  //对象名称" 读取SMW0文件call function 'WWWDATA_IMPORT'exportingkey    = ls_keytablesmime   = lt_mimeexceptionsothers = 1.if sy-subrc <> 0.lv_errormessage = 'A problem occured when reading the MIME object'(004).zcx_excel=>raise_text( lv_errormessage ).endif." 读取 filesize call function 'WWWPARAMS_READ'exportingrelid = ls_key-relidobjid = ls_key-objidname  = 'filesize'importingvalue = lv_filesizec.* XSTRING转换lv_filesize = lv_filesizec.call function 'SCMS_BINARY_TO_XSTRING'exportinginput_length = lv_filesizeimportingbuffer       = lv_excel_datatablesbinary_tab   = lt_mimeexceptionsfailed       = 1others       = 2.*--------------------------------------------------------------------*
* Parse Excel data into ZCL_EXCEL object from binary string
*--------------------------------------------------------------------*ro_excel = io_reader->load( i_excel2007 = lv_excel_data ).