How to disable/enable Select Options on Radiobutton action in Web Dynpro ABAP

[ramakrishnappa]

Purpose:

Application to enable/disable select options on Radio button action in Web Dynpro ABAP

Scenario:

I would like to explain the functionality of how to enable or disable select screen elements on radio button selection in Web dynpro ABAP

Example: I have considered the selection screen ui elements - Customer & Sales Document and radio buttons - Customer data & Sales data

Here, I have designed selection screen for 2 input fields viz Customer & Sales Document

Now, upon selection a radio button, the respective input field should be open for input and other to be as non-editable

Pre-requisite:

Basic knowledge of Webdynpro ABAP, Using Select Options in WDA & OO ABAP

Step by step Process

Step 1:

Go to t-code SE80 and create a Web Dynpro component as below

Step 2:

Go to the used components tabl of the WDA component and create a component usage for WDR_SELECT_OPTIONS component as below

Step 3:

Open the view and go to the properties tab and click on create button to create an instance of used component as below

Now, choose the component usage name "SELECT_OPTIONS"  by doubl clicking on the entry as shown below

The instance of component usage is created in view V_MAIN as below

Step 4:

Go to the "Context" tab of view and Create a context node "RADIO_BUTTONS" as shown below

Step 5:

Create an attribute "TEXT" in the context node "RADIO_BUTTONS" as shown below

Step 6:

Go the view layout tab and create an ui element "RadioButtonGroupByIndex" as shown below

Bind the property "text" to context attribute and create an action and bind it to the event "OnSelect" as shown below

Step 7:

Create a view container ui element "VCU_SELECT_OPTIONS" to hold the selection screen component as below

Step 8:

Go to attributes tab and add the attributes as shown below

Step 9:

Go to methods tab and create a method "CONFIG_SEL_OPTIONS" to configure selection screen elements as below

Add the below code in method CONFIG_SEL_OPTIONS

CONFIG_SEL_SCREENS

METHOD config_sel_options .   DATA lo_componentinterface TYPE REF TO if_wd_component_usage.   lo_componentinterface = wd_this->wd_cpuse_select_options( ).   IF lo_componentinterface->has_active_component( ) EQ abap_false.     lo_componentinterface->create_component( ).   ENDIF.   wd_this->m_handler = wd_this->wd_cpifc_select_options( ).   wd_this->m_sel_options = wd_this->m_handler->init_selection_screen( ).   IF wd_this->m_sel_options IS NOT BOUND.     RETURN.   ENDIF.       wd_this->m_sel_options->set_global_options(     EXPORTING       i_display_btn_cancel  = abap_false    " Displays "Cancel" Button       i_display_btn_check   = abap_false   " Displays "Check" Button       i_display_btn_reset   = abap_false    " Displays "Reset" Button       i_display_btn_execute = abap_false    " Displays "Apply" Button   ).   wd_this->m_sel_options->remove_all_sel_screen_items( ).   DATA lv_kunnr TYPE REF TO data.   DATA lv_vbeln TYPE REF TO data.   CREATE DATA lv_kunnr TYPE kunnr.   CREATE DATA lv_vbeln TYPE vbeln.       wd_this->m_sel_options->add_parameter_field(     EXPORTING       i_id                         = 'P1'       i_value                      = lv_kunnr       i_read_only                  = wd_this->gv_read_kunnr   ).   wd_this->m_sel_options->add_parameter_field(     EXPORTING       i_id                         = 'P2'       i_value                      = lv_vbeln       i_read_only                  = wd_this->gv_read_vbeln   ). ENDMETHOD.

Step 10:

We need to fill the radio buttons texts and initialize the selection screen. Hence add the below code in view initialization method "WDDOINIT( )"

WDDOINIT

METHOD wddoinit .   DATA lo_nd_radio_buttons TYPE REF TO if_wd_context_node.   DATA lt_radio_buttons TYPE wd_this->elements_radio_buttons.   DATA ls_radio LIKE LINE OF lt_radio_buttons.   "get radio button node reference   lo_nd_radio_buttons =   wd_context->get_child_node( name = wd_this->wdctx_radio_buttons ).   "================================   " Prepare radio buttons   "================================   CLEAR ls_radio.   ls_radio-text = 'Customer'.   APPEND ls_radio TO lt_radio_buttons.   CLEAR ls_radio.   ls_radio-text = 'Sales Order'.   APPEND ls_radio TO lt_radio_buttons.   lo_nd_radio_buttons->bind_table(     new_items = lt_radio_buttons     set_initial_elements = abap_true ).   "================================   " Initialize the view attributes   "================================   wd_this->gv_read_kunnr = abap_false.   wd_this->gv_read_vbeln = abap_true.   "================================   " Configure the selection screen   "================================   wd_this->config_sel_options( ). ENDMETHOD.

Step 11:

On selection of radio buttons, we need to set the read_only property of selection screen elements. hence add the below code in event handler method ONACTIONRADIO_SELECT

ONACTIONRADIO_SELECT

METHOD onactionradio_select .   DATA lv_index TYPE i.   " get the index of radio button   wdevent->get_data(   EXPORTING name = 'INDEX' IMPORTING value = lv_index ).   CASE lv_index.     WHEN 1."kunnr       wd_this->gv_read_kunnr = abap_false.       wd_this->gv_read_vbeln = abap_true.     WHEN 2."vbeln       wd_this->gv_read_kunnr = abap_true.       wd_this->gv_read_vbeln = abap_false.   ENDCASE.   "==========================   " Re-configure the selection screen   "==========================   wd_this->config_sel_options( ). ENDMETHOD.

Step 12:

Open window W_MAIN and embed the view from  select options component as below

Now, Activate the whole component

Step 13:

Create an application as shown below

Output:

Now, we are ready to see Output:

Initially, the output looks as below i.e. default Customer radio button is selected and Sales Document input field is non-editable

Onselect of "Sales Order" radio button, the input field "Customer" goes non-editable and making the "Sales Document" as editable as shown below

Hope this document would be useful for those looking for enabling/disabling selection screen elements based on some action

I appreciate your comments/feedback/suggestions