转 ABAP选择屏幕：根据用户选择动态显示屏幕

在有些程序中我们发现，如果用户选择了多个选项中的其一（单选框），则屏幕的外观将会有所调整。

这是怎么实现呢？我们来看下面的例子。

 

PARAMETERS: p1 TYPE c RADIOBUTTON GROUP g1 USER-COMMAND uc,
            p2 TYPE c RADIOBUTTON GROUP g1 DEFAULT ‘X‘.

PARAMETERS: p_werks TYPE werks MODIF ID ty1,
            p_matnr TYPE matnr MODIF ID ty2.

 

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE screen-group1.
      WHEN ‘TY1‘.
        IF p1 IS INITIAL.
          screen-active = ‘0‘.
        ELSE.
          screen-active = ‘1‘.
        ENDIF.
      WHEN ‘TY2‘.
        IF p2 IS INITIAL.
          screen-active = ‘0‘.
        ELSE.
          screen-active = ‘1‘.
        ENDIF.
    ENDCASE.
    MODIFY SCREEN.
  ENDLOOP.

 

AT SELECTION-SCREEN.
  CLEAR sy-ucomm.

 

关于程序的说明：

（1）该程序可以根据用户选择了P1或P2，决定显示工厂还是物料号在屏幕上；

（2）这里 USER-COMMAND uc是关键，它代表用户点击 RADIOBUTTON GROUP g1上的任一选项时，都将触发PAI，并且Function code为 ‘UC‘。

    在CLEAR sy-ucomm.这里打个断点即可观察sy-ucomm的值。

（3）MODIF ID 用于对屏幕元素进行分组，这在屏幕元素较多时更有用处，逻辑清晰。

    这里的PBO（AT SELECTION-SCREEN OUTPUT）就是根据用户的选择，决定不同组的屏幕元素是隐藏或显示。

（4）与Radio Button（单选框）相似，Check Box（复选框）和List Box（下拉框）也可以触发PAI。不过普通的屏幕编辑框则不支持，必须借助回车才可以触发PAI。