Hierarchical ALV list with control of printout and Excel download

Question

Hello everybody,
i have to write a program, that has to generate a hierarchical master/client list. The list should
have the same functionality, that a standard ALV Grid
offers (sorting, grouping, OLE export to Excel). The printout must show a new sheet for every master group.
ALV grid does not allow to display hierarchical lists. The ALV hierarchical list and blocklist view switches to
text mode with no "single click Excel activation". I have tried to implement the &XXL ok_code, but in text mode, there is no chance to activate this single-table functionality.
Another possibility seems to be ALV tree, but there is no
possibility to control the printout (new sheet at group level) and the given practice, to load child nodes at selection, is not acceptable for my kind of program (all childs have to be expanded and the printout must contain a dialog to print i.e. a "from to group" selection).
Does anyone have an idea, to solve this problem in an easy object oriented way? my only thought at this time is, to use a standard ABAP list and to integrate Excel via document office integration. This gives me the fullcontrol about printout and export, but it needs far more time then ALV.
Another possibility may be, to develop a custom control, based on VS with Flexgrid, Singray or ComponentOne tools, but ich have to go as near as possible to SAP standard, without using 3rd party programming systems or controls.
I'm glad about tip's!
Greets from germany
Jens

Answer 1

Jens,
Take a look at this for ideas:
REPORT Zsandbox_prog .
INCLUDE OLE2INCL.
field-symbols: <Val> type any.
data: row_cnt type i.
types:  begin of t_Excel,
          Material_Info(20),
          Sugg_Price(20),
          Cost(20),
          Comments(100),
        end of t_Excel.
data: r_Excel type t_Excel.
data: i_Excel type table of t_Excel with header line.
constants: xlCenter type i value '-4108',
           xlBottom type i value '-4107',
           xlLeft   type i value '-4131',
           xlRight  type i value '-4152'.
constants: xlContinuous type i value '1',
           xlInsideVertical type i value '11',
           xlThin type i value '2',
           xlLandscape type i value '2',
           xlPortrait type i value '1',
           xlLetter type i value '1',
           xlLegal type i value '5',
           xlThick type i value '4',
           xlNone type i value '-4142',
           xlAutomatic type i value '-4105'.
DATA: hExcel TYPE OLE2_OBJECT,      " Excel object
      hWorkBooks TYPE OLE2_OBJECT,  " list of workbooks
      hWorkbook TYPE OLE2_OBJECT,   " workbook
      hSheet TYPE OLE2_OBJECT,      " worksheet object
      hRange TYPE OLE2_OBJECT,      " range object
      hRange2 TYPE OLE2_OBJECT,      " range object
      hBorders TYPE OLE2_OBJECT,    " Border object
      hInterior TYPE OLE2_OBJECT,   " interior object - for coloring
      hColumn TYPE OLE2_OBJECT,     "column
      hCell TYPE OLE2_OBJECT,       " cell
      hFont TYPE OLE2_OBJECT,       " font
      hSelected TYPE OLE2_OBJECT,   " range object
      hPicture TYPE OLE2_OBJECT,    "picture object
      hLogo TYPE OLE2_OBJECT.       "Logo object
SELECTION-SCREEN BEGIN OF BLOCK b1.
  SELECTION-SCREEN skip 1.
  parameter: wraptext as checkbox.
SELECTION-SCREEN END OF BLOCK b1.
  row_cnt = 1.
  Perform Build_Dummy_Vals.
  Perform Start_Excel.
  Perform Build_Header_Line using row_cnt.
  Perform Pass_Records using row_cnt.
  Perform Release_Excel.
FORM Build_Dummy_Vals .
  data: matnum(5) type n.
  data: baseprice(3) type n.
  do 5 times.
    matnum = matnum + 50.
    clear r_Excel.
    concatenate 'Material ' matnum into r_Excel-material_info
      separated by space.
    r_excel-Sugg_Price = baseprice * matnum.
    r_excel-Cost = ( baseprice * matnum ) / 2.
    concatenate 'Comments for Material ' matnum into r_excel-Comments
      separated by space.
    append r_excel to i_Excel.
  enddo.
ENDFORM.                    " Build_Dummy_Vals
Form Start_Excel.
  CREATE OBJECT hExcel 'EXCEL.APPLICATION'.
  PERFORM ERR_HDL.
get list of workbooks, initially empty
  CALL METHOD OF hExcel 'Workbooks' = hWorkbooks.
  PERFORM ERR_HDL.
  add a new workbook
  CALL METHOD OF hWorkbooks 'Add' = hWorkbook.
  PERFORM ERR_HDL.
Get Worksheet object.
  get property of hWorkbook 'ActiveSheet' = hSheet.
EndForm.
FORM Build_Header_Line using p_row_cnt.
  data: l_range(30).
  data: row_start(10).
  PERFORM Fill_The_Cell USING p_row_cnt 1 1 'Material'.
  PERFORM Fill_The_Cell USING p_row_cnt 2 1 'Suggested Price'.
  PERFORM Fill_The_Cell USING p_row_cnt 3 1 'Cost'.
  PERFORM Fill_The_Cell USING p_row_cnt 4 1 'Comments'.
  Perform Format_Column using 1 15 xlCenter ' ' xlCenter 0.
  Perform Format_Column using 2 10 xlCenter ' ' xlCenter 1.
  Perform Format_Column using 3 35 xlCenter ' ' xlCenter 0.
  if WrapText = 'X'.
    Perform Format_Column using 4 35 xlLeft ' ' xlCenter 1.
  else.
    Perform Format_Column using 4 100 xlLeft ' ' xlCenter 0.
  endif.
Build the range object.
  row_start = p_row_cnt.
  concatenate 'A' row_start ':D' row_start into l_range.
  condense l_range no-gaps.
Set row color to yellow.
  CALL METHOD OF hExcel 'RANGE' = hRange EXPORTING #1 = l_range.
  call method of hRange 'Interior' = hInterior.
  set property of hInterior 'ColorIndex' = 6.  "yellow
  p_row_cnt = p_row_cnt + 1.
ENDFORM.                    " Build_Header_Line
FORM Format_Column  USING    p_ColNum
                             p_ColWidth
                             p_ColHAlign
                             p_ColFormat
                             p_ColVAlign
                             p_WrapText.
  CALL METHOD OF hExcel 'COLUMNS' = hColumn
    EXPORTING #1 = p_ColNum .           "column number
  SET PROPERTY OF hColumn 'HorizontalAlignment' = p_ColHAlign.
  SET PROPERTY OF hColumn 'VerticalAlignment' = p_ColVAlign.
  SET PROPERTY OF hColumn 'ColumnWidth' = p_ColWidth.
  SET PROPERTY OF hColumn 'WrapText' = p_WrapText.
ENDFORM.                    " Format_Column
Form Pass_Records using p_row_cnt.
  data: col_cnt type i.
  data: l_range(30).
  data: row_start(10).
  col_cnt = 1.
*Pass the internal table values to the spreadsheet.
  loop at i_Excel into r_Excel.
    do 4 times.
      assign component sy-index of STRUCTURE r_excel TO <Val>.
      PERFORM Fill_The_Cell USING p_row_cnt col_cnt 0 <Val>.
      col_cnt = col_cnt + 1.      "increment column
    enddo.
Build the range object.
    row_start = p_row_cnt.
    concatenate 'A' row_start ':D' row_start into l_range.
    condense l_range no-gaps.
  Set row color to yellow.
    CALL METHOD OF hExcel 'RANGE' = hRange EXPORTING #1 = l_range.
    call method of hRange 'Interior' = hInterior.
    set property of hInterior 'ColorIndex' = 7.  "yellow
    p_row_cnt = p_row_cnt + 1.    "increment row
    col_cnt = 1.                  "reset column to A (ie. col 1)
  endloop.
EndForm.
FORM Release_Excel .
  SET PROPERTY OF hExcel  'Visible' = 1.
  FREE OBJECT hExcel.
  PERFORM ERR_HDL.
ENDFORM.                    " Release_Excel
      FORM Fill_The_Cell                                            *
   Sets cell at coordinates i,j to value val boldtype bold          *
   BOLD --> 1 = true, set bold ON    0 = false, set bold OFF
FORM Fill_The_Cell USING I J BOLD TheValue.
  CALL METHOD OF hExcel 'Cells' = hCell EXPORTING #1 = I #2 = J.
  PERFORM ERR_HDL.
  SET PROPERTY OF hCell 'Value' = TheValue.
  PERFORM ERR_HDL.
  GET PROPERTY OF hCell 'Font' = hFont.
  PERFORM ERR_HDL.
  SET PROPERTY OF hFont 'Bold' = BOLD.
  PERFORM ERR_HDL.
ENDFORM.
FORM ERR_HDL.
  IF SY-SUBRC <> 0.
    message i000(zz) with 'OLE Automation error: ' SY-SUBRC.
    exit.
  ENDIF.
ENDFORM.                    " ERR_HDL