Using Checkboxes

[Former Member]

Hi,

I have created a selection screen with 4 checkboxes. My requirement is that when i select the first checkbox then a subscreen should appear. On unchecking it, it should be invisible. When i check the 2nd checkbox, another subscreen should appear. Also, if the check the 1st and 2nd checkbox, then both selection screens should appear.

Please help me out on how this can be done.

Thanks,

Prasy

[Former Member]

Hi,

Try this

IF CH1 = 'X'.

SELECTION-SCREEN BEGIN OF SCREEN 101.

PARAMETERS: NAME(20) TYPE C,

ID(10),

DESG(20).

SELECTION-SCREEN END OF SCREEN 101.

CALL SELECTION-SCREEN 101 STARTING AT 20 3 ENDING AT 80 10.

ENDIF.

IF CH2 = 'X'.

SELECTION-SCREEN BEGIN OF SCREEN 102.

PARAMETERS: NAME(20) TYPE C,

ID(10),

DESG(20).

SELECTION-SCREEN END OF SCREEN 102.

CALL SELECTION-SCREEN 102 STARTING AT 20 3 ENDING AT 80 10.

ENDIF.

Regards,

Chandu.

[Former Member]

Hello.

You must use USER-COMMAND fcode additional for parameters. If user check this checkboxes, in you program will by run PAI module. And after PAI module in PBO module you can modify screen.

[Former Member]

You have to write the code in the At Selection-screen output event.

if chk1 = 'X'.

call subscreen 1.

elseif chk2 = 'X'.

call subscreen 2.

elseif chk1 = 'X' and chk2 = 'X'.

call subscreen 1.

call subscreen 2.

end if.

[Former Member]

Hi,

Have a look at this Demo program that helps you how to deal with subscreens .

DEMO_SEL_SCREEN_AS_SUBSCREEN

Regards,

Venkat.O

[Former Member]

Hi,

I have the same problem.

I am using multiple checkboxes on the screen.

When i select 1 checkbox, its corresponding select-options appears under that checkbox, it works for multiple selection.

But the problem is for deselection, when i try to deselect the 1st checkbox, it disappears the select-options for 1st one but at the same time, displays the select-option for all other checkboxes, which should not be the case.

please help me. For reference i m providing with the code that i have done till now.

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

PARAMETERS:

TEA AS CHECKBOX MODIF ID TE1 DEFAULT 'X' USER-COMMAND TEA.

SELECTION-SCREEN BEGIN OF BLOCK B_TEA WITH FRAME TITLE TEXT-003.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-002 FOR FIELD S_DTYPE

MODIF ID DOC.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_DTYPE LIKE BKPF-BLART MODIF ID DOC.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-004 FOR FIELD S_HKONT

MODIF ID DOC.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_HKONT LIKE BSEG-HKONT MODIF ID DOC.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-005 FOR FIELD S_BKTXT

MODIF ID DOC.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_BKTXT LIKE BKPF-BKTXT MODIF ID DOC.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B_TEA.

PARAMETERS:

PCA AS CHECKBOX MODIF ID PC1 USER-COMMAND PCA.

SELECTION-SCREEN BEGIN OF BLOCK B_PCARD WITH FRAME TITLE TEXT-003.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-002 FOR FIELD S_PDTYPE

MODIF ID PCD.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_PDTYPE LIKE BKPF-BLART MODIF ID PCD.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-004 FOR FIELD S_PHKONT

MODIF ID PCD.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_PHKONT LIKE BSEG-HKONT MODIF ID PCD.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(20) TEXT-005 FOR FIELD S_PBKTXT

MODIF ID PCD.

SELECTION-SCREEN POSITION 33.

PARAMETERS: S_PBKTXT LIKE BKPF-BKTXT MODIF ID PCD.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B_PCARD.

PARAMETERS:

LABOUR AS CHECKBOX MODIF ID LAB,

BONDS AS CHECKBOX MODIF ID BND,

BRES-ITC AS CHECKBOX MODIF ID ITC,

REVENUE AS CHECKBOX MODIF ID RVN,

OTHERS AS CHECKBOX.

SELECTION-SCREEN END OF BLOCK B2.

AT SELECTION-SCREEN OUTPUT.

CASE 'X'.

WHEN TEA.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'DOC'.

SCREEN-INPUT = '1'.

SCREEN-INVISIBLE = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

WHEN PCA.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'PCD'.

SCREEN-INPUT = '1'.

SCREEN-INVISIBLE = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ENDCASE.

CASE space.

WHEN TEA.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'DOC'.

SCREEN-INPUT = '0'.

SCREEN-INVISIBLE = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

WHEN PCA.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'PCD'.

SCREEN-INPUT = '0'.

SCREEN-INVISIBLE = '1'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

WHEN OTHERS.

ENDCASE.