版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/tanrt/article/details/82963539
选择屏幕常用代码汇总(自用)
一、屏幕常用控件属性
REPORT ZTRT_TEST_001.
TABLES: T001 . "表的引用声明
SELECTION-SCREEN BEGIN OF BLOCK B001 WITH FRAME TITLE TEXT-001. "选择屏幕块B001 开始
SELECTION-SCREEN BEGIN OF BLOCK B002 WITH FRAME TITLE TEXT-002. "选择屏幕B001内在嵌套一个屏幕B002
PARAMETERS: "单选控件
P_WERKS LIKE T001W-WERKS OBLIGATORY, "OBLIGATORY 设置必录项
P_WERKS1 LIKE T001W-WERKS NO-DISPLAY , "NO-DISPLAY 隐藏设置
P_RT_VSE RADIOBUTTON GROUP RG1 DEFAULT 'X' , "DEFAULT 设置默认值'X''
P_RT_VSF RADIOBUTTON GROUP RG1. "RADIOBUTTON 单选框 RG1
"GROUP 分组 把P_RT_VSE与P_RT_VSF 分到同一组RG1
SELECTION-SCREEN ULINE. "控件中间添加一条分割线
SELECTION-SCREEN BEGIN OF LINE . "把选择屏幕的几个控件放在一行上
SELECTION-SCREEN POSITION 3. "下一个控件在这行的 3 位置 处展现 (用于美化屏幕,相当于空格的作用)
PARAMETERS:P_DEMO AS CHECKBOX DEFAULT 'X' . "CHECKBOX 复选框
SELECTION-SCREEN COMMENT 6(10) TEXT-S30 FOR FIELD P_DEMO .
"创建一个内文本 EXT-S31,文本的值在内文元素里面定义
"COMMENT 22(20) 22表示文本的位置 10表示文本的长度
" FOR FIELD 后面接需要绑定控件
SELECTION-SCREEN POSITION 20.
PARAMETERS P_SUMQ AS CHECKBOX MODIF ID F03. "MODIF ID 将参数分配给修改组
SELECTION-SCREEN COMMENT 22(10) TEXT-S31 FOR FIELD P_SUMQ .
SELECTION-SCREEN END OF LINE.
"可通过在SELECTION-SCREEN OUTPUT事件中进行处理
SELECT-OPTIONS: "有选择区间的控件
S_BUKRS1 FOR T001-BUKRS ,
S_BUKRS2 FOR T001-BUKRS DEFAULT '1000' TO '2000' , "DEFAULT ATO B 设置默认区间值
S_BUKRS3 FOR T001-BUKRS NO-EXTENSION , "NO-EXTENSION 把选择表限制在一行
S_BUKRS4 FOR T001-BUKRS NO INTERVALS . "NO-INTERVALS 把选择表限制伟单值选择
"SIGN (SIGN 可以是I 和 E I是包括, E是排除的意思)
"OPTION (可以是:EQ NE GT LE LT CP NP )
"LOW (低值) HIGH(高值)
SELECTION-SCREEN END OF BLOCK B002. "先结束嵌套里面的屏幕B001,再是最外面的屏幕B001
SELECTION-SCREEN SKIP 2. "SKIP N 屏幕跳过,N指跳过的行数,用于美化屏幕的
PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY. "文件上传/下载 的控件
SELECTION-SCREEN END OF BLOCK B001. "选择屏幕块B0001的结束
SELECTION-SCREEN BEGIN OF BLOCK B003. "选择屏幕块后还可接个屏幕块B003
PARAMETERS: P_DEL AS CHECKBOX DEFAULT ''.
SELECTION-SCREEN END OF BLOCK B003.
二、屏幕常用方法示例
"屏幕跳转
SELECTION-SCREEN BEGIN OF BLOCK B004 WITH FRAME TITLE TEXT-001.
PARAMETERS:
P_LIM1 RADIOBUTTON GROUP LIM, "单选框P_LIM1
P_LIM2 RADIOBUTTON GROUP LIM. "单选框P_LIM2
SELECTION-SCREEN END OF BLOCK B004.
IF P_LIM1 = 'X'.
SUBMIT ZFI013_01 VIA SELECTION-SCREEN. " 单选框选中P_LIM1 时程序跳转到 ZFI013_01
ELSEIF P_LIM2 = 'X'.
SUBMIT ZFI013_02 VIA SELECTION-SCREEN. " 单选框选中P_LIM2 时程序跳转到 ZFI013_02
ENDIF.