Q.SELECTION SCREEN DETAILS .HOW CREATE BLOCK RADIO BUTTON ETC
REPORT ZSELECTION_SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
* PARAMETERS P_VENDER AS CHECKBOX USER-COMMAND UC1.
PARAMETERS: P_VEN RADIOBUTTON GROUP RG1 user-command test default 'X',
* SELECTION-SCREEN COMMENT (25) TEXT-RC1 FOR FIELD P_VEND.
P_CUS RADIOBUTTON GROUP RG1,
P_STU RADIOBUTTON GROUP RG1.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
* PARAMETERS P_VEND AS CHECKBOX USER-COMMAND UC1.
PARAMETERS: P_VNAME TYPE CHAR20 MODIF ID RB1,
P_VID TYPE CHAR30 MODIF ID RB1,
P_VADD TYPE CHAR30 MODIF ID RB1,
P_VMOB TYPE CHAR20 MODIF ID RB1.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_CNAME TYPE CHAR20 MODIF ID SC1,
P_CID TYPE CHAR20 MODIF ID SC1,
P_CADD TYPE CHAR20 MODIF ID SC1,
P_CMOB TYPE CHAR20 MODIF ID SC1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
* PARAMETERS P_STUD AS CHECKBOX USER-COMMAND UC3.
PARAMETERS: P_SNAME TYPE CHAR20 MODIF ID SU1 ,
P_SID TYPE CHAR20 MODIF ID SU1,
P_SADD TYPE CHAR20 MODIF ID SU1,
P_SMOB TYPE CHAR20 MODIF ID SU1.
SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN END OF BLOCK B5.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RB1'.
IF P_CUS = 'X' OR P_STU = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_VEN = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'SC1'.
IF P_VEN = 'X' OR P_STU = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_CUS = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'SU1'.
IF P_VEN = 'X' OR P_CUS = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_STU = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
REPORT ZSELECTION_SCREEN.
SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT-004.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
* PARAMETERS P_VENDER AS CHECKBOX USER-COMMAND UC1.
PARAMETERS: P_VEN RADIOBUTTON GROUP RG1 user-command test default 'X',
* SELECTION-SCREEN COMMENT (25) TEXT-RC1 FOR FIELD P_VEND.
P_CUS RADIOBUTTON GROUP RG1,
P_STU RADIOBUTTON GROUP RG1.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
* PARAMETERS P_VEND AS CHECKBOX USER-COMMAND UC1.
PARAMETERS: P_VNAME TYPE CHAR20 MODIF ID RB1,
P_VID TYPE CHAR30 MODIF ID RB1,
P_VADD TYPE CHAR30 MODIF ID RB1,
P_VMOB TYPE CHAR20 MODIF ID RB1.
SELECTION-SCREEN END OF BLOCK B2.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-002.
PARAMETERS: P_CNAME TYPE CHAR20 MODIF ID SC1,
P_CID TYPE CHAR20 MODIF ID SC1,
P_CADD TYPE CHAR20 MODIF ID SC1,
P_CMOB TYPE CHAR20 MODIF ID SC1.
SELECTION-SCREEN END OF BLOCK B3.
SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-003.
* PARAMETERS P_STUD AS CHECKBOX USER-COMMAND UC3.
PARAMETERS: P_SNAME TYPE CHAR20 MODIF ID SU1 ,
P_SID TYPE CHAR20 MODIF ID SU1,
P_SADD TYPE CHAR20 MODIF ID SU1,
P_SMOB TYPE CHAR20 MODIF ID SU1.
SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN END OF BLOCK B5.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'RB1'.
IF P_CUS = 'X' OR P_STU = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_VEN = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'SC1'.
IF P_VEN = 'X' OR P_STU = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_CUS = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'SU1'.
IF P_VEN = 'X' OR P_CUS = 'X'.
SCREEN-ACTIVE = 0.
ELSEIF P_STU = 'X'.
SCREEN-ACTIVE = 1.
ENDIF.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
No comments:
Post a Comment