ALV动态显示菜单栏按钮 - 海边星
【原创】 ALV动态显示菜单栏按钮
栏目:ABAP  作者:在海边看星星  阅读:(515)

1.ALV动态显示菜单栏按钮

alv函数下设置参数i_callback_pf_status_set = 'SUB_STATUS_SET'

PERFORM pre_fieldcat.   "设置字段
  PERFORM set_layout.     "设置布局

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-cprog
      i_callback_pf_status_set = 'SUB_STATUS_SET'
      i_callback_user_command  = 'SUB_USER_COMMAND'
      is_layout_lvc            = rec_g_layout
      it_fieldcat_lvc          = tab_g_fieldcat
      i_save                   = 'A'
*     it_events                = gt_event
    TABLES
      t_outtab                 = gt_out
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
  ENDIF.


status下代码

*&---------------------------------------------------------------------*
*&      Form  SUB_STATUS_SET
*&---------------------------------------------------------------------*
*&      设置状态栏
*&---------------------------------------------------------------------*
FORM sub_status_set USING it_extab TYPE slis_t_extab.
  DATA: lt_extab TYPE TABLE OF sy-ucomm WITH HEADER LINE.

  IF p_upload = 'X'.
    APPEND 'REPROC' TO it_extab.
  ELSE.
    APPEND '&SCDD' TO it_extab.
  ENDIF.

  SET PF-STATUS 'STATUS_001' EXCLUDING it_extab.

  CASE sy-tcode.
    WHEN 'ZMM088'.
      SET TITLEBAR 'T001'.
    WHEN 'ZMM089'.
      SET TITLEBAR 'T002'.  "
    WHEN OTHERS.
  ENDCASE.

ENDFORM. "SUB_STATUS_SET



2.动态显示选择屏幕标题

INITIALIZATION下面添加如下代码

sy-title '物料管控导入'.



我的评论
昵称
邮箱
域名
  记住 通知博主
验证码

  联系我们

微信扫一扫

 登录  打赏

  随机文章