ALV标题头的显示

最新推荐文章于 2024-06-11 10:51:14 发布

easyjosn

最新推荐文章于 2024-06-11 10:51:14 发布

阅读量3.5k

点赞数

分类专栏： ALV 文章标签： events callback build list layout header

本文链接：https://blog.csdn.net/easyjosn/article/details/5261664

版权

ALV 专栏收录该内容

7 篇文章 2 订阅

订阅专栏

REPORT ZEASYALVTEST MESSAGE-ID ZEASYMESSAGE.
TABLES : SPFLI.
SELECT-OPTIONS : S_CARR FOR SPFLI-CARRID,
                 S_CONN FOR SPFLI-CONNID.
DATA : IT_SPFLI TYPE TABLE OF SPFLI WITH HEADER LINE.
DATA : ALV_SPFLI TYPE TABLE OF SPFLI WITH HEADER LINE.
*&------------------------------------*
*&-- DECLARE DATA FOR ALV
*&-----------------------------------*
TYPE-POOLS: slis.
DATA : g_variant LIKE disvariant,
        g_save(1) TYPE c,
        g_exit(1) TYPE c,
        gx_variant LIKE disvariant.
**-------------------------------------*
DATA : G_REPID LIKE SY-REPID.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gt_events   TYPE slis_t_event ,
      gt_list_top_of_page TYPE slis_t_listheader,
      gs_print TYPE slis_print_alv,
      gs_layout         TYPE slis_layout_alv .
G_REPID = SY-REPID.
SELECT * INTO TABLE IT_SPFLI
         FROM SPFLI
         WHERE CARRID IN S_CARR
           AND CONNID IN S_CONN.
CHECK IT_SPFLI[] IS NOT INITIAL.
ALV_SPFLI[] = IT_SPFLI[].
PERFORM DISPLAYALV.
*&---------------------------------------------------------------------*
*&      Form DISPLAYALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM DISPLAYALV .
*-- PREPARE ALV DATA
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
*-- LAYOUT SETTING
PERFORM PREPARE_ALV_FIELD USING GT_FIELDCAT[].
*-- ALV DISPLAY
PERFORM CALL_REUSE_ALV_GRID_DISPLAY.

ENDFORM. " DISPLAYALV

*&---------------------------------------------------------------------*
*&      Form EVENTTAB_BUILD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_EVENTS[] text
*----------------------------------------------------------------------*
FORM EVENTTAB_BUILD USING PT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
*
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = PT_EVENTS.
READ TABLE PT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                           INTO LS_EVENT.
IF SY-SUBRC = 0.
    LS_EVENT-FORM = 'TOP_OF_PAGE'.
    MODIFY PT_EVENTS FROM LS_EVENT INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&---------------------------------------------------------------------*
*&      Form PREPARE_ALV_FIELD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_FIELDCAT[] text
*----------------------------------------------------------------------*
FORM PREPARE_ALV_FIELD USING P_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: LS_LINE TYPE SLIS_FIELDCAT_ALV.
DATA: dat type d,
      datt(10).
*-- DEFINE MARCO
DEFINE APPEND_ALV_FIELD.
    CLEAR LS_LINE.
    LS_LINE-FIELDNAME = &1.
    LS_LINE-TABNAME = &2.
    LS_LINE-REPTEXT_DDIC = &3.
    LS_LINE-SELTEXT_L = &3.
    LS_LINE-SELTEXT_M = &3.
    LS_LINE-SELTEXT_S = &3.
    LS_LINE-QFIELDNAME = &4.
    LS_LINE-QTABNAME = &5.
    LS_LINE-NO_OUT    = &6.
    LS_LINE-NO_ZERO   = &7.
    LS_LINE-OUTPUTLEN = &8.
    LS_LINE-lzero = &9.                                            "输出前导0.
    APPEND LS_LINE TO P_FIELDCAT.
END-OF-DEFINITION.

APPEND_ALV_FIELD: 'CARRID' 'ALV_SPFLI' '航线承运人ID'          "DN
                  '' ''
                  'O' 'X' '' ''.

APPEND_ALV_FIELD: 'CONNID' 'ALV_SPFLI' '航班连接 Id'          "MBLNO
                    '' ''
                    'O' 'X' '' 'X'.
APPEND_ALV_FIELD: 'CITYFROM' 'ALV_SPFLI' '起飞城市'           "HBLNO
                    '' ''
                    'O' 'X' '' ''.
APPEND_ALV_FIELD: 'CITYTO' 'ALV_SPFLI' '目标城市'           "SENDTIMES SELLERNAME
                   '' ''
                   'O' 'X' '' ''.
APPEND_ALV_FIELD: 'DISTANCE' 'ALV_SPFLI' '距离'         "
                   '' ''
                   'O' 'X' '' ''.
ENDFORM.                    " PREPARE_ALV_FIELD

*&---------------------------------------------------------------------*
*&      Form CALL_REUSE_ALV_GRID_DISPLAY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
* --> p1        text
* <-- p2        text
*----------------------------------------------------------------------*
FORM CALL_REUSE_ALV_GRID_DISPLAY .
gs_layout-f2code              = 'DISPLAY'.
gs_print-no_print_listinfos   = 'X'.
gs_layout-colwidth_optimize   = 'X'.       "列宽度自动根据内容优化
* gs_layout-f2code              = '&ETA'.    "double check弹出详细信息
* gs_layout-zebra               = 'X'.       "清单条纹显示
gs_layout-no_vline            = ''.        "是否显示列间隔线
gs_layout-box_fieldname       = ''.        "是否显示checkbox
gs_layout-confirmation_prompt = ''.        "推出清单是否提示
gs_layout-detail_titlebar     = '详细信息'."详细清单的标题
gs_layout-DETAIL_POPUP        = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM                = G_REPID               "SY-CPROG
      I_BACKGROUND_ID                   = 'ALV_BACKGROUND'
*      i_buffer_active    = 'X'
*      I_CALLBACK_PF_STATUS_SET          = 'ALV_PF_STATUS'
*      I_CALLBACK_USER_COMMAND           = 'ALV_USER_COMMAND'
*      I_CALLBACK_TOP_OF_PAGE            = GT_LIST_TOP_OF_PAGE[]
      IT_FIELDCAT                       = GT_FIELDCAT[]
      IT_EVENTS                         = GT_EVENTS[]
      I_STRUCTURE_NAME                  = 'ALV_SPFLI'
      I_SAVE                            = 'A'
      IS_LAYOUT                         = GS_LAYOUT
      IS_PRINT                          = GS_PRINT
    TABLES
      T_OUTTAB                          = ALV_SPFLI
    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. " CALL_REUSE_ALV_GRID_DISPLAY
************************************************************************************

*&---------------------------------------------------------------------*
*&      Form COMMENT_BUILD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_GT_LIST_TOP_OF_PAGE[] text
*----------------------------------------------------------------------*
FORM COMMENT_BUILD USING    LT_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
*
* LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
* LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = '航班时刻表'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
* STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = '输出时间'.               "TEXT-101.
LS_LINE-INFO = SY-DATUM.                  "TEXT-102.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
LS_LINE-KEY = '查询者'.                  "TEXT-103.
LS_LINE-INFO = 'EASY'.                    "TEXT-104.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
* ACTION LINE: TYPE A
CLEAR LS_LINE.
LS_LINE-TYP = 'A'.
* LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = '详细信息'.                  "TEXT-105.
APPEND LS_LINE TO LT_TOP_OF_PAGE.

ENDFORM. " COMMENT_BUILD

FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
           I_LOGO             = 'EASYPICTURE'
            IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.

REPORT 中没有任何的PERFORM TOP_OF_PAGE 调用，但是这是必须存在的，CALL_REUSE_ALV_GRID_DISPLAY 函数参数 I_CALLBACK_PROGRAM 会回调这个子函数。

表头中的图片显示可参考http://seaflying.bokee.com/26982.html，简单说在OAER 中载入图片，函数中调用图片的名字就OK了！