CLASS CL_DD_DOCUMENT 显示ALV top_of_page

最新推荐文章于 2021-06-17 16:57:19 发布

原创最新推荐文章于 2021-06-17 16:57:19 发布 · 3.7k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#class #sap #buffer #date #string #html

SAP ABAP ALV 同时被 2 个专栏收录

21 篇文章

订阅专栏

SAP ABAP 面向对象

4 篇文章

订阅专栏

本文介绍如何使用ABAP中的cl_dd_document类创建动态文档，并通过实例演示了构造HTML内容的方法，包括文本插入、链接添加及样式设置等。

Class cl_dd_document defines a dynamic document. You need an instance of it for each dynamic document that you create.

Use the methods of this class to construct your dynamic document.

Integration

Class

cl_dd_document inherits from superclass cl_dd_area .

例子：

FORM f_top_of_page1 USING p_cl_dd TYPE REF TO cl_dd_document. " 定义登录用户的描述 DATA: l_name TYPE string , name_first LIKE adrp-name_first , name_last LIKE adrp-name_last . " 定义登录日期 DATA: l_date TYPE string . " 定义缓冲区变量 DATA: m_p TYPE i , m_buffer TYPE string . DATA: lc_text(100) TYPE c. " 得到登录用户的描述 SELECT SINGLE adrp~name_first adrp~name_last INTO (name_first,name_last) FROM adrp INNER JOIN usr21 ON adrp~persnumber = usr21~persnumber WHERE usr21~bname = sy-uname . IF sy-subrc = 0 . CONCATENATE name_last name_first INTO l_name . ELSE . l_name = sy-uname . ENDIF. CLEAR name_first . CLEAR name_last . " 拼接制表日期 CONCATENATE sy-datum+0(4) '.' sy-datum+4(2) '.' sy-datum+6(2) INTO l_date . lc_text = 'ALV_HTML表头'. " 开始输出表头标题 CONCATENATE '<HTML><CENTER><H1>' lc_text '测试' '</H1></CENTER></HTML>' INTO m_buffer. CALL METHOD p_cl_dd->html_insert EXPORTING contents = m_buffer CHANGING position = m_p. " 输出制表人和制表日期 CONCATENATE '<P ALIGN = CENTER >出表人： ' l_name ' ' ' ' ' ' ' ' ' ' ' ' ' 出表日期：' l_date INTO m_buffer . CALL METHOD p_cl_dd->html_insert EXPORTING contents = m_buffer CHANGING position = m_p. CALL METHOD p_cl_dd->new_line. "换行 CALL METHOD p_cl_dd->new_line. DATA text TYPE sdydo_text_element. "Dynamic Documents CONCATENATE sy-uzeit+0(2) ':' "拼接制表时间 sy-uzeit+2(2) ':' sy-uzeit+4(2) INTO text. CONCATENATE '时间: ' text INTO text. CALL METHOD p_cl_dd->add_text "插入文本 EXPORTING text = text sap_emphasis = 'Strong'. CALL METHOD p_cl_dd->add_gap "插入位置 EXPORTING width = 2. CALL METHOD p_cl_dd->add_icon " 插入图片 EXPORTING sap_icon = 'ICON_DATE'. ENDFORM. " f_top_of_page1

CALL METHOD p_cl_dd->underline. 画一条横线

   CALL METHOD p_cl_dd->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 p_cl_dd->add_text
     EXPORTING
      text         = text
      sap_emphasis = 'Strong'
      sap_style = 'Key'.                         " 显示文字的STYLE设置

问题1：

若ALVHTML表头，出现了滚动条，不能整个显示ALV HTML的内容，则

在Call function 'REUSE_ALV_GRID_DISPLAY_LVC'

Exporting

i_callback_html_top_of_page = 'F_TOP_OF_PAGE1' "调用ALV表头显示FORM

I_HTML_HEIGHT_TOP = 23 . "指定ALV表头宽度

效果：

CALL METHOD p_cl_dd->add_link
    EXPORTING
*      NAME                   =
      url                    = 'http://www.baidu.com'
      tooltip                = '百度'
      text                   = 'BaiDu连接'
*      DESTINATION_IN_DOC_SET =
*      DESTINATION_IN_DOC_POS =
*      TABINDEX               =
*      HOTKEY                 =
*    IMPORTING
*      LINK                   = .

效果：

Use