1.显示/隐藏 选择屏幕
*&---------------------------------------------------------------------*
*& SELECT-OPTIONS
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-000.
PARAMETER: P1 RADIOBUTTON GROUP GRP DEFAULT ‘X‘ MODIF ID BL0 USER-COMMAND RAD,
P2 RADIOBUTTON GROUP GRP MODIF ID BL0.
SELECTION-SCREEN END OF BLOCK BLK1.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
PARAMETERS: P1100 RADIOBUTTON GROUP GRP1 DEFAULT ‘X‘ MODIF ID B1 USER-COMMAND RAD2,
P1200 RADIOBUTTON GROUP GRP1 MODIF ID B1,
P1300 RADIOBUTTON GROUP GRP1 MODIF ID B1,
P1020 RADIOBUTTON GROUP GRP1 MODIF ID B1,
W1100 RADIOBUTTON GROUP GRP1 MODIF ID B1.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: S_MATNR FOR MSEG-MATNR MODIF ID B1.
PARAMETERS : P_WERKS LIKE MSEG-WERKS DEFAULT ‘1000‘ MODIF ID B1,
P_LGORT LIKE MARD-LGORT DEFAULT ‘1100‘ MODIF ID B1A.
SELECT-OPTIONS: S_LGORT FOR MARD-LGORT MODIF ID B1B.
PARAMETERS: P_DATUM LIKE SY-DATUM DEFAULT SY-DATUM MODIF ID B1,
P_MJAHR LIKE SER03-MJAHR DEFAULT SY-DATUM+0(4) MODIF ID BL2,
P2_LGORT LIKE MARD-LGORT DEFAULT ‘1000‘ MODIF ID BL2.
SELECT-OPTIONS: S2_MATNR FOR MSEG-MATNR MODIF ID BL2,
S2_SERNR FOR OBJK-SERNR MODIF ID BL2,
S2_MBLNR FOR SER03-MBLNR MODIF ID BL2,
S2_DATUM FOR SER03-DATUM MODIF ID BL2.
PARAMETERS : P2_DATUM LIKE SY-DATUM DEFAULT SY-DATUM MODIF ID BL2.
SELECTION-SCREEN END OF BLOCK BLK.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = ‘BL0‘.
CONTINUE.
ENDIF.
IF P1 = ‘X‘.
IF SCREEN-GROUP1+0(1) = ‘B‘ AND SCREEN-GROUP1+0(2) <> ‘B1‘.
SCREEN-ACTIVE = 0.
ENDIF.
IF W1100 = ‘X‘.
IF SCREEN-GROUP1 = ‘B1A‘.
SCREEN-ACTIVE = 0.
ENDIF.
ELSE.
IF SCREEN-GROUP1 = ‘B1B‘.
SCREEN-ACTIVE = 0.
ENDIF.
ENDIF.
ELSE.
IF SCREEN-GROUP1+0(1) = ‘B‘ AND SCREEN-GROUP1 <> ‘BL2‘.
SCREEN-ACTIVE = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.