ALV 简单表头记录

ALV函数：REUSE_ALV_GRID_DISPLAY_LVC

i_callback_top_of_page = 'FRM_TOP_OF_PAGE'

FORM frm_top_of_page

DATA: i_header TYPE slis_t_listheader,

wa_header TYPE slis_listheader.

CLEAR i_header.
* 位于标题第一行
wa_header-typ  = 'H'.
wa_header-info = '标题' .
APPEND wa_header TO i_header .
CLEAR  wa_header .

** 相关内容信息
wa_header-typ  = 'S'. wa_header-key  = '公司代码：' .
wa_header-info = '' .
APPEND wa_header TO i_header .
CLEAR  wa_header .

wa_header-typ  = 'S'.
wa_header-key  = '金额单位' .
wa_header-info = '：元' .
APPEND wa_header TO i_header .
CLEAR  wa_header .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_header
i_alv_form         = 'X'.

i_callback_html_top_of_page = 'FRM_HTML_TOP_OF_PAGE'

FORM frm_html_top_of_page  USING cl_dd TYPE REF TO cl_dd_document..

  DATA: m_buff TYPE string.
  DATA: m_buff1 TYPE string.
  DATA: m_buff2 TYPE string.
  DATA: m_p TYPE i.
  DATA area1 TYPE REF TO cl_dd_area.
  DATA area2 TYPE REF TO cl_dd_area.

  CLEAR: m_buff,m_buff1,m_buff2.

  CONCATENATE '<html>'
              '<center><H2>' '标题'  '</H2></Center>'
*              '<P ALIGN = LIFHT >'  '公司代码： '
*              '<P ALIGN = LIFHT >'  '金额单位:  元'
*             '<html>'
  INTO m_buff.

  CALL METHOD cl_dd->html_insert
    EXPORTING
      contents = m_buff
    CHANGING
      position = m_p.

  CLEAR l_text.
  CONCATENATE '公司代码: ' l_name1 INTO l_text.

  CALL METHOD cl_dd->add_text EXPORTING text = l_text.

*把区域一分为二
  CALL METHOD cl_dd->vertical_split
    EXPORTING
      split_area  = cl_dd
      split_width = '50%'
    IMPORTING
      right_area  = area2.

  CONCATENATE '<P ALIGN = RIGHT >' '金额单位:    元' INTO m_buff2 .
  CALL METHOD area2->html_insert
    EXPORTING
      contents = m_buff2
    CHANGING
      position = m_p.

猜你喜欢