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

Similar Messages

How to get f4 help in alv grid in container-urgent

hi,
how to get f4 help in alv grid in container using abap objects
ganesh

Hi Ganesh,
Did you have a look at sample report BCALV_TEST_GRID_F4_HELP ?
Here is part of the header documentation:
*& Report BCALV_GRID_F4_HELP *
Purpose:
~~~~~~~~
This report illustrates the use of f4-Help in an alv grid control.
Background:
~~~~~~~~~~~
There a two possibilities to implement an f4-Help in the alv grid
control: one can either use standard f4-help or write one by Hand.
For the former there is nothing to do at all. This report shows how
to implement user-defined f4-help.
I am sure you will find within this report the solution you are looking for.
Reward points if this Helps.
Manish

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.

Getting data out of ALV Grid

Hi,
i have an editable instance of cl_gui_alv_grid. Is there an easy way of getting out the data or do i really need to implement an event handler catching handle_data_changed? I'm not interested in the event itself, and cause the column is a kind of free text i dont need to check the data, so it is sufficient to get the data out when the user is clicking the ok button.

hi
refer this sample code... for non oops concept
TABLES: ekko.
TYPE-POOLS: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
field_style TYPE lvc_t_styl, "FOR DISABLE
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: it_fieldcat TYPE lvc_t_fcat, "slis_t_fieldcat_alv WITH HEADER LINE,
 wa_fieldcat TYPE lvc_s_fcat,
 gd_tab_group TYPE slis_t_sp_group_alv,
 gd_layout TYPE lvc_s_layo, "slis_layout_alv,
 gd_repid LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM set_specific_field_attributes.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*& Form BUILD_FIELDCATALOG
 Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-scrtext_m = 'Purchase Order'.
wa_fieldcat-col_pos = 0.
wa_fieldcat-outputlen = 10.
wa_fieldcat-emphasize = 'X'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'EBELP'.
wa_fieldcat-scrtext_m = 'PO Item'.
wa_fieldcat-col_pos = 1.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'STATU'.
wa_fieldcat-scrtext_m = 'Status'.
wa_fieldcat-col_pos = 2.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AEDAT'.
wa_fieldcat-scrtext_m = 'Item change date'.
wa_fieldcat-col_pos = 3.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-scrtext_m = 'Material Number'.
wa_fieldcat-col_pos = 4.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MENGE'.
wa_fieldcat-scrtext_m = 'PO quantity'.
wa_fieldcat-col_pos = 5.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MEINS'.
wa_fieldcat-scrtext_m = 'Order Unit'.
wa_fieldcat-col_pos = 6.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NETPR'.
wa_fieldcat-scrtext_m = 'Net Price'.
wa_fieldcat-edit = 'X'. "sets whole column to be editable
wa_fieldcat-col_pos = 7.
wa_fieldcat-outputlen = 15.
wa_fieldcat-datatype = 'CURR'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'PEINH'.
wa_fieldcat-scrtext_m = 'Price Unit'.
wa_fieldcat-col_pos = 8.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
 Build layout for ALV grid report
FORM build_layout.
Set layout field for field attributes(i.e. input/output)
gd_layout-stylefname = 'FIELD_STYLE'.
gd_layout-zebra = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
 Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
 EXPORTING
 i_callback_program = gd_repid
 i_callback_user_command = 'USER_COMMAND'
 is_layout_lvc = gd_layout
 it_fieldcat_lvc = it_fieldcat
 i_save = 'X'
 TABLES
 t_outtab = it_ekko
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
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. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
 Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
 UP TO 10 ROWS
 FROM ekpo
 INTO CORRESPONDING FIELDS OF TABLE it_ekko.
ENDFORM. " DATA_RETRIEVAL
*& Form set_specific_field_attributes
 populate FIELD_STYLE table with specific field attributes
form set_specific_field_attributes .
DATA ls_stylerow TYPE lvc_s_styl .
DATA lt_styletab TYPE lvc_t_styl .
Populate style variable (FIELD_STYLE) with style properties
The NETPR field/column has been set to editable in the fieldcatalog...
The following code sets it to be disabled(display only) if 'NETPR'
is gt than 10.
LOOP AT it_ekko INTO wa_ekko.
 IF wa_ekko-netpr GT 10.
 ls_stylerow-fieldname = 'NETPR' .
 ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
 "set field to disabled
 APPEND ls_stylerow TO wa_ekko-field_style.
 MODIFY it_ekko FROM wa_ekko.
 ENDIF.
ENDLOOP.
endform. " set_specific_field_attributes

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

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 data back from ALV grid

This looks like a topic discussed before but i still need some clearifications. I display an internal table in ALV grid, in editable format. user changes the data and presses A BUTTON. On doing that I need to re-capture the changes made in a internal table.
I have used method "check_changed_data' but it doesnt seem to work. It keeps appending data in the internal table if the user changes it multiple times. please suggest me some ideas on how to go about it.
Thanks.
shiv

Hi then i will give another code with OO that fits your requirement check...
REPORT ZTEST NO STANDARD PAGE HEADING
 LINE-SIZE 200
 LINE-COUNT 58
 MESSAGE-ID ZZ.
* Include for Data Declarations
INCLUDE ZSDR0057_DEL_HOLD_TOP.
INCLUDE <ICON>.
**Tables to Compare Before after the Data Change
DATA: IT_VEKP_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_VEKP1 LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_VEKP1_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE,
 IT_FINAL_TMP LIKE IT_FINAL OCCURS 0 WITH HEADER LINE,
 IT_OCRC TYPE TABLE OF ZSD_OC_HOLD.
DATA: L_VALID TYPE C,
 L_VALID1 TYPE C,
 V_FLAG,
 V_DATA_CHANGE.
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
* CLASS lcl_event_handler DEFINITION
CLASS LCL_EVENT_HANDLER DEFINITION .
PUBLIC SECTION .
 METHODS:
**Hot spot Handler
 HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,
**User Command Handler
 HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
 IMPORTING E_UCOMM,
**Double Click Handler
 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN,
**Handler to Check the Data Change
 HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED
 OF CL_GUI_ALV_GRID
 IMPORTING ER_DATA_CHANGED
 E_ONF4
 E_ONF4_BEFORE
 E_ONF4_AFTER,
 HANDLE_TOOLBAR
 FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
 IMPORTING E_OBJECT E_INTERACTIVE.
ENDCLASS. "lcl_event_handler DEFINITION
* CLASS lcl_event_handler DEFINITION for second screen
CLASS LCL_EVENT_HANDLER1 DEFINITION .
PUBLIC SECTION .
 METHODS:
**User Command Handler
 HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
 IMPORTING E_UCOMM,
 HANDLE_TOOLBAR
 FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
 IMPORTING E_OBJECT E_INTERACTIVE.
ENDCLASS. "lcl_event_handler1 DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 PERFORM HANDLE_HOTSPOT_CLICK USING E_ROW_ID E_COLUMN_ID ES_ROW_NO .
ENDMETHOD. "lcl_event_handler
*Handle User Command
METHOD HANDLE_USER_COMMAND.
 PERFORM EVENT_UCOMM USING E_UCOMM.
ENDMETHOD. "user_command
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
 DATA X_FINAL TYPE T_FINAL.
 IF V_DATA_CHANGE IS INITIAL.
 IF E_COLUMN = 'ZZPROMDT' OR E_COLUMN = 'ZZOCHOLDRC'.
 READ TABLE IT_FINAL INDEX E_ROW INTO X_FINAL
 TRANSPORTING
 VBELN
 VGBEL
 VGPOS
 ZZPROMDT
 ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 PERFORM GET_HU_DATA USING X_FINAL.
 PERFORM POPULATE_FIELDCAT2.
 ENDIF.
 CALL SCREEN 200.
 ENDIF.
 ELSE.
 MESSAGE I002 WITH 'Please save the data first and then double click'.
 ENDIF.
ENDMETHOD. "handle_double_click
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
 DATA: X_CHANGE TYPE LVC_S_MODI,
 X_FINAL TYPE T_FINAL,
 X_OCRC TYPE ZSD_OC_HOLD,
 L_FLAG.
 LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
 IF X_CHANGE-FIELDNAME = 'ZZOCHOLDRC'.
 READ TABLE IT_FINAL INTO X_FINAL INDEX X_CHANGE-ROW_ID.
 IF SY-SUBRC = 0.
 READ TABLE IT_OCRC INTO X_OCRC WITH KEY
 ZZOCHOLDRC = X_CHANGE-VALUE
 TRANSPORTING ZZRCDESC.
 IF SY-SUBRC = 0.
 X_FINAL-ZZRCDESC = X_OCRC-ZZRCDESC.
 MODIFY IT_FINAL FROM X_FINAL INDEX X_CHANGE-ROW_ID
 TRANSPORTING ZZRCDESC.
 L_FLAG = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
 IF X_CHANGE-FIELDNAME = 'ZZPROMDT'.
 READ TABLE IT_FINAL INTO X_FINAL INDEX X_CHANGE-ROW_ID.
 IF SY-SUBRC = 0.
 X_FINAL-ZZPROMDT = X_CHANGE-VALUE.
 MODIFY IT_FINAL FROM X_FINAL INDEX X_CHANGE-ROW_ID
 TRANSPORTING ZZPROMDT.
 L_FLAG = 'X'.
 ENDIF.
 ENDIF.
 ENDLOOP.
 IF L_FLAG = 'X'.
 CLEAR V_DATA_CHANGE.
 V_DATA_CHANGE = 'X'.
 ENDIF.
ENDMETHOD. "data_changed
METHOD HANDLE_TOOLBAR.
 DATA: LS_TOOLBAR TYPE STB_BUTTON.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append SAVE icon
 CLEAR LS_TOOLBAR.
 MOVE 'SAVE' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_SAVE TO LS_TOOLBAR-ICON.
 MOVE 'Save' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Save ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append BACK icon
 CLEAR LS_TOOLBAR.
 MOVE 'BACK' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_BACK TO LS_TOOLBAR-ICON.
 MOVE 'Back' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Back ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
ENDMETHOD. "handle_toolbar
ENDCLASS. "lcl_event_handler IMPLEMENTATION
* CLASS lcl_event_handler1 IMPLEMENTATION
CLASS LCL_EVENT_HANDLER1 IMPLEMENTATION.
*Handle User Command
METHOD HANDLE_USER_COMMAND.
 PERFORM EVENT_UCOMM1 USING E_UCOMM.
ENDMETHOD. "user_command
METHOD HANDLE_TOOLBAR.
 DATA: LS_TOOLBAR TYPE STB_BUTTON.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append SAVE icon
 CLEAR LS_TOOLBAR.
 MOVE 'SAVE' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_SAVE TO LS_TOOLBAR-ICON.
 MOVE 'Save' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Save ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
* append a separator to normal toolbar
 CLEAR LS_TOOLBAR.
 MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
* append an Back icon
 CLEAR LS_TOOLBAR.
 MOVE 'BACK' TO LS_TOOLBAR-FUNCTION.
 MOVE ICON_SYSTEM_BACK TO LS_TOOLBAR-ICON.
 MOVE 'Back' TO LS_TOOLBAR-QUICKINFO.
 MOVE ' Back ' TO LS_TOOLBAR-TEXT.
 MOVE ' ' TO LS_TOOLBAR-DISABLED.
 APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
 CLEAR LS_TOOLBAR.
ENDMETHOD. "handle_toolbar
ENDCLASS. "lcl_event_handler1 IMPLEMENTATION
*& Global Definitions
DATA: "G_GRID TYPE REF TO CL_GUI_ALV_GRID, "Grid for first report
 G_GRID1 TYPE REF TO CL_GUI_ALV_GRID, "grid for second report
 G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
 G_CUSTOM_CONTAINER1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"container
 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER, "handler
 G_HANDLER1 TYPE REF TO LCL_EVENT_HANDLER1. "handler
DATA: OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM,
 G_CONTAINER1 TYPE SCRFNAME VALUE 'ZSDR0057_DEL_HOLD_CONT1',
 G_CONTAINER2 TYPE SCRFNAME VALUE 'ZSDR0057_DEL_HOLD_CONT2',
 GS_LAYOUT TYPE LVC_S_LAYO,
 GS_LAYOUT1 TYPE LVC_S_LAYO.
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 X_FIELDCAT TYPE LVC_S_FCAT,
 IT_FIELDCAT1 TYPE LVC_T_FCAT,
 X_FIELDCAT1 TYPE LVC_S_FCAT,
 LS_VARI TYPE DISVARIANT.
* Selection screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR V_LIKP-VBELN, "Delivery
 S_VSTEL FOR V_LIKP-VSTEL, "Shipping Point
 S_WERKS FOR V_LIPS-WERKS, "Plant
 S_WADAT FOR V_VBEP-WADAT, "Pgi Date
 S_TRSPG FOR V_LIKP-TRSPG OBLIGATORY,"Shp bolck Reason
 S_OCHRC FOR V_VEKP-ZZOCHOLDRC MATCHCODE OBJECT
 ZZOCHOLDRC, "OC Reason Code
 S_USERID FOR V_VBAK-ZZREP_USERID1."Rep User ID
SELECTION-SCREEN END OF BLOCK B1.
* START-OF_SELECTION
START-OF-SELECTION.
CLEAR IT_LIKP.
REFRESH IT_LIKP.
SELECT VBELN
 VSTEL
 LFDAT
 KUNNR
 FROM LIKP
 INTO TABLE IT_LIKP
 WHERE VBELN IN S_VBELN
 AND VSTEL IN S_VSTEL
 AND WADAT IN S_WADAT
 AND WADAT_IST = '00000000'
 AND TRSPG IN S_TRSPG.
IF SY-SUBRC <> 0.
 CLEAR V_FLAG.
 V_FLAG = 'X'.
ENDIF.
IF V_FLAG = ' '.
**Populating the Delivery Item Data
 PERFORM GET_DEL_ITEM_DATA.
**Getting the PGI DATE & USERID
 PERFORM GET_USERID.
**Getting the Promise DATE & OC HOLD RC
 PERFORM GET_VEKP_DATA.
**get the Reason codes
 PERFORM SELECT_OCHOLDRC.
 IF NOT IT_LIPS[] IS INITIAL
 AND NOT IT_VBAK[] IS INITIAL
 AND NOT IT_VEKP_TMP[] IS INITIAL.
** Populating the Final Internaltable
 PERFORM POPULATE_FINAL_TABLE.
 ENDIF.
ENDIF.
* END-OF-SELECTION.
END-OF-SELECTION.
IF NOT IT_FINAL[] IS INITIAL.
 CALL SCREEN 100. "Calling the First Screen
ELSE.
 MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
* MODULE PBO OUTPUT *
MODULE PBO OUTPUT.
DATA: LS_EDIT TYPE LVC_S_STYL, "to find the edit in output
 LT_EDIT TYPE LVC_T_STYL, "to find the edit in output
 V_INDEX LIKE SY-TABIX,
 LS_OUTTAB TYPE T_FINAL.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER IS INITIAL.
**Initializing the grid and calling the fm to Display the O/P
 PERFORM CREATE_AND_INIT_ALV.
ENDIF.
ENDMODULE. "PBO OUTPUT
* MODULE PAI INPUT *
MODULE PAI INPUT.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CANC'.
 LEAVE TO SCREEN 0.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDMODULE. "pai INPUT
*& Form GET_DEL_ITEM_DATA
* Populating the Delivery Item Data
FORM GET_DEL_ITEM_DATA .
IF NOT IT_LIKP[] IS INITIAL.
**-Getting the name of Ship-to-party
 SELECT KUNNR
 NAME1
 INTO TABLE IT_KNA1
 FROM KNA1
 FOR ALL ENTRIES IN IT_LIKP[]
 WHERE KUNNR = IT_LIKP-KUNNR.
**-Getting Delivery Item Data
 SELECT VBELN
 POSNR
 MATNR
 WERKS
 ARKTX
 VGBEL
 VGPOS
 ZZCONPATH
 INTO TABLE IT_LIPS
 FROM LIPS
 FOR ALL ENTRIES IN IT_LIKP[]
 WHERE VBELN = IT_LIKP-VBELN
 AND WERKS IN S_WERKS.
ENDIF.
ENDFORM. " GET_DEL_ITEM_DATA
*& Form get_userid
* Getting the USERID
FORM GET_USERID .
IF NOT IT_LIPS[] IS INITIAL.
**-Getting the USERID
 SELECT VBELN
 ZZREP_USERID1
 INTO TABLE IT_VBAK
 FROM VBAK
 FOR ALL ENTRIES IN IT_LIPS[]
 WHERE VBELN = IT_LIPS-VGBEL
 AND ZZREP_USERID1 IN S_USERID.
ENDIF.
ENDFORM. " get_userid
*& Form populate_final_table
* Populating the Final Internaltable
FORM POPULATE_FINAL_TABLE .
DATA: L_TABIX LIKE SY-TABIX.
CLEAR IT_FINAL.
REFRESH IT_FINAL.
SORT IT_VEKP_TMP BY ZZPROMDT ZZSONUM ZZOCHOLDRC.
DATA IT_TMP LIKE IT_VEKP OCCURS 0 WITH HEADER LINE.
DATA IT_VEKP_TMP1 LIKE IT_VEKP OCCURS 0 WITH HEADER LINE.
CLEAR IT_VEKP_TMP1[].
IT_VEKP_TMP1[] = IT_VEKP_TMP[].
LOOP AT IT_VEKP_TMP.
 MOVE IT_VEKP_TMP TO IT_TMP.
 CLEAR IT_TMP-EXIDV.
 COLLECT IT_TMP.
ENDLOOP.
CLEAR IT_VEKP_TMP[].
IT_VEKP_TMP[] = IT_TMP[] .
LOOP AT IT_VEKP_TMP.
 L_TABIX = SY-TABIX.
 READ TABLE IT_VEKP_TMP1 WITH KEY INHALT = IT_VEKP_TMP-INHALT
 ZZSONUM = IT_VEKP_TMP-ZZSONUM
 ZZPROMDT = IT_VEKP_TMP-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP_TMP-ZZOCHOLDRC
 VEMNG = IT_VEKP_TMP-VEMNG.
 IF SY-SUBRC = 0.
 IT_VEKP_TMP-EXIDV = IT_VEKP_TMP1-EXIDV.
 MODIFY IT_VEKP_TMP INDEX L_TABIX.
 ENDIF.
ENDLOOP.
LOOP AT IT_LIPS.
 MOVE-CORRESPONDING IT_LIPS TO IT_FINAL.
 READ TABLE IT_LIKP WITH KEY VBELN = IT_LIPS-VBELN.
 IF SY-SUBRC = 0.
 IT_FINAL-VSTEL = IT_LIKP-VSTEL.
 IT_FINAL-LFDAT = IT_LIKP-LFDAT.
 ENDIF.
 READ TABLE IT_KNA1 WITH KEY KUNNR = IT_LIKP-KUNNR.
 IF SY-SUBRC = 0.
 IT_FINAL-NAME1 = IT_KNA1-NAME1.
 ENDIF.
 READ TABLE IT_VBAK WITH KEY VBELN = IT_LIPS-VGBEL.
 IF SY-SUBRC = 0.
 IT_FINAL-ZZREP_USERID1 = IT_VBAK-ZZREP_USERID1.
 ENDIF.
 READ TABLE IT_SONUM WITH KEY VGBEL = IT_LIPS-VGBEL
 VGPOS = IT_LIPS-VGPOS.
 IF SY-SUBRC = 0.
 LOOP AT IT_VEKP_TMP WHERE ZZSONUM = IT_SONUM-ZZSONUM
 AND INHALT = IT_LIPS-VBELN.
 IF NOT IT_VEKP_TMP-ZZPROMDT+0(4) = '0000'.
 IT_FINAL-ZZPROMDT = IT_VEKP_TMP-ZZPROMDT.
 ELSE.
 IT_FINAL-ZZPROMDT = '00000000'.
 ENDIF.
 IT_FINAL-ZZOCHOLDRC = IT_VEKP_TMP-ZZOCHOLDRC.
 IT_FINAL-VEMNG = IT_VEKP_TMP-VEMNG.
 IT_FINAL-ZZSONUM = IT_VEKP_TMP-ZZSONUM.
 IT_FINAL-EXIDV = IT_VEKP_TMP-EXIDV.
 APPEND IT_FINAL.
 ENDLOOP.
 IF SY-SUBRC <> 0.
 IT_FINAL-ZZPROMDT = '00000000'.
 IT_FINAL-ZZOCHOLDRC = ' '.
 IT_FINAL-VEMNG = ' '.
 IT_FINAL-FLAG = 'X'.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ENDIF.
 ENDIF.
ENDLOOP.
DELETE IT_FINAL WHERE ZZOCHOLDRC NOT IN S_OCHRC[].
DELETE IT_FINAL WHERE ZZREP_USERID1 NOT IN S_USERID[].
DELETE IT_FINAL WHERE WERKS NOT IN S_WERKS[].
IF NOT IT_ZSDOCHOLD[] IS INITIAL.
 LOOP AT IT_FINAL.
 READ TABLE IT_ZSDOCHOLD WITH KEY ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 IT_FINAL-ZZRCDESC = IT_ZSDOCHOLD-ZZRCDESC.
 MODIFY IT_FINAL.
 ENDIF.
 ENDLOOP.
ENDIF.
IT_FINAL_TMP[] = IT_FINAL[].
CLEAR IT_FINAL.
ENDFORM. " populate_final_table
*& Form get_vekp_data
* Populating Promise Date and Order Control Hold Reason Code
FORM GET_VEKP_DATA .
CLEAR: IT_SONUM,IT_VEKP,IT_VEKP_TMP.
REFRESH: IT_SONUM,IT_VEKP,IT_VEKP_TMP.
LOOP AT IT_LIPS.
 MOVE-CORRESPONDING IT_LIPS TO IT_SONUM.
 CONCATENATE IT_LIPS-VGBEL IT_LIPS-VGPOS INTO IT_SONUM-ZZSONUM.
 APPEND IT_SONUM.
 CLEAR IT_SONUM.
ENDLOOP.
IF NOT IT_SONUM[] IS INITIAL.
 SELECT EXIDV
 INHALT
 ZZSONUM
 ZZPROMDT
 ZZOCHOLDRC
 INTO TABLE IT_VEKP
 FROM VEKP
 FOR ALL ENTRIES IN IT_SONUM[]
 WHERE ZZSONUM = IT_SONUM-ZZSONUM
 AND ZZOCHOLDRC IN S_OCHRC.
 SELECT EXIDV INHALT VEMNG
 ZZSONUM
 INTO TABLE IT_QUANT
 FROM ZVEKPO
 FOR ALL ENTRIES IN IT_SONUM[]
 WHERE ZZSONUM = IT_SONUM-ZZSONUM.
 IF SY-SUBRC = 0.
 LOOP AT IT_VEKP.
 READ TABLE IT_QUANT WITH KEY EXIDV = IT_VEKP-EXIDV
 INHALT = IT_VEKP-INHALT
 ZZSONUM = IT_VEKP-ZZSONUM.
 IF SY-SUBRC = 0.
 IT_VEKP-VEMNG = IT_QUANT-VEMNG.
 MODIFY IT_VEKP.
 ENDIF.
 ENDLOOP.
 IT_VEKP_TMP[] = IT_VEKP[].
 SELECT ZZOCHOLDRC
 ZZRCDESC
 INTO TABLE IT_ZSDOCHOLD
 FROM ZSD_OC_HOLD
 FOR ALL ENTRIES IN IT_VEKP[]
 WHERE ZZOCHOLDRC = IT_VEKP-ZZOCHOLDRC.
 ENDIF.
ENDIF.
ENDFORM. " get_vekp_data
*& Form SELECT_OCHOLDRC
* Selecting the Reason Codes and Descriptions
FORM SELECT_OCHOLDRC .
SELECT *
 FROM ZSD_OC_HOLD
 INTO TABLE IT_OCRC.
ENDFORM. " select_OCHOLDRC
*& Form CREATE_AND_INIT_ALV
* Creating the ALV grid and initializing
FORM CREATE_AND_INIT_ALV .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER
 EXPORTING CONTAINER_NAME = G_CONTAINER1.
CREATE OBJECT G_GRID
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER.
* Set a titlebar for the grid control
GS_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
GS_LAYOUT-GRID_TITLE = TEXT-003.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-ZEBRA = SPACE."'X'.
GS_LAYOUT-INFO_FNAME = SPACE.
GS_LAYOUT-CTAB_FNAME = SPACE.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
CREATE OBJECT G_HANDLER.
SET HANDLER G_HANDLER->HANDLE_USER_COMMAND FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_DATA_CHANGED FOR G_GRID.
SET HANDLER G_HANDLER->HANDLE_TOOLBAR FOR G_GRID.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID.
* Build fieldcat and set editable for date and reason code
* edit enabled. Assign a handle for the dropdown listbox.
PERFORM BUILD_FIELDCAT.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
PERFORM DISABLE_EDIT_FIELDS.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
* Define a drop down table.
PERFORM SET_DRDN_TABLE.
**Calling the Method for ALV output
CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 IS_LAYOUT = GS_LAYOUT
 I_SAVE = 'A'
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = IT_FINAL[].
* Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
CALL METHOD G_GRID->SET_TOOLBAR_INTERACTIVE.
ENDFORM. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
* Excluding the ALV functions
FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.
* Only allow to change data not to create new entries (exclude
* generic functions).
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO PT_EXCLUDE.
ENDFORM. " EXCLUDE_TB_FUNCTIONS
*& Form build_fieldcat
* Fieldcatalog
FORM BUILD_FIELDCAT .
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Shpt'(012).
X_FIELDCAT-FIELDNAME = 'VSTEL'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '4'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Con Path'(013).
X_FIELDCAT-FIELDNAME = 'ZZCONPATH'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '8'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Plant'(014).
X_FIELDCAT-FIELDNAME = 'WERKS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Del Date'(015).
X_FIELDCAT-FIELDNAME = 'LFDAT'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-COLTEXT = 'Prom Date'(016).
* X_FIELDCAT-SCRTEXT_M = 'Prom Date'(016).
X_FIELDCAT-FIELDNAME = 'ZZPROMDT'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-EDIT = 'X'.
* X_FIELDCAT-HOTSPOT = 'X'.
X_FIELDCAT-DATATYPE = 'DATS'.
X_FIELDCAT-INTTYPE = 'D'.
X_FIELDCAT-REF_TABLE = 'VEKP'.
X_FIELDCAT-REF_FIELD = 'ZZPROMDT'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Ship-To-Name'(017).
X_FIELDCAT-FIELDNAME = 'NAME1'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '40'.
X_FIELDCAT-EMPHASIZE = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'SalesOrder#'(018).
X_FIELDCAT-FIELDNAME = 'VGBEL'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(019).
X_FIELDCAT-FIELDNAME = 'VGPOS'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Material'(020).
X_FIELDCAT-FIELDNAME = 'MATNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '18'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Materal Desc'(021).
X_FIELDCAT-FIELDNAME = 'ARKTX'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '40'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'D.O.Item Qty'(022).
X_FIELDCAT-FIELDNAME = 'VEMNG'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '13'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'RC'(023).
X_FIELDCAT-FIELDNAME = 'ZZOCHOLDRC'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '3'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
* X_FIELDCAT-DRDN_FIELD = 'DROP_DOWN_HANDLE'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
* X_FIELDCAT-SCRTEXT_M = 'OC HOLD RC Desc'.
* X_FIELDCAT-FIELDNAME = 'ZZRCDESC'.
* X_FIELDCAT-TABNAME = 'IT_FINAL'.
* X_FIELDCAT-COL_POS = L_POS.
* X_FIELDCAT-OUTPUTLEN = '20'.
* X_FIELDCAT-EDIT = 'X'.
* X_FIELDCAT-HOTSPOT = ' '.
* APPEND X_FIELDCAT TO IT_FIELDCAT.
* CLEAR X_FIELDCAT.
* L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Item'(025).
X_FIELDCAT-FIELDNAME = 'POSNR'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EMPHASIZE = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Rep User Id'(026).
X_FIELDCAT-FIELDNAME = 'ZZREP_USERID1'.
X_FIELDCAT-TABNAME = 'IT_FINAL'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '11'.
X_FIELDCAT-EMPHASIZE = ' '.
X_FIELDCAT-HOTSPOT = ' '.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM. " build_fieldcat
*& Form set_drdn_table
* Setting the Drop down for the Reason code
FORM SET_DRDN_TABLE.
DATA: X_OCRC LIKE LINE OF IT_OCRC.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL,
 L_DRDN(25) TYPE C.
LOOP AT IT_OCRC INTO X_OCRC.
CONCATENATE X_OCRC-ZZOCHOLDRC ' ' ' ' ' ' X_OCRC-ZZRCDESC INTO L_DRDN
SEPARATED BY SPACE.
* First listbox (handle '1').
 LS_DRAL-HANDLE = '1'.
 LS_DRAL-VALUE = L_DRDN.
 LS_DRAL-INT_VALUE = X_OCRC-ZZOCHOLDRC.
 APPEND LS_DRAL TO LT_DRAL.
ENDLOOP.
**Setting the Drop down table for Reason Code
CALL METHOD G_GRID->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
*& Form handle_hotspot_click
* Handling the Hotspot
FORM HANDLE_HOTSPOT_CLICK USING I_ROW_ID TYPE LVC_S_ROW
 I_COLUMN_ID TYPE LVC_S_COL
 IS_ROW_NO TYPE LVC_S_ROID.
READ TABLE IT_FINAL INDEX I_ROW_ID .
IF SY-SUBRC = 0.
 IF I_COLUMN_ID-FIELDNAME = 'VGBEL'.
 PERFORM FORM_REFRESH.
 SET PARAMETER ID 'AUN' FIELD IT_FINAL-VGBEL.
 CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
 ENDIF.
**if user clicks on Delivery
 IF I_COLUMN_ID-FIELDNAME = 'VBELN'.
 PERFORM FORM_REFRESH.
 SET PARAMETER ID 'VL' FIELD IT_FINAL-VBELN.
 CALL TRANSACTION 'VL02N' AND SKIP FIRST SCREEN.
 ENDIF.
ENDIF.
ENDFORM . "handle_hotspot_click
*& Form FORM_REFRESH for first list
FORM FORM_REFRESH .
CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY
 EXCEPTIONS
 FINISHED = 1
 OTHERS = 2.
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 . "FORM_REFRESH
*& Form event_ucomm
* Handling User Commands
FORM EVENT_UCOMM USING E_UCOMM TYPE SY-UCOMM.
SORT IT_FINAL.
SORT IT_FINAL_TMP.
CASE E_UCOMM.
 WHEN 'BACK'.
 CALL METHOD G_GRID->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM BACK_OPERATION.
 WHEN 'SAVE'.
 CALL METHOD G_GRID->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM SAVE_OPERATION.
ENDCASE.
ENDFORM. " event_ucomm
*& Form back_operation
* When User do Back operation
FORM BACK_OPERATION .
**When User Press back Button
* WHEN 'BACK'.
DATA: L_ANS TYPE C,
 L_TABIX TYPE SY-TABIX,
 L_SONUM TYPE VEKP-ZZSONUM,
 X_OCRC LIKE LINE OF IT_OCRC.
**Checking for the Data Change
IF IT_FINAL_TMP[] <> IT_FINAL[].
 PERFORM CONFIRM_BEFORE_LEAVE CHANGING L_ANS.
 IF L_ANS = '1' .
 LOOP AT IT_FINAL.
 L_TABIX = SY-TABIX.
 READ TABLE IT_FINAL_TMP INDEX L_TABIX.
 IF SY-SUBRC = 0.
 IF IT_FINAL <> IT_FINAL_TMP.
*-Validate Date Field.
 PERFORM VALIDATE_AND_CONVERT_DATE.
**Modifying the VEKP table based on changes
 IF NOT IT_FINAL_TMP-EXIDV IS INITIAL.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE EXIDV = IT_FINAL_TMP-EXIDV
 AND INHALT = IT_FINAL-VBELN.
 IF SY-SUBRC = 0.
 COMMIT WORK AND WAIT.
 ENDIF.
 ELSE.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE INHALT = IT_FINAL-VBELN
 AND ZZSONUM = IT_FINAL_TMP-ZZSONUM
 AND ZZPROMDT = IT_FINAL_TMP-ZZPROMDT
 AND ZZOCHOLDRC = IT_FINAL_TMP-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 COMMIT WORK AND WAIT.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 LEAVE TO SCREEN 0.
 ELSEIF L_ANS = '2'.
 LEAVE TO SCREEN 0.
 ENDIF.
ELSE.
 LEAVE TO SCREEN 0.
ENDIF.
ENDFORM. " back_operation
*& Form CONFIRM_BEFORE_LEAVE
* Popup for Confirm
FORM CONFIRM_BEFORE_LEAVE CHANGING P_ANS TYPE C.
CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 TITLEBAR = 'Confirm'(007)
 TEXT_QUESTION = 'Do you wish to save your data first?'(006)
 TEXT_BUTTON_1 = 'Yes'(008)
 ICON_BUTTON_1 = 'ICON_OKAY'
 TEXT_BUTTON_2 = 'No'(010)
 ICON_BUTTON_2 = 'ICON_CANCEL'
 DEFAULT_BUTTON = '1'
 DISPLAY_CANCEL_BUTTON = 'X'
 START_COLUMN = 25
 START_ROW = 6
 IMPORTING
 ANSWER = P_ANS
 EXCEPTIONS
 TEXT_NOT_FOUND = 1
 OTHERS = 2.
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. " CONFIRM_BEFORE_LEAVE
*& Form VALIDATE_AND_CONVERT_DATE
* Validating and Converting the date
FORM VALIDATE_AND_CONVERT_DATE .
DATA : L_DATE LIKE SY-DATUM.
CALL FUNCTION 'CONVERT_DATE_INPUT'
 EXPORTING
 INPUT = IT_FINAL-ZZPROMDT
 IMPORTING
 OUTPUT = L_DATE
 EXCEPTIONS
 PLAUSIBILITY_CHECK_FAILED = 1
 WRONG_FORMAT_IN_INPUT = 2
 OTHERS = 3.
IF SY-SUBRC = 0.
 WRITE L_DATE TO IT_FINAL-ZZPROMDT.
 MODIFY IT_FINAL.
ENDIF.
ENDFORM. " VALIDATE_AND_CONVERT_DATE
*& Module STATUS_0200 OUTPUT
* PBO of Second List
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAIN100'.
IF G_CUSTOM_CONTAINER1 IS INITIAL.
**Initializing the second Grid
 PERFORM CREATE_AND_INIT_ALV1.
ENDIF.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0200 INPUT
* PAI of Second list
MODULE USER_COMMAND_0200 INPUT.
DATA: L_ANS.
SAVE_OK = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK.
 WHEN 'EXIT'.
 LEAVE TO SCREEN 0.
 WHEN 'CANC'.
 LEAVE TO SCREEN 0.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*& Form CREATE_AND_INIT_ALV1
* Creating the Grid for Second List
FORM CREATE_AND_INIT_ALV1 .
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
CREATE OBJECT G_CUSTOM_CONTAINER1
 EXPORTING CONTAINER_NAME = G_CONTAINER2.
CREATE OBJECT G_GRID1
 EXPORTING I_PARENT = G_CUSTOM_CONTAINER1.
CALL METHOD G_GRID1->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.
CREATE OBJECT G_HANDLER1.
SET HANDLER G_HANDLER1->HANDLE_USER_COMMAND FOR G_GRID1.
SET HANDLER G_HANDLER1->HANDLE_TOOLBAR FOR G_GRID1.
GS_LAYOUT1-GRID_TITLE = TEXT-003.
GS_LAYOUT1-CWIDTH_OPT = 'X'.
GS_LAYOUT1-NO_ROWMARK = 'X'.
GS_LAYOUT1-ZEBRA = SPACE."'X'.
GS_LAYOUT1-INFO_FNAME = SPACE.
GS_LAYOUT1-CTAB_FNAME = SPACE.
**Vaiant to save the layout
LS_VARI-REPORT = SY-REPID.
LS_VARI-HANDLE = SPACE.
LS_VARI-LOG_GROUP = SPACE.
LS_VARI-USERNAME = SPACE.
LS_VARI-VARIANT = SPACE.
LS_VARI-TEXT = SPACE.
LS_VARI-DEPENDVARS = SPACE.
* setting focus for created grid control
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = G_GRID1.
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
* Define a drop down table.
PERFORM SET_DRDN_TABLE1.
PERFORM FORM_REFRESH.
CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_VARIANT = LS_VARI
 I_SAVE = 'A'
 IS_LAYOUT = GS_LAYOUT1
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT1
 IT_OUTTAB = IT_VEKP1[].
** Set editable cells to ready for input initially
CALL METHOD G_GRID1->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
CALL METHOD G_GRID1->SET_TOOLBAR_INTERACTIVE.
ENDFORM. "CREATE_AND_INIT_ALV1
*& Form GET_HU_DATA
* Get Handling Units Data
FORM GET_HU_DATA USING X_FINAL TYPE T_FINAL.
CLEAR IT_VEKP1.
REFRESH IT_VEKP1.
READ TABLE IT_SONUM WITH KEY VGBEL = X_FINAL-VGBEL
 VGPOS = X_FINAL-VGPOS.
IF SY-SUBRC = 0.
 LOOP AT IT_VEKP WHERE INHALT = X_FINAL-VBELN
 AND ZZSONUM = IT_SONUM-ZZSONUM
 AND ZZPROMDT = X_FINAL-ZZPROMDT
 AND ZZOCHOLDRC = X_FINAL-ZZOCHOLDRC.
 IT_VEKP1-EXIDV = IT_VEKP-EXIDV.
 IT_VEKP1-ZZSONUM = IT_VEKP-ZZSONUM.
 IF NOT IT_VEKP-ZZPROMDT+0(4) = '0000'.
 IT_VEKP1-ZZPROMDT = IT_VEKP-ZZPROMDT.
 ELSE.
 IT_VEKP1-ZZPROMDT = '00000000'.
 ENDIF.
 IT_VEKP1-ZZOCHOLDRC = IT_VEKP-ZZOCHOLDRC.
 APPEND IT_VEKP1.
 ENDLOOP.
ENDIF.
IT_VEKP1_TMP[] = IT_VEKP1[].
ENDFORM. " GET_HU_DATA
*& Form POPULATE_FIELDCAT2
* Populating the Field Catalog for Second list
FORM POPULATE_FIELDCAT2 .
CLEAR: IT_FIELDCAT1,X_FIELDCAT1.
REFRESH IT_FIELDCAT1.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
X_FIELDCAT1-SCRTEXT_M = 'External Handling Unit Identification'(027).
X_FIELDCAT1-FIELDNAME = 'EXIDV'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-EDIT = ' '.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
L_POS = L_POS + 1.
* X_FIELDCAT1-SCRTEXT_M = 'Prom Date'(016).
X_FIELDCAT1-COLTEXT = 'Promise Date'(033).
X_FIELDCAT1-FIELDNAME = 'ZZPROMDT'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-OUTPUTLEN = '12'.
X_FIELDCAT1-EMPHASIZE = ' '.
X_FIELDCAT1-EDIT = 'X'.
X_FIELDCAT1-DATATYPE = 'DATS'.
X_FIELDCAT1-INTTYPE = 'D'.
X_FIELDCAT1-REF_TABLE = 'VEKP'.
X_FIELDCAT1-REF_FIELD = 'ZZPROMDT'.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
L_POS = L_POS + 1.
X_FIELDCAT1-SCRTEXT_M = 'Order Control Hold Reason Code'(029).
X_FIELDCAT1-FIELDNAME = 'ZZOCHOLDRC'.
X_FIELDCAT1-TABNAME = 'IT_VEKP1'.
X_FIELDCAT1-COL_POS = L_POS.
X_FIELDCAT1-DRDN_HNDL = '1'.
X_FIELDCAT1-DRDN_ALIAS = 'X'.
X_FIELDCAT1-EDIT = 'X'.
APPEND X_FIELDCAT1 TO IT_FIELDCAT1.
CLEAR X_FIELDCAT1.
ENDFORM. " POPULATE_FIELDCAT2
*& Form set_drdn_table
* Drop Down for second report
FORM SET_DRDN_TABLE1.
DATA:X_OCRC LIKE LINE OF IT_OCRC.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL,
 L_DRDN(25) TYPE C.
LOOP AT IT_OCRC INTO X_OCRC.
 CONCATENATE X_OCRC-ZZOCHOLDRC ' ' ' ' ' ' X_OCRC-ZZRCDESC INTO
L_DRDN
SEPARATED BY SPACE.
* First listbox (handle '1').
 LS_DRAL-HANDLE = '1'.
 LS_DRAL-VALUE = L_DRDN.
 LS_DRAL-INT_VALUE = X_OCRC-ZZOCHOLDRC.
 APPEND LS_DRAL TO LT_DRAL.
ENDLOOP.
CALL METHOD G_GRID1->SET_DROP_DOWN_TABLE
 EXPORTING
 IT_DROP_DOWN_ALIAS = LT_DRAL.
ENDFORM. " set_drdn_table
*& Form save_operation
* Saving the changes
FORM SAVE_OPERATION .
DATA: L_TABIX LIKE SY-TABIX.
**CHECKING FOR THE DATA CHANGE
IF IT_FINAL_TMP[] <> IT_FINAL[].
 LOOP AT IT_FINAL.
 L_TABIX = SY-TABIX.
 READ TABLE IT_FINAL_TMP INDEX L_TABIX.
 IF SY-SUBRC = 0.
 IF IT_FINAL <> IT_FINAL_TMP.
*-Validate Date Field.
 PERFORM VALIDATE_AND_CONVERT_DATE.
**Modifying the VEKP table based on changes
 IF NOT IT_FINAL_TMP-EXIDV IS INITIAL.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE EXIDV = IT_FINAL_TMP-EXIDV
 AND INHALT = IT_FINAL-VBELN.
 IF SY-SUBRC = 0.
 V_DATA_CHANGE = ' '.
 COMMIT WORK AND WAIT.
 ENDIF.
 ELSE.
 UPDATE VEKP SET ZZOCHOLDRC = IT_FINAL-ZZOCHOLDRC
 ZZPROMDT = IT_FINAL-ZZPROMDT
 WHERE INHALT = IT_FINAL-VBELN
 AND ZZSONUM = IT_FINAL_TMP-ZZSONUM
 AND ZZPROMDT = IT_FINAL_TMP-ZZPROMDT
 AND ZZOCHOLDRC = IT_FINAL_TMP-ZZOCHOLDRC.
 IF SY-SUBRC = 0.
 V_DATA_CHANGE = ' '.
 COMMIT WORK AND WAIT.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
ENDIF.
ENDFORM. " save_operation
*& Form BACK_SECOND_LIST
* When User Press Back in Second list
FORM BACK_SECOND_LIST .
DATA:X_OCRC LIKE LINE OF IT_OCRC.
**Checking for the Change in the data
IF IT_VEKP1_TMP[] <> IT_VEKP1[].
 PERFORM CONFIRM_BEFORE_LEAVE CHANGING L_ANS.
 IF L_ANS = '1'.
 LOOP AT IT_VEKP1.
 READ TABLE IT_VEKP1_TMP WITH KEY EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 IF IT_VEKP1_TMP <> IT_VEKP1.
 UPDATE VEKP SET ZZPROMDT = IT_VEKP1-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP1-ZZOCHOLDRC
 WHERE EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 COMMIT WORK.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 CLEAR IT_VEKP1_TMP.
 REFRESH IT_VEKP1_TMP.
 IT_VEKP1_TMP[] = IT_VEKP1[].
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
 PERFORM CLEAR_GRID_CONTAINER.
 ELSEIF L_ANS = '2'.
 PERFORM CLEAR_GRID_CONTAINER.
 ENDIF.
ELSE.
 PERFORM CLEAR_GRID_CONTAINER.
ENDIF.
ENDFORM. " BACK_SECOND_LIST
*& Form clear_grid_container
* Clearing the Grid
FORM CLEAR_GRID_CONTAINER .
CALL METHOD G_GRID1->FREE.
CALL METHOD G_CUSTOM_CONTAINER1->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
CLEAR G_CUSTOM_CONTAINER1.
CLEAR G_GRID1.
CLEAR G_HANDLER1.
LEAVE TO SCREEN 0.
ENDFORM. " clear_grid_container
*& Form disable_edit_fields
* Disable edit fields
FORM DISABLE_EDIT_FIELDS .
**Changing the Edit option for the records which they don't have
**Entries in HU level
LOOP AT IT_FINAL INTO LS_OUTTAB WHERE FLAG = 'X'.
 V_INDEX = SY-TABIX.
 LS_EDIT-FIELDNAME = 'ZZOCHOLDRC'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 LS_EDIT-FIELDNAME = 'ZZRCDESC'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 LS_EDIT-FIELDNAME = 'ZZPROMDT'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_DISABLED.
 LS_EDIT-STYLE2 = SPACE.
 LS_EDIT-STYLE3 = SPACE.
 LS_EDIT-STYLE4 = SPACE.
 LS_EDIT-MAXLEN = 8.
 INSERT LS_EDIT INTO TABLE LT_EDIT.
 INSERT LINES OF LT_EDIT INTO TABLE LS_OUTTAB-HANDLE_STYLE.
 MODIFY IT_FINAL INDEX V_INDEX FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE DROP_DOWN_HANDLE.
 MODIFY IT_FINAL_TMP INDEX V_INDEX FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE DROP_DOWN_HANDLE.
ENDLOOP.
ENDFORM. " disable_edit_fields
*& Form event_ucomm
* Handling User Commands
FORM EVENT_UCOMM1 USING E_UCOMM TYPE SY-UCOMM.
SORT IT_VEKP1.
SORT IT_VEKP1_TMP.
CASE E_UCOMM.
 WHEN'BACK'.
**Checking for the change in the data of the output
 CALL METHOD G_GRID1->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID1.
 CALL METHOD CL_GUI_CFW=>FLUSH.
 PERFORM BACK_SECOND_LIST.
 WHEN 'SAVE'.
 CALL METHOD G_GRID1->CHECK_CHANGED_DATA
 IMPORTING
 E_VALID = L_VALID1.
 CALL METHOD CL_GUI_CFW=>FLUSH.
**Checking for the Change in the data
 IF IT_VEKP1_TMP[] <> IT_VEKP1[].
 LOOP AT IT_VEKP1.
 READ TABLE IT_VEKP1_TMP WITH KEY EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 IF IT_VEKP1_TMP <> IT_VEKP1.
 UPDATE VEKP SET ZZPROMDT = IT_VEKP1-ZZPROMDT
 ZZOCHOLDRC = IT_VEKP1-ZZOCHOLDRC
 WHERE EXIDV = IT_VEKP1-EXIDV.
 IF SY-SUBRC = 0.
 COMMIT WORK.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 PERFORM GET_VEKP_DATA .
 CLEAR IT_VEKP1_TMP.
 REFRESH IT_VEKP1_TMP.
 IT_VEKP1_TMP[] = IT_VEKP1[].
 PERFORM POPULATE_FINAL_TABLE.
 PERFORM DISABLE_EDIT_FIELDS.
 PERFORM FORM_REFRESH.
 MESSAGE S002 WITH 'Data Saved'(011).
 ENDIF.
 WHEN OTHERS.
* do nothing
ENDCASE.
ENDFORM. " event_ucomm1
check this code , in that i have used and implemented..using classes

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 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.

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

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.

Getting keyboard events on ALV grid

Similar Messages

Maybe you are looking for