Alv display for the 2nd time.

Question

Hi everybody
I have created a interactive alv report. when i am going for   first display it is giving correct result whne i go for 2nd time it is not initilizing the grids the records are displayed twice or same record is displayed. i have check BCALV_GRID_03 but i could not understand it properly so i am giving my code please help.
*& Report  ZVTEST1                                                     *
REPORT  ZVTEST1 .
class lcl_event_receiver definition deferred.
class cl_event_receiver definition deferred.
TYPE-POOLS : SLIS.
tables : ekko,ekpo,lfa1.
data : begin of itab occurs 0,
         lifnr like ekko-lifnr,
         netwr like ekpo-netwr,
         name1 like lfa1-name1,
      end of itab.
data : begin of inv_det occurs 0,
         ebeln like ekko-ebeln,
         bedat like ekko-bedat,
         lifnr like ekko-lifnr,
         netwr like ekpo-netwr,
         name1 like lfa1-name1,
       end of inv_det.
data : begin of mat_det occurs 0,
         ebeln like ekko-ebeln,
         lifnr like ekko-lifnr,
         bedat like ekko-bedat,
         matnr like ekpo-matnr,
         menge like ekpo-menge,
         netpr like ekpo-netpr,
         NETWR LIKE EKPO-NETWR,
         maktx like makt-maktx,
       end of mat_det.
DATA :TEST_GRID TYPE REF TO CL_GUI_ALV_GRID,
      TEST_CONT TYPE SCRFNAME VALUE 'TESTING_ALV',
      TEST_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      TEST_LAYOUT TYPE LVC_S_LAYO,
      TEST_FIELDCAT TYPE LVC_T_FCAT,
      ok_code like sy-ucomm,
      event_receiver type ref to lcl_event_receiver,
      event_receiver1 type ref to cl_event_receiver,
      TEST_GRID1 TYPE REF TO CL_GUI_ALV_GRID,
      TEST_CONT1 TYPE SCRFNAME VALUE 'PARTYWISE_DETAILS',
      TEST_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      ls_layout TYPE lvc_s_layo,
      TEST_LAYOUT1 TYPE LVC_S_LAYO,
      TEST_FIELDCAT1 TYPE LVC_T_FCAT,
      TEST_GRID2 TYPE REF TO CL_GUI_ALV_GRID,
      TEST_CONT2 TYPE SCRFNAME VALUE 'INVOICE',
      TEST_CONTAINER2 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
      TEST_LAYOUT2 TYPE LVC_S_LAYO,
      TEST_FIELDCAT2 TYPE LVC_T_FCAT.
select-options: s_bedat for ekko-bedat.
CALL SCREEN 100.
class LCL_EVENT_RECEIVER definition.
  public section.
      methods:
      handle_double_click
        for event double_click of cl_gui_alv_grid
            importing e_row e_column.
  private section.
endclass.
class LCL_EVENT_RECEIVER implementation.
method handle_double_click.
    data: itab1 like line of itab.
    read table itab index e_row-index into itab1.
    perform select_table_invdet using itab1
                               changing inv_det.
    call screen 200 starting at 10 5.
endmethod.
endclass.
class CL_EVENT_RECEIVER definition.
  public section.
      methods:
       handle_hotspot_click
        for event hotspot_click of cl_gui_alv_grid
            importing e_row_id e_column_id es_row_no.
  private section.
endclass.
class CL_EVENT_RECEIVER implementation.
method handle_hotspot_click.
    data: itab2 like line of inv_det.
    read table inv_det index e_row_id-index into itab2.
    perform select_matdet using itab2
                               changing mat_det.
    call screen 300 starting at 15 5.
endmethod.
endclass.
*&      Module  STATUS_0100  OUTPUT
      text
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'TEST'.
PERFORM SELECT-DATA.  " FOR THE INITIAL LIST.
PERFORM ALV_DISPLAY.   "TO DISPLAY INITIAL SCREEN.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
   WHEN 'BACK'.
     LEAVE TO SCREEN 0.
   WHEN 'EXIT'.
     LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Form  SELECT-DATA
      text
-->  p1        text  DATA SELECTION FOR THE 1ST LIST
<--  p2        text
FORM SELECT-DATA .
select alifnr sum( bnetwr ) as netwr
    into corresponding fields of itab
    from ekko as a inner join ekpo as b on bebeln = aebeln
     where abedat in s_bedat group by alifnr.
    select single name1 from lfa1 into itab-name1
       where lifnr = itab-lifnr.
append itab.
endselect.
ENDFORM.                    " SELECT-DATA
*&      Form  ALV_DISPLAY
      text
-->  p1        text  DISPLAY THE LIST FIRST TIME.
<--  p2        text
FORM ALV_DISPLAY .
IF TEST_GRID IS INITIAL.
     CREATE OBJECT TEST_CONTAINER
       EXPORTING
         CONTAINER_NAME              = 'TESTING_ALV'.
      CREATE OBJECT TEST_GRID
        EXPORTING
          I_PARENT          =  TEST_CONTAINER.
   PERFORM PROC_CATALOG CHANGING TEST_FIELDCAT.
   PERFORM PROC_LAYOUT CHANGING TEST_LAYOUT.
   CALL METHOD TEST_GRID->SET_TABLE_FOR_FIRST_DISPLAY
     EXPORTING
       IS_LAYOUT                     =  TEST_LAYOUT
     CHANGING
       IT_OUTTAB                     =  ITAB[]
       IT_FIELDCATALOG               =  TEST_FIELDCAT[].
create object EVENT_RECEIVER.
    set handler EVENT_RECEIVER->handle_double_click for TEST_GRID.
ENDIF.
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
  EXPORTING
    CONTROL           = TEST_CONTAINER.
CALL METHOD CL_GUI_CFW=>FLUSH.
ENDFORM.                    " ALV_DISPLAY
*&      Form  PROC_CATALOG
      text
     <--P_TEST_FIELDCAT  text
FORM PROC_CATALOG  CHANGING P_TEST_FIELDCAT type lvc_t_fcat.
data: TEST_fieldcat type lvc_s_fcat.
TEST_FIELDCAT-fieldname = 'LIFNR'.
TEST_FIELDCAT-REF_TABLE = 'LFA1'.
TEST_FIELDCAT-OUTPUTLEN = '12'.
TEST_FIELDCAT-coltext   = 'VENDOR CODE'.
TEST_FIELDCAT-SELTEXT   = 'VENDOR CODE'.
*TEST_FIELDCAT-HOTSPOT   = 'X'.
APPEND TEST_FIELDCAT TO P_TEST_FIElDCAT.
CLEAR TEST_FIELDCAT.
TEST_FIELDCAT-fieldname = 'NAME1'.
TEST_FIELDCAT-REF_TABLE = 'LFA1'.
TEST_FIELDCAT-OUTPUTLEN = '25'.
TEST_FIELDCAT-coltext   = 'VENDOR NAME'.
TEST_FIELDCAT-SELTEXT   = 'VENDOR NAME'.
APPEND TEST_FIELDCAT TO P_TEST_FIElDCAT.
CLEAR TEST_FIELDCAT.
TEST_FIELDCAT-fieldname = 'NETWR'.
TEST_FIELDCAT-REF_TABLE = 'EKPO'.
TEST_FIELDCAT-OUTPUTLEN = '20'.
TEST_FIELDCAT-coltext   = 'PURCHASE AMOUNT'.
APPEND TEST_FIELDCAT TO P_TEST_FIElDCAT.
CLEAR TEST_FIELDCAT.
ENDFORM.                    " PROC_CATALOG
*&      Form  PROC_LAYOUT
      text
     <--P_TEST_LAYOUT  text
FORM PROC_LAYOUT  CHANGING P_TEST_LAYOUT type lvc_s_layo.
p_TEST_layout-zebra = 'X'.
p_TEST_layouT-grid_title = 'TEST INTERACTIVE ALV'.
p_TEST_layout-smalltitle = 'X'.
p_TEST_layout-no_hgridln    = 'X'.
p_TEST_layout-excp_conds  = 'X'.
p_TEST_layout-numc_total  = 'X'.
ENDFORM.                    " PROC_LAYOUT
*&      Form  select_table_invdet
      text
     -->P_ITAB1  DATA SELECTION FOR THE 2ND LIST
     <--P_INV_DET  text
FORM select_table_invdet  USING    P_ITAB1 like line of itab
                          CHANGING P_INV_DET.
clear inv_det.
select alifnr aebeln abedat sum( bnetwr ) as netwr
    into corresponding fields of inv_det
    from ekko as a inner join ekpo as b on bebeln = aebeln
     where  alifnr = p_itab1-lifnr and abedat in s_bedat group by
     alifnr  aebeln a~bedat.
    select single name1 from lfa1 into inv_det-name1
       where lifnr = inv_det-lifnr.
append INV_DET.
endselect.
ENDFORM.                    " select_table_invdet
*&      Module  STATUS_0200  OUTPUT
      text
MODULE STATUS_0200 OUTPUT.
IF TEST_GRID1 IS INITIAL.
    CREATE OBJECT TEST_CONTAINER1
       EXPORTING
         CONTAINER_NAME              = 'NEXT_CONT'.
    IF SY-SUBRC NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          TITEL         =  SY-REPID
          TXT1          =  SY-SUBRC
          TXT2          =  'THE CONTROL IS NOT CREATED'.
  ENDIF.
     CREATE OBJECT TEST_GRID1
       EXPORTING
         I_PARENT          = TEST_CONTAINER1.
   PERFORM PROC_CATALOG1 CHANGING TEST_FIELDCAT1.
   PERFORM PROC_LAYOUT1 CHANGING TEST_LAYOUT1.
    CALL METHOD TEST_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
        IS_LAYOUT                     =  test_layout1
      CHANGING
        IT_OUTTAB                     =  inv_det[]
        IT_FIELDCATALOG               =  TEST_FIELDCAT1[].
create object EVENT_RECEIVER1.
    set handler EVENT_RECEIVER1->handle_hotspot_click for TEST_GRID1.
ELSE.
   CALL METHOD TEST_GRID1->REFRESH_TABLE_DISPLAY.
ENDIF.
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
  EXPORTING
    CONTROL           =  TEST_container1.
CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE USER_COMMAND_0200 INPUT.
  case ok_code.
    when 'EXIT'.
leave to screen 0.
  endcase.
  clear ok_code.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Form  PROC_CATALOG1
      text
     <--P_TEST_FIELDCAT1  text
FORM PROC_CATALOG1  CHANGING P_TEST_FIELDCAT1 type lvc_t_fcat.
data: TEST_fieldcat1 type lvc_s_fcat.
TEST_FIELDCAT1-fieldname = 'EBELN'.
TEST_FIELDCAT1-REF_TABLE = 'EKKO'.
TEST_FIELDCAT1-OUTPUTLEN = '12'.
TEST_FIELDCAT1-coltext   = 'P.O NUMBER'.
TEST_FIELDCAT1-SELTEXT   = 'P.O NUMBAR'.
TEST_FIELDCAT1-HOTSPOT   = 'X'.
APPEND TEST_FIELDCAT1 TO P_TEST_FIElDCAT1.
CLEAR TEST_FIELDCAT1.
TEST_FIELDCAT1-fieldname = 'BEDAT'.
TEST_FIELDCAT1-REF_TABLE = 'EKKO'.
TEST_FIELDCAT1-OUTPUTLEN = '10'.
TEST_FIELDCAT1-coltext   = 'P.O.DATE'.
TEST_FIELDCAT1-SELTEXT   = 'P.O.DATE'.
APPEND TEST_FIELDCAT1 TO P_TEST_FIElDCAT1.
CLEAR TEST_FIELDCAT1.
TEST_FIELDCAT1-fieldname = 'NETWR'.
TEST_FIELDCAT1-REF_TABLE = 'EKPO'.
TEST_FIELDCAT1-OUTPUTLEN = '20'.
TEST_FIELDCAT1-coltext   = 'PURCHASE AMOUNT'.
APPEND TEST_FIELDCAT1 TO P_TEST_FIElDCAT1.
CLEAR TEST_FIELDCAT1.
ENDFORM.                    " PROC_CATALOG1
*&      Form  PROC_LAYOUT1
      text
     <--P_TEST_LAYOUT1  text
FORM PROC_LAYOUT1  CHANGING P_TEST_LAYOUT1  type lvc_s_layo.
p_TEST_layout1-zebra = 'X'.
p_TEST_layouT1-grid_title = 'DATE WISE PURCHASE ORDERS'.
p_TEST_layout1-smalltitle = 'X'.
p_TEST_layout1-no_hgridln    = 'X'.
p_TEST_layout1-excp_conds  = 'X'.
p_TEST_layout1-numc_total  = 'X'.
ENDFORM.                    " PROC_LAYOUT1
*&      Form  select_matdet
      text
     -->P_ITAB2  text
     <--P_MAT_DET  text
FORM select_matdet  USING    P_ITAB2 like line of inv_det
                    CHANGING P_MAT_DET.
select ebeln bedat lifnr from ekko into corresponding fields of mat_det
    where ebeln = p_itab2-ebeln and bedat = p_itab2-bedat
      and lifnr = p_itab2-lifnr..
select matnr menge netpr NETWR from ekpo
   into corresponding fields of mat_det
     where ebeln = mat_det-ebeln.
select single maktx from makt into corresponding fields of mat_det
     where matnr = mat_det-matnr.
append mat_DET.
endselect.
endselect.
ENDFORM.                    " select_matdet
*&      Module  STATUS_0300  OUTPUT
      text
MODULE STATUS_0300 OUTPUT.
set pf-status 'TEST1'.
IF TEST_GRID2 IS INITIAL.
   CREATE OBJECT TEST_CONTAINER2
     EXPORTING
       CONTAINER_NAME              = 'INVOICE_DETAILS'.
    IF SY-SUBRC NE 0.
      CALL FUNCTION 'POPUP_TO_INFORM'
        EXPORTING
          TITEL         =  SY-REPID
          TXT1          =  SY-SUBRC
          TXT2          =  'THE CONTROL IS NOT CREATED'.
    ENDIF.
    CREATE OBJECT TEST_GRID2
      EXPORTING
        I_PARENT          = TEST_CONTAINER2.
     PERFORM PROC_CATALOG2 CHANGING TEST_FIELDCAT2.
     PERFORM PROC_LAYOUT2 CHANGING TEST_LAYOUT2.
     CALL METHOD TEST_GRID2->SET_TABLE_FOR_FIRST_DISPLAY
       EXPORTING
         IS_LAYOUT                     = test_layout2
       CHANGING
         IT_OUTTAB                     = mat_det[]
         IT_FIELDCATALOG               = test_fieldcat2[].
else.
CALL METHOD TEST_GRID2->GET_FRONTEND_LAYOUT
  IMPORTING
    ES_LAYOUT = ls_layout.
CALL METHOD TEST_GRID2->SET_FRONTEND_LAYOUT
  EXPORTING
    IS_LAYOUT = ls_layout.
ENDIF.
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
  EXPORTING
    CONTROL           = test_container2.
CALL METHOD CL_GUI_CFW=>FLUSH.
IF SY-SUBRC NE 0.
CALL FUNCTION 'POPUP_TO_INFORM'
  EXPORTING
    TITEL         = SY-REPID
    TXT1          = SY-SUBRC
    TXT2          = 'ERROR IN FLUSH'.
ENDIF.
ENDMODULE.                 " STATUS_0300  OUTPUT
*&      Module  USER_COMMAND_0300  INPUT
      text
MODULE USER_COMMAND_0300 INPUT.
case ok_code.
    when 'BACK'.
        leave to screen 0.
    WHEN 'CANCLE'.
      LEAVE PROGRAM.
  endcase.
  clear ok_code.
ENDMODULE.                 " USER_COMMAND_0300  INPUT
*&      Form  PROC_CATALOG2
      text
     <--P_TEST_FIELDCAT2  text
FORM PROC_CATALOG2  CHANGING P_TEST_FIELDCAT2 TYPE LVC_T_FCAT.
data: TEST_fieldcat2 type lvc_s_fcat.
TEST_FIELDCAT2-fieldname = 'MATNR'.
TEST_FIELDCAT2-REF_TABLE = 'EKPO'.
TEST_FIELDCAT2-OUTPUTLEN = '12'.
TEST_FIELDCAT2-coltext   = 'MATERIAL NO'.
TEST_FIELDCAT2-SELTEXT   = 'MATERIAL NO'.
*TEST_FIELDCAT1-HOTSPOT   = 'X'.
APPEND TEST_FIELDCAT2 TO P_TEST_FIElDCAT2.
CLEAR TEST_FIELDCAT2.
TEST_FIELDCAT2-fieldname = 'MAKTX'.
TEST_FIELDCAT2-REF_TABLE = 'MAKT'.
TEST_FIELDCAT2-OUTPUTLEN = '30'.
TEST_FIELDCAT2-coltext   = 'DESCRIPTION'.
TEST_FIELDCAT2-SELTEXT   = 'DESCRIPTION'.
APPEND TEST_FIELDCAT2 TO P_TEST_FIElDCAT2.
CLEAR TEST_FIELDCAT2.
TEST_FIELDCAT2-fieldname = 'MENGE'.
TEST_FIELDCAT2-REF_TABLE = 'EKPO'.
TEST_FIELDCAT2-OUTPUTLEN = '10'.
TEST_FIELDCAT2-coltext   = 'QUANTITY'.
TEST_FIELDCAT2-SELTEXT   = 'QUANTITY'.
APPEND TEST_FIELDCAT2 TO P_TEST_FIElDCAT2.
CLEAR TEST_FIELDCAT2.
TEST_FIELDCAT2-fieldname = 'NETPR'.
TEST_FIELDCAT2-REF_TABLE = 'EKPO'.
TEST_FIELDCAT2-OUTPUTLEN = '20'.
TEST_FIELDCAT2-coltext   = 'PURCHASE AMOUNT'.
APPEND TEST_FIELDCAT2 TO P_TEST_FIElDCAT2.
CLEAR TEST_FIELDCAT2.
TEST_FIELDCAT2-fieldname = 'NETWR'.
TEST_FIELDCAT2-REF_TABLE = 'EKPO'.
TEST_FIELDCAT2-OUTPUTLEN = '20'.
TEST_FIELDCAT2-coltext   = 'PURCHASE AMOUNT'.
APPEND TEST_FIELDCAT2 TO P_TEST_FIElDCAT2.
CLEAR TEST_FIELDCAT2.
ENDFORM.                    " PROC_CATALOG2
*&      Form  PROC_LAYOUT2
      text
     <--P_TEST_LAYOUT2  text
FORM PROC_LAYOUT2  CHANGING P_TEST_LAYOUT2  type lvc_s_layo.
p_TEST_layout2-zebra = 'X'.
p_TEST_layouT2-grid_title = 'PURCHASE ORDERS MATERIAL WISE DETAILS'.
p_TEST_layout2-smalltitle = 'X'.
p_TEST_layout2-no_hgridln    = 'X'.
p_TEST_layout2-excp_conds  = 'X'.
p_TEST_layout2-numc_total  = 'X'.
ENDFORM.                    " PROC_LAYOUT2
thanks
Vinayak.

Answer 1

Vinayak,
Add the Code(ELSE part) into the Form ALV_DISPLAY.
IF TEST_GRID IS INITIAL.
  CREATE OBJECT TEST_CONTAINER
    EXPORTING
      CONTAINER_NAME = 'TESTING_ALV'.
  CREATE OBJECT TEST_GRID
    EXPORTING
     I_PARENT = TEST_CONTAINER.
   PERFORM PROC_CATALOG CHANGING TEST_FIELDCAT.
   PERFORM PROC_LAYOUT CHANGING TEST_LAYOUT.
   CALL METHOD TEST_GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
           IS_LAYOUT = TEST_LAYOUT
      CHANGING
           IT_OUTTAB = ITAB[]
           IT_FIELDCATALOG = TEST_FIELDCAT[].
    create object EVENT_RECEIVER.
    set handler EVENT_RECEIVER->handle_double_click
       for   TEST_GRID.
<b>ELSE.
   CALL METHOD TEST_GRID->REFRESH_TABLE_DISPLAY(
             "EXPORTING
             "IS_STABLE =
             "I_SOFT_REFRESH=
                        ).</b>
ENDIF.
Thanks
Kam
Note: Allot points for all worthful postings