Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Radio Button Disable

Go to solution
Former Member

‎07-05-2007 1:08 PM

0 Kudos

Hi all,

I have one report in which i am using two <b>radio buttons group</b>

here is my code.........

SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.

PARAMETERS:bukrs LIKE rbkp-bukrs OBLIGATORY.

SELECT-OPTIONS:form_no FOR zform_track_mast-form_no,

date FOR sy-datum.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but1 RADIOBUTTON GROUP one DEFAULT 'X' USER-COMMAND ucom.

SELECTION-SCREEN COMMENT 3(26) text-003.

SELECT-OPTIONS : kunnr FOR kna1-kunnr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but2 RADIOBUTTON GROUP one.

SELECTION-SCREEN COMMENT 3(26) text-004.

SELECT-OPTIONS : lifnr FOR lfa1-lifnr.

SELECTION-SCREEN END OF LINE.

PARAMETERS: pend TYPE c RADIOBUTTON GROUP type USER-COMMAND ucomm DEFAULT 'X' ,

recv TYPE c RADIOBUTTON GROUP type MODIF ID r1,

issu TYPE c RADIOBUTTON GROUP type MODIF ID i1.

SELECTION-SCREEN:END OF BLOCK blk1.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = 1.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 0.

REFRESH lifnr.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF rad_but2 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.

REFRESH kunnr.

screen-input = 0.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Here i have write code so that when i select rad_but1 , rad_but2 should disable means no one can give input to it.....

But now i also want that when i select rad_but1. <b>issu</b> option of second radio button group should disable so no one can select that and select one from other two radio button (pend or recv)

is that possible?

it would helpful if someone correct my code..

its bit urgent...

Thanks in advance....

1 ACCEPTED SOLUTION

Go to solution
Former Member

‎07-05-2007 1:24 PM

0 Kudos

Add the code below, so issu option cannot become output.

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = 1.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 0.

REFRESH lifnr.

ENDIF.

<b>IF screen-group = 'I1'

screen-input = 0.

endif.</b>

MODIFY SCREEN.

ENDIF.

IF rad_but2 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.

REFRESH kunnr.

screen-input = 0.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 1.

ENDIF.

<b>IF screen-group = 'I1'

screen-input = 1.

endif.</b>

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Message was edited by:

Memeo

6 REPLIES 6

Go to solution
Former Member

‎07-05-2007 1:11 PM

0 Kudos

Hi,

Check this link

Regards,

Samson Rodrigues.

Go to solution
seshatalpasai_madala
Employee
Employee

‎07-05-2007 1:12 PM

0 Kudos

Hi,

USE

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = 1.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 0.

REFRESH lifnr.

ENDIF.

<b>CHECK screen-name = 'ISSUE'.

clear issue.

SCREEN-INPUT = 0.</b>

MODIFY SCREEN.

ENDIF.

Regards,

Sesh

Go to solution
Former Member
In response to seshatalpasai_madala

‎07-05-2007 1:23 PM

0 Kudos

its working but it stops disabling of rad_but2 if i select rad_but1 now both are enable

Go to solution
dev_parbutteea
Active Contributor
In response to seshatalpasai_madala

‎07-05-2007 1:23 PM

0 Kudos

Hi,

done:

tables:kna1, lfa1.

SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.

PARAMETERS:bukrs LIKE rbkp-bukrs OBLIGATORY.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but1 RADIOBUTTON GROUP one DEFAULT 'X' USER-COMMAND ucom.

SELECTION-SCREEN COMMENT 3(26) text-003.

SELECT-OPTIONS : kunnr FOR kna1-kunnr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but2 RADIOBUTTON GROUP one .

SELECTION-SCREEN COMMENT 3(26) text-004.

SELECT-OPTIONS : lifnr FOR lfa1-lifnr.

SELECTION-SCREEN END OF LINE.

PARAMETERS: pend TYPE c RADIOBUTTON GROUP type USER-COMMAND ucomm DEFAULT 'X' ,

recv TYPE c RADIOBUTTON GROUP type MODIF ID r1,

issu TYPE c RADIOBUTTON GROUP type MODIF ID i1.

SELECTION-SCREEN:END OF BLOCK blk1.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = '0'.

REFRESH lifnr.

MODIFY SCREEN.

ENDIF.

if screen-name = 'ISSU'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDIF.

IF rad_but2 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.

REFRESH kunnr.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

if screen-name = 'RECV'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

if screen-name = 'ISSU'.

screen-input = '1'.

MODIFY SCREEN.

endif.

if screen-name = 'PEND'.

screen-input = '1'.

MODIFY SCREEN.

endif.

ENDIF.

ENDLOOP.

Regards,

Sooness

Go to solution
Former Member

‎07-05-2007 1:24 PM

0 Kudos

Add the code below, so issu option cannot become output.

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = 1.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 0.

REFRESH lifnr.

ENDIF.

<b>IF screen-group = 'I1'

screen-input = 0.

endif.</b>

MODIFY SCREEN.

ENDIF.

IF rad_but2 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.

REFRESH kunnr.

screen-input = 0.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH'.

screen-input = 1.

ENDIF.

<b>IF screen-group = 'I1'

screen-input = 1.

endif.</b>

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Message was edited by:

Memeo

Go to solution
Former Member

‎07-05-2007 1:32 PM

0 Kudos

Hi here is your program with slight modification.

SELECTION-SCREEN:BEGIN OF BLOCK blk1 WITH FRAME TITLE text-002.

PARAMETERS:bukrs LIKE rbkp-bukrs OBLIGATORY.

*SELECT-OPTIONS:form_no FOR zform_track_mast-form_no,

*date FOR sy-datum.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but1 RADIOBUTTON GROUP one DEFAULT 'X' USER-COMMAND ucom.

SELECTION-SCREEN COMMENT 3(26) text-003.

SELECT-OPTIONS : kunnr FOR kna1-kunnr.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : rad_but2 RADIOBUTTON GROUP one.

SELECTION-SCREEN COMMENT 3(26) text-004.

SELECT-OPTIONS : lifnr FOR lfa1-lifnr.

SELECTION-SCREEN END OF LINE.

PARAMETERS: pend TYPE c RADIOBUTTON GROUP type USER-COMMAND ucomm DEFAULT 'X' ,

recv TYPE c RADIOBUTTON GROUP type MODIF ID r1,

issu TYPE c RADIOBUTTON GROUP type MODIF ID i1.

SELECTION-SCREEN:END OF BLOCK blk1.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF rad_but1 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH' .

screen-input = 1.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH' or screen-name = 'ISSU'.

screen-input = 0.

REFRESH lifnr.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF rad_but2 = 'X'.

IF screen-name = 'KUNNR-LOW' OR screen-name = 'KUNNR-HIGH'.

REFRESH kunnr.

screen-input = 0.

ENDIF.

IF screen-name = 'LIFNR-LOW' OR screen-name = 'LIFNR-HIGH' OR SCREEN-NAME = 'ISSU'.

screen-input = 1.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

It works as per your requirement.

Reward if useful.

Regards,

Madhusudhan