*&---------------------------------------------------------------------* *& Report ZHQ_01_04 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT ZHQ_01_04. PARAMETERS P_NAME TYPE C LENGTH 20. SELECTION-SCREEN SKIP 1. SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001. SELECTION-SCREEN SKIP 1. SELECTION-SCREEN BEGIN OF LINE. PARAMETERS R1 TYPE C RADIOBUTTON GROUP G1 USER-COMMAND SM. SELECTION-SCREEN COMMENT (10) TEXT-002 FOR FIELD R1. PARAMETERS R2 TYPE C RADIOBUTTON GROUP G1. SELECTION-SCREEN COMMENT (10) TEXT-003 FOR FIELD R2. PARAMETERS R3 TYPE C RADIOBUTTON GROUP G1. SELECTION-SCREEN COMMENT (10) TEXT-004 FOR FIELD R3. PARAMETERS R4 TYPE C RADIOBUTTON GROUP G1. SELECTION-SCREEN COMMENT (10) TEXT-005 FOR FIELD R4. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN SKIP 1. SELECTION-SCREEN END OF BLOCK B1. SELECTION-SCREEN SKIP 1. SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-101. PARAMETERS P_PARENT TYPE C LENGTH 10 MODIF ID PP. PARAMETERS P_DATE TYPE C LENGTH 10 MODIF ID PP. SELECTION-SCREEN END OF BLOCK B2. INITIALIZATION. AT SELECTION-SCREEN. DATA CODE LIKE SY-UCOMM. CODE = SY-UCOMM. "MESSAGE CODE TYPE 'I'. IF CODE = 'SM'. "MESSAGE R2 TYPE 'I'. IF R2 = 'X'. "MESSAGE '选择上门拜访' TYPE 'I'. ENDIF. ENDIF. AT SELECTION-SCREEN OUTPUT. LOOP AT SCREEN. IF R2 = 'X'. ELSE. IF SCREEN-GROUP1 = 'PP'. SCREEN-ACTIVE = 0. MODIFY SCREEN. ENDIF. ENDIF. ENDLOOP. START-OF-SELECTION. END-OF-SELECTION.