1.动态设置程序标题
程序在属性中已经设定标题为销售费用明细表
创建GUI标题,标题处,输入占位符 &1
在执行程序中,调ALV之前设置标题
SET TITLEBAR ‘ZTITLE’ WITH l_grid_title.
效果等会再说。
2.设置ALV动态标题。
设置EVENT事件
FORM frm_get_events .
DATA formname_top_of_page TYPE slis_formname VALUE 'FRM_TOP_OF_PAGE'.
DATA l_events TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = git_events
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* 在事件(字段名:NAME)为"TOP_OF_PAGE"的行中将FORM名(字段名:
*FORM)设为"FRM_TOP_OF_PAGE"
* 这样,系统就会自动PERFORM FRM_TOP_OF_PAGE.
CLEAR l_events.
READ TABLE git_events WITH KEY name = slis_ev_top_of_page INTO
l_events.
IF sy-subrc = 0.
MOVE formname_top_of_page TO l_events-form.
MODIFY git_events FROM l_events INDEX sy-tabix.
ELSE.
l_events-form = formname_top_of_page.
l_events-name = formname_top_of_page.
APPEND l_events TO git_events.
ENDIF.
ENDFORM. " frm_get_events
*对应的form
FORM frm_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = git_listheader.
* i_logo = 'ICON_WAREHOUSE'. "TCODE:OAOR,CLASS
*NAME:PICTURES,CLASS TYPE :OT,执行,可以看到所有的PICTURE
ENDFORM. "FRM_TOP_OF_PAGE
调用ALV之前,先调上面的方法(frm_get_events 和 frm_comment_build)
ALV的事件参数记得带上
行了,看结果
选0980
完事