ABAP：ALV的 Header中添加HTML内容

在使用 document->add_text的时候， 如果使用 SAP_STYLE 参数， 

显示文本的效果就定了（字体，大大小，颜色等），用了其他的控制参数也没作用。

如果要更详细的控制，就用其他的参数来一起控制。

REPORT zharpo_010 NO STANDARD PAGE HEADING.


TABLES : t001.
TYPE-POOLS: slis.
DATA : w_repid LIKE sy-repid.
TYPES : BEGIN OF ty_comp.
        INCLUDE STRUCTURE t001.
TYPES : END OF ty_comp.
DATA: wa_layout  TYPE slis_layout_alv.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat TYPE slis_fieldcat_alv.
DATA : it_comp TYPE TABLE OF ty_comp.

INITIALIZATION.
  w_repid = sy-repid.

START-OF-SELECTION.
  SELECT * FROM t001 INTO TABLE it_comp.

END-OF-SELECTION.
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = w_repid
      i_internal_tabname     = 'IT_COMP'
      i_structure_name       = 'T001'
      i_inclname             = w_repid
    CHANGING
      ct_fieldcat            = it_fieldcat[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program          = w_repid
      i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
      i_html_height_top           = 50     "控制表头栏目的初始高度
      is_layout                   = wa_layout
      it_fieldcat                 = it_fieldcat
    TABLES
      t_outtab                    = it_comp
    EXCEPTIONS
      program_error               = 1
      OTHERS                      = 2.

*&---------------------------------------------------------------------*
*&      Form  html_top_of_page
*&---------------------------------------------------------------------*
FORM html_top_of_page USING document TYPE REF TO cl_dd_document.
  DATA: text TYPE sdydo_text_element.
  text =  'Company Code Data'.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'HEADING'.
  CALL METHOD document->new_line.
  CALL METHOD document->new_line.
  text = 'User Name : '.
  CALL METHOD document->add_text
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.
  CALL METHOD document->add_gap
    EXPORTING
      width = 2.
  text = sy-uname.
*  CALL METHOD document->add_text
*    EXPORTING
*      text      = text
*      sap_style = cl_dd_document=>SMALL.
**      sap_emphasis = cl_dd_document=>EMPHASIS.
  CALL METHOD document->add_text
    EXPORTING
      text          = text
*      TEXT_TABLE    =
*      FIX_LINES     =
*      SAP_STYLE     = cl_dd_document=>WARNING
       sap_color     = cl_dd_document=>list_total_int
      sap_fontsize  = cl_dd_document=>large
      sap_fontstyle = cl_dd_document=>serif
       sap_emphasis  = cl_dd_document=>emphasis  "加粗还是斜体  STRONG是加粗
*      STYLE_CLASS   =
*    CHANGING
*      DOCUMENT      =
      .

  CALL METHOD document->add_gap
    EXPORTING
      width = 10.
  CALL METHOD document->add_icon
    EXPORTING
      sap_icon = 'ICON_DATE'.
  text = 'Date : '.
  CALL METHOD document->add_text
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.
  CALL METHOD document->add_gap
    EXPORTING
      width = 2.
  text = sy-datum.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'Key'.
  CALL METHOD document->add_gap
    EXPORTING
      width = 10.
  text = 'Time : '.
  CALL METHOD document->add_text
    EXPORTING
      text         = text
      sap_emphasis = 'Strong'.
  CALL METHOD document->add_gap
    EXPORTING
      width = 2.
  text = sy-uzeit.
  CALL METHOD document->add_text
    EXPORTING
      text      = text
      sap_style = 'Key'.
  CALL METHOD document->new_line.
  CALL METHOD document->underline.   "Draw  an underLine
  CALL METHOD document->add_link
    EXPORTING
*      NAME                   =
      url                    = 'http://www.87cool.com'
      tooltip                = '水寒冰居'
      text                   = '87Cool'
*      DESTINATION_IN_DOC_SET =
*      DESTINATION_IN_DOC_POS =
*      TABINDEX               =
*      HOTKEY                 =
*    IMPORTING
*      LINK                   =
      .
ENDFORM.                    "HTML_TOP_OF_PAGE