selection screen with radio button groups

Former Member · ‎2008 Apr 30

hi experts,

i have 3 frames in selection screen. in first frame i have two radio buttons. if i select 1st radio button 2nd frame should be in active and 3rd frame should be disable mode. if i select 2nd radio button then 3rd frame should be in active and other 2nd frame should be disable mode. in which event i need to write the code.

can any one help me regarding this and give some sample code.

rgds,

nag.

former_member156446 · ‎2008 Apr 30

check this sample code


AT SELECTION-SCREEN OUTPUT.

IF pa_equip <> 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'I1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

IF pa_logic <> 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'I2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.

Former Member · ‎2008 Apr 30

i want all the three frames in selection screen at a time and one must be in active.

Former Member · ‎2008 Apr 30

Hi Nagarjuna,

Please use the above code provided by me.

You will see all the 3 blocks and once you select one of the two radiobuttons from the first block either only the second or third block will be active depending on which radiobutton you choose.

Hope it helps.

Regards

Hemant Khemani

Former Member · ‎2008 Apr 30

hi

check this code

-

data:

check type c,

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.

PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',

R2 RADIOBUTTON GROUP RAD1,

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.

PARAMETERS: TEST1(10) MODIF ID SC1,

TEST2(10) MODIF ID SC1,

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME.

PARAMETERS: TEST3(10) MODIF ID SC2,

TEST4(10) MODIF ID SC2.

SELECTION-SCREEN END OF BLOCK B1.

INTIALIZATION.

check = 'y'.

AT SELECTION-SCREEN OUTPUT.

if check = 'y'.

if R1 = 'x'.

loop at screen.

if screen-group1 = 'SC1'.

screen-active = 1.

Modify screen.

else if screen-group1 = 'SC2'.

screen-active = 0.

Modify screen.

endif.

endloop.

else if r2 = 'x'.

loop at screen.

if screen-group1 = 'SC1'.

screen-active = 0.

Modify screen.

else if screen-group1 = 'SC2'.

screen-active = 1.

Modify screen.

endif.

endloop.

endif.

clear check.

endif.

if R1 = 'x'.

loop at screen.

if screen-group1 = 'SC1'.

screen-active = 1.

Modify screen.

else if screen-group1 = 'SC2'.

screen-active = 0.

Modify screen.

endif.

endloop.

else if r2 = 'x'.

loop at screen.

if screen-group1 = 'SC1'.

screen-active = 0.

Modify screen.

else if screen-group1 = 'SC2'.

screen-active = 1.

Modify screen.

endif.

endloop.

endif.

AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD1..

Edited by: ravi kumar on Apr 30, 2008 9:28 AM

Former Member · ‎2008 Apr 30

Here is the example which will explain it completely :


*&----------------------------------------------------------------*
*& Report  Z_sscr                                                 *
*  Published at SAPTechnical.COM
*&                                                                *
*&----------------------------------------------------------------*
*&DYNAMIC Selection screen based on user clicks on the radiobutton*
*&                                                                *
*&----------------------------------------------------------------*

REPORT  zsscr.

*TYPE POOLS DECLARATIONS FOR VALUE REQUEST MANAGER AND ICONS
TYPE-POOLS : vrm,
             icon.
*SELECTION SCREEN FIELDS
TABLES : sscrfields.

*GLOBAL DECLARATIONS
DATA : flag TYPE c,
      tablename(10),
      mmtable LIKE dd02l-tabname,
      sdtable LIKE dd02l-tabname,
      hrtable LIKE dd02l-tabname.

*DECLARATIONS FOR SELECTION SCREEN STATUS
DATA it_ucomm TYPE TABLE OF sy-ucomm.

***********SELECTION-SCREENS**********************
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.

*FOR DYNAMIC DISPLAY OF MODULES
PARAMETERS :  pa RADIOBUTTON GROUP rad USER-COMMAND com MODIF ID mod,
              pb RADIOBUTTON GROUP rad MODIF ID rad,
              pc RADIOBUTTON GROUP rad MODIF ID cad.

SELECTION-SCREEN SKIP.

**TO INCLUDE DYNAMIC ICONS
SELECTION-SCREEN COMMENT 2(6) text_001.

*DYNAMIC LIST BOX BASED ON USER SELECTIONS
PARAMETERS one AS LISTBOX VISIBLE LENGTH 20  MODIF ID mod.
PARAMETERS two AS LISTBOX VISIBLE LENGTH 20   MODIF ID rad.
PARAMETERS three AS LISTBOX VISIBLE LENGTH 20 MODIF ID cad.

SELECTION-SCREEN END OF BLOCK blk1.

*DISPLAY DYNAMIC PUSHBUTTON ON APP TOOLBAR ON USER CLICKS
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2,
                  FUNCTION KEY 3.

**EVENT ON SELECTION SCREEN FOR OUTPUT DISPLAY
AT SELECTION-SCREEN OUTPUT.

*CLICK OF FIRST RADIO BUTTON
  IF pa = 'X'.
    sscrfields-functxt_01 = 'Materials Management'.
    WRITE icon_plant AS ICON TO text_001.
*CODE TO GET DYNAMICS BASED ON THE SELECTED RADIO
    LOOP AT SCREEN.
      IF screen-group1 = 'MOD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

*CLICK OF SECOND RADIO
  IF pb = 'X'.
    sscrfields-functxt_02 = 'Sales And Distribution'.
    WRITE icon_ws_ship AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

*CLICK OF THIRD RADIO
  IF pc = 'X'.
    sscrfields-functxt_03 = 'Human Resources'.
    WRITE icon_new_employee AS ICON TO text_001.
    LOOP AT SCREEN.
      IF screen-group1 = 'RAD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'MOD'.
        screen-intensified = '0'.
        screen-active = 0.
        screen-display_3d = '0'.
        MODIFY SCREEN.
      ENDIF.
      IF screen-group1 = 'CAD'.
        screen-intensified = '1'.
        screen-active = 1.
        screen-display_3d = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

*CUSTOMISING THE TOOLBARS OF THE SELECTION SCREEN
*WITH F8 BUTTON DISABLED

  APPEND :  'PRIN' TO it_ucomm,
            'SPOS' TO it_ucomm,
            'ONLI' TO it_ucomm.

  CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
    EXPORTING
      p_status  = sy-pfkey
    TABLES
      p_exclude = it_ucomm.

**EVENT ON THE SELECTION
AT SELECTION-SCREEN.

* LIST BOX ONE VALUES
  CASE one.
    WHEN '1'.
      mmtable = 'MARC'.
    WHEN '2'.
      mmtable = 'MARA'.
    WHEN '3'.
      mmtable = 'MARD'.
    WHEN '4'.
      mmtable = 'MARM'.
  ENDCASE.

* LIST BOX TWO VALUES
  CASE two.
    WHEN '1'.
      sdtable = 'VBAK'.
    WHEN '2'.
      sdtable = 'VBAP'.
    WHEN '3'.
      sdtable = 'VBUK'.
    WHEN '4'.
      sdtable = 'VBUP'.
  ENDCASE.

* LIST BOX THREE VALUES
  CASE three.
    WHEN '1'.
      hrtable = 'PA0001'.
    WHEN '2'.
      hrtable = 'PA0006'.
    WHEN '3'.
      hrtable = 'PA0022'.
    WHEN '4'.
      hrtable = 'PA0008'.
  ENDCASE.

*VALUES FOR CLICK OF THE PUSHBUTTON ON APP TOOLBAR
*AND ENABLING THE BUTTONS TO PERFORM F8
  CASE sscrfields-ucomm.
    WHEN 'FC01'.
      tablename = mmtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC02'.
      tablename = sdtable.
      sscrfields-ucomm = 'ONLI'.
    WHEN 'FC03'.
      tablename = hrtable.
      sscrfields-ucomm = 'ONLI'.
  ENDCASE.

*INITIALIZATION EVENT
INITIALIZATION.

*VALUES ASSIGNED TO DROPDOWNLISTS IN THE SUBROUTINES
  PERFORM f4_value_request_pa.
  PERFORM f4_value_request_pb.
  PERFORM f4_value_request_pc.

*START OF SELECTION EVENT
START-OF-SELECTION.

*SUBROUTINE FOR OUTPUT
  PERFORM output.

*&----------------------------------------------------------------*
*&      Form  f4_value_request_PA
*&----------------------------------------------------------------*
*       text
*-----------------------------------------------------------------*
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST1
FORM f4_value_request_pa.

  DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.

  l_value-key = '1'.
  l_value-text = 'Plant Data for Material'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '2'.
  l_value-text = 'General Material Data'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '3'.
  l_value-text = 'Storage Location Data for Material'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '4'.
  l_value-text = 'Units of Measure for Material'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_name = 'ONE'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM. " f4_value_request_tabname

*&----------------------------------------------------------------*
*&      Form  f4_value_request_PB
*&----------------------------------------------------------------*
*       text
*-----------------------------------------------------------------*
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST2

FORM f4_value_request_pb.

  DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.

  l_value-key = '1'.
  l_value-text = 'Sales Document: Header Data'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '2'.
  l_value-text = 'Sales Document: Item Data'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '3'.
  l_value-text = 'Sales Document:Header Status'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '4'.
  l_value-text = 'Sales Document: Item Status'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_name = 'TWO'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM. " f4_value_request_PB

*&----------------------------------------------------------------*
*&      Form  f4_value_request_PC
*&----------------------------------------------------------------*
*       text
*-----------------------------------------------------------------*
*SUBROUTINE TO PROVIDE DROPDOWN VALUES TO LIST3

FORM f4_value_request_pc.

  DATA: l_name TYPE vrm_id,
        li_list TYPE vrm_values,
        l_value LIKE LINE OF li_list.

  l_value-key = '1'.
  l_value-text = 'HR Master :Infotype 0001 (Org. Assignment)'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '2'.
  l_value-text = 'Address Infotype 0006'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '3'.
  l_value-text = 'Education Infotype 0022'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_value-key = '4'.
  l_value-text = 'Basic Pay Infotype 0008'.
  APPEND l_value TO li_list.
  CLEAR l_value.

  l_name = 'THREE'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = l_name
      values          = li_list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.

ENDFORM. " f4_value_request_PC
*&----------------------------------------------------------------*
*&      Form  OUTPUT
*&----------------------------------------------------------------*
*       text
*-----------------------------------------------------------------*
*      -->P_TABLENAME  text
*-----------------------------------------------------------------*
*fINAL OUTPUT
FORM output.

  DATA p_table(10).

  p_table = tablename.

*popup to display teh selected table and
*Continue button is clicked
  CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel        = 'User Selections '
      textline1    = p_table
      textline2    = 'is the Selected table'
      start_column = 25
      start_row    = 6.

*assigning the table value in p_table to the
* Table in SE16 transaction by explicitly calling
  SET PARAMETER ID 'DTB' FIELD p_table.
  CALL TRANSACTION 'SE16'.

ENDFORM.                    "OUTPUT

Reward If found Helpful.

Former Member · ‎2008 Apr 30

Hi Nagarjuna Reddy,

As Per the radio button you seelcted you can right loop at modify screen and you can disable the fields as per your requirement.

Please correct me if I am wrong.

Thanks & regards,

M.Ramana Murthy

Former Member · ‎2008 Apr 30

Hi Nagarjuna,

Please use the below code:

parameters: p_rad1 radiobutton group rad1 default 'X' user-command rusr,

p_rad2 radiobutton group rad1.

selection-screen: begin of block blk1 with frame.

select-options: s_pernr for pa0000-pernr modif id ABC.

selection-screen: end of block blk1.

selection-screen: begin of block blk2 with frame.

select-options: s_stat2 for pa0000-stat2 modif id DEF.

select-options: s_werks for pa0001-werks modif id DEF.

selection-screen: end of block blk2.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

IF p_rad1 = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'DEF'.

IF p_rad2 = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

Reward if helpful

Regards

Hemant Khemani

Former Member · ‎2008 Apr 30

Hi,

tables: pa0000, pa0001.

selection-screen: begin of block blk1 with frame.

parameters: p_rad1 radiobutton group rad1 default 'X' user-command rusr,

p_rad2 radiobutton group rad1.

selection-screen: end of block blk1.

selection-screen: begin of block blk2 with frame.

select-options: s_pernr for pa0000-pernr modif id ABC.

selection-screen: end of block blk2.

selection-screen: begin of block blk3 with frame.

select-options: s_stat2 for pa0000-stat2 modif id DEF.

select-options: s_werks for pa0001-werks modif id DEF.

selection-screen: end of block blk3.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'ABC'.

IF p_rad1 = 'X'.

SCREEN-input = 1.

ELSE.

SCREEN-input = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'DEF'.

IF p_rad2 = 'X'.

SCREEN-input = 1.

ELSE.

SCREEN-input = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

selection screen with radio button groups