topic Re: selection screen dessign in Application Development and Automation Discussions

selection screen dessign

Former Member — Thu, 09 Aug 2007 09:03:25 GMT

another req

i had 2 radiobuttons

and 2 parameters

i want the selection screen shuld be like

1 radiobutton corresponding to one parameter

when i elect 1st radionbutton corresponding to that parameter only in active or input mode and other shuld be in invisible or display mode

same for 2nd radiobuton also

help me

Re: selection screen dessign

Former Member — Thu, 09 Aug 2007 09:05:34 GMT

use this

DATA : BEGIN OF IT_PLANT OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

PSTAT LIKE MARC-PSTAT,

EKGRP LIKE MARC-EKGRP,

END OF IT_PLANT.

DATA : BEGIN OF IT_PONO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

WERKS LIKE EKPO-WERKS,

LGORT LIKE EKPO-LGORT,

END OF IT_PONO.

TABLES EKKO.

********END OF DATA DECLARATIONS*********

********SELECTION SCREEN DESIGN ***********

*SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN NO INTERVALS MODIF ID S2.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' USER-COMMAND UC1.

SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

*SELECTION-SCREEN END OF LINE.

******END OF SELECTION SCREEN DESIGN****************

*********INITIALIZATION OF SELECTION SCREEN ELEMENTS.*****

*INITIALIZATION.

*P_WERKS = '1000'.

*S_EBELN-LOW = '4500016926'.

*S_EBELN-OPTION = 'EQ'.

*S_EBELN-SIGN = 'I'.

*APPEND S_EBELN.

*CLEAR S_EBELN.

************END OF INITIALIZATION***********************

***********SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN OUTPUT .

LOOP AT SCREEN .

IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.

SCREEN-INPUT = 0.

SCREEN-REQUIRED = 1.

MODIFY SCREEN.

ENDIF.

IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.

SCREEN-INPUT = 0.

SCREEN-REQUIRED = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Re: selection screen dessign

Former Member — Thu, 09 Aug 2007 09:08:11 GMT

Hi rahul

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

case screen-name.

when 'prameter_1'.

if radio1 = 'x'.

screen-input = '1'.

else.

screen-input = '0'.

endif.

modify screen.

endcase.

endloop.

reward points to all helpful answers

kiran.M

Re: selection screen dessign

varma_narayana — Thu, 09 Aug 2007 09:18:42 GMT

This is the code for u.

&----

*& Report ZSEL_RADIO1 *

*& *

&----

*& *

&----

REPORT ZSEL_RADIO1 .

TABLES SSCRFIELDS .

DATA : VCOMM TYPE SSCRFIELDS-UCOMM.

SELECTION-SCREEN : BEGIN OF LINE.

SELECTION-SCREEN : COMMENT 5(10) TEXT-C01.

PARAMETERS : RB1 RADIOBUTTON GROUP G1 USER-COMMAND RADIO.

PARAMETERS: P_FIELD1 TYPE I.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN : BEGIN OF LINE.

SELECTION-SCREEN : COMMENT 5(10) TEXT-C01.

PARAMETERS : RB2 RADIOBUTTON GROUP G1.

PARAMETERS: P_FIELD2 TYPE I.

SELECTION-SCREEN : END OF LINE.

AT SELECTION-SCREEN.

VCOMM = SSCRFIELDS-UCOMM.

AT SELECTION-SCREEN OUTPUT.

CASE VCOMM.
WHEN 'RADIO'. :"When radio button from Group G1

CASE 'X'.

WHEN RB1.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_FIELD1'.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'P_FIELD2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

WHEN RB2.

LOOP AT SCREEN.

IF SCREEN-NAME = 'P_FIELD1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF SCREEN-NAME = 'P_FIELD2'.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDCASE.

ENDCASE.

<b>Reward if Helpful</b>