Drilldown auf ALV Tabelle

Code: Alles auswählen.

    class-methods on_double_click                 " DOUBLE_CLICK
         for event if_salv_events_actions_table~double_click
         of cl_salv_events_table
           importing row
                     column.

Code: Alles auswählen.

method on_double_click.
    data wa_result like line of g_s_resulttable.
    data dref type ref to data.
    data tname type tabname.
    data: lt_fcat type slis_t_fieldcat_alv.
    data: ls_fcat type slis_fieldcat_alv.
    data ls_gridtitle type lvc_title.
    data: ls_dref_case  type ref to data.
    data: ls_dref_case1 type ref to data. " Identifizierugsmerkmal für CASE1
    data: ls_dref_case2 type ref to data. " Identifizierugsmerkmal für CASE2
    data: ls_dref_case3 type ref to data. " Identifizierugsmerkmal für CASE3
    data: ls_dref_case4 type ref to data. " Identifizierugsmerkmal für CASE4
    data:  begin of ls_tabix,
            tabix like sy-tabix,
            case type i,
           end of ls_tabix.
    data lt_tabix like table of ls_tabix. "Enthält die Idizes der betroffenen Zeilen.
    data otab type abap_sortorder_tab.
    data ls_lang type tabname.
    data ls_rowcol type LVC_S_ROW.
    data lt like table of ls_rowcol.
    field-symbols: <table> type standard table,
                   <field> type any,
                   <case>  type any table,
                   <case2> type any,
                   <row_case> type any.



**Anlegen der Tabellenstruktur ensprehchend der ausgewählten Zeile.
    read table g_s_resulttable index row into wa_result.
    tname = wa_result-table.
    create data dref type table of (tname).
    assign  dref->* to <table>.


*Befüllen der Tabelle
    select *
      into table <table>
      from (wa_result-table).



**Feldkatalog erstellen.
    call function 'REUSE_ALV_FIELDCATALOG_MERGE'
      exporting
        i_program_name   = sy-repid
        i_structure_name = tname
      changing
        ct_fieldcat      = lt_fcat
      exceptions
        programm_error   = 1
        others           = 2.


    ls_gridtitle = wa_result-table.

**Analyse wird vorgenommen.
    secondlayer_display(
       exporting t_name = tname
       importing ls_dref_case1 = ls_dref_case1
                 ls_dref_case2 = ls_dref_case2
                 ls_dref_case3 = ls_dref_case3
                 ls_dref_case4 = ls_dref_case4
                 otab          = otab
       CHANGING  ls_lang       = ls_lang
                  ).


** Verarbeiten der importierten Analysetabellen.
** Die ausgewählte Tabelle wird wird auf den Inhalt der entsprechendnen "Fälle" 
**überpüft. Sy-Tabix und ensprechender Fall werden vermerkt. 
 create data ls_dref_case type table of (tname).
 ls_dref_case ?= ls_dref_case1.
 assign  ls_dref_case->* to <case>.

loop at <case> ASSIGNING <case2>.
  READ TABLE <table> from <case2> ASSIGNING <row_case> .

    ls_tabix-tabix = sy-tabix.
    ls_tabix-case  = 1.
  append ls_tabix to lt_tabix.
  endloop.



 create data ls_dref_case type table of (tname).
 ls_dref_case ?= ls_dref_case2.
 assign  ls_dref_case->* to <case>.

loop at <case> ASSIGNING <case2>.
  READ TABLE <table> from <case2> ASSIGNING <row_case> .

    ls_tabix-tabix = sy-tabix.
    ls_tabix-case  = 2.
  append ls_tabix to lt_tabix.
  endloop.

   create data ls_dref_case type table of (tname).
 ls_dref_case ?= ls_dref_case3.
 assign  ls_dref_case->* to <case>.

loop at <case> ASSIGNING <case2>.
  READ TABLE <table> from <case2> ASSIGNING <row_case> .

    ls_tabix-tabix = sy-tabix.
    ls_tabix-case  = 3.
  append ls_tabix to lt_tabix.
  endloop.

 create data ls_dref_case type table of (tname).
 ls_dref_case ?= ls_dref_case4.
 assign  ls_dref_case->* to <case>.

loop at <case> ASSIGNING <case2>.
  READ TABLE <table> from <case2> ASSIGNING <row_case> .

    ls_tabix-tabix = sy-tabix.
    ls_tabix-case  = 4.
  append ls_tabix to lt_tabix.
  endloop.

Code: Alles auswählen.

    read table g_s_resulttable index row into wa_result.
    tname = wa_result-table.
    create data dref type table of (tname).
    assign  dref->* to <table>.