hotspot in ALV

ZOTC_LCBO_GROCERY_ORDERS
 ****************************************************************************
* Identification                                                           *
*   Technical Object(s)      : Report-->  ZOTC_LCBO_GROCERY_ORDERS         *
*                              Include--> ZOTC_LCBO_GROCERY_TOP            *
*                              Include--> ZOTC_LCBO_GROCERY_SEL            *
*                              Include--> ZOTC_LCBO_GROCERY_SUB            *
*   Title                    : OTC LCBO Grocery Orders Report              *
*   Description              :                                             *
*    LCBO Daily Grocery Orders Report to send to LCBO or Brewers           *
*   Technical Consultant     : Richard Gilmore                             *
*   Solutions Architect      : Sean Pereira                                *
*   Functional Consultant    : Laura Alexander                             *
*   Creation Date            : 2018.06.10                                  *
*   Project/Ticket           : BREWS                                       *
****************************************************************************
* Date           Name             Project/Defect/Change Request ID         *
****************************************************************************
* 2018.06.10     RGILMORE         BREWS Project – Phase 2 (Realization)    *
*                                 Initial Version.                         *
*                                 33035 CR64 LCBO Grocery Store Sales Orders
* 2018.06.25     AMACDONALD       BREWS Project – Phase 2 (Realization)    *
*                                 Defect #1453 - remove hardcoded file path*
*                                 and replace with selection screen        *
*                                 defaulting from Parameter                *
*                                                                          *
* 2018.07.19     QCAO             BREWS Project – Phase 2 (Realization)    *
*                                 Defect #1514  - Add the SAP customer #   *
*                                 (VBAK-KUNNR) ANDpurchase order type      *
*                                 (VBAK-BSARK) to the report.              *
*                                 Added hotspot to vbak-vbeln to call VA03 *
*                                 and skip initial screen.                 *
****************************************************************************
REPORT zotc_lcbo_grocery_orders MESSAGE-ID zotc LINE-SIZE 133.

INCLUDE zotc_lcbo_grocery_top.            "Global data declaration

INCLUDE zotc_lcbo_grocery_sel.            "Selection screen

INCLUDE zotc_lcbo_grocery_cls.            "processing class

INCLUDE zotc_lcbo_grocery_sub.            "Subroutines


INITIALIZATION.

  AUTHORITY-CHECK OBJECT 'V_KNA1_VKO' "Customer: Authorization for Sales Organizations
    ID 'VKORG'   FIELD ' ' "
    ID 'VTWEG'   FIELD '*' "(All Distribution Channels)
    ID 'SPART'   FIELD '*' "(All Divisions)
    ID  'ACTVT'  FIELD '03'. " (Display Activity)
  IF sy-subrc NE 0.
    MESSAGE e005.
  ENDIF.


* Schalter Varianten benutzerspezifisch/allgemein speicherbar setzen
  PERFORM variant_init.


  perform get_filepath.

  perform initialize_file_path .

* Get default variant
  s_var_usr = s_variant.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = 'A'
    CHANGING
      cs_variant = s_var_usr
    EXCEPTIONS
      not_found  = 2.
  IF sy-subrc = 0.
    p_layout =  s_var_usr-variant.
  ENDIF.

**********************************************************************
START-OF-SELECTION.
  CREATE OBJECT LO_EVENT_HANDLER .                                " Defect 1514 July 23 2018 Qcao

  CREATE OBJECT lo_process.

  CALL METHOD lo_process->process.

*---------------------------------------
    CALL METHOD lo_process->prepare_layout
      CHANGING
        p_gs_layout = gs_layout.

*   Load data into the grid and display them
    CALL METHOD go_grid->set_table_for_first_display
      EXPORTING
        is_layout       = gs_layout
        is_variant      = gs_variant
        i_save          = 'A'
      CHANGING
        it_outtab       = gt_final
        it_fieldcatalog = gt_fieldcat.
    SET HANDLER LO_EVENT_HANDLER->HANDLE_HOTSPOT_CLICK FOR GO_GRID. " Defect 1514 July 23 2018 Qcao

  ELSE.

    CALL METHOD go_grid->refresh_table_display
      EXCEPTIONS
        finished = 1
        OTHERS   = 2.
    SET HANDLER LO_EVENT_HANDLER->HANDLE_HOTSPOT_CLICK FOR GO_GRID. " Defect 1514 July 23 2018 Qcao

  ENDIF.

---------------------------------
    ls_fcat-fieldname = 'VBELN' .
    ls_fcat-coltext   = 'Sales order number' .
    ls_fcat-col_pos   = ls_fcat-col_pos + 1 .
    ls_fcat-outputlen = '18' .
    ls_fcat-hotspot   = 'X'.                                " Defect 1514 July 23 2018 QCao
    ls_fcat-ref_field  = 'VBELN'.                           " Defect 1514 July 23 2018 QCao
    ls_fcat-ref_table  = 'VBAK'.                            " Defect 1514 July 23 2018 QCao
    APPEND ls_fcat TO p_gt_fieldcat .
    CLEAR: ls_fcat.

* Begin Defect 1514
*----------------------------------------------------------------------*
*-----------------------------------
* Event Handler Class definition
*
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

*----------------------------------
* Event Handler Class implimentation
*
CLASS lcl_event_handler IMPLEMENTATION.

  METHOD handle_hotspot_click.

    READ TABLE gt_final INTO gs_final INDEX e_row_id-index.

    IF sy-subrc = 0.
      SET PARAMETER ID 'AUN' FIELD gs_final-vbeln.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
    ENDIF.

  ENDMETHOD. "handle_hotspot_click


ENDCLASS. "lcl_event_handler IMPLEMENTATION
* End Defect 1514
DATA: lo_process TYPE REF TO lcl_process,
      lo_event_handler  TYPE REF TO lcl_event_handler.          " Defect 1514 July 23 2018 Qcao