MODIFY SCREEN：修改屏幕，实现隐藏、禁止输入字段

Loop at screen会loop处理屏幕上的每一个组件，并对其做相应的处理。


选择r1 的时候只显示B1；r2时候只显示B2
程序代码：

1. SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.
   
2. PARAMETERS S_DATE TYPE DATUM   DEFAULT SY-DATUM MODIF ID OO.
   
3. SELECTION-SCREEN: END OF BLOCK B1.
   
4. 
   
5. SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME.
   
6. SELECT-OPTIONS: S_DATE2 FOR SY-DATUM  MODIF ID PP.
   
7. SELECTION-SCREEN: END OF BLOCK B2.
   
8. 
   
9. SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME.
   
10. PARAMETERS : R1 RADIOBUTTON GROUP D1 DEFAULT 'X' USER-COMMAND SINGLECLICK,
    
11. 
    
12.              R2 RADIOBUTTON GROUP D1 .
    
13. SELECTION-SCREEN: END OF BLOCK B3.
    
14. 
    
15. AT SELECTION-SCREEN OUTPUT.
    
16.   IF R1 = 'X'.
    
17.     LOOP AT SCREEN.
    
18.       IF SCREEN-GROUP1 = 'PP'.
    
19.         SCREEN-ACTIVE = '0'.
    
20.       ENDIF.
    
21.       MODIFY SCREEN.
    
22.     ENDLOOP.
    
23.   ELSEIF R2 = 'X'.
    
24.     LOOP AT SCREEN.
    
25.       IF SCREEN-GROUP1 = 'OO'.
    
26.         SCREEN-ACTIVE = '0'.
    
27.       ENDIF.
    
28.       MODIFY SCREEN.
    
29.     ENDLOOP.
    
30.   ENDIF.

复制代码

Modiy屏幕的时候，如果屏幕有必输字段则不能修改，只有把必输项输入值后才能修改屏幕，需要有所取舍；

注意：PARAMETERS : R1 RADIOBUTTON GROUP D1 DEFAULT 'X' USER-COMMAND SINGLECLICK,  红色这一段话必须有，否则不能动态修改屏幕；选择一次单选框就会触发一次atselection-screen output，实现动态修改屏幕.

SCREEN结构解释：在SAP屏幕中，一个字段就像.NET中的一个控件，这个 字段对应一个SCREEN结构，就像控件的多个属性。

SE11可以查看SCREEN结构中的字段，只是没有备注。

名称	长度	说明
NAME	30	屏幕字段的名称
GROUP1	3	属于字段组1的字段
GROUP2	3	属于字段组2的字段
GROUP3	3	属于字段组3的字段
GROUP4	3	属于字段组4的字段
ACTIVE	1	可见并准备输入的字段
REQUIRED	1	字段输入是强制的，即该值为X是表示该字段必须输入
INPUT	1	字段准备输入
OUTPUT	1	字段仅用于显示
INTENSIFIED	1	高亮显示字段
INVISIBLE	1	禁用字段
LENGTH	1	减少字段输出长度
DISPLAY_3D	1	以三维框架显示字段
VALUE_HELP	1	显示有值帮助的字段

上述长度为1的字段，=1表示有效，=0则相反。  

LEON大神，USER-COMMAND SINGLECLICK  这个语法我也用过，但我用的不是 SINGLECLICK，只有USER-COMMAND 是关键字，请问下（SINGLECLICK）这个地方写什么有关系吗

LEON大神，USER-COMMAND SINGLECLICK  这个语法我也用过，但我用的不是 SINGLECLICK，只有USER-COMMAND 是关键字，请问下（SINGLECLICK）这个地方写什么有关系吗

qshiou 发表于 2015-7-21 20:44
LEON大神，USER-COMMAND SINGLECLICK  这个语法我也用过，但我用的不是 SINGLECLICK，只有USER-COMMAND 是 ...

SINGLECLICK 是随便命名的一个变量