Event in ALV Grid

Hi,
I am using an ALV Grid with the first column of my output as a check box. One of the user requirements is to if the check box is ticked, then that row should be uneditable by the user. If the checkbox is unticked, then the row should be available for input again.
Please help me on how to handle this event. I am not very good with OOP.
Thanks,
Jim

Hai Jim Eric Tibayan ,
Here is the useful program to you.
Hope this helps you.
TYPE-POOLS: SLIS.
PARAMETERS:
P_ROW TYPE I,
P_COLUMN TYPE I.
DATA:
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
FIELDCAT_LN LIKE LINE OF FIELDCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT.
DATA:
COL_POS TYPE I.
******Declare Data Areas for List Viewer (End)**************
******Declare Internal Table to Store Selected Data (Begin)*
DATA:
BEGIN OF ISPFLI OCCURS 0,
 CHECK TYPE SLIS_FIELDNAME,
 R_COLOR(3) TYPE C,
 CELL TYPE SLIS_T_SPECIALCOL_ALV,
 CARRID LIKE SPFLI-CARRID,
 CONNID LIKE SPFLI-CONNID,
 COUNTRYFR LIKE SPFLI-COUNTRYFR,
END OF ISPFLI.
DATA:
WA LIKE LINE OF ISPFLI,
W_LINES TYPE I.
DATA:
FS_CELL LIKE LINE OF ISPFLI-CELL.
DATA:
LAYOUT1 TYPE SLIS_LAYOUT_ALV.
******Declare Internal Table to Store Selected Data (End)***
*******Select Data into Internal Table (Begin) ***************
SELECT CARRID CONNID COUNTRYFR
 INTO CORRESPONDING FIELDS OF TABLE ISPFLI
 FROM SPFLI.
DESCRIBE TABLE ISPFLI LINES W_LINES.
IF P_ROW IS INITIAL AND
P_COLUMN IS INITIAL .
MESSAGE 'Enter atlest one number' TYPE 'I'.
STOP.
ELSEIF P_ROW GT W_LINES.
MESSAGE 'Row with the row number is not there' TYPE 'I'.
STOP.
ENDIF.
IF P_COLUMN IS NOT INITIAL AND
 P_COLUMN GT 3.
 MESSAGE 'Field with the column number is not there' TYPE 'I'.
 STOP.
ENDIF.
Select Data into Internal Table (End) ****************
Build Field Catalogs (Begin)**************************
IF P_ROW IS NOT INITIAL AND P_COLUMN IS INITIAL.
PERFORM BUILD_FIELDCAT.
PERFORM BUILD_FIELDCAT2.
PERFORM BUILD_FIELDCAT4.
PERFORM BUILD_LAYOUT1.
PERFORM ROW_COLOR.
ELSEIF P_COLUMN IS NOT INITIAL
AND P_ROW IS NOT INITIAL.
PERFORM BUILD_FIELDCAT.
PERFORM BUILD_FIELDCAT2.
PERFORM BUILD_FIELDCAT4.
PERFORM BUILD_LAYOUT1.
PERFORM CELL_COLOR.
ELSE.
PERFORM BUILD_FIELDCAT.
PERFORM BUILD_FIELDCAT2.
PERFORM BUILD_FIELDCAT3.
PERFORM BUILD_LAYOUT1.
ENDIF.
PERFORM ROW_COLOR.
PERFORM CELL_COLOR.
PERFORM BUILD_FIELDCAT.
PERFORM BUILD_FIELDCAT2.
PERFORM BUILD_FIELDCAT3.
PERFORM BUILD_LAYOUT1.
PERFORM ROW_COLOR.
PERFORM CELL_COLOR.
PERFORM ROW_COLOR.
PERFORM CELL_COLOR.
PERFORM BUILD_SORTCAT.
PERFORM BUILD_SORTCAT2.
******Build Field Catalogs (End)*****************************
******Build Event Catalog (Begin)****************************
PERFORM BUILD_EVENTCAT.
******Build Event Catalog (End)******************************
******Start List Viewer (Begin)******************************
PERFORM START_LIST_VIEWER.
******Start List Viewer (End)********************************
********FORM ROUTINES (Begin)********************************
FORM ROW_COLOR.
CLEAR WA.
 READ TABLE ISPFLI INDEX P_ROW INTO WA.
WA-R_COLOR = 'C61'.
MODIFY ISPFLI FROM WA INDEX P_ROW.
CLEAR WA.
ENDFORM.
FORM CELL_COLOR.
CLEAR WA.
CLEAR FS_CELL.
FS_CELL-FIELDNAME = 'CONNID'.
FS_CELL-COLOR-COL = P_COLUMN."4.
FS_CELL-COLOR-INT = 0.
FS_CELL-COLOR-INV = 1.
READ TABLE ISPFLI INDEX P_ROW INTO WA.
APPEND FS_CELL TO WA-CELL.
MODIFY ISPFLI FROM WA INDEX P_ROW TRANSPORTING CELL.
CLEAR WA.
CLEAR FS_CELL.
ENDFORM.
 Color table-FIELDNAME = field name of the cell to be colored
 Color table-COLOR-COL = color number (1 - 9)
 Color table-COLOR-INT = bold (0 = off, 1 = on)
 Color table-COLOR-INV = inverse (0 = off, 1 = on)
 Color table-NOKEYCOL = ignore key coloring ('X' = yes, ' ' = no)
FORM BUILD_FIELDCAT.
CLEAR FIELDCAT_LN.
ADD 1 TO COL_POS.
FIELDCAT_LN-REF_TABNAME = 'SPFLI'.
FIELDCAT_LN-FIELDNAME = 'CARRID'.
FIELDCAT_LN-REF_FIELDNAME = SPACE.
FIELDCAT_LN-OUTPUTLEN = 20.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-NO_OUT = 'X'."SPACE.
FIELDCAT_LN-DO_SUM = SPACE.
FIELDCAT_LN-COL_POS = 2.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = 'X'.
APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM. "BUILD_FIELDCAT
*& Form BUILD_FIELDCAT2
 text
FORM BUILD_FIELDCAT2.
CLEAR FIELDCAT_LN.
ADD 1 TO COL_POS.
FIELDCAT_LN-REF_TABNAME = 'SPFLI'.
FIELDCAT_LN-FIELDNAME = 'CONNID'.
FIELDCAT_LN-REF_FIELDNAME = SPACE.
FIELDCAT_LN-OUTPUTLEN = 20.
FIELDCAT_LN-KEY = 'X'.
FIELDCAT_LN-DO_SUM = SPACE.
FIELDCAT_LN-COL_POS = 1.
FIELDCAT_LN-NO_OUT = SPACE .
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM. "BUILD_FIELDCAT2
*& Form BUILD_FIELDCAT3
 text
FORM BUILD_FIELDCAT3.
CLEAR FIELDCAT_LN.
ADD 1 TO COL_POS.
FIELDCAT_LN-REF_TABNAME = 'SPFLI'.
FIELDCAT_LN-FIELDNAME = 'COUNTRYFR'.
FIELDCAT_LN-REF_FIELDNAME = SPACE.
FIELDCAT_LN-OUTPUTLEN = 20.
FIELDCAT_LN-EMPHASIZE = 'C310'.
FIELDCAT_LN-EMPHASIZE = 'X'.
FIELDCAT_LN-EMPHASIZE = SPACE.
FIELDCAT_LN-KEY = SPACE.
FIELDCAT_LN-DO_SUM = 'X'.
FIELDCAT_LN-COL_POS = 3.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM. "BUILD_FIELDCAT3
FORM BUILD_FIELDCAT4.
CLEAR FIELDCAT_LN.
ADD 1 TO COL_POS.
FIELDCAT_LN-REF_TABNAME = 'SPFLI'.
FIELDCAT_LN-FIELDNAME = 'COUNTRYFR'.
FIELDCAT_LN-REF_FIELDNAME = SPACE.
FIELDCAT_LN-OUTPUTLEN = 20.
FIELDCAT_LN-EMPHASIZE = 'C310'.
FIELDCAT_LN-EMPHASIZE = 'X'.
FIELDCAT_LN-EMPHASIZE = SPACE.
FIELDCAT_LN-KEY = SPACE.
FIELDCAT_LN-DO_SUM = 'X'.
FIELDCAT_LN-COL_POS = 3.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
APPEND FIELDCAT_LN TO FIELDCAT.
ENDFORM. "BUILD_FIELDCAT3
*& Form BUILD_SORTCAT
 text
FORM BUILD_SORTCAT.
CLEAR SORTCAT_LN.
SORTCAT_LN-SPOS = '1'.
SORTCAT_LN-FIELDNAME = 'CONNID'.
SORTCAT_LN-UP = 'X'..
SORTCAT_LN-DOWN = SPACE.
SORTCAT_LN-SUBTOT = 'X'.
APPEND SORTCAT_LN TO SORTCAT.
ENDFORM. "BUILD_SORTCAT
*& Form BUILD_SORTCAT2
 text
FORM BUILD_SORTCAT2.
CLEAR SORTCAT_LN.
SORTCAT_LN-SPOS = '2'.
SORTCAT_LN-FIELDNAME = 'CARRID'.
SORTCAT_LN-UP = SPACE.
SORTCAT_LN-DOWN = 'X'.
SORTCAT_LN-SUBTOT = SPACE.
APPEND SORTCAT_LN TO SORTCAT.
ENDFORM. " BUILD_SORTCAT2
FORM BUILD_LAYOUT1.
LAYOUT1-BOX_FIELDNAME = 'CHECK'.
LAYOUT1-INFO_FIELDNAME = 'R_COLOR'.
LAYOUT1-COLTAB_FIELDNAME = 'CELL'.
ENDFORM. " BUILD_LAYOUT1
*& Form BUILD_EVENTCAT
 text
FORM BUILD_EVENTCAT.
EVENTCAT_LN-NAME = 'TOP_OF_PAGE'.
EVENTCAT_LN-FORM = 'PAGE_HEADER'.
APPEND EVENTCAT_LN TO EVENTCAT.
ENDFORM. "BUILD_EVENTCAT
*& Form START_LIST_VIEWER
 text
FORM START_LIST_VIEWER.
DATA: PGM LIKE SY-REPID.
PGM = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_CALLBACK_PROGRAM = PGM
 i_callback_pf_status_set = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_STRUCTURE_NAME =
 IS_LAYOUT = LAYOUT1
 IT_FIELDCAT = FIELDCAT
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT = SORTCAT
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'A'
 IS_VARIANT = ' '
 IT_EVENTS =
 IT_EVENT_EXIT =
 IS_PRINT =
 I_SCREEN_START_COLUMN = 0
 I_SCREEN_START_LINE = 0
 I_SCREEN_END_COLUMN = 0
 I_SCREEN_END_LINE = 0
 IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 es_exit_caused_by_user =
 TABLES
 T_OUTTAB = ISPFLI
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDFORM. "START_LIST_VIEWER
Hope this helps you.
Reward points if it helps you.
Regds,
Rama chary.Pammi

Similar Messages

How to trigger left_click_run event on ALV GRID

Hiiiiiiii........
Can any of u please tell me how to trigger left_click_run event on ALV GRID.
There is an event LEFT_CLICK_RUN and its a public accessed event. But the problem is , the corresponding attribute of this event "EVENT_LEFT_CLICK_RUN" which is needed to registered that event (We need to register our events through a method set_register_events using table of type cntl_simple_events...) is protect accessed. So I am unable to use that attribute...Could u please tell me is there any alternative way to register that event.......ANY POSSIBLE WAY?
Thanks in advance,
Rams

I think you should use event selection_changed. Note that you shouldn't allow multiple selection for the tree at the same time, i.e. use: create object g_tree exporting \[...\] node_selection_mode = cl_gui_column_tree=>node_sel_mode_single.
For more information, see this thread: Urgently required : cl_gui_alv_tree single_click event...

Handling Right & Left Click Events in ALV Grid

Hi Friends,
Please give me the idea how to handle Right & Left mouse Click Events in ALV Grid.
My requirement is that when i click on the grid i need to pop up a message.
Eagerly waiting for your replies
Thanks
Satish

you have to Define a class and implement event handler methods for this purpose.
and the following events can help.
LEFT_CLICK_DESIGN
LEFT_CLICK_RUN
Regards
Raja

How to capture the event in ALV grid display?

Hi experts,
How to capture the event in an ALV grid display which is editable. I have to capture the TAB key or ENTER key.
regards,
Arul Jothi.

Hi Arul,
Take a look at sample program BCALV_EDIT_03. (Find string "register ENTER" in the program to see how to register)
Basically you have to Register edit events using method call REGISTER_EDIT_EVENT and then write a handler method for event DATA_CHANGED..
If you are using a REUSE..GRID fm then first get the grid reference using function module GET_GLOBALS_FROM_SLVC_FULLSCR and then repeat the above procedure..
Hope this helps..
Sri
Message was edited by: Srikanth Pinnamaneni

Handling events in ALV grid

hi,
Hi,
I am displaying some fields from VBAP in ALV gid and have give drop down check box to storage location making it editable so if the user changes Storage location of
some entries and clicks SAVE button, when we click save button i need to capture all the rows that were been changed and update VA02 using these records through bapi.
but iam not able to capture this SAVE event but iam able to capture Enter and cursor event.
i have written following code for this
LOCAL CLASSES: Definition
class lcl_event_receiver: local class to handle event CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
 METHODS:
 handle_data_changed
 FOR EVENT data_changed OF cl_gui_alv_grid
 IMPORTING er_data_changed.
PRIVATE SECTION.
ENDCLASS. "lcl_event_receiver DEFINITION
LOCAL CLASSES: Implementation
class lcl_event_receiver (Implementation)
CLASS lcl_event_receiver IMPLEMENTATION.
 METHOD handle_data_changed.
 DATA: l_error_in_data TYPE c.
 PERFORM handle_data_changed USING er_data_changed l_error_in_data.
*§7.Display application log if an error has occured.
 IF l_error_in_data EQ 'X'.
 CALL METHOD er_data_changed->display_protocol.
 ENDIF.
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_event_receiver IMPLEMENTATION
*& Form handle_data_changed
 Identify columns which were changed and check input
 -->P_ER_DATA_CHANGED text
FORM handle_data_changed USING p_er_data_changed
 TYPE REF TO cl_alv_changed_data_protocol
 p_error_in_data TYPE c.
DATA : lw_mod_cell TYPE lvc_s_modi ,
 l_value TYPE lvc_value ,
 l_lgort TYPE lgort_d.
SORT p_er_data_changed->mt_mod_cells BY row_id .
LOOP AT p_er_data_changed->mt_mod_cells INTO lw_mod_cell
 WHERE fieldname = 'LGORT'.
 CALL METHOD p_er_data_changed->get_cell_value
 EXPORTING
 i_row_id = lw_mod_cell-row_id
 i_fieldname = 'LGORT'
 IMPORTING
 e_value = l_value.
 SELECT SINGLE lgort FROM t001l INTO l_lgort WHERE werks = p_werks
 AND lgort = l_value.
 IF sy-subrc NE 0.
In case of error, create a protocol entry in the *application log.
 CALL METHOD p_er_data_changed->add_protocol_entry
 EXPORTING
 i_msgid = '0K'
 i_msgno = '000'
 i_msgty = 'E'
 i_msgv1 = text-003
 i_msgv2 = l_value
 i_msgv3 = text-004
 i_fieldname = lw_mod_cell-fieldname
 i_row_id = lw_mod_cell-row_id.
 p_error_in_data = 'X'.
 EXIT.
 ELSE.
*§5b.If the value is valid change values of
 cells.
 CALL METHOD p_er_data_changed->modify_cell
 EXPORTING
 i_row_id = lw_mod_cell-row_id
 i_fieldname = lw_mod_cell-fieldname
 i_value = l_value.
 READ TABLE t_list1 INTO w_list1 INDEX lw_mod_cell-row_id.
 IF sy-subrc EQ 0.
*comparing old value with the changed value
 IF w_list1-lgort <> l_value.
 MOVE: w_list1-werks TO w_list3-werks,
 w_list1-matnr TO w_list3-matnr,
 w_list1-arktx TO w_list3-arktx,
 w_list1-vbeln TO w_list3-vbeln,
 w_list1-posnr TO w_list3-posnr,
 w_list1-pstyv TO w_list3-pstyv,
 w_list1-vstel TO w_list3-vstel,
 w_list1-auart TO w_list3-auart,
 w_list1-kwmeng TO w_list3-kwmeng,
 w_list1-vrkme TO w_list3-vrkme,
 w_list1-mbdat TO w_list3-mbdat,
 l_value TO w_list3-lgort.
 APPEND w_list3 TO t_list3.
*t_list3 will contain all the records that are changed
 CLEAR w_list3.
 ENDIF.
 ENDIF.
 ENDIF.
ENDLOOP.
*& Module STATUS_0100 OUTPUT
 text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF go_custom_container IS INITIAL.
create a custom container control for our ALV Control
 CREATE OBJECT go_custom_container
 EXPORTING
 container_name = g_cont_on_main
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5.
 IF sy-subrc NE 0.
Display error message.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = sy-repid
 txt2 = sy-subrc
 txt1 = 'The control could not be created'.
 ENDIF.
create an instance of alv control
 CREATE OBJECT go_grid
 EXPORTING
 i_parent = go_custom_container.
*If display or change radio button is cheked
 IF ( p_chng = 'X' OR p_disp = 'X' ) .
Set a titlebar for the grid control
 g_layout-grid_title = 'Sales Orders'.
 g_layout-excp_fname = 'TRAFFIC_LIGHT'.
Define a drop down table.
 PERFORM set_drdn_table.
 CALL METHOD go_grid->set_table_for_first_display
 EXPORTING
 is_layout = g_layout
 CHANGING
 it_outtab = t_list1
 it_fieldcatalog = t_fieldcat1
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 ENDIF.
register ENTER and CURSOR to raise event DATA_CHANGED.
(Per default the user may check data by using the check icon).
 CALL METHOD go_grid->register_edit_event
 EXPORTING
 i_event_id = cl_gui_alv_grid=>mc_evt_enter.
 CALL METHOD go_grid->register_edit_event
 EXPORTING
 i_event_id = cl_gui_alv_grid=>mc_evt_modified.
 CREATE OBJECT g_event_receiver.
 SET HANDLER g_event_receiver->handle_double_click FOR go_grid.
 SET HANDLER g_event_receiver->handle_hotspot_click FOR go_grid .
 SET HANDLER g_event_receiver->handle_data_changed FOR go_grid .
ENDIF.
CALL METHOD cl_gui_control=>set_focus
 EXPORTING
 control = go_grid.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE user_command_0100 INPUT.
ok_code = sy-ucomm.
CASE ok_code.
 WHEN 'EXIT'.
 PERFORM exit_program.
 WHEN 'SAVE'.
 PERFORM update_sales_order using t_list3[].
endcase.
Thanks in Advance,
Siri

Hi Sirisha,
 You can get the event code for Enter because you have regitered in the event reciever .
But for the SAVE you will have to set in the PF-status of the screen and not the ALV-grid save .
Please award if helpful.

Reg: Top_Of_List Events in ALV GRID Display

Hi ,
How can i use the the the Top_of_list Event Alv grid Disply.
I have passed Events table with event name and form name to GRID FM it_events.
Form details:-
T_LISTHEADER header deatils table with data. .
FORM TOP_OF_LIST.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_LISTHEADER.
ENDFORM.
But still its not calling the form and also end_of list is working with same coding but top_of_list is not working can u give solution for this.
Regards,
raj

Hi Rajviji,
Please change the coding to below :-
*& Report ZR2K9_ALV008
REPORT alv_top_of_list
TABLES : t001.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
TYPES : BEGIN OF ty_comp.
        INCLUDE STRUCTURE t001.
TYPES : END OF ty_comp.
DATA: T_EVENTS TYPE slis_t_event.
DATA: WA_EVENTS   TYPE slis_alv_event .
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.
DATA : it_comp TYPE TABLE OF ty_comp.
INITIALIZATION.
w_repid = sy-repid.
*Need to change here
wa_events-name = 'TOP_OF_PAGE'.       "Instead of TOP_OF_LIST
wa_events-form = 'TOP_OF_PAGE'.
APPEND wa_events TO t_events.
START-OF-SELECTION.
SELECT * FROM t001 INTO TABLE it_comp up to 20 rows.
END-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = w_repid
      i_internal_tabname     = 'IT_COMP'
      I_STRUCTURE_NAME       = 't001'
      i_inclname             = w_repid
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program          = w_repid
      it_fieldcat                 = it_fieldcat[]
      IT_EVENTS                    = T_EVENTS
    TABLES
      t_outtab                    = it_comp
    EXCEPTIONS
      program_error               = 1
      OTHERS                      = 2.
FORM TOP_OF_PAGE.             "Form Name Changed
DATA: T_LISTHEADER   TYPE SLIS_T_LISTHEADER.
DATA: LS_LISTHEADER TYPE SLIS_LISTHEADER.
CLEAR LS_LISTHEADER.
LS_LISTHEADER-TYP = 'S'.
LS_LISTHEADER-KEY = 'Po Heder Details :-'.
APPEND LS_LISTHEADER TO T_LISTHEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = T_LISTHEADER.
ENDFORM.
Regards
Sandipan

Application events in ALV Grid Control

Hello,
Since SET_REGISTERED_EVENTS cannot be used for ALV Grid Control, how do I register a system event (data_changed) as an application event, so that PAI is processed. I am using ALV grid not tree.
Thanks

ALV events can be defined as application events while creating Grid object.
In addition to parent, Pass one more parameter:-I_APPL_EVENTS = 'X'.
    CREATE OBJECT grid
           EXPORTING
             i_parent = g_custom_container
             I_APPL_EVENTS = 'X'.

Events in ALV Grid Control

Hi,
I am working on ALV Grid Control. When the user clicks enter button on the keyboard the event DATA_CHANGED is triggered. I am actually collecting the data entered on the screen in the handler method of this event.
Now, I want the same functionality with the Enter button on the SAP Screen (this button appears next to the Command Box in SAP Screen). Whenever I click the button in the SAP Screen, the DATA_CHANGED is not called.
How can I make the button on the screen work the same way as the Enter button on the keyboard.
This is very urgent requirement. Please help me.
Regards,
Vara

Hi ,
You are missing OK CODE at your Container Screen(Where you defined the custom Control to populate your ALV grid).
Please define General attribute "OK_CODE" in your screen which you are using for Container(Where you defined the custom Control to populate your ALV GRID)..
In User Command routine:
Case OK_CODE = 'DATA_CHANGED'.
ENDCASE.
Hope this may help you.
Regards,
Lanka

Events in alv grid dispaly

Hi,
I have a requirement to select a row in ALV output and perform some action after a button is pressed.
(i.e) i have a release button and after i select a line item in alv output and press on the button ,that item should be released.
so both the events (Selection of line item and pressing of button) should happen together
how can this be achieved.
moreover i should be able to select multiple line items in the alv grid display.how can this be achieved.is it in fieldcatalog level or layout level.
Any pointers to this would be of great help.
Regards,
S.Subasree.

Hi,
Check the sample code which captures multipe selcted rows
on clicking a button.
FORM sub_user_command USING ucomm TYPE sy-ucomm
                              sel TYPE slis_selfield.
DATA: ref_grid TYPE REF TO cl_gui_alv_grid.
DATA: count             TYPE i            ,
        i_rows            TYPE lvc_t_row    .
DATA: lf_row_index      TYPE lvc_index    ,
        i_selected_line_s TYPE lvc_s_row    ,
        l_vbeln           TYPE vbeln        .
*then insert the following code in your USER_COMMAND routine...
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF NOT ref_grid IS INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
CASE ucomm.
    WHEN 'PDF'.
      CALL METHOD ref_grid->get_selected_rows
        IMPORTING
          et_index_rows = i_rows.
      LOOP AT i_rows
         INTO i_selected_line_s.
        lf_row_index = i_selected_line_s-index.
        CLEAR i_selected_line_s.
        READ TABLE it_itab
              INTO wa_itab
             INDEX lf_row_index.
        IF sy-subrc EQ 0.
          refresh:bdcmsgcoll,
                  bdcdata.
          clear:l_vbeln.
          MOVE wa_itab-vbeln TO l_vbeln.
ENDFORM.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program       = sy-repid
            i_callback_pf_status_set = 'Z_PF_TEST'
            i_callback_user_command = 'SUB_USER_COMMAND'
            is_layout                = ls_layout
            it_fieldcat              = lt_fieldcat
           it_sort     = lt_sort
       TABLES
            t_outtab    = it_itab.
Regards,
Raj.

LEFT_CLICK_RUN event of ALV Grid Control

Hello,
What is the use of LEFT_CLICK_RUN event of the CL_GUI_ALV_GRID control. I thought it gets triggered when we click on the ALV Grid. But nothing as such is happening.
I had defined the event and then implemented it. I had even registered the event to the Grid Control. But when I am clicking on the Grid control, this event is not gettin triggered.
My requirement is I need to get a popup when I click on a particular field of a ALV Grid Control.
Priya

Hi Priya,
Please check demo program BCALV_GRID_06, it shows how to create a context menu when you right-click on the list.
Hope this may help you.
Regards,
Lanka

Getting keyboard events on ALV grid

Hi,
I have an ALV Grid where it is possible to edit data. If user selects a row and presses delete/cut button with mouse event is triggered and I can access those events in code. Although if user selects a row and presses "Del" or "Ctrl + X" then I can't access those events in code. Is there a way to access keyboard events inside my code?

Have a look at BCALV_GRID_EDIT -> if you select the first checkbox (p_cell = Update on cell change) then you will find that "data_changed" event can catch the line deletion via the keystrokes described.. in the event in this program, you could get the rows deleted from "rr_data_changed->mt_deleted_rows".
if p_cell = 'X'.
call method grid1->register_edit_event
exporting
i_event_id = cl_gui_alv_grid=>mc_evt_modified.
else.
Jonathan

How can I register an EVENT for ALV-GRID?????

Hi,
i have create Events for my ALV-Grid Table (cl_gui_alv_grid).
But there is one Problem!!!!
Which Event must i create, if users write something in the ALV row and press to key "enter" ???
With kind regards
Ersin

Did you set the handler for one of forementioned events? If no, please suplement your code with the following
"create handler class
CLASS lcl_gui_alv_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
"        Controlling data changes when ALV Grid is editable
          handle_data_changed FOR EVENT data_changed OF cl_gui_alv_grid
                              IMPORTING er_data_changed e_onf4 e_onf4_before e_onf4_after,
"       To be triggered after data changing is finished
          handle_data_changed_finished FOR EVENT data_changed_finished OF cl_gui_alv_grid
                                       IMPORTING e_modified ,
ENDCLASS.
"implement you handler methods
CLASS lcl_gui_alv_event_receiver IMPLEMENTATION.
METHOD handle_data_changed .
    MESSAGE 'Data changed' TYPE 'I'.
ENDMETHOD.
METHOD handle_data_changed_finished .
     MESSAGE 'Data changed finished' TYPE 'I'.
ENDMETHOD .
ENDCLASS.
data: g_alv_event_ref TYPE REF TO lcl_gui_alv_event_receiver.
CREATE OBJECT g_alv_event_ref.
"set handlers for these events
SET HANDLER:
g_alv_event_ref->handle_data_changed FOR g_alv_grid_ref,
g_alv_event_ref->handle_data_changed_finished FOR g_alv_grid_ref,
"register the events after pressing enter
CALL METHOD g_alv_grid_ref->register_edit_event
      EXPORTING
        i_event_id = cl_gui_alv_grid=>mc_evt_enter.
Regards
Marcin

Single click event in alv grid.

Hi Experts,
i have done will my code..everything is working perfectly, but having an issue..pls help me...
in my output screen i have 2 check-boxes,when i select both of them i shuld get a message saying select only one..this is done when am using double click. Is single click possible in alv-grid...
please help me.
thanks.
anusha

Hi Anusha,
Did you Try by using get_selected_rows(Method)?
If the selected rows are 2 display a message such that 'Select only One record'.
data t_roid type lvc_t_roid.
CALL METHOD r_grid->get_selected_rows
IMPORTING
et_row_no = t_roid.
READ TABLE t_roid INDEX 1 TRANSPORTING NO FIELDS."to know how many No.Of records selected
if sy-tfill > 1.
Message 'Please Select only one record' type 'I'.
Exit.
endif.

Edit Cell Events in ALV Grid

Hi All,
I am using the REUSE_ALV_GRID_DISPLAY Function Module to display data in grid and make a column editable using EDIT = 'X' in the fieldcat.Depending on the value in the Column some other column value should change.But the grid values are not getting refreshed.Is there any way to catch the event when the user enters the value in the grid and presses the ENTER button.
I have an idea of how to handle this situation in case of objects but using Function how can I do this?
Thanx in advance.

hi, Samson
At first, I must to say I'm very glad to hear that my suggestion is helpful to you.
About the problem on 'DATA_CHANGED'.
You mentioned that 'through a Function Call in which all the other events like TOP OF PAGE'.
I guess the FM is 'REUSE_ALV_EVENTS_GET', right?
hehe, if so, dono't worry, my friend.
you can do like following:
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = ITAB_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
CLEAR STR_EVENTS.
STR_EVENTS-NAME = SLIS_EV_DATA_CHANGED.
STR_EVENTS-FORM = 'DATA_CHANGED'.
APPEND STR_EVENTS TO ITAB_EVENTS.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = ITAB_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
FORM DATA_CHANGED USING RR_DATA_CHANGED TYPE REF TO CL_ALV_CHANGED_DATA_PROTOCOL.
ENDFORM.
Through you can't find the entry about DATA_CHANGE in 'REUSE_ALV_EVENTS_GET' return, you can add a entry manually by yourself. SAP will care this event.
The FORM will be triggered when the edited cell lost focus.
You can have a try, hope it will be helpful.
thanks

Handling Events in ALV Grid Display

Hi,
 I need ur urgent help on how to trigger and handle the events associated with the class CL_GUI_ALV_GRID_DISPLAY .Events like
 ONF4
 ONF1
 DATA_CHANGED
 USER_COMMAND
 TOOLBAR
 HOTSPOT_CLICK
Please help me in this matter and post some valid codes depicting these events.Ur help will be really appreciated throught points.
Thnkx in advance.

Hi,
Please refer program "BCALV_TEST_GRID_EVENTS"
Best regards,
Prashant
*& Report BCALV_TEST_GRID_EVENTS *
report bcalv_test_grid_events.
types: g_ty_t_carrid type standard table of alv_tab,
 g_ty_t_connid type standard table of alv_chck,
 g_ty_t_curr type standard table of alv_cur,
 g_ty_s_sflight type alv_t_t2,
 g_ty_s_carrid type alv_tab,
 g_ty_s_connid type alv_chck,
 g_ty_s_curr type alv_cur.
constants: con_sflight type lvc_fname value 'ALV_T_T2',
 con_scarr type lvc_fname value 'ALV_TAB',
 con_spfli type lvc_fname value 'ALV_CHCK'.
* DATA *
class lcl_events_d0100 definition deferred.
types: begin of g_ty_s_plane,
 carrid type g_ty_s_sflight-carrid,
 connid type g_ty_s_sflight-connid,
 planetype type g_ty_s_sflight-planetype,
 seatsmax type g_ty_s_sflight-seatsmax,
 end of g_ty_s_plane,
 g_ty_t_plane type sorted table of g_ty_s_plane
 with unique key carrid connid,
 begin of g_ty_s_event,
 user_command type char1,
 before_user_command type char1,
 after_user_command type char1,
 double_click type char1,
 hotspot_click type char1,
 button_click type char1,
 onf1 type char1,
 onf4 type char1,
 menu_button type char1,
 toolbar type char1,
 context_menu_request type char1,
 ondrag type char1,
 ondrop type char1,
 ondropcomplete type char1,
 ondropgetflavor type char1,
 subtotal_text type char1,
 data_changed type char1,
 data_changed_finished type char1,
 after_refresh type char1,
 delayed_callback type char1,
 delayed_changed_sel_callback type char1,
 top_of_page type char1,
 end_of_list type char1,
 print_top_of_page type char1,
 print_end_of_page type char1,
 print_top_of_list type char1,
 print_end_of_list type char1,
 end of g_ty_s_event,
 begin of g_ty_s_onf4,
 register type char1,
 get_before type char1,
 change_after type char1,
 internal_format type char1,
 end of g_ty_s_onf4,
 begin of g_ty_s_test,
 select_amount type i,
 no_info_popup type char1,
 info_popup_once type char1,
 events_info_popup type lvc_fname occurs 0,
 application_events type char1,
 event type g_ty_s_event,
 onf4 type g_ty_s_onf4,
 button_fields type lvc_fname occurs 0,
 hotspot_fields type lvc_fname occurs 0,
 onf1_fields type lvc_fname occurs 0,
 onf4_fields type lvc_fname occurs 0,
 bypassing_buffer type char1,
 buffer_active type char1,
 end of g_ty_s_test,
 begin of g_ty_s_outtab.
include type g_ty_s_sflight.
types: box type char1,
 lights type char1,
 end of g_ty_s_outtab,
 g_ty_t_outtab type table of g_ty_s_outtab.
constants: con_exit type sy-ucomm value 'EXIT',
 con_canc type sy-ucomm value 'CANC',
 con_back type sy-ucomm value 'BACK',
 con_true type char1 value 'X'.
data: g_okcode type sy-ucomm.
data: gs_test type g_ty_s_test.
data: gt_outtab type g_ty_t_outtab with header line,
 gr_container_d0100 type ref to cl_gui_custom_container,
 gr_grid_d0100 type ref to cl_gui_alv_grid,
 gr_events_d0100 type ref to lcl_events_d0100,
 gr_grid_dragdrop type ref to cl_dragdrop.
data: g_static_menu type ref to cl_ctmenu,
 g_static_menu_default type ref to cl_ctmenu.
data: g_field type lvc_s_fcat-fieldname.
* CLASS lcl_dragdrop_obj_d0100 DEFINITION
class lcl_dragdrop_obj_d0100 definition.
public section.
 data: line type g_ty_s_outtab,
 index type i.
endclass. "lcl_dragdrop_obj_d0100 DEFINITION
* CLASS lcl_events_d0100 DEFINITION
class lcl_events_d0100 definition.
public section.
 methods:
 user_command for event user_command
 of cl_gui_alv_grid
 importing e_ucomm sender,
 before_user_command for event before_user_command
 of cl_gui_alv_grid
 importing e_ucomm,
 after_user_command for event after_user_command
 of cl_gui_alv_grid
 importing e_ucomm
 e_not_processed
 e_saved,
 double_click for event double_click
 of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no,
 hotspot_click for event hotspot_click
 of cl_gui_alv_grid
 importing e_row_id
 e_column_id
 es_row_no,
 menu_button for event menu_button
 of cl_gui_alv_grid
 importing e_object
 e_ucomm,
 toolbar for event toolbar
 of cl_gui_alv_grid
 importing e_object
 e_interactive,
 context_menu_request for event context_menu_request
 of cl_gui_alv_grid
 importing e_object,
 top_of_page for event top_of_page
 of cl_gui_alv_grid
 importing e_dyndoc_id,
 end_of_list for event end_of_list
 of cl_gui_alv_grid
 importing e_dyndoc_id,
 print_top_of_page for event print_top_of_page
 of cl_gui_alv_grid,
 print_end_of_page for event print_end_of_page
 of cl_gui_alv_grid,
 print_top_of_list for event print_top_of_list
 of cl_gui_alv_grid,
 print_end_of_list for event print_end_of_list
 of cl_gui_alv_grid,
 after_refresh for event after_refresh
 of cl_gui_alv_grid,
 delayed_callback for event delayed_callback
 of cl_gui_alv_grid,
 delayed_changed_sel_callback
 for event delayed_changed_sel_callback
 of cl_gui_alv_grid,
 subtotal_text for event subtotal_text
 of cl_gui_alv_grid
 importing es_subtottxt_info
 ep_subtot_line
 e_event_data,
 ondrag for event ondrag
 of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no
 e_dragdropobj,
 ondrop for event ondrop
 of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no
 e_dragdropobj,
 ondropcomplete for event ondropcomplete
 of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no
 e_dragdropobj,
 ondropgetflavor for event ondropgetflavor
 of cl_gui_alv_grid
 importing e_row
 e_column
 es_row_no
 e_dragdropobj
 e_flavors,
 data_changed for event data_changed
 of cl_gui_alv_grid
 importing er_data_changed
 e_onf4
 e_onf4_before
 e_onf4_after,
 data_changed_finished
 for event data_changed_finished
 of cl_gui_alv_grid,
 button_click for event button_click
 of cl_gui_alv_grid
 importing es_col_id
 es_row_no,
 onf1 for event onf1
 of cl_gui_alv_grid
 importing e_fieldname
 es_row_no
 er_event_data,
 onf4 for event onf4
 of cl_gui_alv_grid
 importing e_fieldname
 e_fieldvalue
 es_row_no
 er_event_data
 et_bad_cells
 e_display.
endclass. "lcl_events_d0100 DEFINITION
* CLASS lcl_events_d0100 IMPLEMENTATION
class lcl_events_d0100 implementation.
* METHOD user_command *
method user_command.
 perform d0100_event_ucomm using e_ucomm.
endmethod. "user_command
* METHOD before_user_command *
method before_user_command.
 perform d0100_event_before_ucomm using e_ucomm.
endmethod. "before_user_command
* METHOD after_user_command *
method after_user_command.
 perform d0100_event_after_ucomm using e_ucomm
 e_not_processed
 e_saved.
endmethod. "after_user_command
* METHOD double_click *
method double_click.
 perform d0100_event_double_click using e_row
 e_column.
endmethod. "double_click
* METHOD hotspot_click *
method hotspot_click.
* perform d0100_event_hotspot_click using e_row_id
* e_column_id.
 gr_grid_d0100->refresh_table_display( ).
endmethod. "hotspot_click
* METHOD menu_button *
method menu_button.
 perform d0100_event_menu_button using e_object
 e_ucomm.
endmethod. "menu_button
* METHOD toolbar *
method toolbar.
 perform d0100_event_toolbar using e_object
 e_interactive.
endmethod. "toolbar
* METHOD context_menu_request *
method context_menu_request.
 perform d0100_event_context_menu_reqst using e_object.
endmethod. "context_menu_request
* METHOD top_of_page *
method top_of_page.
 perform d0100_event_top_of_page using e_dyndoc_id.
endmethod. "top_of_page
* METHOD end_of_list *
method end_of_list.
 perform d0100_event_end_of_list using e_dyndoc_id.
endmethod. "end_of_list
* METHOD print_top_of_page *
method print_top_of_page.
 perform d0100_event_print_top_of_page.
endmethod. "print_top_of_page
* METHOD print_end_of_page *
method print_end_of_page.
 perform d0100_event_print_end_of_page.
endmethod. "print_end_of_page
* METHOD print_top_of_list *
method print_top_of_list.
 perform d0100_event_print_top_of_list.
endmethod. "print_top_of_list
* METHOD print_end_of_list *
method print_end_of_list.
 perform d0100_event_print_end_of_list.
endmethod. "print_end_of_list
* METHOD after_refresh *
method after_refresh.
 perform d0100_event_after_refresh.
endmethod. "after_refresh
* METHOD delayed_callback *
method delayed_callback.
 perform d0100_event_delayed_callback.
endmethod. "delayed_callback
* METHOD delayed_changed_sel_callback *
method delayed_changed_sel_callback.
 perform d0100_event_changed_sel_callba.
endmethod. "delayed_changed_sel_callback
* METHOD subtotal_text *
method subtotal_text.
 perform d0100_event_subtotal_text using es_subtottxt_info
 ep_subtot_line
 e_event_data.
endmethod. "subtotal_text
* METHOD ondrag *
method ondrag.
 perform d0100_event_ondrag using e_row
 e_column
 e_dragdropobj.
endmethod. "ondrag
* METHOD ondrop *
method ondrop.
 perform d0100_event_ondrop using e_row
 e_column
 e_dragdropobj.
endmethod. "ondrop
* METHOD ondropcomplete *
method ondropcomplete.
 perform d0100_event_ondropcomplete using e_row
 e_column
 e_dragdropobj.
endmethod. "ondropcomplete
* METHOD ondropgetflavor *
method ondropgetflavor.
 perform d0100_event_ondropgetflavor.
endmethod. "ondropgetflavor
* METHOD data_changed *
method data_changed.
 perform d0100_event_data_changed using er_data_changed
 e_onf4
 e_onf4_before
 e_onf4_after.
endmethod. "data_changed
* METHOD data_changed_finished *
method data_changed_finished.
 perform d0100_event_data_changed_finis.
endmethod. "data_changed_finished
* METHOD button_click *
method button_click.
 perform d0100_event_button_click using es_col_id
 es_row_no.
endmethod. "button_click
* METHOD onf1 *
method onf1.
 perform d0100_event_onf1 using e_fieldname
 es_row_no
 er_event_data.
endmethod. "onf1
* METHOD onf4 *
method onf4.
 perform d0100_event_onf4 using e_fieldname
 e_fieldvalue
 es_row_no
 er_event_data
 et_bad_cells
 e_display.
endmethod. "onf4
endclass. "lcl_events_d0100 IMPLEMENTATION
* SELECTION-SCREEN *
selection-screen begin of block gen with frame.
selection-screen begin of line.
parameters:
 p_ext radiobutton group db.
selection-screen comment (29) for field p_ext.
selection-screen comment (29) for field p_d_file.
parameters:
 p_d_file type char255.
selection-screen end of line.
selection-screen begin of line.
parameters:
 p_db radiobutton group db default 'X'.
selection-screen comment (29) for field p_db.
selection-screen comment (29) for field p_amount.
parameters:
 p_amount type i default 30.
selection-screen end of line.
selection-screen end of block gen.
selection-screen begin of block inf with frame.
parameters:
p_inf01 as checkbox default con_true,
p_inf02 as checkbox.
selection-screen end of block inf.
selection-screen begin of block app with frame.
parameters:
p_appevt as checkbox.
selection-screen end of block app.
selection-screen begin of block evt with frame.
parameters:
p_evt01 as checkbox, "USER_COMMAND
p_evt02 as checkbox, "BEFORE_USER_COMMAND
p_evt03 as checkbox. "AFTER_USER_COMMAND
selection-screen skip.
parameters:
p_evt04 as checkbox, "DOUBLE_CLICK
p_evt05 as checkbox. "HOTSPOT_CLICK
select-options:
p_hotspt for g_field no intervals default 'CARRID'.
parameters:
p_evt06 as checkbox. "BUTTON_CLICK
select-options:
p_button for g_field no intervals default 'CARRID'.
selection-screen skip.
parameters:
p_evt07 as checkbox. "ONF1
selection-screen begin of block of4 with frame.
parameters:
p_evt08 as checkbox. "ONF4
select-options:
p_onf4 for g_field no intervals default 'CARRID'.
selection-screen begin of line.
selection-screen comment 5(30) text-c01 for field p_f401.
parameters:
p_f401 as checkbox default con_true. "REGISTER
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 5(30) text-c02 for field p_f402.
parameters:
p_f402 as checkbox. "GET_BEFORE
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 5(30) text-c03 for field p_f403.
parameters:
p_f403 as checkbox. "CHANGE_AFTER
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 5(30) text-c04 for field p_f404.
parameters:
p_f404 as checkbox. "INTERNAL_FORMAT
selection-screen end of line.
selection-screen end of block of4.
selection-screen skip.
parameters:
p_evt09 as checkbox, "MENU_BUTTON
p_evt10 as checkbox, "TOOLBAR
p_evt11 as checkbox. "CONTEXT_MENU_REQUEST
selection-screen skip.
parameters:
p_evt12 as checkbox, "ONDRAG
p_evt13 as checkbox, "ONDROP
p_evt14 as checkbox, "ONDROPCOMPLETE
p_evt15 as checkbox. "ONDROPGETFLAVOR
selection-screen skip.
parameters:
p_evt16 as checkbox. "SUBTOTAL_TEXT
selection-screen skip.
parameters:
p_evt17 as checkbox, "DATA_CHANGED
p_evt18 as checkbox, "DATA_CHANGED_FINISHED
p_evt19 as checkbox. "AFTER_REFRESH
selection-screen skip.
parameters:
p_evt20 as checkbox, "DELAYED_CALLBACK
p_evt21 as checkbox. "DELAYED_CHANGED_SEL_CALLBACK
selection-screen skip.
parameters:
p_evt22 as checkbox, "TOP_OF_PAGE
p_evt23 as checkbox, "END_OF_LIST
p_evt24 as checkbox, "PRINT_TOP_OF_PAGE
p_evt25 as checkbox, "PRINT_END_OF_PAGE
p_evt26 as checkbox, "PRINT_TOP_OF_LIST
p_evt27 as checkbox. "PRINT_END_OF_LIST
selection-screen end of block evt.
* AT SELECTION-SCREEN ON VALUE-REQUEST *
at selection-screen on value-request for p_hotspt-low.
perform d0100_f4_fcode changing p_hotspt-low.
at selection-screen on value-request for p_button-low.
perform d0100_f4_fcode changing p_button-low.
at selection-screen on value-request for p_onf4-low.
perform d0100_f4_fcode changing p_onf4-low.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_d_file.
PERFORM f4_file.
* START-OF-SELECTION *
start-of-selection.
gs_test-select_amount = p_amount.
gs_test-no_info_popup = p_inf01.
gs_test-info_popup_once = p_inf02.
gs_test-application_events = p_appevt.
gs_test-event-user_command = p_evt01.
gs_test-event-before_user_command = p_evt02.
gs_test-event-after_user_command = p_evt03.
gs_test-event-double_click = p_evt04.
gs_test-event-hotspot_click = p_evt05.
gs_test-event-button_click = p_evt06.
gs_test-event-onf1 = p_evt07.
gs_test-event-onf4 = p_evt08.
gs_test-event-menu_button = p_evt09.
gs_test-event-toolbar = p_evt10.
gs_test-event-context_menu_request = p_evt11.
gs_test-event-ondrag = p_evt12.
gs_test-event-ondrop = p_evt13.
gs_test-event-ondropcomplete = p_evt14.
gs_test-event-ondropgetflavor = p_evt15.
gs_test-event-subtotal_text = p_evt16.
gs_test-event-data_changed = p_evt17.
gs_test-event-data_changed_finished = p_evt18.
gs_test-event-after_refresh = p_evt19.
gs_test-event-delayed_callback = p_evt20.
gs_test-event-delayed_changed_sel_callback = p_evt21.
gs_test-event-top_of_page = p_evt22.
gs_test-event-end_of_list = p_evt23.
gs_test-event-print_top_of_page = p_evt24.
gs_test-event-print_end_of_page = p_evt25.
gs_test-event-print_top_of_list = p_evt26.
gs_test-event-print_end_of_list = p_evt27.
gs_test-onf4-register = p_f401.
gs_test-onf4-get_before = p_f402.
gs_test-onf4-change_after = p_f403.
gs_test-onf4-internal_format = p_f404.
if p_evt05 ne space.
 loop at p_hotspt.
 if not p_hotspt-low is initial.
 append p_hotspt-low to gs_test-hotspot_fields.
 endif.
 endloop.
endif.
if p_evt06 ne space.
 loop at p_button.
 if not p_button-low is initial.
 append p_button-low to gs_test-button_fields.
 endif.
 endloop.
endif.
if p_evt08 ne space.
 loop at p_onf4.
 if not p_onf4-low is initial.
 append p_onf4-low to gs_test-onf4_fields.
 endif.
 endloop.
endif.
gs_test-bypassing_buffer = space.
gs_test-buffer_active = space.
* END-OF-SELECTION *
end-of-selection.
call screen 100.
*& Module d0100_set_status OUTPUT
* text
module d0100_set_status output.
perform d0100_set_status.
endmodule. " d0100_set_status OUTPUT
*& Module d0100_prepare_container OUTPUT
* text
module d0100_prepare_container output.
perform d0100_prepare_container.
endmodule. " d0100_prepare_container OUTPUT
*& Module d0100_exit INPUT
* text
module d0100_exit input.
perform d0100_exit.
endmodule. " d0100_exit INPUT
*& Module d0100_fcode INPUT
* text
module d0100_fcode input.
perform d0100_fcode.
endmodule. " d0100_fcode INPUT
*& Form d0100_set_status
* text
form d0100_set_status .
types: begin of l_ty_s_excl,
 func type syucomm,
 end of l_ty_s_excl,
 l_ty_t_excl type standard table of l_ty_s_excl.
data: lt_excl type l_ty_t_excl.
set pf-status 'D0100' excluding lt_excl.
set titlebar 'D0100'.
endform. " d0100_set_status
*& Form d0100_prepare_container
* text
form d0100_prepare_container .
data: lt_fcat type lvc_t_fcat,
 ls_layo type lvc_s_layo,
 ls_vari type disvariant,
 ls_prnt type lvc_s_prnt,
 l_consistency_check type char1.
if gr_container_d0100 is initial.
 if cl_gui_alv_grid=>offline( ) is initial.
 create object gr_container_d0100
 exporting container_name = 'D0100_CONTAINER'.
 endif.
 create object gr_grid_d0100
 exporting i_parent = gr_container_d0100
 i_appl_events = gs_test-application_events.
 DATA: l_filename TYPE string,
 l_struct TYPE string.
 CASE con_true.
 WHEN p_db.
 perform d0100_get_outtab.
 WHEN p_ext.
 l_struct = 'g_ty_t_outtab'.
 l_filename = p_d_file.
 CALL METHOD cl_salv_test_data=>select_data
 EXPORTING
 structname = l_struct
 SOURCE = 2
 filename = l_filename
* AMOUNT = 30
 CHANGING
 data = gt_outtab[].
 ENDCASE.
 perform d0100_set_grid_vari changing ls_vari.
 perform d0100_set_grid_layo changing ls_layo.
 perform d0100_set_grid_fcat changing lt_fcat.
 perform d0100_set_grid_onf4 changing lt_fcat.
 perform d0100_set_grid_buttons changing lt_fcat.
 perform d0100_set_grid_hotspot changing lt_fcat.
 perform d0100_set_grid_dragdrop changing ls_layo.
 perform d0100_set_grid_edit changing ls_layo.
 perform d0100_set_grid_events.
 ls_prnt-grpchgedit = con_true.
 call method gr_grid_d0100->set_table_for_first_display
 exporting
 i_buffer_active = gs_test-buffer_active
 i_bypassing_buffer = gs_test-bypassing_buffer
 i_consistency_check = l_consistency_check
 is_variant = ls_vari
 i_save = 'A'
 i_default = con_true
 is_layout = ls_layo
 is_print = ls_prnt
 changing
 it_outtab = gt_outtab[]
 it_fieldcatalog = lt_fcat.
endif.
endform. " d0100_prepare_container
*& Form d0100_exit
* text
form d0100_exit .
data: l_okcode like sy-ucomm.
l_okcode = g_okcode.
clear g_okcode.
case l_okcode.
 when con_exit or con_back or con_canc.
 call method gr_grid_d0100->free.
 call method gr_container_d0100->free.
 call method cl_gui_cfw=>flush.
 clear gr_container_d0100.
 clear gr_grid_d0100.
 clear gr_events_d0100.
 set screen 0.
 leave screen.
endcase.
endform. " d0100_exit
*& Form d0100_fcode
* text
form d0100_fcode .
data: l_okcode like sy-ucomm.
l_okcode = g_okcode.
clear g_okcode.
call method cl_gui_cfw=>dispatch.
case l_okcode.
 when con_exit or con_back or con_canc.
 g_okcode = l_okcode.
 perform d0100_exit.
 when others.
endcase.
endform. " d0100_fcode
*& Form d0100_set_grid_vari
* text
form d0100_set_grid_vari changing cs_vari type disvariant.
cs_vari-report = sy-repid.
cs_vari-handle = space.
cs_vari-log_group = space.
cs_vari-username = space.
cs_vari-variant = space.
cs_vari-text = space.
cs_vari-dependvars = space.
endform. " d0100_set_grid_vari
*& Form d0100_set_grid_layo
* text
form d0100_set_grid_layo changing cs_layo type lvc_s_layo.
*... ALV-Control: Allgemeine Anzeigeoptionen
cs_layo-stylefname = space.
cs_layo-cwidth_opt = con_true.
cs_layo-zebra = space.
cs_layo-smalltitle = space.
cs_layo-graphics = space.
cs_layo-frontend = space.
cs_layo-template = space.
*... ALV-Control: Gridcustomizing
cs_layo-no_colexpd = space.
cs_layo-no_hgridln = space.
cs_layo-no_vgridln = space.
cs_layo-no_rowmark = space.
cs_layo-no_headers = space.
cs_layo-no_merging = space.
cs_layo-grid_title = space.
cs_layo-no_toolbar = space.
cs_layo-sel_mode = 'D'.
cs_layo-box_fname = space.
cs_layo-sgl_clk_hd = space.
*... ALV-Control: Summenoptionen
cs_layo-totals_bef = space.
cs_layo-no_totline = space.
cs_layo-numc_total = space.
cs_layo-no_utsplit = space.
*... ALV-Control: Exceptions
cs_layo-excp_fname = 'LIGHTS'.
cs_layo-excp_rolln = space.
cs_layo-excp_conds = space.
cs_layo-excp_led = space.
*... ALV-Control: Steuerung Interaktion
cs_layo-detailinit = space.
cs_layo-detailtitl = space.
cs_layo-keyhot = space.
cs_layo-no_keyfix = space.
cs_layo-no_author = space.
clear cs_layo-s_dragdrop.
*... ALV-Control: Farben
cs_layo-info_fname = space.
cs_layo-ctab_fname = space.
*... ALV-Control: Eingabefähigkeit
cs_layo-edit = space.
cs_layo-edit_mode = space.
cs_layo-no_rowins = space.
cs_layo-no_rowmove = space.
*... ALV-Control: Web-Optionen
cs_layo-weblook = space.
cs_layo-webstyle = space.
cs_layo-webrows = space.
cs_layo-webxwidth = space.
cs_layo-webxheight = space.
endform. " d0100_set_grid_layo
*& Form d0100_set_grid_fcat
* text
form d0100_set_grid_fcat changing ct_fcat type lvc_t_fcat.
call function 'LVC_FIELDCATALOG_MERGE'
 exporting
 i_buffer_active = gs_test-buffer_active
 i_structure_name = con_sflight
 i_client_never_display = con_true
 i_bypassing_buffer = gs_test-bypassing_buffer
 changing
 ct_fieldcat = ct_fcat[]
 exceptions
 inconsistent_interface = 1
 program_error = 2
 others = 3.
if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " d0100_set_grid_fcat
*& Form d0100_set_grid_onf4
* text
form d0100_set_grid_onf4 changing ct_fcat type lvc_t_fcat.
field-symbols: <ls_fcat> type lvc_s_fcat.
data: l_field type lvc_fname,
 lt_f4 type lvc_t_f4,
 ls_f4 type lvc_s_f4.
if gs_test-event-onf4 eq con_true.
 loop at gs_test-onf4_fields into l_field.
 read table ct_fcat assigning <ls_fcat>
 with key fieldname = l_field.
 if sy-subrc eq 0.
 <ls_fcat>-f4availabl = con_true.
 endif.
 ls_f4-fieldname = l_field.
 ls_f4-register = gs_test-onf4-register.
 ls_f4-getbefore = gs_test-onf4-get_before.
 ls_f4-chngeafter = gs_test-onf4-change_after.
 ls_f4-internal = gs_test-onf4-internal_format.
 insert ls_f4 into table lt_f4.
 endloop.
endif.
check not lt_f4 is initial.
call method gr_grid_d0100->register_f4_for_fields
 exporting
 it_f4 = lt_f4.
endform. " d0100_set_grid_onf4
*& Form d0100_set_grid_buttons
* text
form d0100_set_grid_buttons changing ct_fcat type lvc_t_fcat.
field-symbols: <ls_fcat> type lvc_s_fcat.
data: l_field type lvc_fname.
loop at gs_test-button_fields into l_field.
*... Spaltenebene
* In Feldkatalog wird Feld STYLE für Spalte auf
* cl_gui_alv_grid=>mc_style_button gesetzt
 read table ct_fcat assigning <ls_fcat>
 with key fieldname = l_field.
 if sy-subrc eq 0.
 <ls_fcat>-style = cl_gui_alv_grid=>mc_style_button.
 endif.
endloop.
endform. " d0100_set_grid_buttons
*& Form d0100_set_grid_hotspot
* text
form d0100_set_grid_hotspot changing ct_fcat type lvc_t_fcat.
field-symbols: <ls_fcat> type lvc_s_fcat.
data: l_field type lvc_fname.
loop at gs_test-hotspot_fields into l_field.
*... Spaltenebene
* In Feldkatalog wird Feld STYLE für Spalte auf
* cl_gui_alv_grid=>mc_style_hotspot gesetzt
 read table ct_fcat assigning <ls_fcat>
 with key fieldname = l_field.
 if sy-subrc eq 0.
 <ls_fcat>-style = cl_gui_alv_grid=>mc_style_hotspot.
 endif.
endloop.
endform. " d0100_set_grid_hotspot
*& Form d0100_set_grid_edit
* text
form d0100_set_grid_edit changing cs_layo type lvc_s_layo.
if gs_test-event-data_changed eq con_true or
 gs_test-event-data_changed_finished eq con_true or
 gs_test-event-after_refresh eq con_true.
 cs_layo-edit = con_true.
 call method gr_grid_d0100->register_edit_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_enter.
endif.
endform. " d0100_set_grid_edit
*& Form d0100_set_grid_dragdrop
* text
form d0100_set_grid_dragdrop changing cs_layo type lvc_s_layo.
data: l_effect type i,
 l_handle_grid type i,
 ls_dragdrop type lvc_s_dd01.
*... setzen für Zeilen
create object gr_grid_dragdrop.
l_effect = cl_dragdrop=>move + cl_dragdrop=>copy.
call method gr_grid_dragdrop->add
 exporting
 flavor = 'Line' "#EC NOTEXT
 dragsrc = 'X'
 droptarget = 'X'
 effect = l_effect.
call method gr_grid_dragdrop->get_handle
 importing
 handle = l_handle_grid.
ls_dragdrop-cntr_ddid = space.
ls_dragdrop-grid_ddid = space.
ls_dragdrop-col_ddid = space.
ls_dragdrop-row_ddid = l_handle_grid.
ls_dragdrop-fieldname = space.
cs_layo-s_dragdrop = ls_dragdrop.
endform. " d0100_set_grid_dragdrop
*& Form d0100_set_grid_events
* text
form d0100_set_grid_events .
create object gr_events_d0100.
if gs_test-event-user_command eq con_true.
 set handler gr_events_d0100->user_command
 for gr_grid_d0100.
endif.
if gs_test-event-before_user_command eq con_true.
 set handler gr_events_d0100->before_user_command
 for gr_grid_d0100.
endif.
if gs_test-event-after_user_command eq con_true.
 set handler gr_events_d0100->after_user_command
 for gr_grid_d0100.
endif.
if gs_test-event-double_click eq con_true.
 set handler gr_events_d0100->double_click
 for gr_grid_d0100.
endif.
if gs_test-event-hotspot_click eq con_true.
 set handler gr_events_d0100->hotspot_click
 for gr_grid_d0100.
endif.
if gs_test-event-button_click eq con_true.
 set handler gr_events_d0100->button_click
 for gr_grid_d0100.
endif.
if gs_test-event-onf1 eq con_true.
 set handler gr_events_d0100->onf1
 for gr_grid_d0100.
endif.
if gs_test-event-onf4 eq con_true.
 set handler gr_events_d0100->onf4
 for gr_grid_d0100.
endif.
if gs_test-event-menu_button eq con_true.
 set handler gr_events_d0100->menu_button
 for gr_grid_d0100.
endif.
if gs_test-event-toolbar eq con_true.
 set handler gr_events_d0100->toolbar
 for gr_grid_d0100.
endif.
if gs_test-event-context_menu_request eq con_true.
 set handler gr_events_d0100->context_menu_request
 for gr_grid_d0100.
endif.
if gs_test-event-ondrag eq con_true.
 set handler gr_events_d0100->ondrag
 for gr_grid_d0100.
endif.
if gs_test-event-ondrop eq con_true.
 set handler gr_events_d0100->ondrop
 for gr_grid_d0100.
endif.
if gs_test-event-ondropcomplete eq con_true.
 set handler gr_events_d0100->ondropcomplete
 for gr_grid_d0100.
endif.
if gs_test-event-ondropgetflavor eq con_true.
 set handler gr_events_d0100->ondropgetflavor
 for gr_grid_d0100.
endif.
if gs_test-event-subtotal_text eq con_true.
 set handler gr_events_d0100->subtotal_text
 for gr_grid_d0100.
endif.
if gs_test-event-data_changed eq con_true.
 set handler gr_events_d0100->data_changed
 for gr_grid_d0100.
endif.
if gs_test-event-data_changed_finished eq con_true.
 set handler gr_events_d0100->data_changed_finished
 for gr_grid_d0100.
endif.
if gs_test-event-after_refresh eq con_true.
 set handler gr_events_d0100->after_refresh
 for gr_grid_d0100.
endif.
if gs_test-event-delayed_callback eq con_true.
 set handler gr_events_d0100->delayed_callback
 for gr_grid_d0100.
 call method gr_grid_d0100->register_delayed_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_delayed_move_curr_cell.
endif.
if gs_test-event-delayed_changed_sel_callback eq con_true.
 set handler gr_events_d0100->delayed_changed_sel_callback
 for gr_grid_d0100.
 call method gr_grid_d0100->register_delayed_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_delayed_change_select.
endif.
if gs_test-event-top_of_page eq con_true.
 set handler gr_events_d0100->top_of_page
 for gr_grid_d0100.
endif.
if gs_test-event-end_of_list eq con_true.
 set handler gr_events_d0100->end_of_list
 for gr_grid_d0100.
endif.
if gs_test-event-print_top_of_page eq con_true.
 set handler gr_events_d0100->print_top_of_page
 for gr_grid_d0100.
endif.
if gs_test-event-print_end_of_page eq con_true.
 set handler gr_events_d0100->print_end_of_page
 for gr_grid_d0100.
endif.
if gs_test-event-print_top_of_list eq con_true.
 set handler gr_events_d0100->print_top_of_list
 for gr_grid_d0100.
endif.
if gs_test-event-print_end_of_list eq con_true.
 set handler gr_events_d0100->print_end_of_list
 for gr_grid_d0100.
endif.
endform. " d0100_set_grid_events
*& Form d0100_get_outtab
* text
form d0100_get_outtab .
field-symbols: <ls_outtab> type g_ty_s_outtab.
data: l_excp_mod type i,
 l_excp_div type i,
 l_excp_amnt type i value 4,
 l_excp type i,
 lt_carrid type g_ty_t_carrid,
 ls_carrid type g_ty_s_carrid,
 l_carrid_amount type i,
 l_carrid_select type i,
 l_carrid_index1 type i,
 lt_connid type g_ty_t_connid,
 ls_connid type g_ty_s_connid,
 l_connid_amount type i, "#EC NEEDED
 l_connid_select type i,
 l_connid_index1 type i,
 l_connid_index2 type i,
 lt_plane type g_ty_t_plane,
 ls_plane type g_ty_s_plane.
if gs_test-select_amount gt 0.
 select * from (con_sflight) into corresponding fields
 of table gt_outtab up to gs_test-select_amount rows.
endif.
gs_test-select_amount = sy-dbcnt.
perform d0100_get_carrid changing lt_carrid.
perform d0100_get_connid changing lt_connid.
perform d0100_get_plane using lt_connid changing lt_plane.
describe table lt_carrid lines l_carri

Event in ALV Grid

Similar Messages

Maybe you are looking for