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