REUSE_ALV_GRID_DISPLAY_LVC-行選擇功能

ABAP程序中使用REUSE_ALV_GRID_DISPLAY_LVC顯示alv，如何實現行選擇功能？方法以下：git

1，在輸出內表中，定義一個C類型字段用來標記哪些行被選中，選中的爲‘X’app

2，在LVC_S_LAYO-BOX_FNAME 中指定1中定義的行選擇字段spa

&lt;img class="alignnone size-full wp-image-3999" src="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-11-00.png" alt="" width="866" height="218" srcset="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-11-00.png 866w, http://www.baidusap.com/wp-content/uploads/2017-03-21_10-11-00-740x186.png 740w, http://www.baidusap.com/wp-content/uploads/2017-03-21_10-11-00-768x193.png 768w" sizes="(max-width: 866px) 100vw, 866px" /&gt;

完整代碼：code

REPORT ztest_alv_lvc_selmode. TYPES:BEGIN OF gty_ekko, ebeln TYPE ekko-ebeln, verkf TYPE ekko-verkf, sel TYPE c,  "用來標識行選擇的字段
      END OF gty_ekko. DATA:git_ekko TYPE STANDARD TABLE OF gty_ekko, gwa_ekko TYPE gty_ekko. DATA:git_fcat   TYPE lvc_t_fcat, gwa_fcat LIKE LINE OF git_fcat, gwa_layout TYPE lvc_s_layo. CONSTANTS: gco_callback_user_command TYPE slis_formname  VALUE 'FRM_USER_COMMAND', gco_callback_status TYPE slis_formname  VALUE 'FRM_USER_STATUS'. START-OF-SELECTION. SELECT ebeln verkf INTO CORRESPONDING FIELDS OF TABLE git_ekko FROM ekko UP TO 10 ROWS. PERFORM frm_set_catalog. gwa_layout-zebra = 'X'. gwa_layout-box_fname = 'SEL'.  "指定行選擇字段
  gwa_layout-cwidth_opt = 'X'. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING i_callback_program = sy-repid is_layout_lvc = gwa_layout it_fieldcat_lvc = git_fcat i_callback_pf_status_set = gco_callback_status i_callback_user_command = gco_callback_user_command TABLES t_outtab = git_ekko[] EXCEPTIONS program_error = 1 OTHERS = 2. IF sy-subrc = 0. ENDIF. *&---------------------------------------------------------------------* *& Form FRM_SET_PF_STATUS *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------*
FORM frm_user_status USING i_it_extab TYPE slis_t_extab. SET PF-STATUS 'S0001' . ENDFORM.                    " FRM_SET_PF_STATUS

FORM frm_user_command USING i_ucomm       TYPE sy-ucomm i_wa_selfield TYPE slis_selfield. DATA:l_count TYPE n, l_msg TYPE char100. CASE i_ucomm. WHEN 'POP'.  "click POP button in application toolbar
      LOOP AT git_ekko TRANSPORTING NO FIELDS WHERE sel = 'X'. l_count = l_count + 1. ENDLOOP. CONCATENATE 'Select' l_count 'rows'
             INTO l_msg SEPARATED BY space. MESSAGE l_msg TYPE 'I'. WHEN OTHERS. ENDCASE. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_SET_CATALOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------*
FORM frm_set_catalog . DATA:l_pos TYPE i VALUE 1. CLEAR: l_pos. l_pos = l_pos + 1. gwa_fcat-coltext   = 'PO'. gwa_fcat-scrtext_l = 'PO'. gwa_fcat-scrtext_m = 'PO'. gwa_fcat-scrtext_s = 'PO'. gwa_fcat-fieldname = 'EBELN'. gwa_fcat-col_pos = l_pos. gwa_fcat-outputlen = '10'. APPEND gwa_fcat TO git_fcat. l_pos = l_pos + 1. gwa_fcat-coltext   = 'PO item'. gwa_fcat-scrtext_l = 'PO item'. gwa_fcat-scrtext_m = 'PO item'. gwa_fcat-scrtext_s = 'PO item'. gwa_fcat-fieldname = 'VERKF'. gwa_fcat-col_pos = l_pos. gwa_fcat-outputlen = '20'. APPEND gwa_fcat TO git_fcat. ENDFORM.

爲程序建立一個status，並在上面添加一個自定義按鈕POPUPorm

&lt;img class="alignnone size-full wp-image-3998" src="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-03-02.png" alt="" width="835" height="371" srcset="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-03-02.png 835w, http://www.baidusap.com/wp-content/uploads/2017-03-21_10-03-02-740x329.png 740w, http://www.baidusap.com/wp-content/uploads/2017-03-21_10-03-02-768x341.png 768w" sizes="(max-width: 835px) 100vw, 835px" /&gt;

運行效果：blog

&lt;img class="alignnone size-full wp-image-3997" src="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-06-55.png" alt="" width="749" height="326" srcset="http://www.baidusap.com/wp-content/uploads/2017-03-21_10-06-55.png 749w, http://www.baidusap.com/wp-content/uploads/2017-03-21_10-06-55-740x322.png 740w" sizes="(max-width: 749px) 100vw, 749px" /&gt;

以上。get