*------------------------------------------------------------------
*选择屏
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-002 .
PARAMETERS : P1 RADIOBUTTON GROUP B1 DEFAULT 'X' USER-COMMAND chg,
P2 RADIOBUTTON GROUP B1.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VKORG FOR A611-VKORG MODIF ID ADD,
S_VTWEG FOR A611-VTWEG MODIF ID ADD,
S_WERKS FOR A611-WERKS MODIF ID ADD,
S_KUNNR FOR A611-KUNNR MODIF ID ADD,
S_MATNR FOR A611-MATNR MODIF ID ADD,
S_VKORG1 FOR A608-VKORG MODIF ID DIS,
S_VTWEG1 FOR A608-VTWEG MODIF ID DIS,
S_WERKS1 FOR A608-WERKS MODIF ID DIS,
S_KDGRP1 FOR A608-KDGRP MODIF ID DIS,
S_MATNR1 FOR A608-MATNR MODIF ID DIS.
PARAMETERS: S_DATE LIKE RV130-DATAM.
SELECTION-SCREEN END OF BLOCK B1.
*--------------------------------------------------------------------*
* 屏幕事件: AT SELECTION-SCREEN OUTPUT
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF P1 = 'X'.
IF SCREEN-GROUP1 = 'DIS'.
SCREEN-ACTIVE = 0.
ENDIF.
ELSE.
IF SCREEN-GROUP1 = 'ADD' .
SCREEN-ACTIVE = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.