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.                     "设置工厂不能编辑

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/16794144/viewspace-681161/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/16794144/viewspace-681161/