SAP简单报表

来源：互联网发布：淘宝5星好评编辑：程序博客网时间：2024/05/16 02:43
先建立个数据表。
建立数据表过程：点击打开链接
*&---------------------------------------------------------------------**& Report  ZTEST_X003*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT  ZTEST_X003.*先定义 FIELDCAT LAYOUTTYPE-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