ALV表头2种实现

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.

猜你喜欢