REPORT  zhr_adm_02.
*-- Îïèñàíèå

DEFINE m_fieldcat.
  add 1 to ls_fieldcat-col_pos.
  ls_fieldcat-fieldname   = &1.
  ls_fieldcat-ref_tabname = &2.

  append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
*---------------------------------------------------------------------*
TYPE-POOLS: slis.                      " ALV Global types

data: BEGIN OF stable2,
   cttyp  TYPE zhr_adm_02-cttyp,
     pernr  TYPE zhr_adm_02-pernr,
     ename  TYPE zhr_adm_02-ENAME,
     stexts TYPE zhr_adm_02-STEXTS,
     stexto TYPE zhr_adm_02-STEXTO,
     ctedt  TYPE zhr_adm_02-ctedt.

data END OF stable2.

TYPES: BEGIN OF stable,
      cttyp  TYPE zhr_adm_02-cttyp,
     pernr  TYPE zhr_adm_02-pernr,
     ename  TYPE zhr_adm_02-ENAME,
     stexts TYPE zhr_adm_02-STEXTS,
     stexto TYPE zhr_adm_02-stexto,
     ctedt  TYPE zhr_adm_02-ctedt,

    END OF stable.



DATA: gt_itable TYPE TABLE OF stable.

data: stexts TYPE zhr_adm_02-stexts,
      stexto TYPE zhr_adm_02-stexto.

TABLES: pernr.
INFOTYPES: 0000, 0001, 0002, 0016, 1000.                     "Ïåðñîíàëüíûå äàííûå
SELECT-OPTIONS: zcttyp FOR p0016-cttyp.

*-- Ýêðàí âûáîðà
INITIALIZATION.

START-OF-SELECTION.
*-- Îáðàáîòêà

clear: stexts, stexto.

GET pernr.
  PROVIDE * FROM p0016 BETWEEN pn-begda AND pn-endda.
    CHECK zcttyp.
    stable2-cttyp = p0016-cttyp.
    stable2-ctedt = p0016-ctedt.
    PROVIDE * FROM p0000 BETWEEN pn-begda AND pn-endda.
      stable2-pernr = p0000-pernr.
    ENDPROVIDE.

    PROVIDE * FROM p0001 BETWEEN pn-begda AND pn-endda.

      stable2-ename = p0001-ename.

      SELECT SINGLE STEXT INTO stexts
               FROM HRP1000 WHERE OBJID = p0001-plans
                              AND PLVAR = '01'
                              AND OTYPE = 'S'
                              AND BEGDA <= pn-endda
                              AND ENDDA >= pn-begda
                              AND LANGU = SY-LANGU .
      if sy-subrc = 0.
       stable2-stexts = stexts.
      endif.

      SELECT SINGLE STEXT INTO stexto
               FROM HRP1000 WHERE OBJID = p0001-orgeh
                              AND PLVAR = '01'
                              AND OTYPE = 'O'
                              AND BEGDA <= pn-endda
                              AND ENDDA >= pn-begda
                              AND LANGU = SY-LANGU .
      if sy-subrc = 0.
       stable2-stexto = stexto.
      endif.

    ENDPROVIDE.
    append stable2 to gt_itable.
  ENDPROVIDE.

END-OF-SELECTION.

sort gt_itable by cttyp stexto ascending.

PERFORM z_alv.

FORM z_alv.


call function 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
     I_STRUCTURE_NAME                  = 'ZHR_ADM_02'
  tables
     t_outtab                          = gt_itable
.

ENDFORM.

include ole2incl.

data: obj_excel type ole2_object.
data: obj_books type ole2_object.
data: obj_book  type ole2_object.
data: obj_cell  type ole2_object.

data: begin of itab_data occurs 0,
      level1,
      level2,
      field1,
      field2,
     end of itab_data.

data: l_row type i.

<выборка данных в itab_data>

  create object obj_excel 'EXCEL.APPLICATION'.
  call method of obj_excel 'WORKBOOKS' = obj_books.
  call method of obj_books 'ADD' = obj_book.

  l_row = 1.

   sort itab_data by level1 level2.

  loop at itab_data.

    at first.
      perform fill_cell using l_row 1 'This is the report header'.
      l_row = l_row + 1.
    endat.

    at new level1.
* First level header
      perform fill_cell using l_row 1 itab_data-level1.
      l_row = l_row + 1.
    endat.

    at new level2.
* Second level header
      perform fill_cell using l_row 1 itab_data-level2.
      l_row = l_row + 1.
    endat.

* Details
    perform fill_cell using l_row 1 itab_data-field1.
    perform fill_cell using l_row 2 itab_data-field2.
    l_row = l_row + 1.

  endloop.

form fill_cell using p_row p_col p_value.
  call method of obj_excel 'CELLS' = obj_cell
       exporting #1 = p_row #2 = p_col.
  set property of obj_cell 'VALUE' = p_value.
endform.