ALV抬头展示

先看效果：

关键代码如下：

DATA: gtd_title TYPE slis_t_listheader,
      gth_title TYPE slis_listheader.

"ALV抬头塞数据  

PERFORM SUB_SET_TITLE USING  'S'  'Date :' SY-DATUM.

  PERFORM SUB_SET_TITLE USING  'S'  '数据 :' LV_COUNT_C.

FORM SUB_SET_TITLE USING I_TYP TYPE ANY

                         I_KEY TYPE ANY

                         I_INFO TYPE ANY.

 

  CLEAR GTH_TITLE.

  GTH_TITLE-TYP  = I_TYP.             "

  GTH_TITLE-KEY  = I_KEY.             "

  GTH_TITLE-INFO = I_INFO.            "

  APPEND GTH_TITLE TO GTD_TITLE.

 

ENDFORM.     "sub_set_title

"展示ALV

FORM SUB_FUNCTION USING TA_VIEW TYPE STANDARD TABLE.

 

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM     = SY-CPROG

      I_CALLBACK_TOP_OF_PAGE = 'ALV_TOP_OF_PAGE'

      IS_LAYOUT              = GTH_LAYOUT

      IT_FIELDCAT            = GTD_FIELDCAT

    TABLES

      T_OUTTAB               = TA_VIEW

    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.                    "sub_alv_display

 

"绑定头部数据

FORM ALV_TOP_OF_PAGE.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

    EXPORTING

      IT_LIST_COMMENTARY = GTD_TITLE.

 

ENDFORM.   "alv_top_of_page