实现ALV的TOP_OF_PAGE的两种方法（二）

非HTML控制TOP_OF_PAGE的方法，这种方法稍微复杂一点，主要有以下几个步骤（1，2，3）
1、FORM frm_alv_output .
  PERFORM frm_build_fcat CHANGING it_fcat.
  CLEAR: is_layo.
  is_layo-zebra = 'X'.
  PERFORM frm_build_events CHANGING it_events.   “调用  frm_build_events  
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program          = sy-repid
*     I_CALLBACK_PF_STATUS_SET    = ' '
*     I_CALLBACK_USER_COMMAND     = ' '
*     I_CALLBACK_TOP_OF_PAGE      = ' '
*     I_CALLBACK_HTML_TOP_OF_PAGE = ' '
*     i_callback_html_end_of_list = c_end_of_page
      is_layout_lvc               = is_layo
      it_fieldcat_lvc             = it_fcat
*     I_DEFAULT                   = 'X'
      i_save                      = 'X'
      it_events                   = it_events  ”方法中调用 it_events 
*     I_HTML_HEIGHT_TOP           =
*     I_HTML_HEIGHT_END           =
    TABLES
      t_outtab                    = it_result
    EXCEPTIONS
      program_error               = 1
      OTHERS                      = 2.
ENDFORM.                    " FRM_ALV_OUTPUT


2、FORM frm_build_events  CHANGING pt_events TYPE slis_t_event.
  DATA: ls_events TYPE slis_alv_event.


  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type     = 0
    IMPORTING
      et_events       = pt_events
    EXCEPTIONS
      list_type_wrong = 1
      OTHERS          = 2.


* 为alv添加top_of_page
  CLEAR ls_events.
  READ TABLE pt_events INTO ls_events WITH KEY name = slis_ev_top_of_page.
  IF sy-subrc = 0.
    MOVE c_top_of_page TO ls_events-form.
    MODIFY pt_events FROM ls_events INDEX sy-tabix.
  ELSE.
    ls_events-form = c_top_of_page.
    ls_events-name = c_top_of_page.
    APPEND ls_events TO pt_events.
  ENDIF.


* 为alv添加end_of_page
  CLEAR ls_events.
  READ TABLE pt_events INTO ls_events WITH KEY name = slis_ev_end_of_list.
  IF sy-subrc = 0.
    MOVE c_end_of_page TO ls_events-form.
    MODIFY pt_events FROM ls_events INDEX sy-tabix.
  ELSE.
    ls_events-form = c_end_of_page.
    ls_events-name = c_end_of_page.
    APPEND ls_events TO pt_events.
  ENDIF.




ENDFORM.                    " FRM_BUILD_EVENTS
3、FORM frm_top_of_page.
  DATA: ls_header TYPE slis_listheader,
        lt_header TYPE slis_t_listheader.
  DATA: l_str TYPE string,
        l_bukr TYPE string.
  CLEAR: ls_header.
  REFRESH: lt_header.
*---处理屏幕数据，作为表头--------------


*----处理ALV表头期间输出
  CLEAR: l_str,l_bukr.


***公司名称
  SELECT SINGLE butxt INTO l_bukr
    FROM t001
    WHERE bukrs = p_rbukrs.


  CONCATENATE p_ryear
              '年度'
              p_monat
              '月'
              INTO l_str.


*---------------------------------------
  ls_header-typ = 'S'.
  ls_header-info = l_bukr.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.
  ls_header-typ = 'S'.
  ls_header-info = '损益表'.
  APPEND ls_header TO lt_header.
  ls_header-typ = 'S'.
  ls_header-info = l_str.
  APPEND ls_header TO lt_header.
  ls_header-typ = 'S'.
  ls_header-info = '（除特别注明外，金额单位均为人民币元）'.
  APPEND ls_header TO lt_header.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = lt_header
*     I_LOGO             =
*     I_END_OF_LIST_GRID =
      i_alv_form         = 'X'.


ENDFORM.                    "frm_top_of_page
*&---------------------------------------------------------------------*
*&      Form  frm_end_of_page
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM frm_end_of_page.
  DATA: ls_header TYPE slis_listheader,
        lt_header TYPE slis_t_listheader.
  DATA: l_str TYPE string.
  CLEAR: ls_header.
  REFRESH: lt_header.


  CONCATENATE '法定代表人____________'
              '   '
              '主管会计工作负责人____________'
              '   '
              '会计机构负责人___________'
              INTO l_str.


*---------------------------------------
  ls_header-typ = 'S'.
  ls_header-info = '后附财务报表附注为财务报表的组成部分'.
  APPEND ls_header TO lt_header.
  CLEAR ls_header.
  ls_header-typ = 'S'.
  ls_header-info = l_str.
  APPEND ls_header TO lt_header.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = lt_header
*     I_LOGO             =
*     I_END_OF_LIST_GRID =
      i_alv_form         = 'X'.
ENDFORM.                    "frm_end_of_page