注意: 这里按钮 sscrfields-ucomm.的值只能写到FC05,
SSCRFIELDS
这样的按钮是怎么实现的?
top里面引入表
TABLES : t001 ,sscrfields..
选择屏幕的里面写
*--·begin 测试选择屏幕增加按钮
SELECTION-SCREEN : FUNCTION KEY 1.
SELECTION-SCREEN : FUNCTION KEY 2.
SELECTION-SCREEN : FUNCTION KEY 3.
SELECTION-SCREEN : FUNCTION KEY 4.
SELECTION-SCREEN : FUNCTION KEY 5.
PARAMETERS p_bukrs TYPE t001-bukrs OBLIGATORY DEFAULT '3006'.
*--·end 测试选择屏幕增加按钮
INITIALIZATION.
sscrfields-functxt_01 = '按钮1'.
sscrfields-functxt_02 = '按钮2'.
sscrfields-functxt_03 = '按钮3'.
sscrfields-functxt_04 = '按钮4'.
sscrfields-functxt_05 = '按钮5'.
at SELECTION-SCREEN .
CASE sscrfields-ucomm. “或者 CASE sy-ucomm.
when 'FC01'.
MESSAGE 'MANU1'TYPE 'S'.
WHEN 'FC02'.
MESSAGE 'MANU2'TYPE 'S'.
WHEN 'FC03'.
MESSAGE 'MANU3'TYPE 'S'.
WHEN 'FC04'.
MESSAGE 'MANU4'TYPE 'S'.
WHEN 'FC05'.
MESSAGE 'MANU5'TYPE 'S'.
ENDCASE.