屏幕必输控制
选择屏幕根据RADIOBUTTON GROUP 做部分显示时候,排除必输项对屏幕的干扰:
在切换按钮时避免OBLIGATORY的影响,设置必输项的显示和数据检查报错
LOOP AT SCREEN.
CASE 'X'.
WHEN p_select.
IF ( screen-group1 = '1' OR screen-group1 = '3' ).
screen-active = '0'.
ENDIF.
WHEN p_up.
IF screen-group1 = '2'.
screen-active = '0'.
ENDIF.
IF screen-name EQ 'P_ZCGLX' OR screen-name EQ 'P_ZCGZE' OR screen-name EQ 'P_ZXFMC' OR screen-name EQ 'P_FILE' OR screen-name EQ 'P_ZXR'.
screen-required = '2'.
ENDIF.
WHEN p_down.
IF ( screen-group1 = '1' OR screen-group1 = '2' ).
screen-active = '0'.
ENDIF.
ENDCASE.
MODIFY SCREEN.
ENDLOOP.
标红部分即为显示必输,但不作为必输项处理,然后判定选择屏幕是否为空作为报错信息即可。
posted on 2020-06-28 09:31 Shadow.Ling 阅读(354) 评论(0) 编辑 收藏 举报