REPORT  z17_20                                 .

*----------------------------------------------------------------------*
*       CLASS lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
class lcl_handle_events definition.
  public section.
    methods:
      on_user_command for event added_function of cl_salv_events
        importing e_salv_function.
endclass.                    "lcl_handle_events DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_handle_events IMPLEMENTATION
*----------------------------------------------------------------------*
class lcl_handle_events implementation.
  method on_user_command.
    perform handle_user_command using e_salv_function.
  endmethod.                    "on_user_command
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_functions  type ref to cl_salv_functions_list.
data gr_container  type ref to cl_gui_custom_container.
data ok_code type syucomm.


start-of-selection.

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

  call screen 100.
*&---------------------------------------------------------------------*
*&      Module  0100_PBO  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module 0100_pbo output.

  set pf-status '0100'.
  if gr_container is not bound.
*1. 컨테이너 생성
    create object gr_container
      exporting
        container_name = 'CONTAINER'.

*2. ALV 테이블 및 데이터 전달
    cl_salv_table=>factory(
      exporting
        r_container    = gr_container
        container_name = 'CONTAINER'
      importing
        r_salv_table   = gr_table
      changing
        t_table        = gt_itab ).


*3. ALV 기본 기능 버튼 설정
    gr_functions = gr_table->get_functions( ).
*    gr_functions->set_default( ).
    gr_functions->set_all( abap_true ).


    include <icon>.
    data : l_icon type string.

    l_icon = icon_refresh.

    gr_functions->add_function(
        name     = 'REFRESH'
        icon     = l_icon
        text     = 'REFRESH'
        tooltip  = 'REFRESH'
        position = if_salv_c_function_position=>right_of_salv_functions
        ).

*4. 이벤트 등록
    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_user_command for lr_event.



*5. ALV 호출
    gr_table->display( ).
  endif.

endmodule.                 " 0100_PBO  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  0100_PAI  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module 0100_pai input.

  case ok_code.
    when 'BACK' or 'EXIT' or 'CANC'.
      set screen 0.
      leave screen.
  endcase.

endmodule.                 " 0100_PAI  INPUT
*&---------------------------------------------------------------------*
*&      Form  HANDLE_USER_COMMAND
*&---------------------------------------------------------------------*
form handle_user_command using p_function type salv_de_function.

  case p_function.
    when 'REFRESH'.
      perform refresh.
    when others.
  endcase.

endform.                    "handle_user_command
*&---------------------------------------------------------------------*
*&      Form  REFRESH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form refresh .

  select * from sflight
  into corresponding fields of table gt_itab
        up to 10 rows.

  gr_table->refresh( ).


endform.                    " REFRESH