ABAP ALV显示简单例子

*&---------------------------------------------------------------------*
*& Report Z_210113_02
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z_210113_02.
types: slis.

TYPES: BEGIN OF TY_WERKS,
  WERKS TYPE AFRU-WERKS,
  LMNGA TYPE AFRU-LMNGA,
  XMNGA TYPE AFRU-XMNGA,
  END OF TY_WERKS.

data: GT_TY_WERKS TYPE STANDARD TABLE OF TY_WERKS.
DATA: GT_TY_WERKS1 TYPE TABLE OF TY_WERKS.
DATA: GT_TY_WERKS2 TYPE TY_WERKS OCCURS 0 WITH HEADER LINE.


SELECT
  WERKS
  LMNGA
  XMNGA
  FROM AFRU
  INTO CORRESPONDING FIELDS OF TABLE GT_TY_WERKS
  UP TO 10 ROWS
  WHERE WERKS = '0041'.


*ALV输出定义
DATA:WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
      I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
      I_LAYOUT   TYPE SLIS_LAYOUT_ALV.

      DATA LV_POS TYPE i value 1.


      CLEAR WA_FIELDCAT.
lv_pos = lv_pos + 1.
*      WA_FIELDCAT-QTABNAME =
*      WA_FIELDCAT-CTABNAME =
wa_fieldcat-col_pos = lv_pos.
      WA_FIELDCAT-TABNAME = 'GT_TY_WERKS'.  ”表名
     WA_FIELDCAT-FIELDNAME = 'WERKS'. “列数据

      WA_FIELDCAT-SELTEXT_L = '工厂'.  ”列名
*      WA_FIELDCAT-SELTEXT_M = 'M'.
*      WA_FIELDCAT-SELTEXT_S = 'S'.
      WA_FIELDCAT-FIX_COLUMN = 'X'.
      APPEND WA_FIELDCAT TO I_FIELDCAT.
      CLEAR WA_FIELDCAT.
lv_pos = lv_pos + 1.
*      WA_FIELDCAT-QTABNAME =
*      WA_FIELDCAT-CTABNAME =
wa_fieldcat-col_pos = lv_pos.
      WA_FIELDCAT-TABNAME = 'GT_TY_WERKS'.
     "WA_FIELDCAT-FIELDNAME = 'WERKS'.
      WA_FIELDCAT-FIELDNAME = 'LMNGA'.
    " WA_FIELDCAT-FIELDNAME = 'XMNGA'.
     WA_FIELDCAT-SELTEXT_L = '良品数量'.
*      WA_FIELDCAT-SELTEXT_M = 'M'.
*      WA_FIELDCAT-SELTEXT_S = 'S'.
      WA_FIELDCAT-FIX_COLUMN = 'X'.
      APPEND WA_FIELDCAT TO I_FIELDCAT.

      CLEAR WA_FIELDCAT.
lv_pos = lv_pos + 1.
*      WA_FIELDCAT-QTABNAME =
*      WA_FIELDCAT-CTABNAME =
wa_fieldcat-col_pos = lv_pos.
      WA_FIELDCAT-TABNAME = 'GT_TY_WERKS'.
     "WA_FIELDCAT-FIELDNAME = 'WERKS'.
      "WA_FIELDCAT-FIELDNAME = 'LMNGA'.
     WA_FIELDCAT-FIELDNAME = 'XMNGA'.
      WA_FIELDCAT-SELTEXT_L = '废品数量'.
*      WA_FIELDCAT-SELTEXT_M = 'M'.
*      WA_FIELDCAT-SELTEXT_S = 'S'.
      WA_FIELDCAT-FIX_COLUMN = 'X'.
      APPEND WA_FIELDCAT TO I_FIELDCAT.

      I_LAYOUT-ZEBRA = 'X'.
      I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.  "自动优化列宽
      I_LAYOUT-DETAIL_INITIAL_LINES = 'X'.  "是否出现细节屏幕
      I_LAYOUT-DETAIL_TITLEBAR = '详细内容'. "细节屏幕标题

      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          I_CALLBACK_PROGRAM = SY-REPID   "当前程序
          is_layout = i_layout  "属性内表
          it_fieldcat = i_fieldcat[] "列明内表
          i_save = 'X'   "是否保存布局
       tables
         t_outtab = gt_ty_werks
       exceptions
         program_error = 1
         others = 2.