以表MARDH為例，來開發(fā)ALV報(bào)表。

一、最簡(jiǎn)單的ALV報(bào)表

先來做一個(gè)最簡(jiǎn)單的ALV報(bào)表。源碼如下：

REPORT  zquy_alv_test_01.
TYPE-POOLS slis.
TABLES : mardh.
DATA :it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv,

      BEGIN OF wa_data,
      check TYPE c,
      matnr TYPE matnr,
      lgort TYPE lgort_d,
      labst TYPE labst,
      END OF wa_data,
      wt_data LIKE wa_data OCCURS 100 WITH HEADER LINE.
PARAMETERS : p_lfgja TYPE lfgja OBLIGATORY,
             p_lfmon TYPE lfmon OBLIGATORY.

START-OF-SELECTION.
  PERFORM. get_data.
  PERFORM. set_alv_layout.
  PERFORM. dis_alv_grid.
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
*       填充數(shù)據(jù)
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM. get_data .
  SELECT * INTO CORRESPONDING FIELDS OF TABLE wt_data FROM mardh WHERE lfgja = p_lfgja AND lfmon = p_lfmon AND labst > 1000.
ENDFORM.                    " get_data
*&---------------------------------------------------------------------*
*&      Form  set_alv_layout
*&---------------------------------------------------------------------*
*       設(shè)置數(shù)據(jù)的顯示格式
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM. set_alv_layout .
  wa_fieldcat-col_pos = 1.
  wa_fieldcat-fieldname = 'matnr'.
  wa_fieldcat-seltext_m = '物料編碼'.
  APPEND  wa_fieldcat TO it_fieldcat.

  wa_fieldcat-col_pos = 2.
  wa_fieldcat-fieldname = 'lgort'.
  wa_fieldcat-seltext_m = '庫區(qū)'.
  APPEND  wa_fieldcat TO it_fieldcat.

  wa_fieldcat-col_pos = 3.
  wa_fieldcat-fieldname = 'labst'.
  wa_fieldcat-seltext_m = '非限制使用庫存'.
  APPEND  wa_fieldcat TO it_fieldcat.

ENDFORM.                    " set_alv_layout
*&---------------------------------------------------------------------*
*&      Form  dis_alv_grid
*&---------------------------------------------------------------------*
*       輸出ALV列表
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM. dis_alv_grid .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
*   I_CALLBACK_PROGRAM                = ' '
*   I_CALLBACK_PF_STATUS_SET          = ' '
*   I_CALLBACK_USER_COMMAND           = ' '
*   I_CALLBACK_TOP_OF_PAGE            = ' '
*   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
*   I_CALLBACK_HTML_END_OF_LIST       = ' '
*   I_STRUCTURE_NAME                  =
*   I_BACKGROUND_ID                   = ' '
*   I_GRID_TITLE                      =
*   I_GRID_SETTINGS                   =
   it_fieldcat                       = it_fieldcat
*   IT_EXCLUDING                      =
*   IT_SPECIAL_GROUPS                 =
*   IT_SORT                           =
*   IT_FILTER                         =
*   IS_SEL_HIDE                       =
*   I_DEFAULT                         = 'X'
*   I_SAVE                            = ' '
*   IS_VARIANT                        =
*   IT_EVENTS                         =
*   IT_EVENT_EXIT                     =
*   IS_PRINT                          =
*   IS_REPREP_ID                      =
*   I_SCREEN_START_COLUMN             = 0
*   I_SCREEN_START_LINE               = 0
*   I_SCREEN_END_COLUMN               = 0
*   I_SCREEN_END_LINE                 = 0
*   I_HTML_HEIGHT_TOP                 = 0
*   I_HTML_HEIGHT_END                 = 0
*   IT_ALV_GRAPHICS                   =
*   IT_HYPERLINK                      =
*   IT_ADD_FIELDCAT                   =
*   IT_EXCEPT_QINFO                   =
*   IR_SALV_FULLSCREEN_ADAPTER        =
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = wt_data
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2
            .
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " dis_alv_grid

OK，運(yùn)行程序后，輸出如下：

二、設(shè)置ALV輸出的格式

定義格式對(duì)象：

DATA:
    lth_layout TYPE slis_layout_alv.

  lth_layout-box_fieldname = 'CHECK'. //設(shè)置全選字段，別忘了在數(shù)據(jù)結(jié)構(gòu)中加入此字段。
  lth_layout-colwidth_optimize = 'X'. //設(shè)置列的寬度自動(dòng)調(diào)整。
  lth_layout-zebra = 'X'. // 設(shè)置間隔行顏色交替。

調(diào)用ALV顯示控件：

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
   is_layout                         = lth_layout
   it_fieldcat                       = it_fieldcat
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = wt_data
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2.

做好調(diào)整后，運(yùn)行程序，輸出如下：

三、求和求平均值

wa_fieldcat-do_sum = 'A'  //求這列的最大值。

wa_fieldcat-do_sum = 'B' //求這列的最小值。

wa_fieldcat-do_sum  = 'C'. //求平均值,必須為大寫。

按物料進(jìn)行小計(jì)：

定義排序條件：

DATA :     lt_sort  TYPE slis_t_sortinfo_alv.

.......

START-OF-SELECTION.
  PERFORM. get_data.
  PERFORM. sort_build.
  PERFORM. set_alv_layout.
  PERFORM. dis_alv_grid.
FORM. sort_build .
  DATA lwa_sort TYPE slis_sortinfo_alv.

  lwa_sort-fieldname = 'MATNR'.

  lwa_sort-up = 'X'.

  lwa_sort-subtot = 'X'.

  APPEND lwa_sort TO lt_sort.

ENDFORM.                    " SORT_BUILD

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
   is_layout                         = lth_layout
   it_fieldcat                       = it_fieldcat
   IT_SORT                           = lt_sort
* IMPORTING
*   E_EXIT_CAUSED_BY_CALLER           =
*   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = wt_data
* EXCEPTIONS
*   PROGRAM_ERROR                     = 1
*   OTHERS                            = 2

如圖：

創(chuàng)新互聯(lián)公司專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、城子河網(wǎng)絡(luò)推廣、小程序制作、城子河網(wǎng)絡(luò)營銷、城子河企業(yè)策劃、城子河品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供城子河建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：www.rwnh.cn

11.jpg

22.jpg

33.jpg

網(wǎng)站欄目：ALV小結(jié)之一：簡(jiǎn)單報(bào)表、布局、平均求和
網(wǎng)站網(wǎng)址：http://www.rwnh.cn/article24/psgije.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站設(shè)計(jì)公司、品牌網(wǎng)站設(shè)計(jì)、企業(yè)建站、商城網(wǎng)站、Google、手機(jī)網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)