‎2008 Apr 07 11:07 AM
Dear friends,
i have a question on selection screen
.
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME TITLE text-001. " BEGIN OF BLOCK a1
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 5.
PARAMETERS: rb_so_po radiobutton group aa default 'X'.
SELECTION-SCREEN: COMMENT 8(20) text-002.
SELECTION-SCREEN: POSITION 30.
PARAMETERS: rb_so radiobutton group aa.
SELECTION-SCREEN: COMMENT 33(20) text-003.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_so as checkbox modif id bth.
SELECTION-SCREEN: COMMENT 63(20) text-005.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_po as checkbox modif id bth.
SELECTION-SCREEN: COMMENT 63(20) text-006.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_crd as checkbox modif id soe.
SELECTION-SCREEN: COMMENT 63(20) text-007.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_shd as checkbox modif id soe.
SELECTION-SCREEN: COMMENT 63(20) text-008.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: END OF BLOCK a1. " END OF BLOCK a1
This is my selection screen
in this i need to select radio button.
If i select radio button 1, only first 2 check boxes has to be visible and remaining 2 should be hide.
If i select second radio button. last 2 check boxes has to be visible and first 2 should be hide.
Please remember 2 radio buttons and 4 check boxes are in the same block .
Can any one send me the code for this
Thanks,
Ajay
‎2008 Apr 07 11:12 AM
Hi,
tables:
mard.
select-options: s_matnr for mard-matnr modif id xyz.
parameters : s_werks like mard-werks modif id xyz .
select-options: s_lgort for mard-lgort modif id abc.
parameters check as checkbox user-command check.
at selection-screen output.
if check eq 'X'.
loop at screen.
if screen-group1 = 'ABC'.
screen-input = 0.
screen-invisible = 1.
modify screen.
endif.
endloop.
endif.
this code is removing a select-option when the check box is selected so u can easily do ur code accordingle
below is ur requirement
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 5.
PARAMETERS: rb_so_po radiobutton group aa default 'X'.
SELECTION-SCREEN: COMMENT 8(20) text-002.
SELECTION-SCREEN: POSITION 30.
PARAMETERS: rb_so radiobutton group aa.
SELECTION-SCREEN: COMMENT 33(20) text-003.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_so as checkbox modif id bth.
SELECTION-SCREEN: COMMENT 63(20) text-005.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_po as checkbox modif id bth.
SELECTION-SCREEN: COMMENT 63(20) text-006.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_crd as checkbox modif id soe.
SELECTION-SCREEN: COMMENT 63(20) text-007.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: POSITION 60.
PARAMETERS: cb_shd as checkbox modif id soe.
SELECTION-SCREEN: COMMENT 63(20) text-008.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: END OF BLOCK a1. " END OF BLOCK a1
at selection-screen output.
if rb_so_po = 'X'.
loop at screen.
if screen-group1 = 'BTH'.
screen-input = 0.
screen-invisible = 1.
modify screen.
endif.
endloop.
endif.
if rb_so = 'X'.
loop at screen.
if screen-group1 = 'SOE'.
screen-input = 0.
screen-invisible = 1.
modify screen.
endif.
endloop.
endif.
you just have to press execute or enter on selection screen
do reward if helpful
Edited by: Ashish Paliwal on Apr 7, 2008 3:48 PM
‎2008 Apr 07 12:06 PM
Hi,
REPORT zdownload_cor1.
SELECTION-SCREEN: BEGIN OF BLOCK a1 WITH FRAME TITLE text-001. " BEGIN OF BLOCK a1
*SELECTION-SCREEN: BEGIN OF LINE.
*SELECTION-SCREEN: POSITION 5.
PARAMETERS: r1 RADIOBUTTON GROUP aa." DEFAULT 'X'.
*SELECTION-SCREEN: COMMENT 8(20) text-002.
*SELECTION-SCREEN: POSITION 30.
PARAMETERS: r2 RADIOBUTTON GROUP aa.
*SELECTION-SCREEN: COMMENT 33(20) text-003.
*SELECTION-SCREEN: POSITION 60.
PARAMETERS: c1 AS CHECKBOX MODIF ID bth.
*SELECTION-SCREEN: COMMENT 63(20) text-005.
*SELECTION-SCREEN: END OF LINE.
*SELECTION-SCREEN: BEGIN OF LINE.
*SELECTION-SCREEN: POSITION 60.
PARAMETERS: c2 AS CHECKBOX MODIF ID bth.
*SELECTION-SCREEN: COMMENT 63(20) text-006.
*SELECTION-SCREEN: END OF LINE.
*SELECTION-SCREEN: BEGIN OF LINE.
*SELECTION-SCREEN: POSITION 60.
PARAMETERS: c3 AS CHECKBOX MODIF ID soe.
*SELECTION-SCREEN: COMMENT 63(20) text-007.
*SELECTION-SCREEN: END OF LINE.
*SELECTION-SCREEN: BEGIN OF LINE.
*SELECTION-SCREEN: POSITION 60.
PARAMETERS: c4 AS CHECKBOX MODIF ID soe.
*SELECTION-SCREEN: COMMENT 63(20) text-008.
*SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: END OF BLOCK a1. " END OF BLOCK a1
AT SELECTION-SCREEN OUTPUT.
IF r1 = 'X'.
LOOP AT SCREEN.
IF screen-name EQ 'C3' OR
screen-name EQ 'C4' OR
screen-name EQ 'R2' OR
screen-name EQ 'RADIO2' OR
screen-name EQ 'CHECKBOX3' OR
screen-name EQ 'CHECKBOX4'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
elseif r2 = 'X'.
LOOP AT SCREEN.
IF screen-name EQ 'C1' OR
screen-name EQ 'C2' OR
screen-name EQ 'R1' OR
screen-name EQ 'RADIO1' OR
screen-name EQ 'CHECKBOX1' OR
screen-name EQ 'CHECKBOX2'.
screen-invisible = 1.
MODIFY SCREEN.
ENDIF.
endloop.
ENDIF.