ABAP ALV表头的实现

ABAP实现ALV表头的DEMO：

效果：

源代码：

 *&---------------------------------------------------------------------*

 *& Report  Z_ALV_DEMO

 *&

 *&---------------------------------------------------------------------*

 *&

 *&

 *&---------------------------------------------------------------------*

 REPORT  Z_ALV_DEMO NO STANDARD PAGE HEADING.

 TABLES ZEMP_TEST.

 DATA: IT_ZEMP TYPE STANDARD TABLE OF ZEMP_TEST,

       IW_ZEMP TYPE ZEMP_TEST.

 TYPE-POOLS : SLIS.

 DATA :

        IT_EVENT TYPE SLIS_T_EVENT, "不能有表头,否则会RUNTIME ERROR

        IT_LISTHEADER TYPE SLIS_T_LISTHEADER.

 PARAMETERS P_DEPT TYPE ZEMP_TEST-EDEPT.

 START-OF-SELECTION.

   PERFORM FRM_GET_EVENT.

   PERFORM FRM_GET_DATA.

   PERFORM FRM_COMMENT_BUILD.

   PERFORM FRM_ALV_DISPLAY.

 *&---------------------------------------------------------------------*

 *&      Form  FRM_GET_DATA

 *&---------------------------------------------------------------------*

 *       text

 *----------------------------------------------------------------------*

 *  -->  p1        text

 *  <--  p2        text

 *----------------------------------------------------------------------*

 FORM FRM_GET_DATA .

   SELECT *

     FROM ZEMP_TEST

     INTO TABLE IT_ZEMP

    WHERE EDEPT = P_DEPT.

   IF SY-SUBRC <> .

     MESSAGE S001() WITH '不存在符合条件的数据' DISPLAY LIKE 'E'.

     STOP.

   ENDIF.

 ENDFORM.                    " FRM_GET_DATA

 *&---------------------------------------------------------------------*

 *&      Form  FRM_ALV_DISPLAY

 *&---------------------------------------------------------------------*

 *       text

 *----------------------------------------------------------------------*

 *  -->  p1        text

 *  <--  p2        text

 *----------------------------------------------------------------------*

 FORM FRM_ALV_DISPLAY .

   DATA LW_REPID TYPE SY-REPID.

   LW_REPID = SY-REPID.

   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

 *     I_INTERFACE_CHECK                 = ' '

 *     I_BYPASSING_BUFFER                = ' '

 *     I_BUFFER_ACTIVE                   = ' '

      I_CALLBACK_PROGRAM                = LW_REPID

 *     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                  = 'ZEMP_TEST'

 *     I_BACKGROUND_ID                   = ' '

      I_GRID_TITLE                      = 'ALV DEMO'

 *     I_GRID_SETTINGS                   =

 *     IS_LAYOUT                         =

 *     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

 *     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                          = IT_ZEMP

 *   EXCEPTIONS

 *     PROGRAM_ERROR                     = 1

 *     OTHERS                            = 2

             .

   IF SY-SUBRC <> .

 *   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

 *           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

   ENDIF.

 ENDFORM.                    " FRM_ALV_DISPLAY

 *&---------------------------------------------------------------------*

 *&      Form  FRM_GET_EVENT

 *&---------------------------------------------------------------------*

 *       text

 *----------------------------------------------------------------------*

 *  -->  p1        text

 *  <--  p2        text

 *----------------------------------------------------------------------*

 FORM FRM_GET_EVENT .

 * EVENTS

 *SLIS_EV_ITEM_DATA_EXPAND  TYPE SLIS_FORMNAME VALUE 'ITEM_DATA_EXPAND',

 *SLIS_EV_REPREP_SEL_MODIFY TYPE SLIS_FORMNAME VALUE 'REPREP_SEL_MODIFY',

 *SLIS_EV_CALLER_EXIT_AT_START TYPE SLIS_FORMNAME VALUE 'CALLER_EXIT',

 *SLIS_EV_USER_COMMAND       TYPE SLIS_FORMNAME VALUE 'USER_COMMAND',

 *SLIS_EV_TOP_OF_PAGE        TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',

 *SLIS_EV_DATA_CHANGED       TYPE SLIS_FORMNAME VALUE 'DATA_CHANGED',

 *SLIS_EV_TOP_OF_COVERPAGE  TYPE SLIS_FORMNAME VALUE 'TOP_OF_COVERPAGE',

 *SLIS_EV_END_OF_COVERPAGE  TYPE SLIS_FORMNAME VALUE 'END_OF_COVERPAGE',

 *SLIS_EV_FOREIGN_TOP_OF_PAGE TYPE SLIS_FORMNAME

 *                                       VALUE 'FOREIGN_TOP_OF_PAGE',

 *SLIS_EV_FOREIGN_END_OF_PAGE TYPE SLIS_FORMNAME

 *                                       VALUE 'FOREIGN_END_OF_PAGE',

 *SLIS_EV_PF_STATUS_SET      TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',

 *SLIS_EV_LIST_MODIFY        TYPE SLIS_FORMNAME VALUE 'LIST_MODIFY',

 *SLIS_EV_TOP_OF_LIST        TYPE SLIS_FORMNAME VALUE 'TOP_OF_LIST',

 *SLIS_EV_END_OF_PAGE        TYPE SLIS_FORMNAME VALUE 'END_OF_PAGE',

 *SLIS_EV_END_OF_LIST        TYPE SLIS_FORMNAME VALUE 'END_OF_LIST',

 *SLIS_EV_AFTER_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE 'AFTER_LINE_OUTPUT',

 *SLIS_EV_BEFORE_LINE_OUTPUT TYPE SLIS_FORMNAME VALUE

 *                                                 'BEFORE_LINE_OUTPUT',

 *SLIS_EV_SUBTOTAL_TEXT      TYPE SLIS_FORMNAME VALUE 'SUBTOTAL_TEXT',

 *SLIS_EV_GROUPLEVEL_CHANGE  TYPE SLIS_FORMNAME VALUE

 *                                                  'GROUPLEVEL_CHANGE',

 *SLIS_EV_CONTEXT_MENU       TYPE SLIS_FORMNAME VALUE 'CONTEXT_MENU'.

   DATA: FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'FRM_TOP_OF_PAGE'.

   DATA L_EVENTS TYPE SLIS_ALV_EVENT.

   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

     EXPORTING

       I_LIST_TYPE     =

     IMPORTING

       ET_EVENTS       = IT_EVENT

     EXCEPTIONS

       LIST_TYPE_WRONG =

       OTHERS          = .

   IF SY-SUBRC <> .

     MESSAGE ID SY-MSGID TYPE SY-MSGTY

         NUMBER SY-MSGNO

           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

   ENDIF.

 * 在事件(字段名:NAME)为"TOP_OF_PAGE"的行中

 *将FORM名(字段名:FORM)设为"FRM_TOP_OF_PAGE"

 * 这样,系统就会自动PERFORM FRM_TOP_OF_PAGE.

   CLEAR L_EVENTS.

   READ TABLE IT_EVENT

         WITH KEY NAME = SLIS_EV_TOP_OF_PAGE

         INTO L_EVENTS.

   IF SY-SUBRC = .

     MOVE FORMNAME_TOP_OF_PAGE TO L_EVENTS-FORM.

     MODIFY IT_EVENT FROM L_EVENTS INDEX SY-TABIX.

   ELSE.

     L_EVENTS-FORM = FORMNAME_TOP_OF_PAGE.

     L_EVENTS-NAME = FORMNAME_TOP_OF_PAGE.

     APPEND L_EVENTS TO IT_EVENT.

   ENDIF.

 ENDFORM.                    " FRM_GET_EVENT

 *&---------------------------------------------------------------------*

 *&      Form  FRM_TOP_OF_PAGE

 *&---------------------------------------------------------------------*

 *       表头

 *----------------------------------------------------------------------*

 *  -->  p1        text

 *  <--  p2        text

 *----------------------------------------------------------------------*

 FORM  FRM_TOP_OF_PAGE.

   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

     EXPORTING

       IT_LIST_COMMENTARY       = IT_LISTHEADER

       I_LOGO                   = 'ENJOYSAP_LOGO'

 *     I_END_OF_LIST_GRID       =

 *     I_ALV_FORM               =

       .

 * "TCODE:OAOR,CLASS

 * NAME:PICTURES,CLASS TYPE :OT,执行,可以看到所有的PICTURE

 ENDFORM.                    "FRM_TOP_OF_PAGE

 *&---------------------------------------------------------------------*

 *&      Form  FRM_COMMENT_BUILD

 *&---------------------------------------------------------------------*

 *       text

 *----------------------------------------------------------------------*

 *  -->  p1        text

 *  <--  p2        text

 *----------------------------------------------------------------------*

 FORM FRM_COMMENT_BUILD .

   DATA LW_LISTHEADER TYPE SLIS_LISTHEADER.

   CLEAR: IT_LISTHEADER, LW_LISTHEADER.

   LW_LISTHEADER-TYP  = 'H'.

   LW_LISTHEADER-INFO = 'ALV DEMO'.

   APPEND LW_LISTHEADER TO IT_LISTHEADER.

   CLEAR LW_LISTHEADER.

   LW_LISTHEADER-TYP  = 'S'.

   LW_LISTHEADER-KEY  = '用户:'.

   LW_LISTHEADER-INFO = SY-UNAME.

   APPEND LW_LISTHEADER TO IT_LISTHEADER.

   CLEAR LW_LISTHEADER.

   LW_LISTHEADER-TYP  = 'S'.

   LW_LISTHEADER-KEY  = '日期:'.

   LW_LISTHEADER-INFO = SY-DATUM.

   APPEND LW_LISTHEADER TO IT_LISTHEADER.

 ENDFORM.                    " FRM_COMMENT_BUILD

ABAP ALV表头的实现的更多相关文章

【ABAP系列】SAP ABAP ALV里日期类型的F4帮助
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP ALV里日期类 ...
【ABAP系列】SAP ABAP ALV合计或者小计添加自定义文本
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP ABAP ALV合计或者小计 ...
【ABAP系列】SAP ABAP ALV中设置CHECKBOX同时选中事件
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP ABAP ALV中设置CHE ...
【ABAP系列】SAP ABAP ALV设置背景图片
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP abap ALV设置背景图片 ...
【ABAP系列】SAP ABAP ALV中的TOP_OF_PAGE添加任意图标
公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[MM系列]SAP ABAP ALV中的TOP_ ...
ABAP ALV 颜色设置（行，列，单元格）
BCALV_EDIT_03 http://blog.sina.com.cn/s/blog_a87b19300102who3.html 关于ALV表格颜色,这种需求在项目中会经常用到. 列颜色列的颜色 ...
ABAP ALV DEMO示例源码
关于ALV表格颜色,感觉这种需求在项目中用到的时候不是很多,但是前一段时间面试的时候,面试官问了我关于ALV单元格颜色的问题. 以前了解过一点,回答的不是很好,后来百度了一下,大概了解了一些,今天工作 ...
ABAP ALV单个单元格状态编辑
*&---------------------------------------------------------------------* *& Report ZPPR0024 ...
ALV表头HTML实现
FORM frm_html_top_of_page USING cl_dd TYPE REF TO cl_dd_document. DATA: m_p TYPE i. DATA: m_buff TYP ...

随机推荐

ConfigParser---python
# !/usr/bin/python # Filename:tcfg.py import ConfigParser config = ConfigParser.ConfigParser() confi ...
C#中多线程写DataGridView出现滚动条导致程序卡死（无响应）的解决办法
因为写的程序涉及到多线程维护一个DataGridView,然后蛋疼的发现经常卡死...一开始以为是读写冲突的原因,然后就加了锁,问题依旧...然后发现每次出现滚动条的时候程序才会无响应,所以感觉应该是 ...
通过本地加载ga.js文件提高Google Anlytics性能
Google Anlytics 分析代码是异步加载的,一般来讲不会影响网页性能,但是技术部的网页性能报告里老是提到ga.js的状态为Aborted,说明ga虽然是异步跟踪,但某些情况下对网页性能与加载 ...
移动应用产品开发-android开发（一）
最近公司希望增添移动开发业务,进行移动互联网开发的调研及产品需求调研. 我主要负责技术解决方案的研究,从android开发开始学习.同时跟经理一起与其他部门同事沟通了解移动开发方面的需求. 在了解an ...
Multiplication Puzzle
题目大致意思是:一个整数序列包含N个1~100的整数(3<=N<=100),从中取出一个数并和相邻两边的整数相乘,依次进行下去直到只剩下首尾两个数为止,求最终的得到的和的最小值.两边的数不 ...
【Xamarin挖墙脚系列：卸载不彻底的解决】
原文:[Xamarin挖墙脚系列:卸载不彻底的解决] 卸载后,再次安装,总是授权还是原来的.请手工删除下文件: 卸载程序后必须手工删除C:\ProgramData\Mono for Android\ ...
【Xamarin开发 Android 系列 4】 Android 基础知识
原文:[Xamarin开发 Android 系列 4] Android 基础知识什么是Android? Android一词的本义指“机器人”,同时也是Google于2007年11月5日宣布的基于Li ...
Android使用SeekBar时动态显示进度且随SeekBar一起移动
最近有做一个android项目,里面有使用到在播放视频时可以跳播,同时动态显示播放时间.类似于下图的效果,我只是抽取其中的一部分做展示,刚接到这个事时也是在网上一通找,最后没找到!而且还碰到有些朋友 ...
Android软件开发之发送短信与系统短信库解析
今天我和同学们讨论一下Android平台下如何调用系统方法发送短信.接收短信.系统的短信库相关的问题.进入正题,我们先使用Eclipse工具模拟给自己的模拟器发送一条短信.在Eclipse下打开DDM ...
Android 如何把一个 RelativeLayout或ImageView背景设为透明
在项目中,需要把RelativeLayout 和 ImageView背景设置为透明,怎么实现呢?这里主要通过代码,请参阅以下关键代码: public ImageView imgDetail; pri ...

ABAP ALV表头的实现

ABAP ALV表头的实现的更多相关文章

随机推荐

热门专题