ABAP 程序和ALV动态标题

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


完事