ABAP动态修改屏幕

选择屏幕、对话屏幕都有对应的SCREEN内表,下面是几个重要属性:

NAMEName of the screen field。如果参数是select-options类型参数,则参数名以LOW与HIGH后缀来区分。

GROUP1选择屏幕元素通过MODIF ID选项设置GROUP1(对话屏幕通过属性设置),将屏幕元素分为一组,方便屏幕的元素的批量修改

REQUIRED控制文本框、下拉列表屏幕元素的必输性,使用此属性后会忽略OBLIGATORY选项。取值如下:

0:不必输,框中前面也没有钩
1:必输,框中前面有钩,系统会自动检验是否已输入,相当于OBLIGATORY选项
2不必输,但框中前面有钩,系统不会检查是否已输入,此时需要手动检验

INPUT控制屏幕元素(包括复选框、单选框、文本框)的可输性

ACTIVE控制屏幕元素的可见性

 

REQUIRED选项的应用:该选项可以解决这个问题:在点击某个单选框(p_rd1)后显示某个必输字段(p_lclfil),但当这个必输框显示出来后,如果点击p_rd2想隐藏它时,此时输入框中必须有值,否则系统会自动检验要求重新输入。现要求输入框没有输入值的情况下,也可在点击p_rd2时隐藏它,则解决的办法是:将输入框的这个属性设置为2(显示必须的钩,但系统不会自动进行必输验证),去掉OBLIGATORY选项(不去掉也会被忽略),并在AT SELECTION-SCREEN ON field事件里时手动进行为空验证

image127

"一定要设置 USER-COMMAND ,否则点击之后,不会触发屏幕PAI事件,PAI事件不触发则会导致
"屏幕的AT SELECTION-SCREEN OUTPUT也就不会被触发(非执行按钮的FunCode触发时都会刷新
"屏幕,所以再次显示屏幕时再次执行PBO)
PARAMETERS p_rd1 RADIOBUTTON GROUP gp1 USER-COMMAND mxx."用来隐藏 p_lclfil
PARAMETERS p_rd2 RADIOBUTTON GROUP gp1 DEFAULT 'X'."用来显示 p_lclfil
"当通过程序动态修改屏幕元素属性 required 后,会忽略掉这里的 OBLIGATORY 选项
*PARAMETERS p_lclfil(128) AS LISTBOX VISIBLE LENGTH 20 MODIF ID  mxy OBLIGATORY .
PARAMETERS p_lclfil(128) MODIF ID  mxy OBLIGATORY .
PARAMETERS: c AS CHECKBOX."没什么作用,用来测试 CHECKBOX 的可输入性
"当 C2 被钩选时,屏幕上的其他输入元素均不可输入
PARAMETERS: c2 AS CHECKBOX USER-COMMAND ddd DEFAULT 'X'.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN  .
    "当 C2 没有钩选时,其他元素都设置为可输入
    IF screen-name <> 'C2' AND c2 IS INITIAL .
      screen-input = 1.
      MODIFY SCREEN.
    ELSEIF screen-name <> 'C2' AND c2 IS NOT INITIAL .
      screen-input = 0."C2钩选时,所以屏幕输入元素禁止输入
      MODIFY SCREEN.
    ENDIF.
    "控制下拉列表(文本框也是一样)的必输性:外观上打钩,但不自动校验
    IF p_rd2 = 'X' AND screen-group1 = 'MXY'.
      "显示
      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_rd2 IS NOT INITIAL"手动检验:但当点击单选按钮与复选框 C2 时,不校验
    AND sy-ucomm <> 'MXX' AND sy-ucomm <> 'DDD' AND p_lclfil IS INITIAL.
    MESSAGE e055(00).
  ENDIF.

猜你喜欢

转载自blog.csdn.net/weixin_41464064/article/details/80339368
今日推荐