메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT z17_18 .

sapjoy 2012.08.02 05:30 조회 수 : 2367

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

번호 제목 글쓴이 날짜 조회 수
651 <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] sapjoy 2006.12.03 3628
650 REPORT z19_01. sapjoy 2012.08.02 3613
649 z_exception_test sapjoy 2010.10.11 3526
648 report zsalv_036 . sapjoy 2010.08.20 3477
647 REPORT z18_04 . sapjoy 2012.08.02 3445
646 REPORT z18_05 sapjoy 2012.08.02 3439
645 subroutine pool sapjoy 2013.11.16 3360
644 REPORT ZSMARTFORMS_03. sapjoy 2008.11.28 3348
643 Sub DOI_EXCEL_MACRO() sapjoy 2008.12.26 3321
642 REPORT z18_003 sapjoy 2007.03.06 3286
641 zsalv_edit [1] sapjoy 2010.08.20 3274
640 REPORT z18_06. sapjoy 2012.08.02 3253
639 REPORT z19_004 sapjoy 2007.03.28 3245
638 REPORT ZSAPTIP_002. sapjoy 2009.02.20 3227
637 REPORT Z_WHEREUSEDLIST [4] sapjoy 2011.03.29 3223
636 REPORT z18_01. sapjoy 2012.08.02 3221
635 REPORT ZALVCOLOR sapjoy 2010.10.10 3216
634 REPORT Z06_001 MESSAGE-ID ZTEST . [1] sapjoy 2006.12.05 3214
633 REPORT z18_02. sapjoy 2012.08.02 3182
632 REPORT zsapdoi_001. [2] sapjoy 2008.12.20 3143