"必须Tables先引入
TABLES :sscrfields.
"激活按钮,最多5个
SELECTION-SCREEN: FUNCTION KEY 1.
"选择屏幕绘制。省略
INITIALIZATION.
"设置菜单图标,文本
DATA:functxt TYPE smp_dyntxt.
functxt-icon_id = icon_price .
functxt-quickinfo = '自定义名称1'.
functxt-icon_text = '自定义名称1'.
"设置选择屏幕字段functxt_01、functxt_02、系统预留5个
sscrfields-functxt_01 = functxt.
"sscrfields-functxt_02 = '自定义名称2'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
WHEN 'FC01'. "FC01,FC02,与上面对应
CALL TRANSACTION 'ZFI239'.
EXIT.
WHEN OTHERS.
ENDCASE.
1589891627(1).jpg
网友评论