在ALV中添加Footer

* --CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 之前

PERFORM f_build_eventcat.

FORM list_text.

DATA: w_end TYPE slis_listheader.
DATA: i_end TYPE slis_t_listheader.
DATA: p_netwr_c(20) TYPE c.
DATA: p_fklmg_td_c(20) , p_netwr_td_c(20) ,
p_sale_netwr_c(20) , p_sale_netwr_be_c(20).

* --- footer p_netpr_be
WRITE p_sale_netwr_be TO p_sale_netwr_be_c CURRENCY 'EUR'.
CONDENSE p_sale_netwr_be_c.

w_end-typ = 'S'.
w_end-info = 'Tijdens de maand ontvangen bestellingen voor de Belgische markt:'.
APPEND w_end TO i_end.
CONCATENATE p_sale_netwr_be_c 'EUR' INTO w_end-info SEPARATED BY space.
CONDENSE w_end-info.
APPEND w_end TO i_end.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = i_end.

ENDFORM. " list_text

*&---------------------------------------------------------------------*
*& Form F_BUILD_EVENTCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM f_build_eventcat .
* CLEAR: i_events. REFRESH: i_events.

DATA: fs_eventcat LIKE LINE OF i_events.
CLEAR: fs_eventcat.
fs_eventcat-name = 'END_OF_LIST'. " FOOTER事件名
fs_eventcat-form = 'LIST_TEXT'. " FOOTER事件触发的FORM名
APPEND fs_eventcat TO i_events.

ENDFORM. " F_BUILD_EVENTCAT
i_events 用在显示ALV的函数中

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/11011430/viewspace-1017630/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/11011430/viewspace-1017630/