Handle single click event in ALV OOPS

Hi,
I have to display 2 ALV grid...one above the other.
Top ALV will contain Header info and bottom ALV witll display line item.
I am use ALV OOPS.
Now when user will click on the top ALV ...bottom ALV should show corresponding data.
I don't have to use HOTSPOT or Double click event.
How can I handle single click event.
Please guide me..thanks in advance
Regards,
Prasoon

hi,
 for this in ALV OOPS take 2 custom containers( cl_gui_custom_container)in the same screen and on the 1st container display the header data(use set_tale_for_first_display method of class cl_gui_alv_grid).
 On the 2nd screen item data for this use EVENT handling(you want single click). use hotspot_click or button_click events.
for this you have to register the events. the code for that.
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
METHODS:
*--Hotspot click control
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id es_row_no ,
*--To control button clicks
handle_button_click
FOR EVENT button_click OF cl_gui_alv_grid
IMPORTING e_oject e_ucomm .
PRIVATE SECTION.
ENDCLASS.
CLASS lcl_event_handlerIMPLEMENTATION .
*--Handle Hotspot Click
METHOD handle_hotspot_click .
PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no .
ENDMETHOD .
METHOD handle_button_click .
PERFORM handle_button_click USING e_object e_ucomm .
ENDMETHOD .
ENDCLASS .
DATA gr_event_handler TYPE REF TO lcl_event_handler .
*--Creating an instance for the event handler
CREATE OBJECT gr_event_handler.
*--Registering handler methods to handle ALV Grid events
SET HANDLER gr_event_handler->handle_hotspot_click FOR gr_alvgrid .
SET HANDLER gr_event_handler->handle_button_click FOR gr_alvgrid .
do n't forget to use refresh_table_display
 other wise only the record which you first you clicked will display in the 2nd container.
Reward points for useful Answers

Similar Messages

How to trigger single click event in ALV

Hi Experts,
      I am trying to raise an event in a module pool program whereby an event will be triggered on a single click of a particular row in the ALV.
   My requirement is that in the table display , which is being handled OO method, once the user clicks on a particular row - the details of the row should be displayed in another part of the screen.
   I have used hotspots and done this - but I do not want all my entries underlined.

Hi Atish,
Is there any other way to trigger the single click event in the ALV grid display for a particular row ? I have come across an event CLICK_ROW_COL, which I think may solve the problem, however this is a protected event and whenever I try to access it , I get the error that a protected event cannot be accessed.
Edited by: Aditya Niyogi on May 14, 2008 6:33 AM

Double click event in alv oops

Hi,
can any one please help me out... i dont know how to call events in alv oops...so can any one provide me with some help..
My requirment is i have to generate a mail grid containing customer details and if i double click on a customer it should go to the transaction XD03 second screen.....

u have to declae an event like this.
class event_receiver definition.
public section.
    methods handle_double_click
      for event double_click of cl_gui_alv_grid
      importing e_row.
endclass.
then u have to implement it in the implementation
class lcl_event_receiver implementation.
method lmt_handle_double_click.
    perform double_click using e_row
                               tbl_final_display.
endmethod.
endclass.
form double_click
        using fu_e_row             type lvc_s_row
              fu_tbl_final_display type typ_tbl_display.
read table fu_tbl_final_display into l_h_tbl_final_display
                          index fu_e_row-index.
if sy-subrc = 0.
    set parameter id cns_aun field l_h_tbl_final_display-vbeln.
    call transaction cns_trans and skip first screen.
endif.
endform.
hope it will help u

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.

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

Handling single click in alv tree

Hello Friends,
Is there an event triggered,for single click on an alv tree.
regards
kaushik

hi ,
it_fieldcat-hotspot = 'X'.
regards,
venkat.
Edited by: venkat appikonda on Mar 13, 2008 8:11 PM
Edited by: venkat appikonda on Mar 13, 2008 8:12 PM

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

EVENTS IN ALV OOPS

HI GUYS,
       CAN ANYONE PLS HELP ME OUT HANDLING EVENTS IN ALV(OOPS)....iS THERE ANY CLASS TO BE DEFINED ?????? PLS HELP IF ANYONE HAS THE CODE FOR THAT...........

Hi,
Declare as below.
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
DATA : O_ALVGRID TYPE REF TO CL_GUI_ALV_GRID ,
       O_DOCKINGCONTAINER TYPE REF TO CL_GUI_DOCKING_CONTAINER ,
       O_EVENTRECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
Then class definition should be as follows:
CLASS LCL_EVENT_RECEIVER DEFINITION.
Event receiver definitions for ALV actions
PUBLIC SECTION.
    CLASS-METHODS:
Row Double click for dirll down.
       HANDLE_DOUBLE_CLICK
         FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
            IMPORTING E_ROW
                      E_COLUMN
                      ES_ROW_NO.
ENDCLASS.
Then implementation should be as follows:
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
*&      Method handle_double_click
This method is called when the user double clicks on a line to drill
down.
The following are exported from the ALV
LVC_S_ROW
LVC_S_COL
LVC_S_ROID
METHOD HANDLE_DOUBLE_CLICK.
The double click drill down processing should be
coded in the form below.
    PERFORM F9007_HANDLE_DOUBLE_CLICK USING E_ROW
                                            E_COLUMN
                                            ES_ROW_NO.
ENDMETHOD.
ENDCLASS.
*&      Form F9007_HANDLE_DOUBLE_CLICK
This form is called when the user double clicks on a line to drill
down.
     -->P_E_ROW_ID    - Row ID text
     -->P_E_COLUMN_ID - Column ID
     -->P_ES_ROW_NO   - Row number
FORM f9007_handle_double_click USING p_row
                                     p_column
                                     p_row_no.
DATA: lw_output LIKE LINE OF i_output.
Need to check that a subtotal or grand total line has *not been double-clicked, otherwise the report will *produce a short dump!
check p_row+0(1) is initial.
READ TABLE i_output INDEX p_row INTO lw_output.
CASE p_column.
    WHEN 'KNUMA'.
      IF NOT lw_output-knuma IS INITIAL.
        SET PARAMETER ID 'VBO' FIELD lw_output-knuma.
        CALL TRANSACTION 'VBO3' AND SKIP FIRST SCREEN.
      ENDIF.
   ENDCASE.
ENDFORM.                    " F9007_HANDLE_DOUBLE_CLICK
In PBO of the screen,
MODULE status_9001 OUTPUT.
IF o_dockingcontainer IS INITIAL.
   SET HANDLER o_eventreceiver->handle_double_click FOR o_alvgrid.
ENDMODULE.                 " STATUS_9001 OUTPUT
In this I have mentioned double click event.
Similarly you have to do for others.
Regards,
J.Jayanthi

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

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.

How to handle double click event in a text control

Hi,
 Will u please send me information on handling double click events inside text control and also about locking and unlocking of DB tables for updation.
Regards,
Praba.

Hi Prabhavathi,
Here is how you handle double click events in Textedit control.
1)Create a custom control in screen (say TEXT_CONTROL)
2)In main program,
a) Declarations:
data: obj type ref to cl_gui_custiom_control.
 text type ref to cl_gui_textedit.
b) Create the instance of custom container
c) Create the instance of textedit control.
3)Now to handle double click events , create a local class as follows.
class shail_event definition.
public section.
methods:
handle_doubleclick for event dblclick of cl_gui_textedit .
endclass.
class shail_event implementation.
method handle_doubleclick .
here do the coding for handling the double click.
endmethod.
endclass.
4) Create an instance of the handler class(ie.ZSHAIL_EVENT).Let it be named hand.
5) Define varibles for event.
DATA: i_events TYPE cntl_simple_events,
 wa_events TYPE cntl_simple_event.
SET HANDLER hand->handle_doubleclick for text.
wa_events-eventid = cl_gui_textedit=>event_double_click.
wa_events-appl_event = 'X'. "This is an application event
APPEND wa_events TO i_events.
6)
 CALL METHOD texte->set_registered_events
 EXPORTING
 events = i_events
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 illegal_event_combination = 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.
These are the basic steps needed for handling events in Textedit control.You can go to SE24 and type CL_GUI_TEXTEDIT to find the associated events of the class.
If you want the program, kindly send your mail-id so that I can mail it to you.
Regards,
Sylendra.

HOWTO: Handle a click event on a DAC TreeControl

HOWTO: Handle a click event on a DAC TreeControl
Goal: Handle the event that occurs when a user clicks on a new node of a DAC TreeControl. In this example the handler is simple - it just prints out the current node. You can try this example on the DACTree.jpr project in the 3.2 tutorial, described in the online help under
Tutorials and Sample Applications
-> Tutorials
-> Building Enterprise Applications with Business Components for Java
-> Enhancing the Online Orders Application
-> Creating a DAC Client
The problem: The usual procedure for adding an event to a DAC component does not work: if you select your TreeControl in the designer, then select the Events tab of the property inspector, none of the events listed does what we want.
Solution: Get the underlying JTree and add your listener to it. Although the TreeControl is not a subclass of javax.swing.JTree, it does have an underlying JTree which you can get by calling TreeControl.getTree().
Add the following code to your frame's .java file (Hint: Add any event, from the Events tab of the property inspector, then use the generated code as your template, changing it to match this example):
1. Declare a JTree:
JTree tree = new JTree();2. In jbInit(), add the event listener after the code that sets up your TreeControl:
tree = treeControl1.getTree();
tree.addTreeSelectionListener(new javax.swing.event.TreeSelectionListener() {
public void valueChanged(javax.swing.event.TreeSelectionEvent e) {
tree_valueChanged(e);
});3. Add the event handler method:
void tree_valueChanged(javax.swing.event.TreeSelectionEvent e) {
System.out.println("Current node: " + tree.getLastSelectedPathComponent());
}

could you add a mouselistener to the pane or whatever container the pie chart is drawn on? Then override the mouseClicked method to do whatever you want?
Message was edited by:
petes1234

Print all slides in single click event

I have 10 quiz slides in captivate 5.5. Now my client wnats to print all the slides at the single click event. I have already used the Captivate inbuild Print widget, but its print the current slide only. Please help me on this.....
Thanks
Karthik

There is no current way to do this with standard Captivate functionality.
If this is really important to your client, you'll need to create a PDF document with screenshots of the 10 quiz slides, and link this document to a button within the course module. Participants can then click the button to open and print the document.
If anyone has a better idea, I'm open to it.

Enabling screen for single click in OOABAP alvs

Hello All,
I have a requirement where I am displaying ALV grid in screen 100. In this grid I have defined double click event in which I call 101 screen (with coordinates i.e. starting at 10 10) which displays another grid. The problem here is that in screen 101 the buttons and screen fields are not responding to single click. I mean that for every action (change the cell value in 101 screen ot selecting a row or clicking on pushbutton in this 101 screen) I have to click twice. But I want all this actions to be performed with single click. If anyone knows the solution to know please let me know.
Note: Helpful answers will be duly rewarded.

Please do not make duplicate postings.
Rob

Click Event on ALV using cl_gui_alv_grid (DYNPRO)

How can I implement a listener for a click on ALV.
If I click on my ALV grid, for example PBA should be triggered. Is that possible?
Now it seems that nothing happens when I click on ALV.
Can anyone help?

Hi Ezachiael,
you dont have to trigger event DOUBLE_CLICK, it will be triggered, in case of double click :-).
You have to implent event handling class and event handler method - It is quite simple.
Check out this [Reference on SDN|https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/e8a1d690-0201-0010-b7ad-d9719a415907].
Regards
REA

Handle single click event in ALV OOPS

Similar Messages

Maybe you are looking for