ALV using OOPS method - 2

Try it at home...it looks good.

Don't forget to create "Screen 100" and activate PBO Output and PAI Input
*&---------------------------------------------------------------------*
*& Report ZALV_DOUBLECLICK *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT zalv_doubleclick .

*"Table declarations...................................................
TABLES: ekko, " Purchasing Document Header
cdhdr, " Change document header
sscrfields. " Fields on selection screens

*"Selection screen elements............................................
SELECT-OPTIONS:
s_ebeln FOR ekko-ebeln, " Purchasing Document Number
s_lifnr FOR ekko-lifnr, " Vendor's account number
s_ekgrp FOR ekko-ekgrp, " Purchasing group
s_bedat FOR ekko-bedat, " Purchasing Document Date
s_udate FOR cdhdr-udate. " Creation date of the change
" document
*" Data declarations...................................................
"--------------------------------------------------------------------

*Field String to hold Purchase Document Number *
"--------------------------------------------------------------------
DATA:
BEGIN OF fs_ebeln,
ebeln(90) TYPE c, " Purchase Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
END OF fs_ebeln,

"--------------------------------------------------------------------

*Field String to hold Purchase Document Header *
"--------------------------------------------------------------------
BEGIN OF fs_ekko,
ebeln TYPE ekko-ebeln, " Purchasing Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
END OF fs_ekko,

"--------------------------------------------------------------------

*Field String to hold Account Number and name of the Vendor *
"--------------------------------------------------------------------
BEGIN OF fs_lfa1,
lifnr TYPE lfa1-lifnr, " Account Number of Vendor
name1 TYPE lfa1-name1, " Name1
END OF fs_lfa1,

"--------------------------------------------------------------------

*Field String to hold Change date and the name of the user *
"--------------------------------------------------------------------
BEGIN OF fs_cdhdr,
objectclas TYPE cdhdr-objectclas, " Object Class
objectid TYPE cdhdr-objectid, " Object value
changenr TYPE cdhdr-changenr, " Document change number
username TYPE cdhdr-username, " User name
udate TYPE cdhdr-udate, " Creation date of the change document
END OF fs_cdhdr,

"--------------------------------------------------------------------

*Field String to hold Change document items *
"--------------------------------------------------------------------
BEGIN OF fs_cdpos,
objectclas TYPE cdpos-objectclas," Object class
objectid(10) TYPE c, " Object Value
changenr TYPE cdpos-changenr, " Document change number
tabname TYPE cdpos-tabname, " Table Name
fname TYPE cdpos-fname, " Field Name
value_new TYPE cdpos-value_new, " New contents of changed field
value_old TYPE cdpos-value_old, " Old contents of changed field
END OF fs_cdpos,

"--------------------------------------------------------------------

*Field String to hold Date Element Name *
"--------------------------------------------------------------------
BEGIN OF fs_dataele,
tabname TYPE dd03l-tabname, " Table Name
fieldname TYPE dd03l-fieldname, " Field Name
rollname TYPE dd03l-rollname, " Data element (semantic domain)
END OF fs_dataele,

"--------------------------------------------------------------------

*Field String to hold Short Text of the Date Element *
"--------------------------------------------------------------------
BEGIN OF fs_text,
rollname TYPE dd04t-rollname, " Data element (semantic domain)
ddtext TYPE dd04t-ddtext, " Short Text Describing R/3 Repository
"Objects
END OF fs_text,

"--------------------------------------------------------------------

*Field String to hold data to be displayed on the ALV grid *
"--------------------------------------------------------------------
BEGIN OF fs_outtab,
ebeln TYPE ekko-ebeln, " Purchasing Document Number
ernam TYPE ekko-ernam, " Name of Person who Created the Object
lifnr TYPE ekko-lifnr, " Vendor's account number
ekgrp TYPE ekko-ekgrp, " Purchasing group
bedat TYPE ekko-bedat, " Purchasing Document Date
werks TYPE lfa1-werks, " Plant
name1 TYPE lfa1-name1, " Name1
username TYPE cdhdr-username, " User name
udate TYPE cdhdr-udate, " Creation date of the change document
ddtext TYPE dd04t-ddtext, " Short Text Describing R/3 Repository
"Objects
value_new TYPE cdpos-value_new, " New contents of changed field
value_old TYPE cdpos-value_old, " Old contents of changed field
END OF fs_outtab,

"--------------------------------------------------------------------

*Internal table to hold Purchase Document Number *
"--------------------------------------------------------------------
t_ebeln LIKE STANDARD TABLE OF fs_ebeln,

"--------------------------------------------------------------------

*Internal table to hold Purchase Document Header *
"--------------------------------------------------------------------
t_ekko LIKE STANDARD TABLE OF fs_ekko,

"--------------------------------------------------------------------

*Temp Internal table to hold Purchase Document Header *
"--------------------------------------------------------------------
t_ekko_temp LIKE STANDARD TABLE OF fs_ekko,

"--------------------------------------------------------------------

*Internal table to hold Account number and Name of the Vendor *
"--------------------------------------------------------------------
t_lfa1 LIKE STANDARD TABLE OF fs_lfa1,

"--------------------------------------------------------------------

*Internal Table to hold Change date and the name of the user *
"--------------------------------------------------------------------
t_cdhdr LIKE STANDARD TABLE OF fs_cdhdr,

"--------------------------------------------------------------------

*Internal Table to hold Change document items *
"--------------------------------------------------------------------
t_cdpos LIKE STANDARD TABLE OF fs_cdpos,

"--------------------------------------------------------------------

*Temp. Internal Table to hold Change document items *
"--------------------------------------------------------------------
t_cdpos_temp LIKE STANDARD TABLE OF fs_cdpos,

"--------------------------------------------------------------------

*Internal Table to hold Data Element Name *
"--------------------------------------------------------------------
t_dataele LIKE STANDARD TABLE OF fs_dataele,

"--------------------------------------------------------------------

*Temp. Internal Table to hold Data Element Name *
"--------------------------------------------------------------------
t_dataele_temp LIKE STANDARD TABLE OF fs_dataele,

"--------------------------------------------------------------------

*Internal Table to hold Short Text of the Date Element *
"--------------------------------------------------------------------
t_text LIKE STANDARD TABLE OF fs_text,

"--------------------------------------------------------------------

*Internal Table to hold data to be displayed on the ALV grid *
"--------------------------------------------------------------------
t_outtab LIKE STANDARD TABLE OF fs_outtab.

"--------------------------------------------------------------------

*C L A S S D E F I N I T I O N *
"--------------------------------------------------------------------
CLASS lcl_event_handler DEFINITION DEFERRED.

*" Data declarations...................................................
"--------------------------------------------------------------------

*Work variables *
"--------------------------------------------------------------------
DATA:
w_ebeln TYPE ekko-ebeln, " Purchasing Document Number
w_lifnr TYPE ekko-lifnr, " Vendor's account number
w_ekgrp TYPE ekko-ekgrp, " Purchasing group
w_value TYPE ekko-ebeln, " Reflected Value
w_space VALUE ' ', " Space
w_flag TYPE i, " Flag Variable
w_variant TYPE disvariant, " Variant

*ALV Grid
w_grid TYPE REF TO cl_gui_alv_grid,

*Event Handler
w_event_click TYPE REF TO lcl_event_handler,

*Field catalog table
t_fieldcat TYPE lvc_t_fcat.

"--------------------------------------------------------------------

*AT SELECTION-SCREEN EVENT *
"--------------------------------------------------------------------

AT SELECTION-SCREEN ON s_ebeln.

*Subroutine to validate Purchase Document Number.
PERFORM validate_pd_num.

AT SELECTION-SCREEN ON s_lifnr.

*Subroutine to validate Vendor Number.
PERFORM validate_ven_num.

AT SELECTION-SCREEN ON s_ekgrp.

*Subroutine to validate Purchase Group.
PERFORM validate_pur_grp.

"--------------------------------------------------------------------

*START-OF-SELECTION EVENT *
"--------------------------------------------------------------------

START-OF-SELECTION.

* Subroutine to select all Purchase orders.
PERFORM select_po.

CHECK w_flag EQ 0.

* Subroutine to select Object values.
PERFORM select_obj_id.
CHECK w_flag EQ 0.

* Subroutine to select Changed values.
PERFORM select_changed_value.
CHECK w_flag EQ 0.

* Subroutine to Select Purchase Orders.
PERFORM select_pur_doc.

* Subroutine to select Vendor Details.
PERFORM select_vendor.

* Subroutine to select Text for the Changed values.
PERFORM description.
"--------------------------------------------------------------------

*END-OF-SELECTION EVENT *
"--------------------------------------------------------------------

END-OF-SELECTION.

IF NOT t_ekko IS INITIAL.

* Subroutine to populate the Output Table.
PERFORM fill_outtab.

* Subroutine to build Field Catalog.
PERFORM prepare_field_catalog CHANGING t_fieldcat.
CALL SCREEN 100.
ENDIF. " IF NOT T_EKKO...

* CLASS LCL_EVENT_HANDLER DEFINITION

* Defining Class which handles events
CLASS lcl_event_handler DEFINITION .
PUBLIC SECTION .
METHODS:
handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id.

ENDCLASS. " LCL_EVENT_HANDLER DEFINITION

* CLASS LCL_EVENT_HANDLER IMPLEMENTATION

* Implementing the Class which can handle events
CLASS lcl_event_handler IMPLEMENTATION .

* ---Handle Double Click
METHOD handle_hotspot_click .

* Subroutine to get the HotSpot Cell information.
PERFORM get_cell_info.

SET PARAMETER ID 'BES' FIELD w_value.

CALL TRANSACTION 'ME23N'.

ENDMETHOD. " HANDLE_HOTSPOT_CLICK

ENDCLASS. " LCL_EVENT_HANDLER
"&---------------------------------------------------------------------
*& Module STATUS_0100 OUTPUT
"&---------------------------------------------------------------------

*PBO Event
MODULE status_0100 OUTPUT.

SET PF-STATUS 'OOPS'.
SET TITLEBAR 'TIT'.

*Subroutine to fill the Variant Structure
PERFORM fill_variant.

IF w_grid IS INITIAL.

CREATE OBJECT w_grid
EXPORTING
* i_shellstyle = 0
* I_LIFETIME =
i_parent = cl_gui_container=>screen0
* I_APPL_EVENTS =
* I_PARENTDBG =
* I_APPLOGPARENT =
* I_GRAPHICSPARENT =
* I_NAME =
* I_FCAT_COMPLETE = SPACE
EXCEPTIONS
error_cntl_create = 1
error_cntl_init = 2
error_cntl_link = 3
error_dp_create = 4
OTHERS = 5.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF. " IF SY-SUBRC 0

CALL METHOD w_grid->set_table_for_first_display
EXPORTING

* I_BUFFER_ACTIVE =
* I_BYPASSING_BUFFER =
* I_CONSISTENCY_CHECK =
* I_STRUCTURE_NAME =
is_variant = w_variant
i_save = 'A'

i_default = 'X'
* IS_LAYOUT =
* IS_PRINT =
* IT_SPECIAL_GROUPS =
* IT_TOOLBAR_EXCLUDING =
* IT_HYPERLINK =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO =
* IR_SALV_ADAPTER =
CHANGING
it_outtab = t_outtab
it_fieldcatalog = t_fieldcat
* IT_SORT =
* IT_FILTER =
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. " IF SY-SUBRC 0.

ENDIF. " IF W_GRID IS INITIAL

CREATE OBJECT w_event_click.
SET HANDLER w_event_click->handle_hotspot_click FOR w_grid.

ENDMODULE. " STATUS_0100 OUTPUT
"&---------------------------------------------------------------------
*& Module USER_COMMAND_0100 INPUT
"&---------------------------------------------------------------------

*PAI Event
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'BACK'.
perform free_objects.
LEAVE TO SCREEN 0.
WHEN 'EXIT'.
perform free_objects.
LEAVE PROGRAM.
WHEN 'CANCEL'.
perform free_objects.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT

*&---------------------------------------------------------------------*

*& Form free_objects

*&---------------------------------------------------------------------*

* Free Objects

*----------------------------------------------------------------------*

form free_objects .

CALL METHOD w_grid->free

EXCEPTIONS

CNTL_ERROR = 1

CNTL_SYSTEM_ERROR = 2

others = 3.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endform. " free_objects

"&---------------------------------------------------------------------
*& Form PREPARE_FIELD_CATALOG
"&---------------------------------------------------------------------

*Subroutine to build the Field catalog

*<--P_T_FIELDCAT Field Catalog Table FORM prepare_field_catalog CHANGING pt_fieldcat TYPE lvc_t_fcat . DATA ls_fcat TYPE lvc_s_fcat. * Purchasing group... ls_fcat-fieldname = 'EKGRP'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Purchasing Document Number... ls_fcat-fieldname = 'EBELN'. ls_fcat-ref_table = 'EKKO' . ls_fcat-emphasize = 'C411'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-hotspot = 'X'. APPEND ls_fcat TO pt_fieldcat . CLEAR ls_fcat . * Name of Person who Created the Object... ls_fcat-fieldname = 'ERNAM'. ls_fcat-ref_table = 'EKKO'. ls_fcat-outputlen = '15' . APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Purchasing Document Date... ls_fcat-fieldname = 'BEDAT'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Vendor's account number... ls_fcat-fieldname = 'LIFNR'. ls_fcat-ref_table = 'EKKO'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Account Number of Vendor or Creditor... ls_fcat-fieldname = 'NAME1'. ls_fcat-ref_table = 'LFA1'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Vendor Name'(001). ls_fcat-seltext = 'Vendor Name'(001). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Creation date of the change document... ls_fcat-fieldname = 'UDATE'. ls_fcat-ref_table = 'CDHDR'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Change Date'(002). ls_fcat-seltext = 'Change Date'(002). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * User name of the person responsible in change document... ls_fcat-fieldname = 'USERNAME'. ls_fcat-ref_table = 'CDHDR'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '10'. ls_fcat-coltext = 'Modified by'(003). ls_fcat-seltext = 'Modified by'(003). APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Short Text Describing R/3 Repository Objects... ls_fcat-fieldname = 'DDTEXT'. ls_fcat-ref_table = 'DD04T'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '15'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * Old contents of changed field... ls_fcat-fieldname = 'VALUE_OLD'. ls_fcat-ref_table = 'CDPOS'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '12'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. * New contents of changed field... ls_fcat-fieldname = 'VALUE_NEW'. ls_fcat-ref_table = 'CDPOS'. ls_fcat-inttype = 'C'. ls_fcat-outputlen = '12'. APPEND ls_fcat TO pt_fieldcat. CLEAR ls_fcat. ENDFORM. " PREPARE_FIELD_CATALOG "&--------------------------------------------------------------------- *& Form SELECT_PO "&--------------------------------------------------------------------- *Subroutine to select all the Purchase Orders *There are no interface parameters to be passed to this subroutine. FORM select_po . SELECT ebeln " Purchasing Document Number ernam " Name of Person who Created the Object lifnr " Vendor's account number ekgrp " Purchasing group bedat " Purchasing Document Date FROM ekko PACKAGE SIZE 10000 APPENDING TABLE t_ebeln WHERE ebeln IN s_ebeln AND bedat IN s_bedat. ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s401(m8). ENDIF. " IF SY-SUBRC NE 0 ENDFORM. " SELECT_PO "&--------------------------------------------------------------------- *& Form SELECT_OBJ_ID "&--------------------------------------------------------------------- *Subroutine to select Object ID *There are no interface parameters to be passed to this subroutine. FORM select_obj_id . IF NOT t_ebeln IS INITIAL. SELECT objectclas " Object Class objectid " Object value changenr " Document change number username " User name udate " Creation date FROM cdhdr INTO TABLE t_cdhdr FOR ALL ENTRIES IN t_ebeln WHERE objectid EQ t_ebeln-ebeln AND udate IN s_udate AND tcode IN ('ME21N','ME22N','ME23N'). * ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s833(m8) WITH 'Header Not Found'(031). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_EBELN IS INITIAL ENDFORM. " SELECT_OBJ_ID "&--------------------------------------------------------------------- *& Form SELECT_CHANGED_VALUE *&--------------------------------------------------------------------- *Subroutine to select Changed Values *There are no interface parameters to be passed to this subroutine. FORM select_changed_value . IF NOT t_cdhdr IS INITIAL. SELECT objectclas " Object class objectid " Object value changenr " Document change number tabname " Table Name fname " Field Name value_new " New contents of changed field value_old " Old contents of changed field FROM cdpos PACKAGE SIZE 10000 APPENDING TABLE t_cdpos FOR ALL ENTRIES IN t_cdhdr WHERE objectclas EQ t_cdhdr-objectclas AND objectid EQ t_cdhdr-objectid AND changenr EQ t_cdhdr-changenr. ENDSELECT. IF sy-subrc NE 0. w_flag = 1. MESSAGE s833(m8) WITH 'Item Not Found'(032). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_CDHDR IS INITIAL t_cdpos_temp[] = t_cdpos[]. ENDFORM. " SELECT_CHANGED_VALUE "&--------------------------------------------------------------------- *& Form SELECT_PUR_DOC "&--------------------------------------------------------------------- *Subroutine to select Purchase Order Details *There are no interface parameters to be passed to this subroutine. FORM select_pur_doc . IF NOT t_cdpos IS INITIAL. SORT t_ebeln BY ebeln. LOOP AT t_cdpos INTO fs_cdpos. READ TABLE t_ebeln INTO fs_ebeln WITH KEY ebeln = fs_cdpos-objectid BINARY SEARCH. IF sy-subrc NE 0. DELETE TABLE t_ebeln FROM fs_ebeln. ENDIF. " IF SY-SUBRC NE 0. ENDLOOP. " LOOP AT T_CDPOS... LOOP AT t_ebeln INTO fs_ebeln. MOVE fs_ebeln-ebeln TO fs_ekko-ebeln. MOVE fs_ebeln-ernam TO fs_ekko-ernam. MOVE fs_ebeln-lifnr TO fs_ekko-lifnr. MOVE fs_ebeln-ekgrp TO fs_ekko-ekgrp. MOVE fs_ebeln-bedat TO fs_ekko-bedat. APPEND fs_ekko TO t_ekko. ENDLOOP. " LOOP AT T_EBELN... t_ekko_temp[] = t_ekko[]. ENDIF. " IF NOT T_CDPOS IS INITIAL ENDFORM. " SELECT_PUR_DOC "&--------------------------------------------------------------------- *& Form SELECT_VENDOR "&--------------------------------------------------------------------- *Subroutine to select Vendor details *There are no interface parameters to be passed to this subroutine. FORM select_vendor . IF NOT t_ekko IS INITIAL. SORT t_ekko_temp BY lifnr. DELETE ADJACENT DUPLICATES FROM t_ekko_temp COMPARING lifnr. SELECT lifnr " Account Number of Vendor or Creditor name1 " Name 1 FROM lfa1 INTO TABLE t_lfa1 FOR ALL ENTRIES IN t_ekko_temp WHERE lifnr EQ t_ekko_temp-lifnr. IF sy-subrc NE 0. MESSAGE s002(m8) WITH 'Master Details'(033). ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_EKKO IS INITIAL ENDFORM. " SELECT_VENDOR "&--------------------------------------------------------------------- *& Form DESCRIPTION "&--------------------------------------------------------------------- *Subroutine to get the description *There are no interface parameters to be passed to this subroutine. FORM description . IF NOT t_cdpos IS INITIAL. SORT t_cdpos_temp BY tabname fname. DELETE ADJACENT DUPLICATES FROM t_cdpos_temp COMPARING tabname fname . SELECT tabname " Table Name fieldname " Field Name rollname " Data element FROM dd03l INTO TABLE t_dataele FOR ALL ENTRIES IN t_cdpos_temp WHERE tabname EQ t_cdpos_temp-tabname AND fieldname EQ t_cdpos_temp-fname. IF NOT t_dataele IS INITIAL. t_dataele_temp[] = t_dataele[]. SORT t_dataele_temp BY rollname. DELETE ADJACENT DUPLICATES FROM t_dataele_temp COMPARING rollname. SELECT rollname " Data element ddtext " Short Text Describing R/3 Repository Objects FROM dd04t INTO TABLE t_text FOR ALL ENTRIES IN t_dataele_temp WHERE rollname EQ t_dataele_temp-rollname AND ddlanguage EQ sy-langu. IF sy-subrc NE 0. EXIT. ENDIF. " IF SY-SUBRC NE 0. ENDIF. " IF NOT T_DATAELE IS INITIAL. ENDIF. " IF NOT T_CDPOS IS INITIAL. ENDFORM. " DESCRIPTION "&--------------------------------------------------------------------- *& Form FILL_OUTTAB "&--------------------------------------------------------------------- *Subroutine to populate the Outtab *There are no interface parameters to be passed to this subroutine. FORM fill_outtab . SORT t_cdhdr BY objectclas objectid changenr. SORT t_ekko BY ebeln. SORT t_lfa1 BY lifnr. SORT t_dataele BY tabname fieldname. SORT t_text BY rollname. LOOP AT t_cdpos INTO fs_cdpos. READ TABLE t_cdhdr INTO fs_cdhdr WITH KEY objectclas = fs_cdpos-objectclas objectid = fs_cdpos-objectid changenr = fs_cdpos-changenr BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_cdhdr-username TO fs_outtab-username. MOVE fs_cdhdr-udate TO fs_outtab-udate. READ TABLE t_ekko INTO fs_ekko WITH KEY ebeln = fs_cdhdr-objectid BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_ekko-ebeln TO fs_outtab-ebeln. MOVE fs_ekko-ernam TO fs_outtab-ernam. MOVE fs_ekko-lifnr TO fs_outtab-lifnr. MOVE fs_ekko-ekgrp TO fs_outtab-ekgrp. MOVE fs_ekko-bedat TO fs_outtab-bedat. READ TABLE t_lfa1 INTO fs_lfa1 WITH KEY lifnr = fs_ekko-lifnr BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_lfa1-name1 TO fs_outtab-name1. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. MOVE fs_cdpos-value_new TO fs_outtab-value_new. MOVE fs_cdpos-value_old TO fs_outtab-value_old. READ TABLE t_dataele INTO fs_dataele WITH KEY tabname = fs_cdpos-tabname fieldname = fs_cdpos-fname BINARY SEARCH. IF sy-subrc EQ 0. READ TABLE t_text INTO fs_text WITH KEY rollname = fs_dataele-rollname BINARY SEARCH. IF sy-subrc EQ 0. MOVE fs_text-ddtext TO fs_outtab-ddtext. ENDIF. " IF SY-SUBRC EQ 0. ENDIF. " IF SY-SUBRC EQ 0. APPEND fs_outtab TO t_outtab. CLEAR fs_outtab. ENDLOOP. ENDFORM. " FILL_OUTTAB "&--------------------------------------------------------------------- *& Form GET_CELL_INFO "&--------------------------------------------------------------------- *Subroutine to get the Cell Information *--> W_VALUE Holds the value of Hotspot clicked
FORM get_cell_info .

CALL METHOD w_grid->get_current_cell
IMPORTING

* E_ROW =
e_value = w_value

* E_COL =
* ES_ROW_ID =
* ES_COL_ID =
* ES_ROW_NO =
.
ENDFORM. " GET_CELL_INFO

"&---------------------------------------------------------------------
*& Form VALIDATE_PD_NUM
"&---------------------------------------------------------------------
*Subroutine to validate Purchase Document Number
*There are no interface parameters to be passed to this subroutine.
FORM validate_pd_num .

IF NOT s_ebeln[] IS INITIAL.
SELECT ebeln " Purchase Document Number
FROM ekko
INTO w_ebeln
UP TO 1 ROWS
WHERE ebeln IN s_ebeln.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e717(m8).
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EBELN[]...

ENDFORM. " VALIDATE_PD_NUM

"&---------------------------------------------------------------------
*& Form VALIDATE_VEN_NUM
"&---------------------------------------------------------------------

*Subroutine to validate Vendor Number

*There are no interface parameters to be passed to this subroutine.
FORM validate_ven_num .

IF NOT s_lifnr[] IS INITIAL.
SELECT lifnr " Vendor Number
FROM lfa1
INTO w_lifnr
UP TO 1 ROWS
WHERE lifnr IN s_lifnr.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e002(m8) WITH w_space.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_LIFNR[]...

ENDFORM. " VALIDATE_VEN_NUM
"&---------------------------------------------------------------------
*& Form VALIDATE_PUR_GRP
"&---------------------------------------------------------------------

*Subroutine to validate the Purchase Group

*There are no interface parameters to be passed to this subroutine.
FORM validate_pur_grp .

IF NOT s_ekgrp[] IS INITIAL.
SELECT ekgrp " Purchase Group
FROM t024
INTO w_ekgrp
UP TO 1 ROWS
WHERE ekgrp IN s_ekgrp.

ENDSELECT.

IF sy-subrc NE 0.
CLEAR sscrfields-ucomm.
MESSAGE e622(m8) WITH w_space.
ENDIF. " IF SY-SUBRC NE 0
ENDIF. " IF NOT S_EKFRP[]...

ENDFORM. " VALIDATE_PUR_GRP
"&---------------------------------------------------------------------
*& Form FILL_VARIANT
"&---------------------------------------------------------------------

*Subroutine to fill the Variant Structure

*There are no interface parameters to be passed to this subroutine
FORM fill_variant .
*Filling the Variant structure
w_variant-report = sy-repid.
w_variant-username = sy-uname.
ENDFORM. " FILL_VARIANT

source : http://abapreports.blogspot.com/2008/06/double-click-with-alv-oops.html