topic Re: SELECTION-SCREEN in Application Development and Automation Discussions

SELECTION-SCREEN

Former Member — Mon, 07 Apr 2008 10:07:21 GMT

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

Re: SELECTION-SCREEN

Former Member — Mon, 07 Apr 2008 10:12:09 GMT

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

Re: SELECTION-SCREEN

Former Member — Mon, 07 Apr 2008 11:06:37 GMT

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.