ABAP屏幕状态按钮控制

添加带图标的功能按钮及触发事件

include:

TABLES: sscrfields.

 

INITIALIZATION.
  DATA lw_functxt TYPE smp_dyntxt.
  lw_functxt-text   = '@3I@维护'.
  lw_functxt-quickinfo = '维护筛选条目'.
  sscrfields-functxt_01 = lw_functxt.
  lw_functxt-text   = '@10@显示'.
  lw_functxt-quickinfo = '显示筛选内容'.
  sscrfields-functxt_02 = lw_functxt.

 

排除执行ONLI状态按钮

AT SELECTION-SCREEN OUTPUT.
  DATA lt_exclude TYPE TABLE OF sy-ucomm.
  APPEND 'ONLI' TO lt_exclude.
  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status  = sy-pfkey
    TABLES
      p_exclude = lt_exclude.

 

事件控制

AT SELECTION-SCREEN.
  CASE sy-ucomm.
    WHEN 'FC01'.
      PERFORM frm_get_data.
      PERFORM frm_layout_build."  设置表格样式

      CLEAR gt_edit_field.
      gw_edit_field-fieldname = 'EFFECTIVEEND'.
      APPEND gw_edit_field TO gt_edit_field.
      PERFORM frm_field_edit TABLES gt_edit_field. "  建立表头数据

      PERFORM frm_data_out.
    WHEN 'FC02'.
      PERFORM frm_get_data.
      PERFORM frm_layout_build."  设置表格样式
      PERFORM frm_field_show. "  建立表头数据
      PERFORM frm_data_out.
  ENDCASE.