Hi;
This is where i set my grid (i have two grids but hte declarations are the same. i call according to a flag value(uzakdogu):
FORM alv_display .
if uzakdogu = 'X' .
*----Creating custom container instance
IF NOT gr_alvgrid IS INITIAL .
call method gr_alvgrid->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
*
create object g_event_receiver type lcl_event_handler.
set handler g_event_receiver->handle_data_changed for gr_alvgrid.
set handler g_event_receiver->handle_hotspot_click for gr_alvgrid.
set handler g_event_receiver->handle_toolbar for gr_alvgrid.
set handler g_event_receiver->handle_menu_button for gr_alvgrid.
set handler g_event_receiver->handle_user_command for gr_alvgrid.
CALL METHOD gr_alvgrid->set_toolbar_interactive.
CALL METHOD gr_alvgrid->refresh_table_display.
else .
CREATE OBJECT gr_ccontainer
EXPORTING
container_name = gc_custom_control_name
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
create_error = 3
lifetime_error = 4
lifetime_dynpro_dynpro_link = 5
others = 6 .
IF sy-subrc 0.
*--Exception handling
ENDIF.
*----Creating ALV Grid instance
CREATE OBJECT gr_alvgrid
EXPORTING i_parent = gr_ccontainer
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
others = 5 .
IF sy-subrc 0.
*--Exception handling
ENDIF.
endif .
*----Preparing field catalog.
REFRESH gt_fieldcat.
PERFORM prepare_field_catalog CHANGING gt_fieldcat .
*----Preparing layout structure
PERFORM prepare_layout CHANGING gs_layout .
ls_variant-report = sy-repid.
ls_variant-variant = '/UZAKDOGU' .
*§3.Optionally register ENTER to raise event DATA_CHANGED.
(Per default the user may check data by using the check icon).
call method gr_alvgrid->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
create object g_event_receiver type lcl_event_handler.
set handler g_event_receiver->handle_data_changed for gr_alvgrid.
set handler g_event_receiver->handle_hotspot_click for gr_alvgrid.
set handler g_event_receiver->handle_toolbar for gr_alvgrid.
set handler g_event_receiver->handle_menu_button for gr_alvgrid.
set handler g_event_receiver->handle_user_command for gr_alvgrid.
CALL METHOD gr_alvgrid->set_toolbar_interactive.
CALL METHOD gr_alvgrid->set_table_for_first_display
EXPORTING
i_buffer_active = 'X'
i_bypassing_buffer = 'X'
IS_VARIANT = ls_variant
I_SAVE = 'A'
CHANGING
it_outtab = itab[]
it_fieldcatalog = gt_fieldcat
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc 0.
*--Exception handling
ENDIF.
set editable cells to ready for input
CALL METHOD gr_alvgrid->set_ready_for_input
EXPORTING
I_READY_FOR_INPUT = 1.
***
else .
........
and
this routine is called everytime i call the the relevant screen because it is inside PAI of the screen.
And here are my event handler declarations:
FORM handle_toolbar USING i_object type ref to cl_alv_event_toolbar_set
P_E_INTERACTIVE.
DATA: ls_toolbar TYPE stb_button.
CLEAR ls_toolbar.
MOVE 2 TO ls_toolbar-butn_type.
MOVE 'YAZDIR' TO ls_toolbar-function.
MOVE icon_print TO ls_toolbar-icon.
MOVE 'Belge Yazdır' TO ls_toolbar-quickinfo.
MOVE 'Yazdır' TO ls_toolbar-text.
MOVE ' ' TO ls_toolbar-disabled.
APPEND ls_toolbar TO i_object->mt_toolbar.
ENDFORM. " handle_toolbar
************
FORM handle_menu_button USING i_object type ref to cl_ctmenu
i_ucomm type sy-ucomm.
CASE i_ucomm .
WHEN 'YAZDIR' .
CALL METHOD i_object->add_function
EXPORTING
fcode = 'ORDER'
text = 'Armatör Blg'.
CALL METHOD i_object->add_function
EXPORTING
fcode = 'INVOICE'
text = 'Muhasebe Blg.'.
ENDCASE .
ENDFORM. " handle_menu_button
*****************
FORM handle_user_command USING i_ucomm type sy-ucomm.
DATA: sonuc .
DATA: kn TYPE i.
TYPES: BEGIN OF t1,
rowtype TYPE lvc_rtype,
index TYPE lvc_index,
END OF t1.
DATA: lt_rows TYPE lvc_t_row,
xrow TYPE t1.
DATA: pi_objky TYPE na_objkey,
xkappl TYPE na_kappl.
IF i_ucomm EQ 'ORDER'.
xkappl = 'V1'.
ELSE.
xkappl = 'V3'.
ENDIF.
if not uzakdogu is initial.
CALL METHOD gr_alvgrid->get_selected_rows
IMPORTING
et_index_rows = lt_rows.
else.
CALL METHOD gr_alvgrid2->get_selected_rows
IMPORTING
et_index_rows = lt_rows.
endif.
DESCRIBE TABLE lt_rows LINES kn.
IF kn GT 0.
READ TABLE lt_rows INTO xrow INDEX 1.
READ TABLE itab INDEX xrow-index .
CHECK xrow-rowtype EQ ''.
IF sy-subrc EQ 0.
IF i_ucomm EQ 'ORDER'.
MOVE itab-cnv_arm_belge TO pi_objky.
IF pi_objky EQ ''.
MESSAGE s020(zdhmsg).
RETURN.
ENDIF.
ELSE.
MOVE itab-cnv_mhs_belge TO pi_objky.
IF pi_objky EQ ''.
MESSAGE s021(zdhmsg).
RETURN.
ENDIF.
ENDIF.
IF pi_objky NE ''.
CALL FUNCTION 'RV_MESSAGE_DIALOG'
EXPORTING
pi_kappl = xkappl
pi_objky = pi_objky
EXCEPTIONS
cancel = 1
message_not_printable = 2
no_message = 3
print_error = 4
preview_error = 5
invalid_preview_mode = 6
OTHERS = 7.
ENDIF.
ENDIF.
ELSE.
MESSAGE s020(zdhmsg).
ENDIF.
ENDFORM. " handle_user_command
Bluesky
