ABAP report 切换界面查询

来源：互联网发布：图像压缩算法编辑：程序博客网时间：2024/06/05 05:54

通过单选按钮，切换下界面就可以根据不同条件检索不同的结果，如图：

REPORT  Z_WUWEI_0004.TABLES:EKPO.SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.PARAMETERS R_MATNR TYPE EKPO-MATNR   DEFAULT '800-000001' MODIF ID OO.SELECTION-SCREEN: END OF BLOCK B1.SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME.SELECT-OPTIONS: R_WERKS FOR EKPO-WERKS  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.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.