SMW0通过RESTFUL方式放到URL中做Excel附件

  1 *&---------------------------------------------------------------------*
  2 *& Report Z3426EXCEL002
  3 *&---------------------------------------------------------------------*
  4 *&
  5 *&---------------------------------------------------------------------*
  6 REPORT z3426excel005.
  7 
  8 DATA:gv_xcontent TYPE xstring.
  9 SELECT * INTO TABLE @DATA(lt_bp) FROM but000 UP TO 100 ROWS.
 10 PERFORM frm_tabconvxtr TABLES lt_bp[].
 11 PERFORM frm_upload_to_http.
 12 
 13 FORM frm_tabconvxtr TABLES pt_data.
 14   DATA:lw_tab_ref TYPE REF TO data.
 15   CREATE DATA lw_tab_ref LIKE LINE OF pt_data.
 16 
 17   DATA:ls_mime    TYPE w3mime,
 18        lt_mime    TYPE TABLE OF w3mime,
 19        filesize   TYPE string,
 20        filesizei  TYPE i,
 21        lv_xstring TYPE xstring,
 22        fileext    TYPE char20,
 23        ls_key     TYPE wwwdatatab.
 24 
 25   ls_key-relid = 'MI'.
 26   ls_key-objid = 'XXXXXX'.
 27   SELECT * FROM wwwparams INTO TABLE @DATA(lt_wwwparam)
 28    WHERE relid = @ls_key-relid
 29      AND objid = @ls_key-objid.
 30   TRY.
 31       LOOP AT lt_wwwparam INTO DATA(ls_wwwparam).
 32         CASE ls_wwwparam-name.
 33           WHEN 'filesize'.
 34             filesizei = filesize = ls_wwwparam-value.
 35             CONDENSE filesize NO-GAPS.
 36           WHEN 'fileextension'.
 37             fileext = ls_wwwparam-value.
 38         ENDCASE.
 39       ENDLOOP.
 40 **********************************************************************
 41 * 获取SMW0的数据
 42       CALL FUNCTION 'WWWDATA_IMPORT'
 43         EXPORTING
 44           key               = ls_key
 45         TABLES
 46           mime              = lt_mime
 47         EXCEPTIONS
 48           wrong_object_type = 1
 49           import_error      = 2
 50           OTHERS            = 99.
 51 
 52       CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
 53         EXPORTING
 54           input_length = filesizei
 55         IMPORTING
 56           buffer       = lv_xstring
 57         TABLES
 58           binary_tab   = lt_mime
 59         EXCEPTIONS
 60           failed       = 1
 61           OTHERS       = 2.
 62 **********************************************************************
 63       DATA(xlsx_handling) = cl_ehfnd_xlsx=>get_instance( )."xlsx 句柄
 64       DATA(xlsx_document) = xlsx_handling->load_doc( lv_xstring )."xlsx 文件
 65       DATA(xlsx_sheets) = xlsx_document->get_sheets( )."得到sheets
 66       DATA(first_xlsx_sheet) = xlsx_document->get_sheet_by_id( xlsx_sheets[ 1 ]-sheet_id )."得到sheet
 67       first_xlsx_sheet->change_sheet_name( 'Sheet_first' )."设置sheet的名称
 68       DO 2 TIMES.
 69         DATA(lv_row) = sy-index + 3."从第三行起，开始写数据
 70         DO 10 TIMES.
 71           DATA(lv_column) = sy-index.
 72           IF first_xlsx_sheet->has_cell_content( iv_row = lv_row iv_column = lv_column ).
 73           ELSE.
 74             first_xlsx_sheet->set_cell_content( iv_row = lv_row iv_column = lv_column iv_value = '测试数据!' ).
 75           ENDIF.
 76 
 77         ENDDO.
 78       ENDDO.
 79 
 80       gv_xcontent = xlsx_document->save( ).
 81     CATCH cx_openxml_format  INTO DATA(openxml_format_exception).
 82       MESSAGE e001(00) RAISING file_export_error
 83       WITH 'Error occurs when constructing excel file instance.'." cx_openxml_format.
 84     CATCH cx_openxml_not_found INTO DATA(openxml_not_found_exception).
 85       MESSAGE e001(00) RAISING file_export_error
 86       WITH ' Error occurs when constructing excel file instance.' "CX_OPENXML_NOT_FOUND |.
 87       .
 88     CATCH cx_openxml_not_allowed INTO DATA(openxml_not_allowed_exception).
 89       MESSAGE e001(00) RAISING file_export_error
 90       WITH 'Error occurs when constructing excel file instance.'" CX_OPENXML_NOT_ALLOWED |.
 91       .
 92   ENDTRY.
 93 
 94   "cl_scp_change_db=>xstr_to_xtab( EXPORTING im_xstring = filecontent IMPORTING ex_xtab = pt_xtab[] ).
 95   "length = xstrlen( filecontent ).
 96   "pv_xtab[] = l_binary_tab[].
 97   "length = l_length.
 98 ENDFORM.
 99 
100 FORM frm_upload_to_http .
101   DATA:lo_response TYPE REF TO if_http_response,
102        lv_hostname TYPE string,
103        lv_port     TYPE string.
104 
105   CREATE OBJECT lo_response TYPE cl_http_response EXPORTING add_c_msg = 1.
106   lo_response->set_data( gv_xcontent ).
107   lo_response->set_header_field( name = if_http_header_fields=>content_type value = '.xlsx' ).
108   lo_response->set_status( code = 200 reason = 'OK' ).
109   lo_response->server_cache_expire_rel( expires_rel = 600 ).
110 
111   CALL FUNCTION 'TH_GET_VIRT_HOST_DATA'
112     EXPORTING
113       protocol = 0
114       virt_idx = 0
115     IMPORTING
116       hostname = lv_hostname
117       port     = lv_port.
118 
119   DATA(lv_guid) = cl_system_uuid=>create_uuid_x16_static( ).
120   DATA(lv_url) = |http://{ lv_hostname }:{ lv_port }/sap/public/{ lv_guid }.xlsx|.
121   cl_http_server=>server_cache_upload( url = lv_url response = lo_response ).
122   cl_gui_frontend_services=>execute( document = lv_url ).
123   FREE lo_response.
124 ENDFORM.