topic Re: Radio Button Disable in Application Development and Automation Discussions

Radio Button Disable

Former Member — Thu, 05 Jul 2007 12:08:12 GMT

Hi all,

I have one report in which i am using two radio buttons group

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. issu 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....

Re: Radio Button Disable

Former Member — Thu, 05 Jul 2007 12:11:45 GMT

Hi,

Check this link

Regards,

Samson Rodrigues.

Re: Radio Button Disable

seshatalpasai_madala — Thu, 05 Jul 2007 12:12:18 GMT

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.

CHECK screen-name = 'ISSUE'.

clear issue.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

Regards,

Sesh

Re: Radio Button Disable

Former Member — Thu, 05 Jul 2007 12:23:32 GMT

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

Re: Radio Button Disable

dev_parbutteea — Thu, 05 Jul 2007 12:23:35 GMT

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.

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

Re: Radio Button Disable

Former Member — Thu, 05 Jul 2007 12:24:13 GMT

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.

IF screen-group = 'I1'

screen-input = 0.

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.

IF screen-group = 'I1'

screen-input = 1.

endif.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Message was edited by:

Memeo

Re: Radio Button Disable

Former Member — Thu, 05 Jul 2007 12:32:49 GMT

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