选择屏幕实例

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) text-011.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) text-012.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) text-013.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) text-014.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) text-015.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 01(68) uline.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: flginit AS CHECKBOX.
SELECTION-SCREEN COMMENT 03(68) text-100 FOR FIELD flginit.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK 1.

SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE text-b01.
SELECT-OPTIONS:SO_CON_D FOR CONTRACT_ID MODIF ID OO.
SELECT-OPTIONS:SO_CON_T FOR CONTRACT_ID MODIF ID OO.
SELECT-OPTIONS:SO_ID FOR ID MODIF ID PP.
PARAMETERS:
 PRG1 TYPE XFELD RADIOBUTTON GROUP GR1 DEFAULT 'X' USER-COMMAND SINGLECLICK,
 PRG2 TYPE XFELD RADIOBUTTON GROUP GR1,
 PRG3 TYPE XFELD RADIOBUTTON GROUP GR1.
SELECTION-SCREEN END OF BLOCK b01.

*&---------------------------------------------------------------------*
*&  AT SELECTION-SCREEN OUTPUT
*&---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  IF PRG1 = ABAP_TRUE OR PRG2 = ABAP_TRUE.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'PP'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF PRG3 = ABAP_TRUE.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'OO'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

PARAMETERS : R1 RADIOBUTTON GROUP D1 DEFAULT 'X' USER-COMMAND SINGLECLICK,  红色这一段话必须有，否则不能动态修改屏幕；选择一次单选框就会触发一次atselection-screen output，实现动态修改屏幕.

• SCREEN结构解释：

在SAP屏幕中，一个字段就像.NET中的一个控件，这个 字段对应一个SCREEN结构，就像控件的多个属性。

SE11可以查看SCREEN结构中的字段，只是没有备注。

名称                  长度       说明

NAME               30          屏幕字段的名称

GROUP1            3            属于字段组1的字段

GROUP2            3            属于字段组2的字段

GROUP3            3            属于字段组3的字段

GROUP4            3            属于字段组4的字段

ACTIVE             1            可见并准备输入的字段

REQUIRED          1            字段输入是强制的，即该值为X是表示该字段必须输入

INPUT               1            字段准备输入

OUTPUT            1            字段仅用于显示

INTENSIFIED      1           高亮显示字段

INVISIBLE          1           禁用字段

LENGTH             1           减少字段输出长度

DISPLAY_3D       1           以三维框架显示字段

VALUE_HELP       1           显示有值帮助的字段  

上述长度为1的字段，=1表示有效，=0则相反。