ALV小计和总计

 

如图，需要在内表中插入一些小计、总计等。

 

*&---------------------------------------------------------------------*
*& Report  z_barry_sum                                                 *
*&  Barry.bai@sap.com                                                   *
*&---------------------------------------------------------------------*

REPORT  z_barry_sum              .

TABLES:hrpy_rgdir,t001,pa0001 .
TYPE-POOLS: slis.

DATA:BEGIN OF itab OCCURS 0,
     sachp(20),                                  "部门
     pernr(20),                                  "人员编号
     name(20),                                   "姓名
     month(4),                                  "月份
     bet01 LIKE pa0008-bet01,                    "岗位工资
     bet02 LIKE pa0008-bet01,                    "岗位津贴
     bet03 LIKE pa0008-bet01,                    "灰色收入
   END OF itab .

DATA: BEGIN OF itab2 OCCURS 0 ,
        sachp(10),                    "部门
        pernr(10),                    "人员编号
        name(10),                     "姓名
        month(4),                     "月份
        trfgr(20),                    "工资等级
        bet01(20),                    "岗位工资
        bet02(20),                    "岗位津贴
        bet03(20),                    "灰色收入
        color(4) ,
      END OF itab2.

*****************
DATA : myrepid LIKE sy-repid.  "REPORT NAME
DATA : allfields TYPE slis_t_fieldcat_alv.
DATA : wa_allfields TYPE LINE OF slis_t_fieldcat_alv.
DATA : layout   TYPE slis_layout_alv .
DATA : ls_event TYPE slis_alv_event.
DATA : gt_events TYPE slis_t_event.
*****************

CONSTANTS: gc_grid_title(30) TYPE c  VALUE '工资个人明细清单'.

START-OF-SELECTION.

  PERFORM getdata.
  PERFORM fixdata.

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
FORM getdata.
  itab-sachp = 'A部门'.
  itab-pernr = '111111'.
  itab-name  = '张三'.
  itab-month = '11'.
  itab-bet01 = '100'.
  itab-bet02 = '120'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-pernr = '222222'.
  itab-name  = '李四'.
  itab-bet01 = '200'.
  itab-bet02 = '210'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-sachp = 'B部门'.
  itab-pernr = '333333'.
  itab-name  = '王麻子'.
  itab-bet01 = '160'.
  itab-bet02 = '120'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-pernr = '444444'.
  itab-name  = '狗剩'.
  itab-bet01 = '500'.
  itab-bet02 = '120'.
  itab-bet03 = '260'.
  APPEND itab.
  itab-sachp = 'C部门'.
  itab-pernr = '555555'.
  itab-name  = '铁蛋'.
  itab-bet01 = '400'.
  itab-bet02 = '220'.
  itab-bet03 = '140'.
  APPEND itab.
ENDFORM.                    "getdata
*&---------------------------------------------------------------------*
*&      Form  fixdata
*&---------------------------------------------------------------------*
FORM fixdata.
  SORT itab BY sachp pernr  .

  LOOP AT itab .
    PERFORM fill .
    MOVE-CORRESPONDING itab TO itab2 .
    APPEND itab2.
    CLEAR itab2 .
    itab2-sachp = ' '.
    APPEND itab2 .
    AT END OF sachp.
      SUM.
      PERFORM fill .
      MOVE-CORRESPONDING itab TO itab2.
      itab2-color = 'C300'.
      CONCATENATE itab-sachp '合计' INTO itab2-sachp .
      APPEND itab2 .
      CLEAR itab2 .
      itab2-sachp = ' '.
      APPEND itab2 .
    ENDAT.
    AT LAST .
      SUM.
      PERFORM fill .
      MOVE-CORRESPONDING itab TO itab2.
      itab2-color = 'C310'.
      itab2-sachp = '总计' .
      APPEND itab2 .
    ENDAT.
  ENDLOOP .

  CLEAR wa_allfields.
  PERFORM build_layout USING layout.
  PERFORM display_data .
ENDFORM.                    "fixdata
*&---------------------------------------------------------------------*
*&      Form  display_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM display_data .

  wa_allfields-fieldname = 'SACHP'.
  wa_allfields-seltext_l = '部门'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'PERNR'.
  wa_allfields-seltext_l = '人员编号'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'NAME'.
  wa_allfields-seltext_l = '姓名'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'MONTH'.
  wa_allfields-seltext_l = '月份'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.
**
  wa_allfields-fieldname = 'BET01'.
  wa_allfields-seltext_l = '岗位工资'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.
**
  wa_allfields-fieldname = 'BET02'.
  wa_allfields-seltext_l = '岗位津贴'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'BET03'.
  wa_allfields-seltext_l = '灰色收入'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  myrepid = sy-repid.  "REPROT NAME
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = myrepid
      i_grid_title       = '月工资个人明细清单' "TITLE
      is_layout          = layout
      it_events          = gt_events
      i_save             = 'X'
      it_fieldcat        = allfields
    TABLES
      t_outtab           = itab2
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM .                    "display_data

*&---------------------------------------------------------------------*
*&      Form  build_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LAYOUT   text
*----------------------------------------------------------------------*
FORM build_layout USING p_layout TYPE slis_layout_alv.
*  p_layout-zebra             = 'X'.
  p_layout-colwidth_optimize = 'X'.
  p_layout-info_fieldname = 'COLOR'.
ENDFORM.                               " BUILD_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  FILL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM fill .
  itab2-sachp = '部门'.
  itab2-pernr = '人员编号'.
  itab2-name  = '姓名'.
  itab2-month = '月份'.
  itab2-bet01 = '岗位工资'.
  itab2-bet02 = '岗位津贴'.
  itab2-bet03 = '灰色收入'.
  itab2-color = 'C100'.
  APPEND itab2 .
  CLEAR itab2 .
ENDFORM .                    "FILL

 

效果如下：

 

 

 

如果有更多的列需要分类小计，如下图：

 

则可以再加一个AT语句，下面为更改后的程序：

REPORT  z_barry_sum              .

TABLES:hrpy_rgdir,t001,pa0001 .
TYPE-POOLS: slis.

DATA:BEGIN OF itab OCCURS 0,
     bukrs(10),                                  "公司
     sachp(20),                                  "部门
     pernr(20),                                  "人员编号
     name(20),                                   "姓名
     month(4),                                  "月份
     bet01 LIKE pa0008-bet01,                    "岗位工资
     bet02 LIKE pa0008-bet01,                    "岗位津贴
     bet03 LIKE pa0008-bet01,                    "灰色收入
   END OF itab .

DATA: BEGIN OF itab2 OCCURS 0 ,
        bukrs(16),                    "公司
        sachp(10),                    "部门
        pernr(10),                    "人员编号
        name(10),                     "姓名
        month(4),                     "月份
        trfgr(20),                    "工资等级
        bet01(20),                    "岗位工资
        bet02(20),                    "岗位津贴
        bet03(20),                    "灰色收入
        color(4) ,
      END OF itab2.

*****************
DATA : myrepid LIKE sy-repid.  "REPORT NAME
DATA : allfields TYPE slis_t_fieldcat_alv.
DATA : wa_allfields TYPE LINE OF slis_t_fieldcat_alv.
DATA : layout   TYPE slis_layout_alv .
DATA : ls_event TYPE slis_alv_event.
DATA : gt_events TYPE slis_t_event.
*****************

CONSTANTS: gc_grid_title(30) TYPE c  VALUE '工资个人明细清单'.

START-OF-SELECTION.

  PERFORM getdata.
  PERFORM fixdata.

*&---------------------------------------------------------------------*
*&      Form  getdata
*&---------------------------------------------------------------------*
FORM getdata.
  itab-bukrs = '忽悠公司'.
  itab-sachp = 'A部门'.
  itab-pernr = '111111'.
  itab-name  = '张三'.
  itab-month = '11'.
  itab-bet01 = '100'.
  itab-bet02 = '120'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-bukrs = '炒作公司'.
  itab-pernr = '222222'.
  itab-name  = '李四'.
  itab-bet01 = '200'.
  itab-bet02 = '210'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-bukrs = '忽悠公司'.
  itab-sachp = 'B部门'.
  itab-pernr = '333333'.
  itab-name  = '王麻子'.
  itab-bet01 = '160'.
  itab-bet02 = '120'.
  itab-bet03 = '140'.
  APPEND itab.
  itab-pernr = '444444'.
  itab-name  = '狗剩'.
  itab-bet01 = '500'.
  itab-bet02 = '120'.
  itab-bet03 = '260'.
  APPEND itab.
  itab-sachp = 'C部门'.
  itab-pernr = '555555'.
  itab-name  = '铁蛋'.
  itab-bet01 = '400'.
  itab-bet02 = '220'.
  itab-bet03 = '140'.
  APPEND itab.
ENDFORM.                    "getdata
*&---------------------------------------------------------------------*
*&      Form  fixdata
*&---------------------------------------------------------------------*
FORM fixdata.
  SORT itab BY bukrs sachp pernr  .

  LOOP AT itab .
    PERFORM fill .
    MOVE-CORRESPONDING itab TO itab2 .
    APPEND itab2.
    CLEAR itab2 .
*    APPEND itab2 .
    AT END OF sachp.
      SUM.
      PERFORM fill .
      MOVE-CORRESPONDING itab TO itab2.
      itab2-color = 'C300'.
      CONCATENATE itab-sachp '合计' INTO itab2-sachp .
      APPEND itab2 .
      CLEAR itab2 .
*      APPEND itab2 .
    ENDAT.
    AT END OF bukrs.
      SUM.
      PERFORM fill .
      MOVE-CORRESPONDING itab TO itab2.
      itab2-color = 'C310'.
      CONCATENATE itab-bukrs '小计' INTO itab2-bukrs .
      APPEND itab2 .
      CLEAR itab2 .
*      APPEND itab2 .
    ENDAT.
    AT LAST .
      SUM.
      PERFORM fill .
      MOVE-CORRESPONDING itab TO itab2.
      itab2-color = 'C710'.
      itab2-bukrs = '总计' .
      APPEND itab2 .
    ENDAT.
  ENDLOOP .

  CLEAR wa_allfields.
  PERFORM build_layout USING layout.
  PERFORM display_data .
ENDFORM.                    "fixdata
*&---------------------------------------------------------------------*
*&      Form  display_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM display_data .

  wa_allfields-fieldname = 'BUKRS'.
  wa_allfields-seltext_l = '公司'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'SACHP'.
  wa_allfields-seltext_l = '部门'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'PERNR'.
  wa_allfields-seltext_l = '人员编号'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'NAME'.
  wa_allfields-seltext_l = '姓名'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'MONTH'.
  wa_allfields-seltext_l = '月份'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.
**
  wa_allfields-fieldname = 'BET01'.
  wa_allfields-seltext_l = '岗位工资'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.
**
  wa_allfields-fieldname = 'BET02'.
  wa_allfields-seltext_l = '岗位津贴'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  wa_allfields-fieldname = 'BET03'.
  wa_allfields-seltext_l = '灰色收入'.
  APPEND wa_allfields TO allfields.
  CLEAR wa_allfields.

  myrepid = sy-repid.  "REPROT NAME
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = myrepid
      i_grid_title       = '月工资个人明细清单' "TITLE
      is_layout          = layout
      it_events          = gt_events
      i_save             = 'X'
      it_fieldcat        = allfields
    TABLES
      t_outtab           = itab2
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
ENDFORM .                    "display_data

*&---------------------------------------------------------------------*
*&      Form  build_layout
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LAYOUT   text
*----------------------------------------------------------------------*
FORM build_layout USING p_layout TYPE slis_layout_alv.
*  p_layout-zebra             = 'X'.
  p_layout-colwidth_optimize = 'X'.
  p_layout-info_fieldname = 'COLOR'.
ENDFORM.                               " BUILD_LAYOUT

*&---------------------------------------------------------------------*
*&      Form  FILL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM fill .
*  itab2-bukrs = '公司'.
*  itab2-sachp = '部门'.
*  itab2-pernr = '人员编号'.
*  itab2-name  = '姓名'.
*  itab2-month = '月份'.
*  itab2-bet01 = '岗位工资'.
*  itab2-bet02 = '岗位津贴'.
*  itab2-bet03 = '灰色收入'.
*  itab2-color = 'C100'.
*  APPEND itab2 .
*  CLEAR itab2 .
ENDFORM .                    "FILL

转自: http://blogold.chinaunix.net/u1/40527/showart.php?id=430245