1.FORM html_top_of_page USING cl_dd TYPE REF TO cl_dd_document.
DATA: m_p TYPE i.
DATA: m_buff TYPE string.
DATA: text TYPE char255 .
DATA: l_butxt TYPE butxt .
DATA: code(255) TYPE c .
DATA: sdydo_html_table TYPE sdydo_html_line OCCURS 0.
DATA: wa LIKE LINE OF sdydo_html_table.
CLEAR : m_buff .
DATA: lt_list_commentary TYPE slis_t_listheader,
ls_line TYPE slis_listheader,
l_lin TYPE i,
l_char(10) TYPE c.
*表头其实完全可以是一个html文件,自己使用html语言进行格式控制
m_buff = ’
’ &&
'编制单位: ’ && g_butxt && ‘’ && '期 间: ’ && p_gjahr && ‘年’ && p_monat && ‘月
CALL METHOD cl_dd->html_insert
EXPORTING
contents = m_buff
CHANGING
position = m_p.
CLEAR m_buff .
ENDFORM.
2.FORM alv_top_of_page .
DATA: lt_list_commentary TYPE slis_t_listheader,
ls_line TYPE slis_listheader,
l_lin TYPE i,
l_char(10) TYPE c.
DATA: lv_butxt TYPE t001-butxt.
-
SELECT SINGLE
-
BUTXT
-
INTO LV_BUTXT
-
FROM T001
-
WHERE BUKRS = P_BUKRS.
-
CLEAR LS_LINE.
-
LS_LINE-TYP = ‘S’.
-
LS_LINE-KEY = ‘编制单位:’.
-
LS_LINE-INFO = P_BUKRS && ’ ’ && LV_BUTXT.
-
APPEND LS_LINE TO LT_LIST_COMMENTARY.
"… STATUS LINE: TYPE S
CLEAR ls_line.
ls_line-typ = ‘S’.
ls_line-key = '编制单位: '.
ls_line-info = g_butxt.
APPEND ls_line TO lt_list_commentary.
CLEAR ls_line.
ls_line-typ = ‘S’.
ls_line-key = ‘期 间:’.
ls_line-info = p_gjahr && ‘年’ && p_monat && '月 '.
APPEND ls_line TO lt_list_commentary.
CLEAR ls_line.
ls_line-typ = ‘S’.
ls_line-key = ‘单 位:’.
ls_line-info = ‘元’.
APPEND ls_line TO lt_list_commentary.
CALL FUNCTION ‘REUSE_ALV_COMMENTARY_WRITE’
EXPORTING
it_list_commentary = lt_list_commentary
-
i_logo = 'ENJOYSAP_LOGO' i_end_of_list_grid = space i_alv_form = 'X'.
ENDFORM.