添加带图标的功能按钮及触发事件
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.