SAP简单报表

先建立个数据表。

建立数据表过程：点击打开链接

*&---------------------------------------------------------------------*
*& Report  ZTEST_X003
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_X003.
*先定义 FIELDCAT LAYOUT
TYPE-POOLS: SLIS.
DATA FIELD TYPE SLIS_FIELDCAT_ALV.
DATA FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA LAYOUT TYPE SLIS_LAYOUT_ALV.

*定义内表
TABLES:XGQ_TEST.
DATA: BEGIN OF GT_OUTPUT OCCURS 0,
      NAME LIKE XGQ_TEST-NAME,
      TELNUM LIKE XGQ_TEST-TELNUM,
      END OF GT_OUTPUT.

*执行
PERFORM FILL_FIELD_ALV.
PERFORM GET_DATA_FROM_DB_ALV.
PERFORM SUB_ALV_GRID.

*&---------------------------------------------------------------------*
*&      Form  FILL_FIELD_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FILL_FIELD_ALV.
  FIELD-COL_POS = 1.
  FIELD-FIELDNAME = 'NAME'.
  FIELD-SELTEXT_M = '姓名'.
  APPEND FIELD TO FIELDCAT.

  FIELD-COL_POS = 2.
  FIELD-FIELDNAME = 'TELNUM'.
  FIELD-SELTEXT_M = '电话'.
  APPEND FIELD TO FIELDCAT.
ENDFORM.                    "FILL_FIELD_ALV

*&---------------------------------------------------------------------*
*&      Form  GET_DATA_FROM_DB_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM GET_DATA_FROM_DB_ALV.
  SELECT NAME TELNUM FROM XGQ_TEST INTO TABLE GT_OUTPUT.
ENDFORM.                    "GET_DATA_FROM_DB_ALV

*&---------------------------------------------------------------------*
*&      Form  SUB_ALV_GRID
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SUB_ALV_GRID.
  PERFORM SUB_LAYOUT.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-REPID
      IT_FIELDCAT        = FIELDCAT[]
      I_SAVE             = 'A'
      IS_LAYOUT          = LAYOUT
      I_GRID_TITLE       = '测试报表'
    TABLES
      T_OUTTAB           = GT_OUTPUT
    EXCEPTIONS
      OTHERS             = 2.
ENDFORM.                    "SUB_ALV_GRID


*&---------------------------------------------------------------------*
*&      Form  SUB_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM SUB_LAYOUT.
  LAYOUT-DETAIL_POPUP = 'x'.
  LAYOUT-F2CODE  = 'CLICK'.
  LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM .                  "SUB_LAYOUT