ALV ：汇总，分类汇总(小计)，排序，过滤

ゝ一世哀愁。 2022-09-30 06:12 205阅读 0赞

ALV标准功能汇总，分类汇总，排序，过滤这些功能除了可以直接使用它的标准功能按钮之外，你也可以在程序里设定，让ALV列表第一次显示出来就已经使用了这些功能。  
用REUSE\_ALV\_GRID\_DISPLAY实现的ALV不能在程序设定输出字段的平均值，最小值，最大值等标准功能。用OO方式实现ALV输出的就可以，请参考  
[http://blog.csdn.net/lhx20/archive/2008/08/26/2833234.aspx][http_blog.csdn.net_lhx20_archive_2008_08_26_2833234.aspx]  
   
![1.jpg][]

一、排序  
排序用到类型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

本文来自CSDN博客，转载请标明出处：[http://blog.csdn.net/lhx20/archive/2008/09/26/2981111.aspx][http_blog.csdn.net_lhx20_archive_2008_09_26_2981111.aspx]

[http_blog.csdn.net_lhx20_archive_2008_08_26_2833234.aspx]: http://blog.csdn.net/lhx20/archive/2008/08/26/2833234.aspx
[1.jpg]: /images/20220708/2d9d81c663a1458b8d93325945849c56.png
[http_blog.csdn.net_lhx20_archive_2008_09_26_2981111.aspx]: http://blog.csdn.net/lhx20/archive/2008/09/26/2981111.aspx