DEMO:REUSE_ALV_GRID_DISPLAY 复选框 刷新 grid_title

最近写了几个 Function ALV 复选框+刷新的报表，

为了方便复制粘贴到其他项目修改，做了个demo。

效果

选中，删除

结构和 status

代码

REPORT  zalv_demo

DATA:lt_alv_show       LIKE TABLE OF ztest_spfli.

DATA:i_grid_title TYPE  lvc_title.

DATA:lv_line      TYPE int4.

DATA:ls_line      TYPE string.

DATA:lt_fieldcat  TYPE  slis_t_fieldcat_alv.

DATA:is_layout  TYPE  slis_layout_alv.

FIELD-SYMBOLS <ls_filed> LIKE LINE OF lt_fieldcat." CHECKBOX

START-OF-SELECTION.

  SELECT * FROM spfli INTO CORRESPONDING FIELDS OF  TABLE lt_alv_show.

  DESCRIBE TABLE lt_alv_show LINES lv_line.

  ls_line = lv_line.

  CONCATENATE '数据条目数：' ls_line INTO i_grid_title.

  CLEAR lt_fieldcat[].

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      i_structure_name       = 'ZTEST_SPFLI'

    CHANGING

      ct_fieldcat            = lt_fieldcat

    EXCEPTIONS

      inconsistent_interface = 1

      program_error          = 2

      OTHERS                 = 3.

  IF sy-subrc <> 0.

* Implement suitable error handling here

  ENDIF.

  LOOP AT lt_fieldcat ASSIGNING <ls_filed> WHERE fieldname = 'CHECKBOX'.

    <ls_filed>-checkbox      = 'X'.

    <ls_filed>-edit          = 'X'.

    <ls_filed>-seltext_l          = '选择'.

    <ls_filed>-seltext_m          = '选择'.

    <ls_filed>-seltext_s          = '选择'.

  ENDLOOP.

  is_layout-colwidth_optimize = 'X' .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_grid_title             = i_grid_title

      i_callback_program       = sy-repid                      "

      is_layout                = is_layout

      it_fieldcat              = lt_fieldcat[]

      i_callback_pf_status_set = 'ZFORM_SET_PF_STATUS'          "

      i_callback_user_command  = 'ALV_USER_COMMAND'

    TABLES

      t_outtab                 = lt_alv_show

    EXCEPTIONS

      program_error            = 1

      OTHERS                   = 2.

*&---------------------------------------------------------------------*

*&      Form  zform_set_pf_status

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->RT_EXTAB   text

*----------------------------------------------------------------------*

FORM zform_set_pf_status USING rt_extab TYPE slis_t_extab.

  SET PF-STATUS 'STANDARD' .                                  

ENDFORM.                    "zform_set_PF_STATUS

*&---------------------------------------------------------------------*

*&      Form  alv_user_command

*&---------------------------------------------------------------------*

FORM  alv_user_command USING  r_ucomm LIKE  sy-ucomm

      rs_selfield TYPE  slis_selfield.

  DATA:lv_err TYPE string.

  DATA: l_grid TYPE REF TO cl_gui_alv_grid.

  FIELD-SYMBOLS <ls_alv> LIKE LINE OF lt_alv_show.

  DATA:ls_alv  LIKE LINE OF lt_alv_show.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

    IMPORTING

      e_grid = l_grid.

  CALL METHOD l_grid->check_changed_data.

  CALL METHOD l_grid->refresh_table_display.

  CASE  r_ucomm.

    WHEN 'DEL'.

      DELETE lt_alv_show   WHERE checkbox = 'X' .

    WHEN 'ALL'.

      LOOP AT lt_alv_show ASSIGNING <ls_alv> .

        <ls_alv>-checkbox = 'X'.

      ENDLOOP.

    WHEN 'SAL'.

      LOOP AT lt_alv_show ASSIGNING <ls_alv> .

        <ls_alv>-checkbox = ''.

      ENDLOOP.

    WHEN 'BACK'.

      LEAVE TO SCREEN 0.

    WHEN 'LEAVE'.

      LEAVE PROGRAM.

  ENDCASE .

  DESCRIBE TABLE lt_alv_show LINES lv_line.

  ls_line = lv_line.

  CONCATENATE '数据条目数：' ls_line INTO i_grid_title.

  CALL METHOD l_grid->set_gridtitle

    EXPORTING

      i_gridtitle = i_grid_title.

  CALL METHOD l_grid->check_changed_data.

  CALL METHOD l_grid->refresh_table_display.

**

*  rs_selfield-refresh = 'X'.

*

*  rs_selfield-col_stable = 'X'.

*  rs_selfield-row_stable = 'X'.

ENDFORM .                    "ALV_USER_COMMAND