*&---------------------------------------------------------------------*
*& Report  ZY_DOI
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZY_DOI.
TABLES: makt.
***-----------------------------------***
***   excel related declaring
***-----------------------------------***
TYPE-POOLS: slis,vrm, sbdst, soi.
CONSTANTS document_name(30) VALUE 'TEST'.
CONSTANTS inplace VALUE 'X'.
DATA: flag .

DATA: container TYPE REF TO cl_gui_custom_container,
   control     TYPE REF TO i_oi_container_control,
   document TYPE REF TO i_oi_document_proxy,
   spreadsheet TYPE REF TO i_oi_spreadsheet.

CONTROLS: exceldata TYPE TABLEVIEW USING SCREEN 0100.
DATA:    tablename(10), okcode(15),
         row(4), column(4), data(39).

* spreadsheet interface structures for Excel data input
DATA: rangeitem TYPE soi_range_item.
DATA: ranges TYPE soi_range_list.
DATA: excel_input TYPE soi_generic_table.
DATA: excel_input_wa TYPE soi_generic_item.
DATA: initialized(1), retcode TYPE soi_ret_string.
DATA: item_url(256), already_done, newname(40).
DATA   document_type(80).
DATA: app TYPE vrm_id, applist TYPE vrm_values.
DATA: excel(80) VALUE 'Excel.Sheet'.
DATA: line_count TYPE i,
   column_count TYPE i.

DATA: ok_code TYPE sy-ucomm,
   save_ok TYPE sy-ucomm.

CLASS c_oi_errors DEFINITION LOAD."The class definition is used for error handling from the method calls

DATA: BEGIN OF itab OCCURS 0.
        INCLUDE STRUCTURE makt.
DATA: END OF itab.

SELECT-OPTIONS matnr FOR makt-matnr.

START-OF-SELECTION.
  PERFORM getdata.

  CALL SCREEN 100.


*&---------------------------------------------------------------------*
*&    Form   getdata
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*   -->   p1        text
*   <--   p2        text
*----------------------------------------------------------------------*
FORM getdata .
  SELECT * FROM makt INTO TABLE itab WHERE makt~matnr IN matnr.
ENDFORM.                    " getdata
*&---------------------------------------------------------------------*
*&    Module   STATUS_0100   OUTPUT
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SA1'."调用GUI状态
  IF flag = space .
    PERFORM create_basic_objects USING ''   '' '' '' document_name.
    PERFORM output_to_excel.
  ENDIF.
ENDMODULE.                    "STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*
*&    Module   USER_COMMAND_0100   INPUT
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  flag = 'X'.
  save_ok = ok_code.
  CLEAR ok_code.
  CASE save_ok.
    WHEN 'STOP' .
      IF NOT document IS INITIAL.
        CALL METHOD document->close_document."Closes a Document in the Office Application
        FREE document.
      ENDIF.
      IF NOT control IS INITIAL.
        CALL METHOD control->destroy_control."Destroys Control
        FREE control.
      ENDIF.
      LEAVE PROGRAM.
    WHEN 'BACK' .
      IF NOT document IS INITIAL.
        CALL METHOD document->close_document.
        FREE document.
      ENDIF.
      IF NOT control IS INITIAL.
        CALL METHOD control->destroy_control."At the end of the program, use the method destroy_control to delete the instance control
        FREE control.
      ENDIF.

      SET SCREEN 0.   " quit the program
      "set screen 1000.
  ENDCASE.

ENDMODULE.                 " USER_COMMAND_0100   INPUT
*&---------------------------------------------------------------------*
*&    Form   CREATE_BASIC_OBJECTS
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*    -->P_APP_NAME text
*    -->P_CLASSNAME   text
*    -->P_CLASSTYPE   text
*    -->P_OBJ_KEY text
*    -->P_DOCNAME text
*----------------------------------------------------------------------*
FORM create_basic_objects USING p_app_name
                              p_classname
                              p_classtype
                              p_obj_key
                              p_docname.

  CHECK initialized IS INITIAL.
* first get the SAP DOI i_oi_container_control interface
  CALL METHOD c_oi_container_control_creator=>get_container_control"Create the instance control
    IMPORTING
      control = control
      error   = error.
* check no errors occured
  CALL METHOD error->raise_message"Error handling
    EXPORTING
      type = 'E'.
  CREATE OBJECT container" If you want to use Desktop Office Integration in-place, you also need to create a  container
    EXPORTING
      container_name = 'CONTAINER'.
  DATA l_app_name(200).
  IF p_app_name IS INITIAL.
    l_app_name = 'TEST'.
  ELSE.
    l_app_name = p_app_name.
  ENDIF.
  CALL METHOD control->init_control" Creates and Initializes the Control
    EXPORTING
      r3_application_name      = l_app_name
      inplace_enabled          = inplace
      inplace_scroll_documents = 'X'
      parent                   = container
      register_on_close_event  = 'X'
      register_on_custom_event = 'X'
      no_flush                 = 'X'
    IMPORTING
      error                    = errors.
* save error object in collection
  APPEND errors.
  CLEAR item_url.
  DATA: bds_instance TYPE REF TO cl_bds_document_set."Declare an  object variable to get the document URL
  DATA: doc_signature TYPE sbdst_signature,
      wa_doc_signature LIKE LINE OF doc_signature,
      doc_components TYPE sbdst_components,
      doc_uris TYPE sbdst_uri,
      wa_doc_uris LIKE LINE OF doc_uris.
*以下三个值为Tcode:OAOR里面新建模板文件的参数
  DATA: doc_classname TYPE sbdst_classname VALUE 'PICTURES',
      doc_classtype TYPE sbdst_classtype VALUE 'OT',
      doc_object_key TYPE sbdst_object_key VALUE 'ZEXCEL'.

  wa_doc_signature-prop_name = 'DESCRIPTION'.
  app = 'excel'.
  IF app = 'excel'.
    document_type = excel.
    wa_doc_signature-prop_value = p_docname.
  ELSE.
  ENDIF.
  APPEND wa_doc_signature TO doc_signature.
  CREATE OBJECT bds_instance.
  CALL METHOD bds_instance->get_info
    EXPORTING
      classname  = doc_classname
      classtype  = doc_classtype
      object_key = doc_object_key
    CHANGING
      components = doc_components
      signature  = doc_signature.

  CALL METHOD bds_instance->get_with_url"We use the upload excel template as target document. And the detail about the upload is in the last point.
    EXPORTING
      classname  = doc_classname
      classtype  = doc_classtype
      object_key = doc_object_key
    CHANGING
      uris       = doc_uris
      signature  = doc_signature.

  FREE bds_instance.

  READ TABLE doc_uris INTO wa_doc_uris INDEX 1.

  item_url = wa_doc_uris-uri.

* ask the SAP DOI container for a i_oi_document_proxy for Excel
  CALL METHOD control->get_document_proxy"Create an instance document for each document that you want to open.Creates an Instance for Document Management
    EXPORTING
      document_type  = 'Excel.Sheet'
      no_flush       = 'X'
    IMPORTING
      document_proxy = document
      error          = errors.
  APPEND errors.

* open a document saved in business document service.
  CALL METHOD document->open_document"Open the target document.
    EXPORTING
      open_inplace = inplace
      document_url = item_url.

  DATA: has TYPE i.
  CALL METHOD document->has_spreadsheet_interface"Indicates Whether Interface Is Supported For This Doc. Type
    EXPORTING
      no_flush     = ''
    IMPORTING
      is_available = has
      error        = errors.
  APPEND errors.

  CALL METHOD document->get_spreadsheet_interface"Creates an instance sheet_interface for managing the tables interface,Returns an Interface Reference
    EXPORTING
      no_flush        = ' '
    IMPORTING
      sheet_interface = spreadsheet
      error           = errors.
  APPEND errors.
* Activate   sheet 1
  CALL METHOD spreadsheet->select_sheet"The specified worksheet is activated, that is, placed in the foreground.
    EXPORTING
     name     =   '表整理'
* NO_FLUSH = ' '
    IMPORTING
     error = errors.
* RETCODE   =
  .
  APPEND errors.

  LOOP AT errors.
    CALL METHOD errors->raise_message"Error handling
      EXPORTING
        type = 'E'.
  ENDLOOP.
  FREE errors.
  initialized = 'X'.
ENDFORM.                    "CREATE_BASIC_OBJECTS

*&---------------------------------------------------------------------*
*&    Form   output_to_excel
*&---------------------------------------------------------------------*
*    fill the EXCEL sheet
*----------------------------------------------------------------------*
FORM output_to_excel.
  DATA num TYPE i VALUE 1.
  LOOP AT itab.
    num = num + sy-tabix.
    PERFORM fill_cell USING num 1 itab-matnr.
    PERFORM fill_cell USING num 2 itab-spras.
    PERFORM fill_cell USING num 3 itab-maktx.
    PERFORM fill_cell USING num 4 itab-maktg.
    num = 1.
  ENDLOOP.
ENDFORM.                "output_to_excel

*&---------------------------------------------------------------------*
*&    Form   FILL_CELL
*&---------------------------------------------------------------------*
*    text
*----------------------------------------------------------------------*
*    -->I       text
*    -->J       text
*    -->VAL        text
*----------------------------------------------------------------------*
FORM fill_cell   USING i j val.
  DATA: columns_number TYPE i,
      rows_number TYPE i.

  columns_number = 1.
  rows_number = 1.

  CALL METHOD spreadsheet->insert_range_dim"Inserts a range in the current worksheet with the specified dimensions.Adds a range
    EXPORTING
      name     = 'cell'
      no_flush = 'X'
      top      = i
      left     = j
      rows     = rows_number
      columns  = columns_number
    IMPORTING
      error    = errors.
  APPEND errors.

  REFRESH: ranges, excel_input.
  rangeitem-name = 'cell'.
  rangeitem-columns = 1.
  rangeitem-rows = 1.
  APPEND rangeitem TO ranges.

  excel_input_wa-column = 1.
  excel_input_wa-row = 1.
  excel_input_wa-value = val.
  APPEND excel_input_wa TO excel_input.

* set data
  CALL METHOD spreadsheet->set_ranges_data"Inserts data into a range
    EXPORTING
      ranges   = ranges
      contents = excel_input
      no_flush = 'X'
    IMPORTING
      error    = errors.
  APPEND errors.

  CALL METHOD spreadsheet->fit_widest"Adjust the column width
    EXPORTING
      name     = space
      no_flush = 'X'.

  REFRESH: ranges, excel_input.

ENDFORM.                    "fill_cell