屏幕状态按钮控制

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

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.