[REUSE_ALV_GRID_DISPLAY_LVC]-显示单选按钮(radio button)详解编程语言

REPORT ztest_alv_radiobutton. 
 
TYPE-POOLS:abap, slis. 
 
DATA: BEGIN OF gt_list OCCURS 0, 
        sel TYPE char4, 
        val TYPE i, 
      END OF gt_list. 
 
DATA: go_alv_grid TYPE REF TO cl_gui_alv_grid. 
*&---------------------------------------------------------------------* 
*& CLASS LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
CLASS lcl_event_receiver DEFINITION. 
  PUBLIC SECTION. 
    CLASS-METHODS: 
*     hotspot事件 
      hotspot_click 
                    FOR EVENT hotspot_click OF cl_gui_alv_grid 
        IMPORTING e_row_id 
                    e_column_id 
                    es_row_no. 
ENDCLASS.                    "LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
*& CLASS LCL_EVENT_RECEIVER DEFINITION 
*&---------------------------------------------------------------------* 
CLASS lcl_event_receiver IMPLEMENTATION. 
  METHOD hotspot_click. 
    DATA: ls_list LIKE gt_list. 
    CLEAR ls_list. 
    READ TABLE gt_list INTO ls_list INDEX e_row_id. 
    IF gt_list-sel NE '@TB@'. 
      ls_list-sel = '@SR@'."radio button选中的图标 
      MODIFY gt_list FROM ls_list TRANSPORTING sel WHERE sel NE '@SR@'. 
      ls_list-sel = '@TB@'."没有选中radio button的图标 
      MODIFY gt_list FROM ls_list INDEX e_row_id TRANSPORTING sel . 
    ENDIF. 
    PERFORM frm_ref_alv. 
  ENDMETHOD.                    "HANDLE_ONF4 
ENDCLASS.                    "LCL_EVENT_RECEIVER IMPLEMENTATION 
*&---------------------------------------------------------------------* 
*&      START-OF-SELECTION 
*&---------------------------------------------------------------------* 
START-OF-SELECTION. 
  PERFORM frm_get_data. 
  PERFORM frm_dsp_data. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_GET_DATA 
*&---------------------------------------------------------------------* 
FORM frm_get_data . 
  DO 10 TIMES. 
    IF sy-index = 1. 
      gt_list-sel = '@TB@'. 
    ELSE. 
      gt_list-sel = '@SR@'. 
    ENDIF. 
    gt_list-val = sy-index. 
    APPEND gt_list. 
  ENDDO. 
ENDFORM.                    " FRM_GET_DATA 
*&---------------------------------------------------------------------* 
*&      Form  FRM_DSP_DATA 
*&---------------------------------------------------------------------* 
FORM frm_dsp_data . 
  DATA: ls_layo  TYPE lvc_s_layo, 
        lt_fcat  TYPE lvc_t_fcat, 
        ls_fcat  TYPE lvc_s_fcat, 
        lt_event TYPE slis_t_event, 
        ls_event TYPE slis_alv_event. 
  ls_layo-zebra      = abap_true. 
  ls_layo-cwidth_opt = abap_true. 
  ls_fcat-fieldname = 'SEL'. 
  ls_fcat-hotspot = 'X'. 
  ls_fcat-scrtext_l = 
  ls_fcat-scrtext_m = 
  ls_fcat-scrtext_s = '选择'. 
  APPEND ls_fcat TO lt_fcat. 
  CLEAR ls_fcat. 
  ls_fcat-fieldname = 'VAL'. 
  ls_fcat-scrtext_l = 
  ls_fcat-scrtext_m = 
  ls_fcat-scrtext_s = '值'. 
  APPEND ls_fcat TO lt_fcat. 
  CLEAR ls_fcat. 
  ls_event-name = slis_ev_caller_exit_at_start. 
  ls_event-form = slis_ev_caller_exit_at_start. 
  APPEND ls_event TO lt_event. 
* 显示alv列表 
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
    EXPORTING 
      i_callback_program = sy-repid 
      is_layout_lvc      = ls_layo 
      it_fieldcat_lvc    = lt_fcat 
      i_save             = 'A' 
      it_events          = lt_event 
    TABLES 
      t_outtab           = gt_list 
    EXCEPTIONS 
      program_error      = 1 
      OTHERS             = 2. 
  IF sy-subrc <> 0. 
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 
          WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
  ENDIF. 
ENDFORM.                    " FRM_DSP_DATA 
*&---------------------------------------------------------------------* 
*&      Form  CALLER_EXIT 
*&---------------------------------------------------------------------* 
FORM caller_exit USING u_exit TYPE slis_data_caller_exit. 
  DATA: ls_f4 TYPE lvc_s_f4, 
        lt_f4 TYPE lvc_t_f4. 
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' 
    IMPORTING 
      e_grid = go_alv_grid. 
* 设置回车事件 
  CALL METHOD go_alv_grid->register_edit_event 
    EXPORTING 
      i_event_id = cl_gui_alv_grid=>mc_evt_enter 
    EXCEPTIONS 
      error      = 1 
      OTHERS     = 2. 
* 设置光标焦点移开被修改单元格后触发事件 
  CALL METHOD go_alv_grid->register_edit_event 
    EXPORTING 
      i_event_id = cl_gui_alv_grid=>mc_evt_modified 
    EXCEPTIONS 
      error      = 1 
      OTHERS     = 2. 
  SET HANDLER lcl_event_receiver=>hotspot_click FOR go_alv_grid. 
ENDFORM.                    "CALLER_EXIT 
*&---------------------------------------------------------------------* 
*&      Form  FRM_REF_ALV 
*&---------------------------------------------------------------------* 
FORM frm_ref_alv . 
  DATA ls_stbl TYPE lvc_s_stbl. 
  ls_stbl-row = abap_true. 
  ls_stbl-col = abap_true. 
  CALL METHOD go_alv_grid->refresh_table_display 
    EXPORTING 
      is_stable = ls_stbl. 
ENDFORM.                    " FRM_REF_ALV