REPORT  z17_18                                 .

 

*----------------------------------------------------------------------*
*       CLASS lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
class lcl_handle_events definition.
  public section.
    methods:
      on_link_click for event link_click of cl_salv_events_table
        importing row column.
endclass.                    "lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_handle_events IMPLEMENTATION
*----------------------------------------------------------------------*
class lcl_handle_events implementation.
  method on_link_click.
    perform show_cell_info using row column 'Host spot 클릭하였습니다.'.
  endmethod.                    "on_double_click
endclass.                    "lcl_handle_events IMPLEMENTATION

data gt_itab    type table of sflight.
data gr_table   type ref to cl_salv_table.
data gr_event   type ref to lcl_handle_events.
data gr_columns type ref to cl_salv_columns_table.
data gr_column  type ref to cl_salv_column_table.

start-of-selection.

  select * from sflight into table gt_itab
  up to 25 rows.

  cl_salv_table=>factory(
    importing
      r_salv_table = gr_table
    changing
      t_table      = gt_itab ).

  gr_columns = gr_table->get_columns( ).
  gr_column ?= gr_columns->get_column( 'CARRID' ).
  gr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).

  data lr_event type ref to cl_salv_events_table.
  lr_event = gr_table->get_event( ).

  create object gr_event.
  set handler gr_event->on_link_click for lr_event.

  gr_table->display( ).
*&---------------------------------------------------------------------*
*&      Form  SHOW_CELL_INFO
*&---------------------------------------------------------------------*
form show_cell_info using p_row    type i
                          p_column type lvc_fname
                          p_text   type string.

  data: l_row        type char10.

  write p_row to l_row left-justified.

  concatenate l_row '번째 라인의' p_column '컬럼을' p_text
  into p_text separated by space.

  message i000(0k) with p_text.

endform.                    " show_cell_info

사이트운영 : http://sapjoy.co.kr  

저         서 : Easy ABAP, Plus ABAP

경         험 : SAP ABAP Tuning, SAP SCM(SD/PP/QM/PM/WM/APO)

자         격 : SAP SD / PP  / SAP ABAP Certification 등

메         일 : sapjoy@naver.com