由于客户特殊的需求，在选择屏幕的界面会要求某些查询条件设置为默认值，并且不可输入，效果如下所示：
实现有三个步骤 ：
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. "设置工厂不能编辑
实现有三个步骤 ：
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博客 ” ，链接：https://blog.itpub.net/16794144/viewspace-681161/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
动态隐藏/显示选择屏幕
请登录后发表评论
登录
全部评论
