ALV 简单实现HTML抬头的方法 （介绍 一）
HTML的表頭雖然比較方便,還可以設置高度,但是打印預覽不顯示表頭,且導出到EXCEL,WORD,HTML都沒有表頭的.
REPORT??ZTESTLP_0105.
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'????"?調用ALV表頭顯示FORM——html_top_of_page
??????is_layout???????????????????=?wa_layout
??????it_fieldcat?????????????????=?it_fieldcat
??????I_HTML_HEIGHT_TOP???????????=??25?????????????"?設置抬頭寬度
????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.
??DATA:?m_p?TYPE?i?,
????????m_buffer?TYPE?string?.
??CONCATENATE??'<HTML><CENTER><H1>'?'ALV_HTML表頭'?'測試'?'</H1></CENTER></HTML>'?INTO?m_buffer.??"?居中??<H1>設置字體格式
??CALL?METHOD?document->html_insert
????EXPORTING
??????contents?=?m_buffer
????CHANGING
??????position?=?m_p
????????????????????.
???"?輸出制表人和制表日期
??CONCATENATE?'<P?ALIGN?=?CENTER?>出表人：?'?'XX'
*????????????'??????????????????'????'?'
*????????????'??????????????????'
*????????????'??????????????????'
*????????????'??????????????????'
*????????????'??????????????????'
*????????????'??????????????????'
????????????'?出表日期：'?sy-datum?INTO?m_buffer?.
??CALL?METHOD?document->html_insert
????EXPORTING
??????contents?=?m_buffer
????CHANGING
??????position?=?m_p.
???CALL?METHOD?document->new_line.
???CALL?METHOD?document->add_link
????EXPORTING
*??????NAME???????????????????=
??????url????????????????????=?'http://www.baidu.com'
??????tooltip????????????????=?'百度'
??????text???????????????????=?'BaiDu連接'.
??CALL?METHOD?document->new_line.
??text?=??'Company?Code?Data'.
??CALL?METHOD?document->add_text
????EXPORTING
??????text??????=?text
??????sap_style?=?'HEADING'???????????????"?顯示文字的STYLE設置
??????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
??????.
??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?=?'Key'.
??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.???"畫一條橫線
ENDFORM.????????????????????"HTML_TOP_OF_PAGE
?
顯示結果：
總結
以上是生活随笔為你收集整理的ALV 简单实现HTML抬头的方法 （介绍 一）的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： 启用SAP GUI FOR HTML
- 下一篇： ALV 简单实现HTML抬头的方法 （介