SSCRFIELDS

Hello / 2023-08-26 / 原文

 这样的按钮是怎么实现的?
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.

 

注意: 这里按钮 sscrfields-ucomm.的值只能写到FC05,