Double click event for the I/O field in custom screen

Hello all:
I have development a dialog program now, and I want to show the MM03 screen when I double click the I/O field for material number ( such as the CO03 materil field ). I had set the screen display attribute to " Responds to double-cick",but I can't receipt any infor from the PAI Flow but a message "Please choose a valid function".
some friends proposed me to set the Function Code for it , but the FctCode only support for "button" and "tab titles" and "Dropdown box" , how can I do.

Hi,
Check ur pf-status. in that did u give PICK to the functionkey F2 which will enable the db click facility.
apart from setting the PF-status with PICK (F2) also set the property "respond to double click" for the tablecontrol column in screen painter.
and u can get the values of the clicked field by GET CURSOR command.
Also you can refer:-
double click from table control?
Doubleclick in Table control
Hope this helps you.
Regards,
Tarun

Similar Messages

Can a program a double click event for a button in Flash Catalyst?

I currently have a button programed in FC with a single click. I would like the exact same behavior to happen whether there is a single or double click on the same button.
Is there a way to do this in FC? If not can I pull it into another program to edit the code?
Thank you!
Sarah

Thanks for letting me know.
Unfortunatly it looks like I can't upgrade unless I upgrade my whole suite, which is a bummer. We just spent a small fortune on upgrading everyone from CS3 - SC5. I will have to check with our account rep, but I doubt I can get another software update approved this year. Maybe next.
Thanks again Chirs!

Problem in Double click event for ALV.

Hi experts ,
My scenario is one ALV is displayed in First screen and after double click on particular column second screen is displayed with the other ALV.
I have created 2 custom containers.
My problem is that for the first double click every thing is fine,then i come back to first screen from second screen when i double click on different item the previous item is displayed which was for the first double click .
I debugg the program , passing of data to the internal table is fine.
Help me in the problem
Thanks
Aisurya

Hi,
You have to use refresh_table_dispaly method to update the values. else it will display the same.
try this logic
if cus_cont is initial.
o_grid->set_table_for_first_display.
else.
o_grid->refresh_table_display.
endif.,
check BCALV_GRID_03 standard program for reference.
hope this helps u.,
Thanks & Regards,
Kiran

Double click event for JTable.....

All,
I would like to display some data on double_click a selected row from the JTable. How do I code the double_click event in the following program. Please advise.
Here is the code:
import javax.swing.*;
import javax.swing.table.*;
import java.awt.*;
import java.awt.event.*;
import java.util.Vector;
class TableTest extends JFrame {
MyTableModel myModel;
JTable table;
JButton button;
JButton buttonQuery;
int count = 0;
public TableTest() {
myModel = new MyTableModel();
table = new JTable(myModel);
table.setPreferredScrollableViewportSize(new Dimension(500, 200));
JScrollPane scrollPane = new JScrollPane(table);
//Add the scroll pane to this window.
getContentPane().add(scrollPane, BorderLayout.CENTER);
getContentPane().add(button = new JButton("Add Row"),
BorderLayout.SOUTH);
getContentPane().add(buttonQuery = new JButton("Query"), BorderLayout.NORTH);
button.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
Object [] aRow = new Object [8];
for (int i=0; i<5; i++) {
aRow = new Integer(count+i);
myModel.addRow(aRow);
count += 10;
buttonQuery.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
System.out.println(myModel.getRowCount());
System.out.println(myModel.getValueAt(1, 3));
addWindowListener(new WindowAdapter() {
public void windowClosing(WindowEvent e) {
System.exit(0);
class MyTableModel extends AbstractTableModel {
protected final String[] headers =
{ "No", "Vehicle No", "Date of Loss", "Image Type", "Image Description", "Claim Type", "Scan Date", "User Id" };
Vector data;
MyTableModel() {
data = new Vector();
public int getColumnCount() {
return headers.length;
public int getRowCount() {
return data.size();
public Object getValueAt(int row, int col) {
if (row < data.size() && col < 8) {
Object [] aRow = (Object []) data.elementAt(row);
return aRow[col];
} else {
return null;
public void addRow(Object [] aRow) {
data.addElement(aRow);
fireTableRowsInserted(data.size()-1, data.size()-1);
public static void main(String[] args) {
TableTest frame = new TableTest();
frame.pack();
frame.setVisible(true);
}

Thanks, but I get 1 error:
'Cannot resolve symbol' -class MouseInputAdapter
import java.awt.event.MouseAdapter;
Also say if I need to get 'column data' from selected
row, what will be the command like ?
int col = table.columnAtPoint(p);>
Best Regards

Double click event on subscreen field

Hello,
I have created a customer subscreen to be included in a Quality notification. The field that I have added is a Purchase Order number.
I want to code the double click event for this field, such that when I double click the PO number it navigates to the Display PO transaction.
As it is a subsreen, I cannot use the user command 'PICK'.
I tried capturing the sy-ucomm and entering the following commands:
IF sy-ucomm = 'AZOB'.
    SET PARAMETER ID 'BES' FIELD viqmel-zzponumber.
    CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
ENDIF.
However, this gives a problem because there is already a Purchasing Doc field in the notification and it navigates to the wrong PO.
Can anyone give me alternate suggestions to navigate to the customer PO field?
Thanks,
Rugmani

I tried your code and it worked fine for me. However I debugged ME23N a bit and found this:
CASE l_t160-vorga.
    WHEN 'XP'.
      GET PARAMETER ID 'BES' FIELD l_ebeln.
      GET PARAMETER ID 'BSP' FIELD l_ebelp.
and later on
IF NOT sy-subrc IS INITIAL AND
   ( ch_document-trtyp EQ 'A' OR
     ch_document-trtyp EQ 'V' ).
Parameter bei Calls
CHECK sy-binpt EQ space.
GET PARAMETER ID 'BES' FIELD l_ebeln.
GET PARAMETER ID 'BSP' FIELD l_ebelp.
When I ran this in my sandbox system, the document trtyp field was 'A' so the program did the second GET PARAMETER call and the document displayed correctly.
my point is that the GET PARAMETER is conditional - so maybe the program (subroutine INIT_TRANSACTION in program RM_MEPO_GUI) is not actually doing it? There is also some code that IMPORTs values from shared ABAP memory, so the wrong document number could be coming from that as well... try debugging from your code inro the next program and see where it is going wrong.

ALV: Issue with double click event after sorting the ALV

Hello Experts,
I have an internal table that populates an ALV grid. When the user doubleclicks a row, my method HANDLE_DOUBLE_CLICK returns the e_row-index value from the ALV Grid. I use this index value to read the internal table, then retrieve additional data.
My problem is the user may sort the ALV grid before double clicking on a line. If this happens my internal table is not sorted to match the ALV grid, so reading the internal table with the e_row-index value returns the wrong information.
When the double click event occurs, is it possible to capture the value in column 1 instead of a value for e_row-index?
There is one more paramter in HANDLE_DOUBLE_CLICK for row id.   It is coming blank in debugging . what is the purpose of this parameter and how i can make use of it ?
Regards
Vivek

Hi,
I am Posting The Code Which Uses Double Click Event.
And This Code will provide the total information to you.
REPORT ZALVGRID_PG.
TABLES: SSCRFIELDS.
DATA: V_BELNR TYPE RBKP-BELNR.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: IRNO FOR V_BELNR.
PARAMETERS: P_GJAHR TYPE RBKP-GJAHR.
SELECTION-SCREEN END OF BLOCK B1.
DATA: WA TYPE ZALVGRID_DISPLAY,
      ITAB TYPE STANDARD TABLE OF ZALVGRID_DISPLAY.
DATA: IDENTITY TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_IDENTITY TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: L_TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE.
TYPE-POOLS: SLIS,SDYDO.
DATA: L_LOGO TYPE SDYDO_VALUE,
      L_LIST TYPE SLIS_T_LISTHEADER.
END-OF-SELECTION.
CLASS CL_LC DEFINITION.
PUBLIC SECTION.
    METHODS: DC FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW E_COLUMN.
ENDCLASS.
CLASS CL_LC IMPLEMENTATION.
METHOD DC.
    DATA: WA1 TYPE ZALVGRID_DISPLAY.
    READ TABLE ITAB INTO WA1 INDEX E_ROW-INDEX.
    BREAK-POINT.
    SET PARAMETER ID 'BLN' FIELD WA1-BELNR.
    CALL TRANSACTION 'FB02'.
ENDMETHOD.                    "DC
ENDCLASS.
DATA: OBJ_CL TYPE REF TO CL_LC.
START-OF-SELECTION.
PERFORM SELECT_DATA.
IF SY-SUBRC = 0.
    CALL SCREEN 100.
ELSE.
    MESSAGE E000(0) WITH 'DATA NOT FOUND'.
ENDIF.
INCLUDE ZALVGRID_PG_STATUS_0100O01.
INCLUDE ZALVGRID_PG_LOGOSUBF01.
INCLUDE ZALVGRID_PG_SELECT_DATAF01.
INCLUDE ZALVGRID_PG_USER_COMMAND_01I01.
***INCLUDE ZALVGRID_PG_STATUS_0100O01 .
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'AB'.
* SET TITLEBAR 'xxx'.
IF IDENTITY IS INITIAL.
    CREATE OBJECT IDENTITY
    EXPORTING
      CONTAINER_NAME = 'ALVCONTROL'.
    CREATE OBJECT GRID
    EXPORTING
      I_PARENT = IDENTITY.
    CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
         I_STRUCTURE_NAME              = 'ZALVGRID_DISPLAY'
      CHANGING
        IT_OUTTAB                     = ITAB.
    CREATE OBJECT OBJ_CL.
    SET HANDLER OBJ_CL->DC FOR GRID.
    ENDIF.
    IF L_IDENTITY IS INITIAL.
      CREATE OBJECT L_IDENTITY
      EXPORTING
        CONTAINER_NAME = 'LOGO'.
      CREATE OBJECT L_TREE
      EXPORTING
        I_PARENT = L_IDENTITY.
      PERFORM LOGOSUB USING L_LOGO.
      CALL METHOD L_TREE->CREATE_REPORT_HEADER
        EXPORTING
          IT_LIST_COMMENTARY    = L_LIST
          I_LOGO                = L_LOGO.
      ENDIF    .
ENDMODULE.                 " STATUS_0100 OUTPUT
***INCLUDE ZALVGRID_PG_LOGOSUBF01 .
FORM LOGOSUB USING    P_L_LOGO.
P_L_LOGO = 'ERPLOGO'.
ENDFORM.                    " LOGOSUB
***INCLUDE ZALVGRID_PG_SELECT_DATAF01 .
FORM SELECT_DATA .
SELECT RBKP~BELNR
         RBKP~BLDAT
         RSEG~BUZEI
         RSEG~MATNR
         INTO TABLE ITAB
         FROM RBKP INNER JOIN RSEG
    ON RBKP~BELNR = RSEG~BELNR
    WHERE RBKP~BELNR IN IRNO
    AND RBKP~GJAHR = P_GJAHR.
ENDFORM.                    " SELECT_DATA
***INCLUDE ZALVGRID_PG_USER_COMMAND_01I01 .
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
       EXIT.
       ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
Warm Regards,
PavanKumar.G
Edited by: pavankumar.g on Jan 19, 2012 5:30 AM

Double Click Event not fired for IE 11 with compatibility mode for HTML elemnt table

Hi,
I am facing an issue with Double click event(not getting fired on double click of mouse) for IE 11 with compatibility mode on HTML element "table" for Windows 7 64 bit machine.It runs fine on IE 10 with compatible mode with Windws 7 64 bit
machine -- double click event.
Can you please help to resolve the issue?
Thanks and Regards,
Yogesh

Hi,
f12>Debug tab, click the 'start' button.....(select break on all exceptions from the dropdown on the Debug tab)
click your table and correct any errors that are listed in the Console of the developer tool.... probably you are using attachEvent I/o addEventListener. You should be using addEventListener for IE9 and higher and other web browsers.(it the w3c standard
(recommendation).
Post questions about html, css and scripting for website developers to the MSDN IE Web Development forum. Include with your question a link to your website or a mashup that shows the issue.
Rob^_^

Where is the Double-click Event in Adobe LiveCycle Designer

Hi Experts:
I was trying to put code into a Double Click event in Adobe LiveCycle Designer, but couldn't find the Event. There is a "Click" event, but that won't do.
Am I missing something here?
Thanks,
Jen

Hi Jen,
I was surprised the double click was missing but I use the following code in the click event, just replace the "[my double click code ]" and "[ my single click code ]" with your single and double click code. This code delays the single click event for 400ms to see if a second click is coming, you might want to play around with the 400ms as you have to balance the responsiveness of a single click with the double click.
if (new Date() - this.date < 400)
 app.clearTimeOut(this.timeout);
 this.date = undefined;
 [my double click code ]
else
 if (xfa.event.fullText !== "singleClick")
 this.timeout = app.setTimeOut("xfa.event.fullText='singleClick';xfa.resolveNode('"+this.somExpression+"' ).execEvent('click');",500);
 else
 [ my single click code ];
this.date = new Date();

When i hover on stuff with my mouse, i have to double click it for it to actually work, one click to hover and another to click on the link... can someone help me ?

When i hover on stuff with my mouse, i have to double click it for it to actually work, one click to hover and another to click on the link... can someone help me ?

What system are you using?

How do I adjust double click speed in Mountain Lion. The mouse system preferences does not seem to have a speed slider for double clicking. Only the tracking speed slider is visible.

Double clicking is no longer opening my folders.
How can I adjust the double click speed in Mountain Lion to reduce the double clicking speed. The mouse system preferences does not seem to have a speed slider for double clicking. Only the tracking speed slider is visible.

For 10.8.3, it's in System Preferences > Accessiblity > highlight Mouse & trackpad on the left. The Double click speed slider shows on the right. Moving it to the left gives you more time between clicks. Moving it right gives you less time.

About double click event in ALV report

Hi all,
I want to program a double-click event in ALV reprot.
I am not suppose to use module pool approach for the same.
If a user double clicks on the any of the row of ALV report, the transaction should get called.
Again, I am using function 'REUSE_ALV_GRID_DISPLAY' for displaying ALV.
Can you please help me to solve this?
Thanks,
-Siddhi

Hi Sidhi,
You can do it easily by using Reuse_ALV_GRID_DISPALY.
The User Command subroutine which you pass to this function module in that you can check which field is selected and what is the value of that and also you can get the table index.
I am giving you a code example where interactivity of ALV report is done .
*& Report ZRAIL_LOT_REPORT
REPORT zrail_lot_report.
TABLES :qals,aufk.
TYPE-POOLS:slis.
TYPES:BEGIN OF x_lot,
 sel(1) TYPE c, "SELECTION
 prueflos TYPE qals-prueflos, "INSPECTION LOT NUMBER
 werk TYPE qals-werk, "PLANT
 losmenge TYPE qals-losmenge, "LOT QUANTITY
 mengeneinh TYPE qals-mengeneinh, "BASE UNIT OF MEASURE FOR THE INSPECTION LOT QUANTITY
 matnr TYPE qals-matnr, " MATERIAL NO. ATTACHED TO ORDER
 zzequnr TYPE qals-zzequnr, "EQUIPMENT NO.
 zzassembly TYPE qals-zzassembly, "ASSEMBLY
 herkunft TYPE qals-herkunft, "INSPECTION LOT ORIGIN
 aufnr TYPE qals-aufnr, "ORDER NO.
 sttxt TYPE qals_d02-sttxt, "LOT STATUS
 objnr TYPE qals-objnr, "OBJECT NUMBER
 enstehdat TYPE qals-enstehdat, "lot creation date
 pruefer TYPE qamr-pruefer, "Name of the Inspector
 END OF x_lot.
TYPES:BEGIN OF x_ordmat,
 aufnr TYPE aufk-aufnr, "Order No.
 equnr TYPE afih-equnr, "Equipment No. attached to Order
 zmatnr TYPE aufk-zmatnr, "Material No. attached to Order
 bautl TYPE afih-bautl, "Assembly attached to Order
 END OF x_ordmat.
TYPES:BEGIN OF x_status,
 objnr TYPE jest-objnr,
 stat TYPE jest-stat,
 txt04 TYPE tj02t-txt04,
 END OF x_status.
DATA:it_qals TYPE STANDARD TABLE OF x_lot,
 wa_qals TYPE x_lot.
DATA:it_ordmat TYPE TABLE OF x_ordmat,
 wa_ordmat TYPE x_ordmat.
DATA:it_status TYPE STANDARD TABLE OF x_status,
 wa_status TYPE x_status.
DATA:mytabix TYPE sy-tabix.
DATA: wa_layout TYPE slis_layout_alv,
 wa_fieldcat TYPE slis_fieldcat_alv,
 it_fieldcat TYPE TABLE OF slis_fieldcat_alv,
 it_fcat TYPE TABLE OF slis_fieldcat_alv.
DATA:mytabix1 TYPE sy-tabix.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR qals-werk,
 s_zmatnr FOR aufk-zmatnr,
 s_assbly FOR qals-zzassembly,
 s_equnr FOR qals-zzequnr,
 s_lotor FOR qals-herkunft,
 s_lotdat FOR qals-enstehdat.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
s_lotdat-low = sy-datum - 7.
s_lotdat-high = sy-datum.
APPEND s_lotdat.
START-OF-SELECTION.
PERFORM get_data_qals.
PERFORM build_fieldcat.
PERFORM display_data.
EXIT.
END-OF-SELECTION.
*& Form get_data_qals
 text
--> p1 text
<-- p2 text
FORM get_data_qals .
IF it_qals[] IS INITIAL.
 SELECT a~prueflos
 a~werk
 a~losmenge
 a~mengeneinh
 a~zzequnr
 a~zzassembly
 a~herkunft
 a~aufnr
 a~objnr
 a~matnr
 a~enstehdat
 b~pruefer
 FROM qals AS a INNER JOIN qamr AS b
 ON aprueflos = bprueflos
 INTO CORRESPONDING FIELDS OF TABLE it_qals
 WHERE werk IN s_werks
 AND zzassembly IN s_assbly
 AND zzequnr IN s_equnr
 AND herkunft IN s_lotor
 AND enstehdat IN s_lotdat.
ENDIF.
IF it_ordmat[] IS INITIAL.
 SELECT a~aufnr
 a~zmatnr
 b~bautl
 b~equnr
 FROM aufk AS a INNER JOIN afih AS b
 ON aaufnr = baufnr
 INTO CORRESPONDING FIELDS OF TABLE it_ordmat FOR ALL ENTRIES IN it_qals
 WHERE a~aufnr = it_qals-aufnr
 AND zmatnr IN s_zmatnr.
ENDIF.
IF it_status[] IS INITIAL.
 SELECT a~objnr
 a~stat
 b~txt04
 FROM tj02t AS b
 INNER JOIN jest AS a ON bistat = astat
 INTO CORRESPONDING FIELDS OF TABLE it_status FOR ALL ENTRIES IN it_qals
 WHERE a~objnr = it_qals-objnr
 AND b~spras = sy-langu
 AND a~inact = space.
ENDIF.
LOOP AT it_qals INTO wa_qals.
 mytabix = sy-tabix.
 READ TABLE it_ordmat INTO wa_ordmat WITH KEY aufnr = wa_qals-aufnr.
 IF sy-subrc = 0.
 IF wa_qals-herkunft = '14'.
 wa_qals-matnr = wa_ordmat-zmatnr.
 wa_qals-zzequnr = wa_ordmat-equnr.
 wa_qals-zzassembly = wa_ordmat-bautl.
 MODIFY it_qals FROM wa_qals INDEX mytabix TRANSPORTING matnr zzassembly zzequnr.
 ENDIF.
 ENDIF.
 LOOP AT it_status INTO wa_status WHERE objnr = wa_qals-objnr.
 CONCATENATE wa_qals-sttxt wa_status-txt04 INTO wa_qals-sttxt SEPARATED BY space.
 CLEAR :wa_status.
 ENDLOOP.
 MODIFY it_qals FROM wa_qals INDEX mytabix TRANSPORTING sttxt.
 CLEAR :wa_qals,wa_ordmat,mytabix.
ENDLOOP.
IF s_zmatnr[] IS NOT INITIAL.
 DELETE it_qals WHERE matnr IS INITIAL.
ENDIF.
ENDFORM. " get_data_qals
*& Form build_fieldcat
 text
--> p1 text
<-- p2 text
FORM build_fieldcat .
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-box_fieldname = 'SEL'.
wa_layout-box_tabname = 'IT_QALS'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME =
 i_internal_tabname = 'IT_QALS'
 i_structure_name = 'QALS_D02'
 I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME =
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE =
 CHANGING
 ct_fieldcat = it_fieldcat
IF sy-subrc = 0.
 LOOP AT it_fieldcat INTO wa_fieldcat.
 CASE wa_fieldcat-fieldname .
 WHEN 'PRUEFLOS'.
 wa_fieldcat-col_pos = 1.
 wa_fieldcat-hotspot = 'X'.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'WERK'.
 wa_fieldcat-col_pos = 3.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'LOSMENGE'.
 wa_fieldcat-col_pos = 4.
 wa_fieldcat-no_out = ''.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'MENGENEINH'.
 wa_fieldcat-col_pos = 5.
 wa_fieldcat-no_out = ''.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'ZZEQUNR'.
 wa_fieldcat-col_pos = 6.
 wa_fieldcat-no_out = ''.
 wa_fieldcat-hotspot = 'X'.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'ZZASSEMBLY'.
 wa_fieldcat-col_pos = 7.
 wa_fieldcat-no_out = ''.
 wa_fieldcat-hotspot = 'X'.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'HERKUNFT'.
 wa_fieldcat-col_pos = 8.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'AUFNR'.
 wa_fieldcat-col_pos = 9.
 wa_fieldcat-hotspot = 'X'.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'ENSTEHDAT'."enstehdat
 wa_fieldcat-col_pos = 10.
 APPEND wa_fieldcat TO it_fcat.
 WHEN 'STTXT'.
 wa_fieldcat-col_pos = 12.
 wa_fieldcat-hotspot = 'X'.
 APPEND wa_fieldcat TO it_fcat.
 WHEN OTHERS.
 ENDCASE.
 CLEAR wa_fieldcat.
 ENDLOOP.
 wa_fieldcat-fieldname = 'MATNR'.
 wa_fieldcat-tabname = 'IT_QALS'.
 wa_fieldcat-col_pos = 2.
 wa_fieldcat-ref_tabname = 'AUFK'.
 wa_fieldcat-hotspot = 'X'.
 wa_fieldcat-seltext_l = 'Material No.'.
 APPEND wa_fieldcat TO it_fcat.
 wa_fieldcat-fieldname = 'PRUEFER'.
 wa_fieldcat-tabname = 'IT_QALS'.
 wa_fieldcat-col_pos = 11.
 wa_fieldcat-ref_tabname = 'QAMR'.
 wa_fieldcat-seltext_l = 'Name of the Inspector'.
 APPEND wa_fieldcat TO it_fcat.
ENDIF.
ENDFORM. " build_fieldcat
*& Form display_data
 text
--> p1 text
<-- p2 text
FORM display_data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = 'ZRAIL_LOT_REPORT'
I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = 'USER_COMMAND'
 is_layout = wa_layout
 it_fieldcat = it_fcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
 TABLES
 t_outtab = it_qals
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_data
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->RS_SELFIELD text
FORM user_command USING r_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield.
CASE rs_selfield-fieldname .
 WHEN 'PRUEFLOS'.
 SET PARAMETER ID 'QLS' FIELD rs_selfield-value.
 CALL TRANSACTION 'QA03' AND SKIP FIRST SCREEN.
 WHEN 'ZZEQUNR'.
 SET PARAMETER ID 'EQN' FIELD rs_selfield-value.
 CALL TRANSACTION 'IE03' AND SKIP FIRST SCREEN.
 WHEN 'ZMATNR'.
 SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
 CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
 WHEN 'ZZASSEMBLY'.
 SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
 CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
 WHEN 'AUFNR'.
 SET PARAMETER ID 'ANR' FIELD rs_selfield-value.
 CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
 WHEN 'STTXT'.
 MOVE rs_selfield-tabindex TO mytabix1.
 PERFORM show_status.
ENDCASE.
ENDFORM. "USER_COMMAND
*& Form show_status
 text
--> p1 text
<-- p2 text
FORM show_status .
DATA:it_systat TYPE TABLE OF bapi2045ss,
 wa_sysstat TYPE bapi2045ss,
 it_bapi2045us TYPE TABLE OF bapi2045us.
DATA:it_fsys TYPE TABLE OF slis_fieldcat_alv.
DATA:insplot TYPE bapi2045d_il0-insplot.
DATA:language TYPE bapi2045la.
CLEAR wa_qals.
READ TABLE it_qals INTO wa_qals INDEX mytabix1.
insplot = wa_qals-prueflos.
language-langu = sy-langu.
CALL FUNCTION 'BAPI_INSPLOT_GETSTATUS'
 EXPORTING
 number = insplot
 language = language
 TABLES
 system_status = it_systat
 user_status = it_bapi2045us.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 i_program_name = 'ZRAIL_LOT_REPORT'
 i_internal_tabname = 'IT_SYSTAT'
 i_structure_name = 'BAPI2045SS'
 CHANGING
 ct_fieldcat = it_fsys.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = 'ZRAIL_LOT_REPORT'
 it_fieldcat = it_fsys
 TABLES
 t_outtab = it_systat.
ENDFORM. " show_status
IIn the subrouitne the User command the Parameter rs_selfield will give you the selected or clicked field and its value its record no .
I hope this will help you.

Double click event in ALV Display

Hi
I am using Reuse_alv_grid_display for dis[playing ALV. Now I want to handle double click event on a perticular Single column.
Pls provide code.

Hi,
Check this example..If you double click on the purchase order field, it will take you to the corresponding PO in ME23N..
TYPE-POOLS: slis.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: BEGIN OF wa_ekko,
ebeln like ekko-ebeln,
ekorg like ekko-ekorg,
ekgrp like ekko-ekgrp,
END OF wa_ekko.
DATA: v_repid TYPE syrepid.
v_repid = sy-repid.
DATA it_ekko LIKE STANDARD TABLE OF wa_ekko WITH HEADER LINE.
SELECT * UP TO 100 ROWS
FROM ekko
INTO CORRESPONDING FIELDS OF TABLE it_ekko.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
          i_program_name     = v_repid
          i_internal_tabname = 'WA_EKKO'
          i_inclname         = v_repid
     CHANGING
          ct_fieldcat        = gt_fieldcat.
Pass the program.
v_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          it_fieldcat             = gt_fieldcat
          i_callback_user_command = 'USER_COMMAND'
     TABLES
          t_outtab                = it_ekko.
      FORM display_detail                                           *
--> UCOMM                                                         *
--> SELFIELD                                                      *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
IF ucomm = '&IC1' AND selfield-fieldname = 'EBELN'.
    READ TABLE it_ekko INDEX selfield-tabindex.
    IF sy-subrc = 0.
      SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.
      CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
    ENDIF.
ENDIF.
ENDFORM.
Thanks,
Naren

Event for the List Box in ALV Grid Control

Hello,
I have the below urgent requirment.
I have an ALV Grid Control built using ABAP Objects. In the grid, I have few fields and one of these fields is a List Box. Depending on the values selected, I need to enable or disable some fields. So, is there any event for the List box in ALV Grid Control.
For ex: I have 2 Fields, Designation and Commission. The designation field is a List Box field having 'Software Engineer' and 'Manager' as values. When I select 'Software Engineer', the commission field should be disabled. When I select 'Manager', the comission field should be enabled.
Early reply is hightly appreciated.
Priya

REPORT ZTEST1234 MESSAGE-ID ZZ .
DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_VALID TYPE C,
 V_FLAG,
 V_DATA_CHANGE,
 V_ROW TYPE LVC_S_ROW,
 V_COLUMN TYPE LVC_S_COL,
 V_ROW_NUM TYPE LVC_S_ROID.
DATA: OK_CODE LIKE SY-UCOMM,
 SAVE_OK LIKE SY-UCOMM,
 G_CONTAINER1 TYPE SCRFNAME VALUE 'TEST',
 GS_LAYOUT TYPE LVC_S_LAYO.
DATA:BEGIN OF ITAB OCCURS 0,
 VBELN LIKE LIKP-VBELN,
 POSNR LIKE LIPS-POSNR,
 COMISN(10),
 CELLCOLOR TYPE LVC_T_SCOL, "required for color
 DROP(20),
 HANDLE_STYLE TYPE LVC_T_STYL,
 END OF ITAB.
* 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,
**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,
**Double Click Handler
 HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
 IMPORTING E_ROW E_COLUMN ES_ROW_NO.
ENDCLASS. "lcl_event_handler DEFINITION
* CLASS lcl_event_handler IMPLEMENTATION
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Handle Hotspot Click
METHOD HANDLE_HOTSPOT_CLICK .
 CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.
 V_ROW = E_ROW_ID.
 V_COLUMN = E_COLUMN_ID.
 V_ROW_NUM = ES_ROW_NO.
 MESSAGE I000 WITH V_ROW 'clicked'.
ENDMETHOD. "lcl_event_handler
*Handle Double Click
METHOD HANDLE_DOUBLE_CLICK.
ENDMETHOD. "handle_double_click
**Handle Data Change
METHOD HANDLE_DATA_CHANGED.
 DATA: X_CHANGE TYPE LVC_S_MODI,
 X_FINAL TYPE ITAB,
 L_FLAG,
 LS_OUTTAB LIKE LINE OF ITAB.
 DATA: LS_EDIT TYPE LVC_S_STYL,
 LT_EDIT TYPE LVC_T_STYL.
 LOOP AT ER_DATA_CHANGED->MT_GOOD_CELLS INTO X_CHANGE.
 IF X_CHANGE-FIELDNAME = 'DROP' AND X_CHANGE-VALUE = 'S/W ENGINEER'.
 LS_EDIT-FIELDNAME = 'COMISN'.
 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 ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 else.
 LS_EDIT-FIELDNAME = 'COMISN'.
 LS_EDIT-STYLE = CL_GUI_ALV_GRID=>MC_STYLE_ENABLED.
 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 ITAB INDEX X_CHANGE-ROW_ID FROM LS_OUTTAB TRANSPORTING
 HANDLE_STYLE .
 ENDIF.
 ENDLOOP.
 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.
ENDMETHOD. "HANDLE_DATA_CHANGED
ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION
*& Global Definitions
DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1
 G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler
*- Fieldcatalog for First and second Report
DATA: IT_FIELDCAT TYPE LVC_T_FCAT,
 X_FIELDCAT TYPE LVC_S_FCAT,
 LS_VARI TYPE DISVARIANT.
* START-OF_SELECTION
START-OF-SELECTION.
SELECT VBELN
 POSNR
 FROM LIPS
 UP TO 20 ROWS
 INTO CORRESPONDING FIELDS OF TABLE ITAB.
END-OF-SELECTION.
IF NOT ITAB[] IS INITIAL.
 CALL SCREEN 100.
ELSE.
 MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).
ENDIF.
*& Form CREATE_AND_INIT_ALV
* text
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
CLEAR GS_LAYOUT.
GS_LAYOUT-GRID_TITLE = TEXT-003.
 GS_LAYOUT-STYLEFNAME = 'HANDLE_STYLE'.
GS_LAYOUT-ZEBRA = SPACE.
GS_LAYOUT-CWIDTH_OPT = 'X'.
GS_LAYOUT-NO_ROWMARK = 'X'.
GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.
 CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
CREATE OBJECT G_HANDLER.
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.
DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color
DATA: L_INDEX TYPE SY-TABIX.
"Here i am changing the color of line 1,5,10...
"so you can change the color of font conditionally
LOOP AT ITAB.
 L_INDEX = SY-TABIX.
 IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.
 LS_CELLCOLOR-FNAME = 'VBELN'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 LS_CELLCOLOR-FNAME = 'POSNR'.
 LS_CELLCOLOR-COLOR-COL = '6'.
 LS_CELLCOLOR-COLOR-INT = '0'.
 LS_CELLCOLOR-COLOR-INV = '1'.
 APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.
 MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.
 ENDIF.
ENDLOOP.
* 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.
PERFORM SET_DRDN_TABLE.
* Optionally restrict generic functions to 'change only'.
* (The user shall not be able to add new lines).
PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.
**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.
CALL METHOD G_GRID->REGISTER_EDIT_EVENT
 EXPORTING
 I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_MODIFIED.
**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 = ITAB[].
* Set editable cells to ready for input initially
CALL METHOD G_GRID->SET_READY_FOR_INPUT
 EXPORTING
 I_READY_FOR_INPUT = 1.
ENDFORM. "CREATE_AND_INIT_ALV
*& Form EXCLUDE_TB_FUNCTIONS
* text
* -->PT_EXCLUDE text
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.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Delivery'(024).
X_FIELDCAT-FIELDNAME = 'VBELN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-NO_ZERO = 'X'.
X_FIELDCAT-OUTPUTLEN = '10'.
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 = 'ITAB'.
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 = 'Drop'(025).
X_FIELDCAT-FIELDNAME = 'DROP'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '5'.
X_FIELDCAT-EDIT = 'X'.
X_FIELDCAT-DRDN_HNDL = '1'.
X_FIELDCAT-DRDN_ALIAS = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-SCRTEXT_M = 'Comissn'(025).
X_FIELDCAT-FIELDNAME = 'COMISN'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
X_FIELDCAT-EDIT = 'X'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
ENDFORM. " build_fieldcat
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
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. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form SET_DRDN_TABLE
* text
FORM SET_DRDN_TABLE.
DATA:LT_DRAL TYPE LVC_T_DRAL,
 LS_DRAL TYPE LVC_S_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'S/W Engineer'.
LS_DRAL-INT_VALUE = 'S/W Engineer'.
APPEND LS_DRAL TO LT_DRAL.
LS_DRAL-HANDLE = '1'.
LS_DRAL-VALUE = 'Manager'.
LS_DRAL-INT_VALUE = 'Manager'.
APPEND LS_DRAL TO LT_DRAL.
**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
Regards
vijay

Handling double click event in oops alv

I need to write a interactive alv where,can any one help me in handling double click event using oops.

Hello,
Demo program on interactive ALV using OOPS
REPORT ZALV_OOINTERACTIVE.*Class definition for handling double click
CLASS event_class DEFINITION DEFERRED.*Internal table and work area declarations for dd02l and dd03l
DATA : it_dd02l TYPE TABLE OF dd02l,
 wa_dd02l TYPE dd02l,
 it_dd03l TYPE TABLE OF dd03l,
 wa_dd03l TYPE dd03l.*data declarations for ALV Main list
DATA : ty_lay1 TYPE lvc_s_layo,
 it_fieldcat TYPE lvc_t_fcat ,
 ty_fieldcat TYPE lvc_s_fcat ,
 c_alv1 TYPE REF TO cl_gui_alv_grid,
 c_cont1 TYPE REF TO cl_gui_custom_container,
 event_receiver TYPE REF TO event_class.*data declarations for ALV Interactive listDATA : ty_lay2 TYPE lvc_s_layo,
 it_fcat TYPE lvc_t_fcat ,
 ty_fcat TYPE lvc_s_fcat ,
 c_alv2 TYPE REF TO cl_gui_alv_grid,
 c_cont2 TYPE REF TO cl_gui_custom_container.
**Select options for multiple values and NOT ranges
SELECT-OPTIONS : s_table FOR wa_dd02l-tabname NO INTERVALS.
Initialization event
INITIALIZATION.*Start of selection event
START-OF-SELECTION.*fetch data into table and field characteristics
PERFORM fetch_data.*ALV display for output
PERFORM alv_output.&----
*& Form FETCH_DATA
 text
--> p1 text
<-- p2 text
FORM fetch_data .*Select the table details
SELECT * FROM dd02l INTO CORRESPONDING FIELDS OF TABLE it_dd02l
WHERE tabname IN s_table
AND tabclass = 'TRANSP'.
ENDFORM. " FETCH_DATA----* CLASS lcl_event_receiver DEFINITION----CLASS event_class DEFINITION.*Handling double click
PUBLIC SECTION. METHODS:
 handle_double_click
 FOR EVENT double_click OF cl_gui_alv_grid IMPORTING e_row .ENDCLASS. "lcl_event_receiver DEFINITION
----* CLASS lcl_event_receiver IMPLEMENTATION
----CLASS event_class IMPLEMENTATION. METHOD handle_double_click. DATA : ls_dd02l LIKE LINE OF it_dd02l.*Reading the selected data into a variable
 READ TABLE it_dd02l INDEX e_row-index INTO ls_dd02l.* *Select the field details of the selected table
 SELECT * FROM dd03l INTO CORRESPONDING FIELDS OF TABLE it_dd03l
 WHERE tabname EQ ls_dd02l-tabname.
*calling the ALV containing the field values
 CALL SCREEN 101. ENDMETHOD. "handle_double_clickENDCLASS. "lcl_event_receiver IMPLEMENTATION&----& Module pbo_100 OUTPUT&----
*MODULE pbo_100 OUTPUT.
*set pf-status 'XXX'.
*set titlebar 'XXX'.
ENDMODULE. " PBO_100 OUTPUT
*& Module alv_100 OUTPUT
&----MODULE alv_100 OUTPUT.*Check if there is no custom container in screen 100
IF c_cont1 IS INITIAL.*Creating object of container
 CREATE OBJECT c_cont1
 EXPORTING
 container_name = 'CCONT'.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.*Creating object of alv
 CREATE OBJECT c_alv1
 EXPORTING
 i_parent = c_cont1.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.*alv layout
 PERFORM alv_100_layout.*alv field catalogue
 PERFORM alv_100_fieldcat.*Displaying the ALV grid
 CALL METHOD c_alv1->set_table_for_first_display
 EXPORTING
 is_layout = ty_lay1
 CHANGING
 it_outtab = it_dd02l[]
 it_fieldcatalog = it_fieldcat. IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.*Create object of the event class and setting handler for double click
 CREATE OBJECT event_receiver.
 SET HANDLER event_receiver->handle_double_click FOR c_alv1. ENDIF.ENDMODULE. " ALV_100 OUTPUT&----& Module pai_100 INPUT&----
*MODULE pai_100 INPUT.
ENDMODULE. " pai_100 INPUT----* MODULE PBO_101 OUTPUT----MODULE pbo_101 OUTPUT.
SET PF-STATUS 'XXX'.
SET TITLEBAR 'XXX'.
ENDMODULE. " PBO_101 INPUT----* MODULE ALV_101 OUTPUT----
MODULE alv_101 OUTPUT.
*Check if the Custom container exists.
IF c_cont2 IS INITIAL.*Creating container object
 CREATE OBJECT c_cont2
 EXPORTING
 container_name = 'CDCONT'.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.*creating ALV grid for interactive list
 CREATE OBJECT c_alv2
 EXPORTING
 i_parent = c_cont2.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.*ALV layout
 PERFORM alv_101_layout.*ALV fieldcatalogue
 PERFORM alv_101_fieldcat.*Sorting the output by field position
 SORT it_dd03l BY position.*ALV for display field details
 CALL METHOD c_alv2->set_table_for_first_display
 EXPORTING
 is_layout = ty_lay2
 CHANGING
 it_outtab = it_dd03l[]
 it_fieldcatalog = it_fcat.
 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.ENDMODULE. " ALV_101 OUTPUT
&----& Module PAI_101 INPUT&----
*MODULE pai_101 INPUT.ENDMODULE. " PAI_101 INPUT
*& Form ALV_OUTPUT
 text
--> p1 text
<-- p2 text
FORM alv_output .
CALL SCREEN 100.ENDFORM. " ALV_OUTPUT
*& Form ALV_100_LAYOUT
 text
--> p1 text
<-- p2 text
FORM alv_100_layout . ty_lay1-grid_title = 'TABLES'.
ty_lay1-zebra = 'X'.
ty_lay1-no_toolbar = 'X'.ENDFORM. " ALV_100_LAYOUT
*& Form ALV_100_FIELDCAT
 text
--> p1 text
<-- p2 text
FORM alv_100_fieldcat .
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 1.
ty_fieldcat-fieldname = 'TABNAME'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'TableName'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat. ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 2.
ty_fieldcat-fieldname = 'TABCLASS'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'CATEGORY'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat. ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 3.
ty_fieldcat-fieldname = 'AS4USER'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'CREATED'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat. ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 4.
ty_fieldcat-fieldname = 'AS4DATE'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'DATE'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.
ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 5.
ty_fieldcat-fieldname = 'AS4TIME'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'TIME'.
ty_fieldcat-outputlen = 10.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat. ty_fieldcat-row_pos = 1.
ty_fieldcat-col_pos = 6.
ty_fieldcat-fieldname = 'CONTFLAG'.
ty_fieldcat-tabname = 'GT_DD02L'.
ty_fieldcat-coltext = 'Delivery Class'.
ty_fieldcat-outputlen = 15.
APPEND ty_fieldcat TO it_fieldcat.
CLEAR ty_fieldcat.ENDFORM. " ALV_100_FIELDCAT
*& Form ALV_101_LAYOUT
 text
--> p1 text
<-- p2 text
FORM alv_101_layout . ty_lay2-grid_title = 'FIELDS'.
ty_lay2-zebra = 'X'.
ty_lay2-no_toolbar = 'X'.ENDFORM. " ALV_101_LAYOUT
*& Form ALV_101_FIELDCAT
 text
--> p1 text
<-- p2 text
FORM alv_101_fieldcat . REFRESH it_fieldcat.
REFRESH it_fcat.
CLEAR ty_fcat. ty_fcat-row_pos = 1.
ty_fcat-col_pos = 1.
ty_fcat-fieldname = 'FIELDNAME'.
ty_fcat-tabname = 'GT_DD03L'.
ty_fcat-coltext = 'Fieldname'.
ty_fcat-outputlen = 10.
APPEND ty_fcat TO it_fcat.
ty_fcat-row_pos = 1.
ty_fcat-col_pos = 2.
ty_fcat-fieldname = 'CHECKTABLE'.
ty_fcat-tabname = 'GT_DD03L'.
ty_fcat-coltext = 'CHECKTABLE'.
ty_fcat-outputlen = 10.
APPEND ty_fcat TO it_fcat. ty_fcat-row_pos = 1.
ty_fcat-col_pos = 3.
ty_fcat-fieldname = 'KEYFLAG'.
ty_fcat-tabname = 'GT_DD03L'.
ty_fcat-coltext = 'Key Flag'.
ty_fcat-outputlen = 10.
APPEND ty_fcat TO it_fcat.ENDFORM. " ALV_101_FIELDCAT

ALV OOPS Double-click event

Hi,
I want to handle the double-click event in ALV grid (OOPs).
The output should be shown in the same fashion as it is shown in SE16 when we double-click on any record in the result set.
i.e. if you have selected the ALV grid display for the Data browser in SE16 and when you double click on any record, the complete record is shown in a window.
I want this in my ALV as well..
Can anyone please suggest how to achieve this?
Regards
s.a.k

Hi siemens.a.k ,
The solution for the issue would be to create a custom screen and add a custom table controller in a container.
In this table controller you map the respective fields required for your output
Now once you are done with data population in the custom controller for ALV grid display using cl_gui_alv_grid_display class...
create events in your custom class to handle the on click event.
If you observe the standard functionality it could be clearly seen that sap has created another screen for the display of records in different view.
You could also replicate the similar thing by creating another screen and populating the required fields into the second screen.
As of now i am providing this information ...I would even try to simulate the scenario at my system.
So once i am done i would update you the same...
Thanks
M.Naveen Kumar....

Double click event for the I/O field in custom screen

Similar Messages

Maybe you are looking for