Display fields as checkbox, pushbutton, dropdownbox in ALV

REPORT  ztest_6.

**********************************************************************
*Table Declaration
**********************************************************************
TABLES: ekko.

TYPE-POOLS: cntl,slis.

**********************************************************************
*DATA DECLARATION
**********************************************************************
DATA: BEGIN OF it_ekko OCCURS 0,
        sel(1),
        ebeln LIKE ekpo-ebeln,
        ebelp LIKE ekpo-ebelp,
        statu LIKE ekpo-statu,
        aedat LIKE ekpo-aedat,
        matnr LIKE ekpo-matnr,
        menge LIKE ekpo-menge,
        meins LIKE ekpo-meins,
        peinh LIKE ekpo-peinh,
        btn(10),
        drdbox(20),
        dd_handle TYPE int4,
        cellstyle TYPE lvc_t_styl,
      END OF it_ekko.

**********************************************************************
*DATA declaration for ALV
**********************************************************************
DATA: it_fieldcatalog TYPE lvc_t_fcat,
      wa_fieldcatalog TYPE lvc_s_fcat,
      g_tab_group TYPE slis_sp_group_alv,
      g_layout   TYPE slis_layout_alv,
      g_repid LIKE sy-repid,
      w_layout TYPE lvc_s_layo,
      g_stylerow TYPE lvc_s_styl,
      g_t_ddval TYPE lvc_t_drop,
      g_ddval TYPE lvc_s_drop,
      g_events TYPE slis_t_event,
      g_event TYPE slis_alv_event,
      g_styletab TYPE TABLE OF lvc_s_styl.


*----------------------------------------------------------------------*
*       CLASS lcl_event_handlers DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_event_handlers DEFINITION.
  PUBLIC SECTION.
    METHODS: handle_button_click FOR EVENT button_click OF cl_gui_alv_grid
                                  IMPORTING es_col_id es_row_no.
ENDCLASS.                    "lcl_event_handlers DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_event_handlers IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_handlers IMPLEMENTATION.
  METHOD handle_button_click.
    DATA: l_row(10),
          l_str TYPE string.
    l_row = es_row_no-row_id.
    CONCATENATE 'You have clicked on column :' es_col_id-fieldname ',row:' l_row INTO l_str.
    MESSAGE l_str TYPE 'I'.
  ENDMETHOD.                    "handle_button_click
ENDCLASS.                    "lcl_event_handlers IMPLEMENTATION

**********************************************************************
*START-OF-SELECTION
**********************************************************************
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM create_dropdown_values.
  PERFORM create_event_exits.
  PERFORM display_alv_report.

*&---------------------------------------------------------------------*
*&      Form  DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       retrieve data from table ekpo
*----------------------------------------------------------------------*
FORM data_retrieval .
  SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
                  UP TO 10 ROWS FROM ekpo
                  INTO CORRESPONDING FIELDS OF TABLE it_ekko.
  LOOP AT it_ekko.
    it_ekko-btn = sy-tabix.
    it_ekko-dd_handle = 1.
    CLEAR g_styletab.REFRESH g_styletab.
*>IF the item no is equal to 1, this cell will can not be edited.
    IF it_ekko-ebelp EQ 1.
      g_stylerow-fieldname = 'SEL'.
      g_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
      APPEND g_stylerow TO g_styletab.
    ENDIF.
*>let the column display as pushbutton
    g_stylerow-fieldname = 'BTN'.
    g_stylerow-style = cl_gui_alv_grid=>mc_style_button.
    APPEND g_stylerow TO g_styletab.
    it_ekko-cellstyle[] = g_styletab[].
    MODIFY it_ekko.
  ENDLOOP.
ENDFORM.                    " DATA_RETRIEVAL

*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       populate fieldcatalog
*----------------------------------------------------------------------*
FORM build_fieldcatalog .
*>The column will be displayed as checkbox
  wa_fieldcatalog-col_pos = 1.
  wa_fieldcatalog-fieldname = 'SEL'.
  wa_fieldcatalog-scrtext_l = 'Check'.
  wa_fieldcatalog-checkbox = 'X'.
  wa_fieldcatalog-edit     = 'X'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 2.
  wa_fieldcatalog-fieldname = 'EBELN'.
  wa_fieldcatalog-scrtext_l = 'TST1'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 3.
  wa_fieldcatalog-fieldname = 'EBELP'.
  wa_fieldcatalog-scrtext_l = 'TST2'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 4.
  wa_fieldcatalog-fieldname = 'STATU'.
  wa_fieldcatalog-scrtext_l = 'TST3'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 5.
  wa_fieldcatalog-fieldname = 'AEDAT'.
  wa_fieldcatalog-scrtext_l = 'TST4'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 6.
  wa_fieldcatalog-fieldname = 'MATNR'.
  wa_fieldcatalog-scrtext_l = 'TST5'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 7.
  wa_fieldcatalog-fieldname = 'MENGE'.
  wa_fieldcatalog-scrtext_l = 'TST6'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 8.
  wa_fieldcatalog-fieldname = 'MEINS'.
  wa_fieldcatalog-scrtext_l = 'TST7'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

  wa_fieldcatalog-col_pos = 9.
  wa_fieldcatalog-fieldname = 'PEINH'.
  wa_fieldcatalog-scrtext_l = 'TST8'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

*>The column will be displayed as button
  wa_fieldcatalog-col_pos = 10.
  wa_fieldcatalog-fieldname = 'BTN'.
  wa_fieldcatalog-scrtext_l = 'TST9'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.

*>The column will be displayed as dropdownbox
  wa_fieldcatalog-col_pos = 11.
  wa_fieldcatalog-fieldname = 'DRDBOX'.
  wa_fieldcatalog-edit      = 'X'.
  wa_fieldcatalog-drdn_field = 'DD_HANDLE'.
  wa_fieldcatalog-scrtext_l = 'TST10'.
  APPEND wa_fieldcatalog TO it_fieldcatalog.CLEAR wa_fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG

*&---------------------------------------------------------------------*
*&      Form  CREATE_DROPDOWN_VALUES
*&---------------------------------------------------------------------*
FORM create_dropdown_values.
  g_ddval-handle = 1.
  g_ddval-value = 'yes'.
  APPEND g_ddval TO g_t_ddval.

  g_ddval-handle = 1.
  g_ddval-value = 'no'.
  APPEND g_ddval TO g_t_ddval.
ENDFORM.                    "CREATE_DROPDOWN_VALUES

*&---------------------------------------------------------------------*
*&      Form  create_event_exits
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM create_event_exits.
  g_event-name = 'CALLER_EXIT'.
  g_event-form = 'CALLER_EXIT'.
  APPEND g_event TO g_events.
ENDFORM.                    "create_event_exits

*&---------------------------------------------------------------------*
*&      Form  CALLER_EXIT
*&---------------------------------------------------------------------*
FORM caller_exit USING ls_data TYPE slis_data_caller_exit.
  DATA: l_ref_alv TYPE REF TO cl_gui_alv_grid,
        l_ref_handler TYPE REF TO lcl_event_handlers.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_ref_alv.
  CALL METHOD l_ref_alv->set_drop_down_table
    EXPORTING
      it_drop_down = g_t_ddval.
  CREATE OBJECT l_ref_handler.
  SET HANDLER l_ref_handler->handle_button_click FOR l_ref_alv.
ENDFORM.                   "CALLER_EXIT

*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       populate layout
*----------------------------------------------------------------------*
FORM build_layout .
  w_layout-stylefname = 'CELLSTYLE'.
  w_layout-zebra      = 'X'.
  w_layout-box_fname = 'SEL'.
ENDFORM.                    " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       display alv report
*----------------------------------------------------------------------*
FORM display_alv_report .
*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
*   EXPORTING
*     i_callback_program                = sy-repid
*     i_callback_user_command           = 'USER_COMMAND'
*     is_layout                         = g_layout
*     it_fieldcat                       = it_fieldcatalog
**     i_save                            = 'X'
*    TABLES
*      t_outtab                          = it_ekko
*   EXCEPTIONS
*     program_error                     = 1
*     OTHERS                            = 2.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program      = sy-repid
      is_layout_lvc           = w_layout
      it_events               = g_events
      i_callback_user_command = 'USER_COMMAND'
      it_fieldcat_lvc         = it_fieldcatalog
    TABLES
      t_outtab                = it_ekko[].

ENDFORM.                    " DISPLAY_ALV_REPORT

*&---------------------------------------------------------------------*
*&      Form  user_command
*&---------------------------------------------------------------------*
*       USER-COMMAND
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm     LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
*>Check function code
  CASE r_ucomm.
    WHEN '&IC1'.
*>Check field clicked on within alv grid report
      IF rs_selfield-fieldname = 'EBELN'.
        READ TABLE it_ekko INDEX rs_selfield-tabindex.
        SET PARAMETER ID 'BES' FIELD it_ekko-ebeln.
        CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
      ENDIF.
*      IF rs_selfield-fieldname = 'SEL'.
*        READ TABLE it_ekko INDEX rs_selfield-tabindex.
*        it_ekko-sel = 'X'.
*        MODIFY it_ekko.
*      ENDIF.
    WHEN '&DATA_SAVE'.
      LOOP AT it_ekko.
        IF it_ekko-sel EQ 'X'.
          WRITE: / it_ekko-ebeln.
        ENDIF.
      ENDLOOP.
*      LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 1000.
  ENDCASE.
  rs_selfield-refresh = 'X'.
ENDFORM.                    "user_command