Selection screen

[Former Member]

Hi All,

My selection screen has the below fields.

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY.

i have two radio buttons in it p_down and p_upload.

If user selected p_down radio button the fields p_source need to be in disable mode.

if user selected p_upload radio button p_ebeln,p_target,p_active needs to disable.

could any one tell me how we can do this.

Points will be rewarded for help ful answer.

Thanks.

[former_member404244]

Hi,

see the below sample code fr that

PARAMETERS : p_aserv RADIOBUTTON GROUP grp

USER-COMMAND app, "Application server

p_afile1 TYPE filename-fileextern , "Application File

"Name for contracts

p_afile2 TYPE filename-fileextern , "Application

"FileName for

"Long text

p_aerfl1 TYPE filename-fileextern , "Error File

"forcontracts

p_aerfl2 TYPE filename-fileextern , "Error File

"for Longtext

p_pserv RADIOBUTTON GROUP grp, "Presentation Server

p_pfile1 TYPE rlgrap-filename , "Presentation File

"Name forcontracts

p_pfile2 TYPE rlgrap-filename , "Presentation File

"Name for long

"texts

p_errfl1 TYPE rlgrap-filename ,

"Error File for

"contracts

p_errfl2 TYPE rlgrap-filename . "Err File Long text

AT SELECTION-SCREEN OUTPUT.

IF p_pserv IS INITIAL.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_PFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_PFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_ERRFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

CASE screen-name.

WHEN 'P_AFILE1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AFILE2'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL1'.

screen-input = 0.

MODIFY SCREEN.

WHEN 'P_AERFL2'.

screen-input = 0.

MODIFY SCREEN.

ENDCASE.

ENDLOOP.

ENDIF.

Regards,

Nagaraj

[Former Member]

Hi,

check this code, reward if it is useful

selection-screen begin of block 1 with frame title text-001.

selection-screen begin of line.

selection-screen comment 1(31) text-002 for field R1.

parameter : R1 radiobutton group RAD default 'X' user-command file .

.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-003 for field par.

parameter : par like rlgrap-filename MODIF ID A.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-002 for field R1.

parameter : R2 radiobutton group RAD .

.

selection-screen end of line.

selection-screen begin of line.

selection-screen comment 1(31) text-003 for field par1.

parameter : par1 like rlgrap-filename MODIF ID B.

selection-screen end of line.

selection-screen end of block 1.

at selection-screen output.

perform selection.

&----

---

*& Form SELECTION

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM SELECTION .

loop at screen.

case screen-group1.

• Presentation Server Radiobutton

when 'A'.

if R1 = space.

screen-invisible = '1'.

screen-input = '0'.

• p_pres = 'X'.

• else.

• screen-invisible = '0'.

• screen-input = '1'.

endif.

modify screen.

• Shuttle Radiobutton

when 'B'.

if R2 = space.

screen-invisible = '1'.

screen-input = '0'.

• else.

• screen-invisible = '0'.

• screen-input = '1'.

endif.

modify screen.

endcase.

endloop.

ENDFORM. " SELECTION

[Former Member]

Make screen fields inactive under AT SELECTION-SCREEN ON <field>.

You can disable certain fields on some action ..in your case that action is selecting the perticular

radio button.

Regards,

Amey

[Former Member]

use foolwing code

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX modif-id G2,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY modif-id G1.

at selection screen output.

IF p_down ='X'.

loop at screen.

if group1 = 'G1'

SCREEN-ACTIVE = '0'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

endif.

endloop.

elseif p_upload = 'X'.

loop at screen.

if group1 = 'G2'

SCREEN-ACTIVE = '0'.

SCREEN-INPUT = '0'.

MODIFY SCREEN.

endif.

endloop.

ENDIF.

plz reward if useful

vivek

[Former Member]

Hi,

PARAMETERS:p_down RADIOBUTTON GROUP r1 DEFAULT 'X'.

SELECT-OPTIONS:s_ebeln FOR v_ebeln.

PARAMETERS:p_target TYPE rlgrap-filename OBLIGATORY, "Download file name

p_active AS CHECKBOX,

p_upload RADIOBUTTON GROUP r1,

p_source TYPE rlgrap-filename OBLIGATORY.

i have two radio buttons in it p_down and p_upload.

If user selected p_down radio button the fields p_source need to be in disable mode.

if user selected p_upload radio button p_ebeln,p_target,p_active needs to disable.

C for the above code u can write the CASE statement. And write the code accordignly by taking one radio button as 'X' and for that the corresponding Check boxes in Disable that is 'Space'.

If u repeat writing this for all the radio buttons and check boxes with permutations and combinations

in AT selection-screen u can get the otuput.

Regards.

[Former Member]

Hi,

*************************************************************************

• AT SELECTION-SCREEN

*************************************************************************

AT SELECTION-SCREEN OUTPUT.

IF r1 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022. "Selection screen1

screen-active = 1.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023. "selection screen2

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024. "selection screen3

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF r2 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023.

screen-active = 1.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF r3 ='X'.

LOOP AT SCREEN.

IF screen-group1 = text-022.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-023.

screen-active = 0.

MODIFY SCREEN.

ELSEIF screen-group1 = text-024.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.