屏幕设计-员工入职表

*&---------------------------------------------------------------------*
*& Report  Z007
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT Z007.

TABLES ZUSER.


SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
    PARAMETERS P1 TYPE CHAR50 VISIBLE LENGTH 30.
    PARAMETERS P2 TYPE CHAR50 VISIBLE LENGTH 30.
SELECTION-SCREEN END OF BLOCK BK1.

SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE TEXT-002.
    PARAMETERS P3 TYPE INT2.
    PARAMETERS P4 TYPE INT2.
    PARAMETERS P5 TYPE INT2.
SELECTION-SCREEN END OF BLOCK BK2.


SELECTION-SCREEN BEGIN OF BLOCK BK3 WITH FRAME TITLE TEXT-003.
    SELECTION-SCREEN BEGIN OF LINE.
        PARAMETERS E1 TYPE CHAR1 RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (10) TEXT-E01 FOR FIELD E1.
        PARAMETERS E2 TYPE CHAR1 RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (10) TEXT-E02 FOR FIELD E2.
        PARAMETERS E3 TYPE CHAR1 RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (10) TEXT-E03 FOR FIELD E3.
        PARAMETERS E4 TYPE CHAR1 RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (10) TEXT-E04 FOR FIELD E4.
        PARAMETERS E5 TYPE CHAR1 RADIOBUTTON GROUP GP1.
        SELECTION-SCREEN COMMENT (10) TEXT-E05 FOR FIELD E5.
    SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BK3.


PARAMETERS C1 TYPE CHAR1 AS CHECKBOX USER-COMMAND HIDE.

PARAMETERS C2 TYPE CHAR20 OBLIGATORY MODIF ID F1.


INITIALIZATION.
  C1 = ''.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.

  LOOP AT SCREEN.
    IF C1 = ' '.
      IF SCREEN-GROUP1 = 'F1'.
          SCREEN-ACTIVE = 0.
          SCREEN-REQUIRED = '1'.
          MODIFY SCREEN.
      ENDIF.

    ENDIF.
  ENDLOOP.



START-OF-SELECTION.

END-OF-SELECTION.