Two options are required in the Selection Screen

Question

Hi All,
I need a selection screen with two option:
Option 1: Based on Open delivery
The following are the input fields:
In which Delivery types and dates are mandatory
1.     Delivery
2.     Delivery Type(Mandatory field)
3.     Shipping Point/Receiving Point
4.     Material
5.     Planned goods movement Date(Mandatory Field)
6.     Total goods movement Stat
and,
Option 2: Based on Material
There are no mandatory fields in this option,
The following are the input fields:
1.     Material
2.     External Material Group
3.     Plant
I want to implement the same using Radio buttons,
In which If i select the radio button 1, option 1 should be triggered,
and if I select radio button 2, option 2 should be triggered.
How do I go about this??
Thanks,
Debrup.

Answer 1

Hi,
Check the following code:
tables: vbap, mara.
parameters: p_open radiobutton group grp1 user-command abc,
            p_mat radiobutton group grp1.
selection-screen: begin of block b1 with frame title text1.
parameters: p_vbeln like vbap-vbeln modif id opn,
            p_matnr like vbap-matnr modif id opn,
            p_grkor like vbap-grkor modif id opn,
            p_vstel like vbap-vstel modif id opn.
selection-screen: end of block b1.
selection-screen: begin of block b2 with frame title text2.
parameters: p_matel like mara-matnr modif id mat,
            p_matkl like mara-matkl modif id mat,
            p_satnr like mara-satnr modif id mat.
selection-screen: end of block b2.
initialization.
p_open = 'X'.
at selection-screen output.
text1 = 'Open orders'.
text2 = 'Material'.
if p_open = 'X'.
  loop at screen.
    if screen-group1 = 'OPN'.
      screen-active = 1.
      modify screen.
    endif.
    if screen-group1 = 'MAT'.
      screen-active = 0.
      modify screen.
    endif.
  endloop.
elseif p_mat = 'X'.
  loop at screen.
    if screen-group1 = 'MAT'.
      screen-active = 1.
      modify screen.
    endif.
    if screen-group1 = 'OPN'.
      screen-active = 0.
      modify screen.
    endif.
  endloop.
endif.
Regards,
Bhaskar