ALV 页眉的使用

FORM FRM_DISPLAY .
  CLEAR S_LAYOUT.
  S_LAYOUT-ZEBRA = 'X'.
  S_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
*  s_layout-box_fieldname    = 'BOX'.
  PERFORM FRM_FILL_FIELD .

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      IS_LAYOUT                   = S_LAYOUT
      IT_FIELDCAT                 = GT_FIELDCAT
      I_CALLBACK_PROGRAM          = SY-REPID
*     I_CALLBACK_PF_STATUS_SET    = 'PF_STATUS_SET'
*     i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
      I_CALLBACK_USER_COMMAND     = 'USER_COMMAND'
      I_CALLBACK_HTML_TOP_OF_PAGE = 'F_HTML_TOP_OF_PAGE'
      I_HTML_HEIGHT_TOP           = 12                 指定ALV页眉宽度
    TABLES
      T_OUTTAB                    = GT_DATA[].
ENDFORM.

 

FORM F_HTML_TOP_OF_PAGE USING PR_DOCUMENT TYPE REF TO CL_DD_DOCUMENT.

  CALL METHOD PR_DOCUMENT->ADD_TEXT(
      TEXT      = '这里写入页眉的文本'
      SAP_STYLE = CL_DD_DOCUMENT=>HEADING ).

  CALL METHOD PR_DOCUMENT->NEW_LINE( ).

  CALL METHOD PR_DOCUMENT->ADD_TEXT(
      TEXT      = GV_TOP
      SAP_STYLE = CL_DD_DOCUMENT=>HEADING ).


ENDFORM.                    "f_html_top_of_page