ABAP-屏幕设计-上门拜访动态切换

*&---------------------------------------------------------------------*
*& 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.