Prob with Drill down ALV's Layout

Question

Hi Friends,
I have developed a report with class based ALV grid.
First screen 100 - has an ALV for header details.
  CALL METHOD G_GRID_100->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_VARIANT           = GS_DISVARIANT
      IS_LAYOUT            = GS_LAYOUT
      IT_TOOLBAR_EXCLUDING = GT_EXCLUDE
      I_SAVE               = 'A'
    CHANGING
      IT_OUTTAB            = GT_DATA
      IT_FIELDCATALOG      = GT_FIELDCAT100.
on double click of any record in primary ALV, another screen 200 is called with line item details of that header in screen 100.
    CALL METHOD G_GRID_200->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_VARIANT           = GS_DISVARIANT1
        IS_LAYOUT            = GS_LAYOUT1
        IT_TOOLBAR_EXCLUDING = GT_EXCLUDE
        I_SAVE               = 'A'
      CHANGING
        IT_FIELDCATALOG      = GT_FIELDCAT200
        IT_OUTTAB            = GT_LINEITEM.
Problem: what ever layout is set in header alv is being copied in lineitem alv.
I want to have independent layouts for primary and secondary ALVs.
How to do that.
Any help on this is highly appreciated.
Regards,
Simha

Answer 1

it is working for me. here is one working example. some where you are doing a mistake cross check it once.
REPORT  ztest_alv_oo.
DATA: it_carr TYPE TABLE OF scarr,
      it_flight TYPE TABLE OF sflight.
DATA: grid1 TYPE REF TO cl_gui_alv_grid,
      grid2 TYPE REF TO cl_gui_alv_grid,
      con1 TYPE REF TO cl_gui_custom_container,
      con2 TYPE REF TO cl_gui_custom_container.
DATA: layout1 TYPE lvc_s_layo,
      layout2 TYPE  lvc_s_layo.
*       CLASS cl_defintion
CLASS cl_one DEFINITION.
  PUBLIC SECTION.
    METHODS:
        double_click         FOR EVENT double_click
                             OF cl_gui_alv_grid
                             IMPORTING e_row
                                       e_column
                                       es_row_no.
ENDCLASS.                    "cl_defintion
*       CLASS cl_implemenatation
CLASS cl_one IMPLEMENTATION.
  METHOD double_click.
    DATA: wa_carr TYPE scarr.
    READ TABLE it_carr INTO wa_carr INDEX e_row-index.
    IF sy-subrc EQ 0.
      SELECT * FROM sflight
      INTO TABLE it_flight
      WHERE carrid EQ wa_carr-carrid.
      CALL SCREEN 200.
    ENDIF.
  ENDMETHOD.                    "double_click
ENDCLASS.                    "cl_implemenatation
START-OF-SELECTION.
  DATA: obj TYPE REF TO cl_one.
  SELECT * FROM scarr
  INTO TABLE it_carr.
  CALL SCREEN 100.
*&      Module  STATUS_0100  OUTPUT
*       text
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'CARR'.
  IF con1 IS INITIAL.
    CREATE OBJECT con1
      EXPORTING
        container_name = 'CAR'.
    CREATE OBJECT grid1
      EXPORTING
        i_parent = con1.
    layout1-grid_title = 'Carrid data'.
    layout1-smalltitle = 'X'.
    layout1-sel_mode   = 'A'.
    layout1-cwidth_opt = 'X'.
    layout1-zebra      = 'X'.
    grid1->set_table_for_first_display(
      EXPORTING
        i_structure_name              = 'SCARR'
        is_layout                     = layout1
      CHANGING
        it_outtab                     = it_carr
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
    IF sy-subrc NE  0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CREATE OBJECT obj.
    SET HANDLER obj->double_click FOR grid1.
  ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
*       text
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  STATUS_0200  OUTPUT
*       text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'FLIGHT'.
  IF con2 IS INITIAL.
    CREATE OBJECT con2
      EXPORTING
        container_name = 'FLIGHT'.
    CREATE OBJECT grid2
      EXPORTING
        i_parent = con2.
    layout2-grid_title = 'Flights data'.
    layout2-smalltitle = 'X'.
    layout2-sel_mode   = 'A'.
    layout2-cwidth_opt = 'X'.
    layout2-zebra      = 'X'.
    grid2->set_table_for_first_display(
      EXPORTING
        i_structure_name              = 'SFLIGHT'
        is_layout                     = layout2
      CHANGING
        it_outtab                     = it_flight
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
    IF sy-subrc NE  0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
  ELSE.
    CALL METHOD grid2->refresh_table_display.
  ENDIF.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
*       text
MODULE user_command_0200 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
Container names are CAR, FLIGHT(for 100, 200 respectively)