screen-input = 0."C2钩选时,所以屏幕输入元素禁止输入 MODIFY SCREEN. ENDIF. "控制下拉列表(文本框也是一样)的必输性:外观上打钩,但不自动校验 IF p_rd2 = 'X' AND screen-group1 = 'MXY'. "显示 screen-active = '1'. * screen-input = '1'."显示前设为可输入 screen-required = '2'."外...
LOOP AT SCREEN. IF p_radio1 EQ 'X' AND SCREEN-GROUP1 = 'M1'. SCREEN-ACTIVE = '1'. "显示 MODIFY SCREEN. ELSEIF p_radio2 EQ 'X' AND SCREEN-GROUP1 = 'M2'. SCREEN-ACTIVE = '0'. "隐藏 MODIFY SCREEN. ENDIF. ENDLOOP. 2.必输性:REQUIRED 示例: PARAMETERS:p_name LIKE tab-name ...
screen-input=0."C2钩选时,所以屏幕输入元素禁止输入 MODIFY SCREEN. ENDIF. "控制下拉列表(文本框也是一样)的必输性:外观上打钩,但不自动校验 IFp_rd2='X'AND screen-group1='MXY'. "显示 screen-active='1'. * screen-input= '1'."显示前设为可输入 screen-required='2'."外观上打钩,但不自动校...
PARAMETERS : 字段 TYPE 参考数据元素 MODIF ID 分组 . select-option : 字段 for 参考数据元素 modif id 分组 . at SELECTION-SCREEN OUTPUT . loop as screen . CASE 'X'. WHEN 分类1. IF screen-group1 EQ '分组1'. screen-invisible = '1'. screen-active = '0'. ELSE. screen-invisible = '0...
对于TY1组,如果P1单选按钮被选中(P1 = 'X'),则禁用相关的屏幕元素(screen-active = '0'),否则启用它们(screen-active = '1')。 对于TY2组,如果P2单选按钮被选中,则禁用相关的屏幕元素,否则启用它们。 最后,通过MODIFY SCREEN语句应用对屏幕元素的修改。
screen-active = '1'.* screen-input = '1'."显⽰前设为可输⼊ screen-required = '2'."外观上打钩，但不⾃动校验 MODIFY SCREEN.ELSEIF screen-group1 = 'MXY'. ""隐藏 screen-active = '0'.screen-required = '2'.MODIFY SCREEN.ENDIF.ENDLOOP.AT SELECTION-SCREEN ON p_lclfil.IF p...
ID ty2.AT SELECTION-SCREEN OUTPUT.LOOP AT SCREEN.CASE screen-group1.WHEN 'TY1'.IF p1 IS INITIAL.screen-active = '0'.ELSE.screen-active = '1'.ENDIF.WHEN 'TY2'.IF p2 IS INITIAL.screen-active = '0'.ELSE.screen-active = '1'.ENDIF.ENDCASE.MODIFY SCREEN.ENDLOOP.AT SELECTION-SCREEN...
*数据准备*选择屏幕SELECTION-SCREEN.PARAMETERS:字段TYPE参考数据元素MODIFID分组.select-option:字段for参考数据元素 modif id 分组.atSELECTION-SCREENOUTPUT.loopasscreen.CASE'X'.WHEN分类1.IFscreen-group1EQ'分组1'.screen-invisible='1'.screen-active='0'.ELSE.screen-invisible='0'.screen-active='1'.ENDI...
在上述代码片段中,gv_user_role是一个全局变量,用于存储当前用户的角色。在 PBO 阶段,系统会遍历所有屏幕元素。当发现屏幕元素名称为USER_ROLE且当前用户角色不是ADMIN时,通过设置screen-active = 0来隐藏该字段。否则,该字段将被显示。 特殊注意事项 使用LOOP AT SCREEN时,需要谨慎处理性能问题,特别是在包含大量屏...
LOOP AT SCREEN. IF screen-name = *P_STR0* . screen-input = *0*. "灰掉,只输出 ENDIF. IF screen-name = *P_STR1*. screen-invisible = *1*. "*做掩码,适合输入密码 ENDIF. IF screen-name = *P_STR2*. screen-active = *0*. "不显示 ENDIF. MODIFY SCREEN. ENDLOOP.ENDFORM . 一拖鞋...