Шаблон для класса, обрабатывающего события cl_gui_alv_grid
*===============================================================
* class alv_event_receiver: local class to
* define and handle own functions.
*
* Definition:
* ~~~~~~~~~~~
CLASS alv_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
lm_handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id sender.
ENDCLASS. "alv_event_receiver DEFINITION
****************************************************************
* LOCAL CLASSES: Implementation
****************************************************************
*===============================================================
* class alv_event_receiver (Implementation)
*
*
CLASS alv_event_receiver IMPLEMENTATION.
*-----------------------------------------------------------------------
* METHOD : HOTSPOT
* DESCRIPTION : HOTSPOT
*-----------------------------------------------------------------------
METHOD lm_handle_hotspot_click.
.
READ TABLE gt_disp ASSIGNING <gfs_disp> INDEX e_row_id-index.
SET PARAMETER ID 'AN1' FIELD <gfs_disp>-anln1.
SET PARAMETER ID 'BUK' FIELD <gfs_disp>-bukrs.
CALL TRANSACTION 'AW01N' AND SKIP FIRST SCREEN.
ENDMETHOD. "LM_HANDLE_DOUBLE_CLICK
*-----------------------------------------------------------------------
ENDCLASS. "alv_event_receiver IMPLEMENTATION
* class alv_event_receiver: local class to
* define and handle own functions.
*
* Definition:
* ~~~~~~~~~~~
CLASS alv_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS:
lm_handle_hotspot_click
FOR EVENT hotspot_click OF cl_gui_alv_grid
IMPORTING e_row_id e_column_id sender.
ENDCLASS. "alv_event_receiver DEFINITION
****************************************************************
* LOCAL CLASSES: Implementation
****************************************************************
*===============================================================
* class alv_event_receiver (Implementation)
*
*
CLASS alv_event_receiver IMPLEMENTATION.
*-----------------------------------------------------------------------
* METHOD : HOTSPOT
* DESCRIPTION : HOTSPOT
*-----------------------------------------------------------------------
METHOD lm_handle_hotspot_click.
.
READ TABLE gt_disp ASSIGNING <gfs_disp> INDEX e_row_id-index.
SET PARAMETER ID 'AN1' FIELD <gfs_disp>-anln1.
SET PARAMETER ID 'BUK' FIELD <gfs_disp>-bukrs.
CALL TRANSACTION 'AW01N' AND SKIP FIRST SCREEN.
ENDMETHOD. "LM_HANDLE_DOUBLE_CLICK
*-----------------------------------------------------------------------
ENDCLASS. "alv_event_receiver IMPLEMENTATION
Комментариев нет:
Отправить комментарий