ALV分类汇总

REPORT ztest1.
TABLES:mara,mbew.
TYPE - POOLS:slis.
TYPES:BEGIN OF t_itab,
      matnr LIKE mara - matnr,
      ersda LIKE mara - ersda,
      matkl LIKE mara - matkl,
      lbkum LIKE mbew - lbkum,
      salk3 LIKE mbew - salk3,
      END OF t_itab.
DATA:itab TYPE TABLE OF t_itab WITH HEADER LINE.

SELECTION - SCREEN BEGIN OF BLOCK blok WITH FRAME TITLE txt1.
SELECT - OPTIONS:matnr FOR mara - matnr.
SELECTION - SCREEN END OF BLOCK blok.


INITIALIZATION.
  txt1  =   ' 请输入选择条件 ' .

START - OF - SELECTION.

END - OF - SELECTION.
  PERFORM getdata.
  PERFORM disalv.
*&---------------------------------------------------------------------*
*&       Form  getdata
*&---------------------------------------------------------------------*
*        text
*----------------------------------------------------------------------*
*    -->   p1        text
*    <--   p2        text
*----------------------------------------------------------------------*
FORM getdata .
  SELECT
     mara ~ matnr
     mara ~ ersda
     mara ~ matkl
     mbew ~ lbkum
     mbew ~ salk3
     INTO TABLE itab
     FROM mara
     JOIN mbew ON ( mara ~ matnr  =  mbew ~ matnr AND mbew ~ bwkey  =   ' 1000 '  )
     WHERE mara ~ matnr IN matnr
     ORDER BY mara ~ matnr
     .
ENDFORM.                     "  getdata
*&---------------------------------------------------------------------*
*&       Form  disalv
*&---------------------------------------------------------------------*
*        text
*----------------------------------------------------------------------*
*    -->   p1        text
*    <--   p2        text
*----------------------------------------------------------------------*
FORM disalv .
  DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
              is_variant LIKE disvariant,
              it_events   TYPE slis_t_event,
              is_layout   TYPE slis_layout_alv, " ALV的格式
              i_list_comments TYPE slis_t_listheader,
              i_callback_program TYPE sy - repid,
              title       TYPE lvc_title,
              it_sort     TYPE slis_t_sortinfo_alv
              .
  PERFORM fieldcat_init USING it_fieldcat. " 输出列表控件表头
*   PERFORM layout_init USING is_layout.
*   PERFORM eventtab_build USING it_events.
  PERFORM e02_layout_sort_build CHANGING it_sort.
  i_callback_program  =  sy - repid.
  title  =   ' 测试 ' .

  CALL FUNCTION  ' REUSE_ALV_GRID_DISPLAY '
    EXPORTING
      i_callback_program  =  i_callback_program
      i_grid_title        =  title
      is_layout           =  is_layout
      it_fieldcat         =  it_fieldcat
      it_events           =  it_events
      it_sort             =  it_sort[]
    TABLES
      t_outtab            =  itab
    EXCEPTIONS
      program_error       =   1
      OTHERS              =   2 .
  IF sy - subrc  <>   0 .
  ENDIF.

ENDFORM.                     "  disalv
*&---------------------------------------------------------------------*
*&       Form  fieldcat_init
*&---------------------------------------------------------------------*
*        text
*----------------------------------------------------------------------*
*        --> P_IT_FIELDCAT  text
*----------------------------------------------------------------------*
FORM fieldcat_init  USING  it_fieldcat TYPE slis_t_fieldcat_alv.
  DATA: ls_fieldcat TYPE slis_fieldcat_alv.

  ls_fieldcat - fieldname  =   ' MATNR ' .
  ls_fieldcat - reptext_ddic   =   ' 物料号 ' .
  ls_fieldcat - no_zero  =   ' X ' .
  APPEND ls_fieldcat TO it_fieldcat.
  CLEAR ls_fieldcat.

  ls_fieldcat - fieldname  =   ' ERSDA ' .
  ls_fieldcat - reptext_ddic   =   ' 创建日期 ' .
  APPEND ls_fieldcat TO it_fieldcat.
  CLEAR ls_fieldcat.

  ls_fieldcat - fieldname  =   ' MATKL ' .
  ls_fieldcat - reptext_ddic   =   ' 物料组 ' .
  APPEND ls_fieldcat TO it_fieldcat.
  CLEAR ls_fieldcat.

  ls_fieldcat - fieldname  =   ' LBKUM ' .
  ls_fieldcat - reptext_ddic   =   ' 总评估的库存 ' .
  ls_fieldcat - do_sum  =   ' X ' .
  APPEND ls_fieldcat TO it_fieldcat.
  CLEAR ls_fieldcat.

  ls_fieldcat - fieldname  =   ' SALK3 ' .
  ls_fieldcat - reptext_ddic   =   ' 估价的总库存价值 ' .
  ls_fieldcat - do_sum  =   ' X ' .
  APPEND ls_fieldcat TO it_fieldcat.
  CLEAR ls_fieldcat.
ENDFORM.                     "  fieldcat_init
*&---------------------------------------------------------------------*
*&       Form  e02_layout_sort_build
*&---------------------------------------------------------------------*
*        text
*----------------------------------------------------------------------*
*        <-- P_IT_SORT  text
*----------------------------------------------------------------------*
FORM e02_layout_sort_build CHANGING lt_sort TYPE slis_t_sortinfo_alv.
  DATA ls_sort TYPE slis_sortinfo_alv.
*
  CLEAR ls_sort.
  ls_sort - fieldname  =   ' ERSDA ' .                               " #EC *
  ls_sort - spos       =   1 .
  ls_sort - up         =   ' X ' .
  ls_sort - subtot     =   ' X ' .
  APPEND ls_sort TO lt_sort.

  CLEAR ls_sort.
  ls_sort - fieldname  =   ' MATKL ' .                               " #EC *
  ls_sort - spos       =   1 .
  ls_sort - up         =   ' X ' .
  ls_sort - subtot     =   ' X ' .
  APPEND ls_sort TO lt_sort.
ENDFORM.                     "  e02_layout_sort_build