abpa 设置选择屏幕的元素不可编辑

由于客户特殊的需求，在选择屏幕的界面会要求某些查询条件设置为默认值，并且不可输入，效果如下所示：



实现有三个步骤 ：

1）在选择屏幕设定默认值

如：
PARAMETERS
: P_WERKS LIKE
AUFK-WERKS DEFAULT
'1300'
.
"工厂

2） 设置屏幕元素不可编辑

如：

*---------------------------------------------------------------------*

* FRM_SET_NEDIT.

* 设置屏幕的元素不能编辑

*

*---------------------------------------------------------------------*

FORM
FRM_SET_NEDIT.

LOOP
AT
SCREEN
.

IF
SCREEN
-NAME EQ
'P_WERKS'
.

SCREEN
-INPUT
= '0'
.

MODIFY
SCREEN
.

ENDIF
.

ENDLOOP
.

ENDFORM
.

3） 在选择屏幕的初始化时调用子例程

INITIALIZATION
.

PERFORM
FRM_SET_NEDIT. "设置工厂不能编辑