OO面向对象ALV小测试

选择屏幕时，不需要话个alv控件，

这时也可以用OO ALV的

REPORT  zlm_alv_oo_03 .

DATA :

 

          g_it_spfli  TYPE  TABLE  OF spfli ,

 

          g_wa_spfli  TYPE spfli .

DATA : l_ref_alv    TYPE  REF  TO cl_gui_alv_grid .

DATA : g_s_events  TYPE slis_t_event .

DATA : gt_events    TYPE slis_t_event ,                    "ALV 事件

 

          gw_events    TYPE slis_alv_event .

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

*       事件类定义

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

CLASS lcl_event_handler DEFINITION .

  PUBLIC SECTION .

    METHODS:

*To add new functional buttons to the ALV toolbar

    handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid

    IMPORTING e_object ,"e_interactive     ,

*To implement user commands

    handle_user_command

    FOR EVENT user_command OF cl_gui_alv_grid

    IMPORTING e_ucomm             ,

*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 ,

*Double-click control

    handle_double_click

    FOR EVENT double_click OF cl_gui_alv_grid

    IMPORTING e_row e_column    ,

    handle_data_changed

    FOR EVENT data_changed OF cl_gui_alv_grid

    IMPORTING er_data_changed         .

ENDCLASS.                    "lcl_event_handler DEFINITION

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

*       CLASS lcl_event_handler IMPLEMENTATION

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

*  事件类实现

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

CLASS lcl_event_handler IMPLEMENTATION .

*Handle Toolbar

  METHOD handle_toolbar.

    PERFORM handle_toolbar USING e_object ." e_interactive .

  ENDMETHOD .                    "handle_toolbar

*Handle Hotspot Click

  METHOD handle_hotspot_click .

    PERFORM handle_hotspot_click USING e_row_id e_column_id es_row_no .

  ENDMETHOD .                    "handle_hotspot_click

*Handle Double Click

  METHOD handle_double_click .

    PERFORM handle_double_click USING e_row e_column .

  ENDMETHOD .                    "handle_double_click

*Handle User Command

  METHOD handle_user_command .

    PERFORM handle_user_command USING e_ucomm .

  ENDMETHOD.                    "handle_user_command

*Handle Data Changed

  METHOD handle_data_changed .

    PERFORM handle_data_changed USING er_data_changed .

  ENDMETHOD.                    "handle_data_changed

ENDCLASS .                     "lcl_event_handler IMPLEMENTATION

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

*&      Form  HANDLE_BEFORE_USER_COMMAND

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

*       text

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

*      -->P_E_UCOMM  text

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

FORM handle_before_user_command  USING    p_e_ucomm.

ENDFORM.                    " HANDLE_BEFORE_USER_COMMAND

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

*&      Form  HANDLE_DOUBLE_CLICK

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

*       text

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

*      -->P_E_ROW  text

*      -->P_E_COLUMN  text

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

FORM handle_double_click   USING    e_row TYPE lvc_s_row

                                    e_column TYPE lvc_s_col.

  READ TABLE g_it_spfli INTO g_wa_spfli  INDEX e_row-index.

  IF sy-subrc = 0 AND e_column-fieldname = 'CITYFROM'.

    MESSAGE g_wa_spfli-cityfrom   TYPE 'I'.

  ELSE.

    MESSAGE g_wa_spfli-carrid TYPE 'I'.

  ENDIF.

ENDFORM.                    " HANDLE_DOUBLE_CLICK

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

*&      Form  HANDLE_HOTSPOT_CLICK

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

*       text

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

*      -->P_E_ROW_ID  text

*      -->P_E_COLUMN_ID  text

*      -->P_ES_ROW_NO  text

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

FORM handle_hotspot_click  USING    e_row       TYPE lvc_s_row

                                    e_column    TYPE lvc_s_col

                                    es_row_no   TYPE lvc_s_roid.

ENDFORM.                    " HANDLE_HOTSPOT_CLICK

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

*&      Form  HANDLE_TOOLBAR

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

*       text

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

*      -->P_E_OBJECT  text

*      -->P_E_INTERACTIVE  text

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

form HANDLE_TOOLBAR  using    p_e_object

                              p_e_interactive.

endform.                    " HANDLE_TOOLBAR 

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

*&      Form  HANDLE_USER_COMMAND

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

*       text

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

*      -->P_E_UCOMM  text

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

FORM handle_user_command  USING    p_e_ucomm.

ENDFORM.                    " HANDLE_USER_COMMAND

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

*&      Form  HANDLE_DATA_CHANGED

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

*       text

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

*      -->P_ER_DATA_CHANGED  text

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

FORM handle_data_changed  USING    p_er_data_changed.

ENDFORM.                    " HANDLE_DATA_CHANGED

START-OF-SELECTION.

  SELECT * FROM spfli INTO TABLE g_it_spfli.

  PERFORM zform_show.

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

*&      Form  zform_show

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

FORM zform_show.

*填充事件信息

  CLEAR gt_events[].

  gw_events-name = 'CALLER_EXIT'.

  gw_events-form = 'CALLER_EXIT'.

  APPEND gw_events TO gt_events.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

   EXPORTING

     i_callback_program                = sy-repid

     i_structure_name                  = 'SPFLI'

     it_events                         = gt_events[]

    TABLES

      t_outtab                          =  g_it_spfli

            .

ENDFORM.                    "zform_show

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

*&      Form  caller_exit

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

FORM caller_exit USING ls_data TYPE slis_data_caller_exit.

  DATA: o_event_handler    TYPE REF TO lcl_event_handler."声明事件处理类对象。

*创建事件处理类

  CREATE OBJECT o_event_handler.

*获取全局的ALV对象

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    IMPORTING

      e_grid = l_ref_alv.

*设置事件理类

  SET HANDLER o_event_handler->handle_toolbar        FOR l_ref_alv.

  SET HANDLER o_event_handler->handle_user_command   FOR l_ref_alv.

  SET HANDLER o_event_handler->handle_double_click   FOR l_ref_alv.

  SET HANDLER o_event_handler->handle_hotspot_click  FOR l_ref_alv.

  SET HANDLER o_event_handler->handle_data_changed   FOR l_ref_alv.

ENDFORM.                    "CALLER_EXIT