ABAP modify screen：修改屏幕，实现隐藏、禁止输入字段

最新推荐文章于 2024-07-05 15:37:48 发布

ruingg

最新推荐文章于 2024-07-05 15:37:48 发布

阅读量4.3k

点赞数 4

本文链接：https://blog.csdn.net/ruingg/article/details/8426258

版权

本文介绍了如何使用ABAP的modify screen语句来动态修改屏幕组件的状态，例如隐藏和禁止输入。通过示例代码展示了在不同单选按钮选择时，隐藏或显示特定屏幕块B1和B2。同时，提到了动态修改屏幕时需要注意必输字段的处理，并解释了SCREEN结构中的关键字段及其含义。

摘要由CSDN通过智能技术生成

Loop at screen会loop处理屏幕上的每一个组件，并对其做相应的处理。

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.
PARAMETERS S_DATE TYPE DATUM   DEFAULT SY-DATUM MODIF ID OO.
SELECTION-SCREEN: END OF BLOCK B1.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME.
SELECT-OPTIONS: S_DATE2 FOR SY-DATUM  MODIF ID PP.
SELECTION-SCREEN: END OF BLOCK B2.

SELECTION-SCREEN: BEGIN OF BLOCK B3 WITH FRAME.
PARAMETERS : R1 RADIOBUTTON GROUP D1 DEFAULT 'X' USER-COMMAND SINGLECLICK,

R2 RADIOBUTTON GROUP D1 .
SELECTION-SCREEN: END OF BLOCK B3.

选择r1 的时候只显示B1；r2时候只显示B2

AT SELECTION-SCREEN OUTPUT.
  IF R1 = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'PP'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF R2 = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'OO'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.