ABAP：ALV的 Header中添加HTML内容

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

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

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

REPORTzharpo_010NOSTANDARDPAGEHEADING.

TABLES:t001.
TYPE-POOLS:slis.
DATA:w_repidLIKEsy-repid.
TYPES:BEGINOFty_comp.
INCLUDESTRUCTUREt001.
TYPES:ENDOFty_comp.
DATA:wa_layoutTYPEslis_layout_alv.
DATA:it_fieldcatTYPEslis_t_fieldcat_alv,
wa_fieldcatTYPEslis_fieldcat_alv.
DATA:it_compTYPETABLEOFty_comp.

INITIALIZATION.
w_repid=sy-repid.

START-OF-SELECTION.
SELECT*FROMt001INTOTABLEit_comp.

END-OF-SELECTION.
CALLFUNCTION'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.
CALLFUNCTION'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.

*&---------------------------------------------------------------------*
*&Formhtml_top_of_page
*&---------------------------------------------------------------------*
FORMhtml_top_of_pageUSINGdocumentTYPEREFTOcl_dd_document.
DATA:textTYPEsdydo_text_element.
text='CompanyCodeData'.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_style='HEADING'.
CALLMETHODdocument->new_line.
CALLMETHODdocument->new_line.
text='UserName:'.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_emphasis='Strong'.
CALLMETHODdocument->add_gap
EXPORTING
width=2.
text=sy-uname.
*CALLMETHODdocument->add_text
*EXPORTING
*text=text
*sap_style=cl_dd_document=>SMALL.
**sap_emphasis=cl_dd_document=>EMPHASIS.
CALLMETHODdocument->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=
.

CALLMETHODdocument->add_gap
EXPORTING
width=10.
CALLMETHODdocument->add_icon
EXPORTING
sap_icon='ICON_DATE'.
text='Date:'.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_emphasis='Strong'.
CALLMETHODdocument->add_gap
EXPORTING
width=2.
text=sy-datum.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_style='Key'.
CALLMETHODdocument->add_gap
EXPORTING
width=10.
text='Time:'.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_emphasis='Strong'.
CALLMETHODdocument->add_gap
EXPORTING
width=2.
text=sy-uzeit.
CALLMETHODdocument->add_text
EXPORTING
text=text
sap_style='Key'.
CALLMETHODdocument->new_line.
CALLMETHODdocument->underline."DrawanunderLine
CALLMETHODdocument->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

.csharpcode,.csharpcodepre
{
font-size:small;
color:black;
font-family:consolas,"CourierNew",courier,monospace;
background-color:#ffffff;
/*white-space:pre;*/
}
.csharpcodepre{margin:0em;}
.csharpcode.rem{color:#008000;}
.csharpcode.kwrd{color:#0000ff;}
.csharpcode.str{color:#006080;}
.csharpcode.op{color:#0000c0;}
.csharpcode.preproc{color:#cc6633;}
.csharpcode.asp{background-color:#ffff00;}
.csharpcode.html{color:#800000;}
.csharpcode.attr{color:#ff0000;}
.csharpcode.alt
{
background-color:#f4f4f4;
width:100%;
margin:0em;
}
.csharpcode.lnum{color:#606060;}