REPORT zdemo_excel38.


DATA: lo_excel     TYPE REF TO zcl_excel,
      lo_worksheet TYPE REF TO zcl_excel_worksheet,
      lo_column    TYPE REF TO zcl_excel_column,
      lo_drawing   TYPE REF TO zcl_excel_drawing.

TYPES: BEGIN OF gty_icon,
*         name      TYPE icon_name, "Fix #228
         name  TYPE iconname,   "Fix #228
         objid TYPE w3objid,
       END OF gty_icon,
       gtyt_icon TYPE STANDARD TABLE OF gty_icon WITH NON-UNIQUE DEFAULT KEY.

DATA: lt_icon       TYPE gtyt_icon,
      lv_row        TYPE i,
      ls_wwwdatatab TYPE wwwdatatab,
      lt_mimedata   TYPE STANDARD TABLE OF w3mime WITH NON-UNIQUE DEFAULT KEY,
      lv_xstring    TYPE xstring.

FIELD-SYMBOLS: <icon>     LIKE LINE OF lt_icon,
               <mimedata> LIKE LINE OF lt_mimedata.

CONSTANTS: gc_save_file_name TYPE string VALUE '38_SAP-Icons.xlsx'.
INCLUDE zdemo_excel_outputopt_incl.


TABLES: icon.
SELECT-OPTIONS: s_icon FOR icon-name DEFAULT 'ICON_LED_*' OPTION CP.

START-OF-SELECTION.
  " Creates active sheet
  CREATE OBJECT lo_excel.

  " Get active sheet
  lo_worksheet = lo_excel->get_active_worksheet( ).
  lo_worksheet->set_title( ip_title = 'Demo Icons' ).
  lo_column = lo_worksheet->get_column( ip_column = 'A' ).
  lo_column->set_auto_size( 'X' ).
  lo_column = lo_worksheet->get_column( ip_column = 'B' ).
  lo_column->set_auto_size( 'X' ).

* Get all icons
  SELECT name
    INTO TABLE lt_icon
    FROM icon
    WHERE name IN s_icon
    ORDER BY name.
  LOOP AT lt_icon ASSIGNING <icon>.

    lv_row = sy-tabix.
*--------------------------------------------------------------------*
* Set name of icon
*--------------------------------------------------------------------*
    lo_worksheet->set_cell( ip_row = lv_row
                            ip_column = 'A'
                            ip_value = <icon>-name ).
*--------------------------------------------------------------------*
* Check whether the mime-repository holds some icondata for us
*--------------------------------------------------------------------*

* Get key
    SELECT SINGLE objid
      INTO <icon>-objid
      FROM wwwdata
      WHERE text = <icon>-name.
    CHECK sy-subrc = 0.  " :o(
    lo_worksheet->set_cell( ip_row = lv_row
                            ip_column = 'B'
                            ip_value = <icon>-objid ).

* Load mimedata
    CLEAR lt_mimedata.
    CLEAR ls_wwwdatatab.
    ls_wwwdatatab-relid = 'MI' .
    ls_wwwdatatab-objid = <icon>-objid.
    CALL FUNCTION 'WWWDATA_IMPORT'
      EXPORTING
        key               = ls_wwwdatatab
      TABLES
        mime              = lt_mimedata
      EXCEPTIONS
        wrong_object_type = 1
        import_error      = 2
        OTHERS            = 3.
    CHECK sy-subrc = 0.  " :o(

    lo_drawing = lo_excel->add_new_drawing( ).
    lo_drawing->set_position( ip_from_row = lv_row
                              ip_from_col = 'C' ).
    CLEAR lv_xstring.
    LOOP AT lt_mimedata ASSIGNING <mimedata>.
      CONCATENATE lv_xstring <mimedata>-line INTO lv_xstring IN BYTE MODE.
    ENDLOOP.

    lo_drawing->set_media( ip_media      = lv_xstring
                           ip_media_type = zcl_excel_drawing=>c_media_type_jpg
                           ip_width      = 16
                           ip_height     = 14  ).
    lo_worksheet->add_drawing( lo_drawing ).

  ENDLOOP.

*** Create output
  lcl_output=>output( lo_excel ).
