Function实现ALV Table七：汇总，分类汇总，排序，过滤

原贴地址:http://blog.csdn.net/lhx20/archive/2008/09/26/2981111.aspx

 

ALV 标准功能汇总，分类汇总，排序，过滤这些功能除了可以直接使用它的标准功能按钮之外，你也可以在程序里设定，让ALV 列表第一次显示出来就已经使用了这些功能。

用REUSE_ALV_GRID_DISPLAY 实现的ALV 不能在程序设定输出字段的平均值，最小值，最大值等标准功能。用OO 方式实现ALV 输出的就可以，请参考

http://blog.csdn.net/lhx20/archive/2008/08/26/2833234.aspx

 

 

一、 排序

排序用到类型 slis_t_sortinfo_alv ，按条件把过滤的字段和规则设置好，添加到一个参考 slis_t_sortinfo_alv 类型的内表，在调用 Function 的时候指导内表赋给 it_sort 参数

二、 过滤

过滤用到类型 slis_t_filter_alv ，按条件把排序的字段和规则设置好，添加到一个参考 slis_t_filter_alv 类型的内表，在调用 Function 的时候把内表的值赋给 it_fitler 参数

三、 分类汇总

分类汇总是汇总和排序两个功能来进行分类和汇总的。按照排序的字段的值进行分类，对已经汇总的字段进行分类汇总。在设置排序的时候设置类型 slis_t_sortinfo_alv － subtot ＝ ‘X’ 就可以了。

四、 汇总

汇总是设置要汇总的字段的Fieldcat 属性，设置 slis_t_fieldcat_alv-do_sum = ‘X’ 。

 

下面是源代码

TYPE-POOLS slis.

 

TYPES ty_tab_spfli TYPE spfli OCCURS 0.

 

START-OF-SELECTION.

  PERFORM f_display.

 

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

*&      Form  f_getdata

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

*       text

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

*      -->PT_SPFLI   text

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

FORM f_getdata TABLES pt_spfli TYPE ty_tab_spfli.

  SELECT * FROM spfli INTO TABLE pt_spfli.

ENDFORM.                    "f_getdata

 

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

*&      Form  f_display

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

*       text

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

FORM f_display.

 

  DATA: lt_spfli TYPE ty_tab_spfli,

        lt_filter TYPE slis_t_filter_alv,

        lt_sort  TYPE slis_t_sortinfo_alv,

        lt_fieldcat TYPE slis_t_fieldcat_alv.

 

  PERFORM f_getdata TABLES lt_spfli.

 

  PERFORM f_filter_build TABLES lt_filter.

 

  PERFORM f_sort_build TABLES lt_sort.

 

  PERFORM f_fieldcat CHANGING lt_fieldcat.

 

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_callback_program = sy-repid

      it_fieldcat        = lt_fieldcat

      it_filter          = lt_filter

      it_sort            = lt_sort

    TABLES

      t_outtab           = lt_spfli.

ENDFORM.                    "f_display

 

 

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

*&      Form  f_fieldcat

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

*       text

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

*      -->PT_FIELDCAT  text

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

FORM f_fieldcat CHANGING pt_fieldcat TYPE slis_t_fieldcat_alv.

 

  FIELD-SYMBOLS <fs_fieldcat> LIKE LINE OF pt_fieldcat.

 

  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

    EXPORTING

      i_structure_name       = 'SPFLI'

    CHANGING

      ct_fieldcat            = pt_fieldcat

    EXCEPTIONS

      inconsistent_interface = 1

      program_error          = 2

      other                  = 3.

 

  LOOP AT pt_fieldcat ASSIGNING <fs_fieldcat> WHERE fieldname = 'DISTANCE'.

    <fs_fieldcat>-do_sum = 'X'.

  ENDLOOP.

ENDFORM.                    "f_fieldcat

 

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

*&      Form  f_filter_build

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

*       text

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

*      -->PT_FILTER  text

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

FORM f_filter_build TABLES pt_filter TYPE slis_t_filter_alv.

  DATA lwa_filter LIKE LINE OF pt_filter.

 

  lwa_filter-fieldname = 'DISTANCE'.

  lwa_filter-sign0 = 'E'.

  lwa_filter-optio = 'EQ'.

  lwa_filter-valut = 'MI '.

  APPEND lwa_filter TO pt_filter.

ENDFORM.                    "f_filter_build

 

 

 

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

*&      Form  f_sort_build

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

*       text

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

*      -->PT_SORT    text

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

FORM f_sort_build TABLES pt_sort TYPE slis_t_sortinfo_alv.

 

  DATA lwa_sort LIKE LINE OF pt_sort.

 

  lwa_sort-fieldname = 'CARRID'.

  lwa_sort-up = 'X'.

    lwa_sort-subtot = 'X'.

  APPEND lwa_sort TO pt_sort.

ENDFORM.                    "f_sort_build