TABLES: sscrfields.
TYPE-POOLS:slis,ole2.
TYPE-POOLS icon.
* 选择屏幕
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1. "选择屏幕块
PARAMETERS: p_carrid TYPE s_carr_id,
p_cityfr TYPE s_from_cit.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND search. " 定义搜索按钮
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '检索条件'.
"but1 = '搜 索'.
CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
EXPORTING
name = ICON_SEARCH " 按钮的图片的名字
text = '搜 索' "按钮的文本
info = 'Search'
IMPORTING
RESULT = but1
EXCEPTIONS
OTHERS = 0.
TYPE-POOLS:slis,ole2.
TYPE-POOLS icon.
* 选择屏幕
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE t1. "选择屏幕块
PARAMETERS: p_carrid TYPE s_carr_id,
p_cityfr TYPE s_from_cit.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON 7(20) but1 USER-COMMAND search. " 定义搜索按钮
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
t1 = '检索条件'.
"but1 = '搜 索'.
CALL FUNCTION 'ICON_CREATE' " 给按钮添加图标和文本
EXPORTING
name = ICON_SEARCH " 按钮的图片的名字
text = '搜 索' "按钮的文本
info = 'Search'
IMPORTING
RESULT = but1
EXCEPTIONS
OTHERS = 0.