屏幕必输控制

选择屏幕根据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编辑  收藏  举报

导航