使用cl_salv_table输出ALV之五：可编辑的SALV

REPORT ztest_edit_salv.

----------------------------------------------------------------------

• Define the Local class inheriting from the CL_SALV_MODEL_LIST
• to get an access of the model, controller and adapter which inturn
• provides the Grid Object
  ----------------------------------------------------------------------
  CLASS lcl_salv_model DEFINITION INHERITING FROM cl_salv_model_list.

PUBLIC SECTION.
DATA: o_control TYPE REF TO cl_salv_controller_model,
o_adapter TYPE REF TO cl_salv_adapter.

METHODS:
  grabe_model
    IMPORTING
      io_model TYPE REF TO cl_salv_model,

  grabe_controller,

  grabe_adapter.

PRIVATE SECTION.
DATA: lo_model TYPE REF TO cl_salv_model.

ENDCLASS. "LCL_SALV_MODEL DEFINITION

----------------------------------------------------------------------

• Event handler for the added buttons
  ----------------------------------------------------------------------
  CLASS lcl_event_handler DEFINITION.

  PUBLIC SECTION.
  METHODS:
  on_user_command FOR EVENT added_function OF cl_salv_events
  IMPORTING e_salv_function.

ENDCLASS. "lcl_event_handler DEFINITION

----------------------------------------------------------------------

• Local Report class - Definition
  ----------------------------------------------------------------------
  CLASS lcl_report DEFINITION.

  PUBLIC SECTION.

  TYPES: ty_t_sflights TYPE STANDARD TABLE OF sflights.

  DATA: t_data TYPE ty_t_sflights.

  DATA: o_salv TYPE REF TO cl_salv_table.
  DATA: o_salv_model TYPE REF TO lcl_salv_model.

  METHODS:
  get_data,

  generate_output.
  

ENDCLASS. "lcl_report DEFINITION

----------------------------------------------------------------------

• Global data
  ----------------------------------------------------------------------
  DATA: lo_report TYPE REF TO lcl_report.

----------------------------------------------------------------------

• Start of selection
  ----------------------------------------------------------------------
  START-OF-SELECTION.

  CREATE OBJECT lo_report.

  lo_report->get_data( ).

  lo_report->generate_output( ).

----------------------------------------------------------------------

• Local Report class - Implementation
  ----------------------------------------------------------------------
  CLASS lcl_report IMPLEMENTATION.

  METHOD get_data.

  SELECT * FROM sflights
  INTO TABLE me->t_data
  UP TO 30 ROWS.

  ENDMETHOD. "get_data

  METHOD generate_output.
  TRY.
  cl_salv_table=>factory(
  EXPORTING
  list_display = abap_false
  IMPORTING
  r_salv_table = o_salv
  CHANGING
  t_table = t_data ).
  CATCH cx_salv_msg. "#EC NO_HANDLER
  ENDTRY.

  o_salv->set_screen_status(
  pfstatus = ‘SALV_STANDARD’
  report = ‘SALV_DEMO_TABLE_EVENTS’
  set_functions = o_salv->c_functions_all ).

*…Event handler for the button…
DATA: lo_events TYPE REF TO cl_salv_events_table,
lo_event_h TYPE REF TO lcl_event_handler.

• event object
  lo_events = o_salv->get_event( ).

• event handler
  CREATE OBJECT lo_event_h.

• setting up the event handler
  SET HANDLER lo_event_h->on_user_command FOR lo_events.

*…Get Model Object …
DATA: lo_alv_mod TYPE REF TO cl_salv_model.

• Narrow casting
  lo_alv_mod ?= o_salv.

• object for the local inherited class from the CL_SALV_MODEL_LIST
  CREATE OBJECT o_salv_model.

• grabe model to use it later
  CALL METHOD o_salv_model->grabe_model
  EXPORTING
  io_model = lo_alv_mod.

*…Generate ALV output …
o_salv->display( ).

ENDMETHOD. "generate_output

ENDCLASS. "lcl_report IMPLEMENTATION

----------------------------------------------------------------------

• LCL_SALV_MODEL implementation
  ----------------------------------------------------------------------
  CLASS lcl_salv_model IMPLEMENTATION.

  METHOD grabe_model.

• save the model
  lo_model = io_model.

ENDMETHOD. "grabe_model

METHOD grabe_controller.

• save the controller
  o_control = lo_model->r_controller.

ENDMETHOD. "grabe_controller

METHOD grabe_adapter.

• save the adapter from controller
  o_adapter ?= lo_model->r_controller->r_adapter.

ENDMETHOD. "grabe_adapter

ENDCLASS. "LCL_SALV_MODEL IMPLEMENTATION

----------------------------------------------------------------------

• Event Handler for the SALV
  ----------------------------------------------------------------------
  CLASS lcl_event_handler IMPLEMENTATION.

  METHOD on_user_command.

  DATA: lo_grid TYPE REF TO cl_gui_alv_grid,
  lo_full_adap TYPE REF TO cl_salv_fullscreen_adapter.

  DATA: ls_layout TYPE lvc_s_layo.

  CASE e_salv_function.

• Make ALV as Editable ALV
  WHEN 'MYFUNCTION'.
  

•   Contorller
    CALL METHOD lo_report->o_salv_model->grabe_controller.
  

•   Adapter
    CALL METHOD lo_report->o_salv_model->grabe_adapter.
  

•   Fullscreen Adapter (Down Casting)
    lo_full_adap ?= lo_report->o_salv_model->o_adapter.
  

•   Get the Grid
    lo_grid = lo_full_adap->get_grid( ).
  

•   Got the Grid .. ?
    IF lo_grid IS BOUND.
  

•     Editable ALV
      ls_layout-edit = 'X'.
  

•     Set the front layout of ALV
      CALL METHOD lo_grid->set_frontend_layout
        EXPORTING
          is_layout = ls_layout.
  

•     refresh the table
      CALL METHOD lo_grid->refresh_table_display.
  
    ENDIF.
  

  ENDCASE.

  ENDMETHOD. "on_user_command

ENDCLASS. "lcl_event_handler IMPLEMENTATION