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.
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 在鹅厂做java开发是什么体验
· 百万级群聊的设计实践
· WPF到Web的无缝过渡:英雄联盟客户端的OpenSilver迁移实战
· 永远不要相信用户的输入:从 SQL 注入攻防看输入验证的重要性
· 浏览器原生「磁吸」效果!Anchor Positioning 锚点定位神器解析