How can I use hotspot click in an ALV grid?

Question

Hello,
I have a table that is displayed in an ALV grid and I would like to have one of the columns as clickable icons.
For example:
Print  |  Doc. Type | Name
(icon) |   .docx      | first
(icon) |   .pdf         | second ... and so on.
I would like to click in the icon (Print column) and execute an action, but no matter what I do I can't set the action.
I know that is not just setting "fieldcatalog-hotspot='X'", but I don't know how to use a hotspot handler.
Here's some of the code I have:
TYPES: BEGIN OF ty_docs,
                    print LIKE ICON-ID,
                    doc_type LIKE table_doc-TYPE,
                    name LIKE table_doc-NAME,
             END OF ty_docs.
DATA:  oref_dock TYPE REF TO cl_gui_docking_container,
            oref_alv TYPE REF TO cl_gui_alv_grid,
            i_fieldcat TYPE lvc_t_fcat,
            aux_fieldcat TYPE lvc_s_fcat,
            aux_lay TYPE lvc_s_layo,
            i_exclude TYPE TABLE OF syucomm,
            i_docs TYPE ty_docs,
            t_docs LIKE TABLE OF i_docs.
AT SELECTION-SCREEN OUTPUT.
   APPEND 'ONLI' TO i_exclude.
   APPEND 'SJOB' TO i_exclude.
   APPEND 'PRIN' TO i_exclude.
   CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
     EXPORTING
       p_status = sy-pfkey
       p_program = sy-repid
     TABLES
       p_exclude = i_exclude.
AT SELECTION-SCREEN.
   CHECK sy-ucomm = space.
     SELECT
           icon~ID AS print
           doc~TYPE AS doc_type
           doc~NAME as name
             INTO CORRESPONDING FIELDS OF TABLE t_docs
             FROM table_doc AS doc
                  INNER JOIN ICON AS icon    
                    ON icon~NAME EQ 'ICON_PRINT'
             GROUP BY icon~ID doc~TYPE doc~NAME.
   IF sy-subrc = 0.
     IF oref_dock IS NOT BOUND.
       CREATE OBJECT oref_dock
          EXPORTING
            repid = sy-repid
            dynnr = sy-dynnr
            side = cl_gui_docking_container=>dock_at_bottom
            ratio = 90
         EXCEPTIONS
           OTHERS = 1.
     ENDIF.
     IF oref_alv IS NOT BOUND.
       CHECK oref_dock IS BOUND.
       CREATE OBJECT oref_alv
         EXPORTING
           i_parent = oref_dock
         EXCEPTIONS
           OTHERS = 1.
       CHECK oref_alv IS BOUND.
       aux_fieldcat-fieldname = 'PRINT'.
       aux_fieldcat-coltext = 'Print'.
       aux_fieldcat-ref_table = 't_docs'.
       aux_fieldcat-ref_field = 't_docs-print'.
       aux_fieldcat-edit = ''.
       aux_fieldcat-just = 'C'.
       aux_fieldcat-hotspot = 'X'.
       aux_fieldcat-outputlen = 10.
       aux_fieldcat-col_pos = 0.
       APPEND aux_fieldcat TO i_fieldcat.
       CLEAR aux_fieldcat.
       aux_fieldcat-fieldname = 'TYPE'.
       aux_fieldcat-coltext = 'Doc. Type'.
       aux_fieldcat-ref_table = 't_docs'.
       aux_fieldcat-ref_field = 't_docs-doc_type'.
       aux_fieldcat-edit = ''.
       aux_fieldcat-outputlen = 15.
       aux_fieldcat-col_pos = 1.
       APPEND aux_fieldcat TO i_fieldcat.
       CLEAR aux_fieldcat.
       aux_fieldcat-fieldname = 'NAME'.
       aux_fieldcat-coltext = 'Name'.
       aux_fieldcat-ref_table = 't_docs'.
       aux_fieldcat-ref_field = 't_docs-name'.
       aux_fieldcat-edit = ''.
       aux_fieldcat-outputlen = 12.
       aux_fieldcat-col_pos = 2.
       APPEND aux_fieldcat TO i_fieldcat.
       CLEAR aux_fieldcat.
       aux_lay-grid_title = 'Docs'.
       aux_lay-edit = ''.
       CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
         EXPORTING
          i_structure_name = 'ty_docs'
          i_internal_tabname = 't_docs'
        CHANGING
          ct_fieldcat = i_fieldcat
       EXCEPTIONS
         OTHERS = 3.
       CALL METHOD oref_alv->set_table_for_first_display
         EXPORTING
           i_structure_name = 'ty_docs'
           is_layout = aux_lay
         CHANGING
           it_fieldcatalog = i_fieldcat
           it_outtab = t_docs
         EXCEPTIONS
           OTHERS = 1.
     ELSE.
       CALL METHOD oref_alv->refresh_table_display
         EXCEPTIONS
           OTHERS = 1.
     ENDIF.
  ENDIF.
Thank you so much in advance!

Answer 1

Hi,
After creating grid set the even handler for hot spot.
SET HANDLER lcl_event_receiver=>handle_hotspot_click FOR alv_grid.
Try this code:
TABLES: mara,t001l.
DATA: BEGIN OF i_alv OCCURS 0,
       matnr TYPE mara-matnr,
       mtart TYPE mara-mtart,
       matkl TYPE mara-matkl,
       groes TYPE mara-groes,
       maktx TYPE makt-maktx,
       END OF i_alv.
DATA: wa_alv  LIKE LINE OF i_alv.
DATA: alv_container  TYPE REF TO cl_gui_docking_container.
DATA: alv_grid       TYPE REF TO cl_gui_alv_grid.
DATA: layout    TYPE lvc_s_layo.
DATA: fieldcat  TYPE lvc_t_fcat.
DATA: gt_t001l TYPE STANDARD TABLE OF t001l.
CLASS lcl_event_receiver DEFINITION.
   PUBLIC SECTION.
*-->Method for User command
     CLASS-METHODS :
     handle_hotspot_click FOR EVENT hotspot_click    OF
                                           cl_gui_alv_grid
                                 IMPORTING E_ROW_ID e_column_id.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*       CLASS lcl_event_receiver IMPLEMENTATION
CLASS  lcl_event_receiver IMPLEMENTATION.
   METHOD handle_hotspot_click.
     READ TABLE i_alv INTO wa_alv
      INDEX e_row_id-index
       TRANSPORTING matnr.
     SET PARAMETER ID 'MAT' FIELD wa_alv-matnr.
     CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
   ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
PARAMETERS: p_check TYPE matnr.
INITIALIZATION.
PERFORM get_data.
AT SELECTION-SCREEN OUTPUT.
*  START-OF-SELECTION.
   DATA: variant TYPE  disvariant.
   DATA: repid TYPE sy-repid.
   repid = sy-repid.
   variant-report = sy-repid.
   variant-username = sy-uname.
   layout-zebra = 'X'.
   layout-edit_mode = 'X'.
   CHECK alv_container IS INITIAL.
   CREATE OBJECT alv_container
               EXPORTING repid     = repid
                         dynnr     = sy-dynnr
                         side      = alv_container->dock_at_right
                         extension = 350.
   CREATE OBJECT alv_grid
          EXPORTING
                i_parent          =  alv_container.
* Set event handler
   SET HANDLER lcl_event_receiver=>handle_hotspot_click FOR alv_grid.
*  ALV Specific. Data selection.
*  Populate Field Catalog
   PERFORM get_fieldcatalog.
   CALL METHOD alv_grid->set_table_for_first_display
     EXPORTING
       is_layout        = layout
       is_variant       = variant
       i_save           = 'U'
       i_structure_name = 'I_ALV'
     CHANGING
       it_outtab        = i_alv[]
       it_fieldcatalog  = fieldcat[].
START-OF-SELECTION.
* FORM GET_DATA
FORM get_data.
   SELECT * INTO CORRESPONDING FIELDS OF TABLE i_alv
         FROM mara
           INNER JOIN makt
             ON mara~matnr = makt~matnr
                    UP TO 100 ROWS
                WHERE makt~spras = sy-langu.
   SORT i_alv ASCENDING BY matnr.
ENDFORM.                    "get_data
*      Form  Get_Fieldcatalog - Set Up Columns/Headers
FORM get_fieldcatalog.
   DATA: ls_fcat TYPE lvc_s_fcat.
   REFRESH: fieldcat.
   CLEAR: ls_fcat.
   ls_fcat-reptext    = 'Material Number'.
   ls_fcat-fieldname  = 'MATNR'.
   ls_fcat-ref_table  = 'I_ALV'.
   ls_fcat-outputlen  = '18'.
   ls_fcat-fix_column = 'X'.
   ls_fcat-key        = 'X'.
   ls_fcat-hotspot    = 'X'.
   ls_fcat-col_pos    = '1'.
   APPEND ls_fcat TO fieldcat.
   CLEAR: ls_fcat.
   ls_fcat-reptext    = 'Material Type'.
   ls_fcat-fieldname  = 'MTART'.
   ls_fcat-ref_table  = 'I_ALV'.
   ls_fcat-outputlen  = '10'.
   ls_fcat-fix_column = 'X'.
   ls_fcat-key        = 'X'.
   ls_fcat-col_pos    = '2'.
   APPEND ls_fcat TO fieldcat.
   CLEAR: ls_fcat.
   ls_fcat-reptext    = 'Material Group'.
   ls_fcat-fieldname  = 'MATKL'.
   ls_fcat-ref_table  = 'I_ALV'.
   ls_fcat-outputlen  = '12'.
   ls_fcat-col_pos    = '3'.
   APPEND ls_fcat TO fieldcat.
   CLEAR: ls_fcat.
   ls_fcat-reptext    = 'Size'.
   ls_fcat-fieldname  = 'GROES'.
   ls_fcat-ref_table  = 'I_ALV'.
   ls_fcat-outputlen  = '30'.
   ls_fcat-col_pos    = '4'.
   APPEND ls_fcat TO fieldcat.
   CLEAR: ls_fcat.
   ls_fcat-reptext    = 'Material Description'.
   ls_fcat-fieldname  = 'MAKTX'.
   ls_fcat-ref_table  = 'I_ALV'.
   ls_fcat-outputlen  = '40'.
   ls_fcat-col_pos    = '5'.
   APPEND ls_fcat TO fieldcat.
ENDFORM.                    "get_fieldcatalog
Hope this solves your problem....