THIS MAY BE HELP U LOT....
REPORT z_vj_testalvdialog.
CLASS lcl_event DEFINITION DEFERRED.
DATA : tempflight TYPE TABLE OF sflight,
tempbook TYPE TABLE OF sbook,
gs_lo TYPE lvc_s_layo,
g_ctrl TYPE scrfname VALUE 'GRID',
grid1 TYPE REF TO cl_gui_alv_grid,
custom_container TYPE REF TO cl_gui_custom_container,
grid2 TYPE REF TO cl_gui_alv_grid,
dialog_container TYPE REF TO cl_gui_dialogbox_container,
ok_code LIKE sy-ucomm,
save_code LIKE sy-ucomm,
eve_receive TYPE REF TO lcl_event.
SET SCREEN 0100.
----
----
----
CLASS lcl_event DEFINITION.
PUBLIC SECTION.
METHODS :
handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column,
handle_close FOR EVENT close OF cl_gui_dialogbox_container
IMPORTING sender.
PRIVATE SECTION.
DATA : dialog_status TYPE c.
ENDCLASS.
----
----
----
CLASS lcl_event IMPLEMENTATION.
METHOD handle_double_click.
DATA : locflight LIKE LINE OF tempflight.
READ TABLE tempflight INDEX e_row INTO locflight.
break-point 1.
SELECT * from sbook INTO table tempbook
WHERE
carrid = locflight-carrid
AND connid = locflight-connid
AND fldate = locflight-fldate.
IF dialog_status IS INITIAL.
dialog_status = 'X'.
CREATE OBJECT dialog_container
EXPORTING
top = 140
left = 130
caption = 'DIALOG CONTROL BY DOUBLE CLICK'
width = 500
height = 500.
CREATE OBJECT grid2
EXPORTING
i_parent = dialog_container.
SET HANDLER eve_receive->handle_close FOR dialog_container.
CALL METHOD grid2->set_table_for_first_display
EXPORTING
i_structure_name = 'SBOOK'
CHANGING it_outtab = tempbook.
ELSE.
CALL METHOD dialog_container->set_visible
EXPORTING visible = 'X'.
CALL METHOD grid2->refresh_table_display.
ENDIF.
ENDMETHOD.
METHOD handle_close.
CALL METHOD sender->set_visible
EXPORTING visible = space.
ENDMETHOD.
ENDCLASS.
&----
*& Module STATUS_0100 OUTPUT
&----
----
module STATUS_0100 output.
select * from sflight into table tempflight.
create object custom_container
exporting
container_name = g_ctrl.
create object grid1
exporting
i_parent = custom_container.
call method grid1->set_table_for_first_display
exporting
i_structure_name = 'SFLIGHT'
changing
it_outtab = tempflight.
create object eve_receive.
set handler eve_receive->handle_double_click for grid1.
endmodule. " STATUS_0100 OUTPUT
&----
*& Module USER_COMMAND_0100 INPUT
&----
----
module USER_COMMAND_0100 input.
data : click like sy-ucomm.
click = sy-ucomm.
if click = 'EXIT'.
leave program.
endif.
endmodule. " USER_COMMAND_0100 INPUT
Bluesky
