ABAP-选择屏幕按钮跳转其他程序 

 1 TABLES: sscrfields.
 2 
 3 SELECTION-SCREEN:
 4 BEGIN OF BLOCK blk WITH FRAME TITLE TEXT-001,
 5 
 6 PUSHBUTTON 1(25) but1 USER-COMMAND search,
 7 SKIP 2 ,
 8 PUSHBUTTON 1(25) but2 USER-COMMAND change,
 9 
10 END OF BLOCK blk.
11 
12 INITIALIZATION.
13   "按钮名称
14   MOVE '查询换季改批号码' TO but1.
15   MOVE '换季改批' TO but2.
16 
17 AT SELECTION-SCREEN.
18   CASE sscrfields-ucomm.
19     WHEN 'SEARCH'.
20       "SUMBIT+程序名 VIA SELECTION-SCREEN AND RETURN .
21       SUBMIT zmmf_337_1 VIA SELECTION-SCREEN AND RETURN .
22     WHEN 'CHANGE'.
23       SUBMIT zmmf_337_2 VIA SELECTION-SCREEN AND RETURN .
24   ENDCASE.
posted @ 2022-06-20 16:15  TigerMan  阅读(411)  评论(0)  编辑  收藏  举报