topic Re: two check boxes in Application Development and Automation Discussions

two check boxes

Former Member — Mon, 21 Apr 2008 14:15:02 GMT

Hi All,

I have 2 check boxes. I want to desiable one check box if we checked other.

if 1 first is checked ,2nd one should be disiable .

if i checked 2nd one , 1 st one should be desiable.

regards,

Ajay

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:17:54 GMT

Hi ,

Check the below code . It will give idea to u

&----

*& Report ZTEST_SCRIPT01

&----

REPORT ZTEST_SCRIPT01.

SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-100.

skip.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R4 RADIOBUTTON GROUP G2 DEFAULT 'X' MODIF ID S4 USER-COMMAND UK4.

SELECTION-SCREEN COMMENT 5(20) TEXT-041 FOR FIELD R4 .

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R5 RADIOBUTTON GROUP G2 .

SELECTION-SCREEN COMMENT 5(20) TEXT-042 FOR FIELD R5 .

SELECTION-SCREEN END OF LINE.

skip.

SELECTION-SCREEN END OF BLOCK B4.

*selectio-screen for file names.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-005.

PARAMETERS : P_SESSN LIKE APQI-groupid modif id s5. "for session name

SELECTION-SCREEN END OF BLOCK B3.

*selectio-screen for file names.

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

PARAMETERS : P_H_FILE TYPE IBIPPARMS-PATH MODIF ID S2. "Presentation server file(header)

PARAMETERS : P_I_FILE TYPE IBIPPARMS-PATH MODIF ID S2. "Presentation server file(item)

skip.

PARAMETERS : P_H_FIL1 TYPE IBIPPARMS-PATH MODIF ID S3. "Application server file(header)

PARAMETERS : P_I_FIL1 TYPE IBIPPARMS-PATH MODIF ID S3. "Application server file(item)

SELECTION-SCREEN END OF BLOCK B2.

selection-screen for radio buttons

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

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X' MODIF ID S1 USER-COMMAND UK1.

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

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1 .

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

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B1.

to change the attributes of the screen

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF R5 = 'X' AND SCREEN-GROUP1 = 'S5'.

SCREEN-active = 0.

MODIFY SCREEN.

ENDIF.

IF R4 = 'X' AND SCREEN-GROUP1 = 'S5'.

SCREEN-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF R1 = 'X' AND SCREEN-GROUP1 = 'S3'.

SCREEN-INPUT = 0 .

MODIFY SCREEN.

ENDIF.

IF R2 = 'X' AND SCREEN-GROUP1 = 'S2'.

SCREEN-INPUT = 0 .

MODIFY SCREEN.

ENDIF.

ENDLOOP.

<REMOVED BY MODERATOR>

Thanks Jagadeesh.G

Edited by: Alvaro Tejada Galindo on Apr 21, 2008 12:54 PM

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:18:01 GMT

Hello

Would it work instead for you to use radio buttons instead of checkboxes?

That way the user can select only one of the two buttons.

Regards

Greg Kern

Re: two check boxes

Sm1tje — Mon, 21 Apr 2008 14:18:22 GMT

do the LOOP AT SCREEN.

But remember, if one as marked one checkbox and other will be disabled, there is no way in un-disabling it, if user for example has made a mistake. In this case, radiobutton would be better, just a suggestion.

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:21:02 GMT

Hi All,

I know that I can use radio button instead of check box.

but here I shoud use Check box only.

regards,

Ajay

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:29:11 GMT

Hi,

PARAMETERS: CHK1 AS CHECKBOX USER-COMMAND RUSR,

CHK2 AS CHECKBOX USER-COMMAND RUSR.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF CHK1 = 'X'.

IF SCREEN-NAME = 'CHK2'.

SCREEN-INPUT = 0.

ENDIF.

ELSEIF CHK2 = 'X'.

IF SCREEN-NAME = 'CHK1'.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:40:12 GMT

Hi,

Instead of going with checkboxes you can go radiobuttons. Please refer the code below:


TABLES : bsis.


SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : sp_sel radiobutton group rad USER-COMMAND radio DEFAULT 'X',
            sp_all RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS : so_bukrs FOR bsis-bukrs MODIF ID sp1.
SELECT-OPTIONS : so_hkont FOR bsis-hkont MODIF ID sp2.
SELECTION-SCREEN END OF BLOCK b2.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
  IF sp_sel = 'X'.


      IF screen-group1 = 'SP2'.
        screen-input = '0'.
        screen-invisible = '1'.
        screen-required = '0'.
        MODIFY SCREEN.
      ENDIF.
      endif.
 ENDLOOP.

Thanks,

Sriram Ponna.

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:47:10 GMT

Solved.

Re: two check boxes

Former Member — Mon, 21 Apr 2008 14:56:02 GMT

Hi,

I think this is just what you need:

You have for example two checkboxs:

c_r1 and c_r2.

*AT SELECTION-SCREEN OUTPUT.

check what checkbox is selected

IF c_r1 = 'X'.
LOOP AT SCREEN.
IF screen-name = '%_P_ORD_%_APP_%-TEXT'.
screen-invisible = '0'.
screen-input = '1'.
MODIFY SCREEN.
ELSEIF screen-name = 'P_PATH'.
screen-name = '%_P_PATH_%_APP_%-TEXT'.
screen-invisible = '1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF c_r2 ='X'.
LOOP AT SCREEN.
IF screen-name = '%_P_PATH_%_APP_%-TEXT'.
screen-invisible = '0'.
screen-input = '1'.
MODIFY SCREEN.
ELSEIF screen-name = 'P_ORD'.
screen-name = '%_P_ORD_%_APP_%-TEXT'.
screen-invisible = '1'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

Regards,

Sebastián

<REMOVED BY MODERATOR>

Edited by: Alvaro Tejada Galindo on Apr 21, 2008 12:54 PM