示例: SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE TEXT-002. SELECTION-SCREEN:BEGIN OF LINE, PUSHBUTTON 1(15) sel USER-COMMAND sel, PUSHBUTTON 17
放一些button在上面,触发不同button,会处理不同事务。例如以下图所看到的: 2、代码例如以下: REPORTZTEST_SEL_SCREEN_PUSHBUTTON. TABLESSSCRFIELDS. DATAFLAG(1)TYPEC. SELECTION-SCREEN: BEGINOFSCREEN500ASWINDOWTITLETIT, BEGINOFLINE, PUSHBUTTON2(10) BUT1 USER-COMMAND CLI1, PUSHBUTTON12(10)TEXT-020USER...
以下代码显示了selection-screen pushbutton事件的语法: selection-screen pushbutton example1user-command1234. 此语句与at selection-screen命令一起使用时,是在用户输入数据时与用户交互的好方法。语法类似于selection-screen comment,只是在用户按下按钮时传递数据。按下按钮会在at selection-screen事件中触发sccrfields-...
SELECTION-SCREEN SKIP.SELECTION-SCREEN PUSHBUTTON /1(20) PUBU2 USER-COMMAND ABCE.AT USER-COMMAND.CASE sy-ucomm.WHEN 'ABCD'.MESSAGE I005(MsgClass) WITH '111'.WHEN 'ABCE'.MESSAGE I005(MsgClass) WITH '222'.WHEN OTHERS.MESSAGE I005(MsgClass) WITH '333'....
以下是一个演示如何通过 selection-screen 中的pushbutton来动态改变屏幕上的字段的显示状态的(即显示或者隐藏)。 注意:显示通过本示例可知selection-screen 中的 field 的显示状态都是的,在程序中修改其属性 active 的值为 '0' 时,该field就回隐藏起来。 但是在下一次屏幕显示前,其默认值又归为显示了。这时候可...
SELECTION-SCREEN: BEGIN OF BLOCK blk WITH FRAME TITLE TEXT-001, PUSHBUTTON 1(25) but1 USER-COMMAND search, SKIP 2 , PUSHBUTTON 1(25) but2 USER-COMMAND change, END OF BLOCK blk. INITIALIZATION. "按钮名称 MOVE '' TO but1. MOVE '' TO but2. AT SELECTION-SCREEN. CASE sscrfields-ucom...
SELECTION-SCREEN: *定义窗口,2个按钮 BEGIN OF SCREEN 500 as WINDOW TITLE tit, BEGIN OF line, PUSHBUTTON 2(12) s1 user-COMMAND c1, PUSHBUTTON 14(12) s2 USER-COMMAND c2, endof line, END OF SCREEN 500. *在单击时驱动 AT SELECTION-SCREEN. casesscrfields-ucomm. when'C1'. done= 'c1'...
ABAP push button 写法 REPORTZTEST_CYC. TABLESSSCRFIELDS. SELECTION-SCREEN: BEGINOFBLOCKBOX1WITHFRAMETITLETEXT-012. SELECTION-SCREENBEGINOFLINE. PARAMETERS:TESTLIKERPTXXXXX-KR_FELD6DEFAULT'X'. SELECTION-SCREENCOMMENT3(30)TEXT-034FORFIELDTEST. SELECTION-SCREENENDOFLINE. SELECTION-SCREENPUSHBUTTON02(...
selection-screen: pushbutton/20(10)btn1user-commandcom1.selection-screen uline.INITIALIZATION.btn1=‘クリア’. 这里的selection-screen uline表示在按钮下面画一条线。好了,点保存、检查和有效化就可以了。 part7:将クリア按钮功能化,日语的クリア是清空的意思,那么就需要制作一个清空的功能模块。
② SELECTION-SCREEN PUSHBUTTON /[/]<pos(len)> <name> <ucom> [MODIF ID <key>]. ③ INITIALIZATION. MOVE 'My text' TO <name>. ④ AT SELECTION-SCREEN. ⑤ IF SSCRFIELDS-UCOMM = <ucom>. ENDIF. 上述代码的描述: ① 定义构造SSCRFIELDS; ...