abap动态设定屏幕字段属性

经常遇见问如何实现根据条件动态改变屏幕字段显示的情况，下面举两个简单例子。

实例

代码都写在PBO对应的MODULE中。

方法一 通过判断屏幕元素名称实现

LOOP AT SCREEN.
  "screen-name后为屏幕元素名称
  IF screen-name = 'AFKO-AUFNR'.
    "screen-input为屏幕元素输入属性，等于1是可输入
    screen-input = '1'.
  ENDIF.
  "切记要更新屏幕，不然不会生效
  MODIFY SCREEN.
ENDLOOP.

方法二 通过screen group可以将同一属性的分组
可以在屏幕的格式(layout)界面设定，双击屏幕元素，将GROUP栏位设定一个值。
程序中先判断分组。

LOOP AT SCREEN.
  "先判断屏幕元素分组
  CASE screen-group1.
    "G1为屏幕中设定的组名
    WHEN 'G1'.
      "分组G1的屏幕元素可输入
      screen-input = '1'.
  ENDCASE.
  MODIFY SCREEN.
ENDLOOP.

常见屏幕元素属性

元素属性	描述
input	输入
output	仅显示
intensifiled	高亮
invisible	不可见
lengtht	字段长度
active	可见
display_3d	输入框有线框