topic Re: Passing value from dropdown in Application Development and Automation Discussions

Passing value from dropdown

Former Member — Fri, 14 Sep 2007 03:50:59 GMT

Hi all ,

Now i hava a dropdown filled with data, how to get the selected value from the dropdown and pass the value over. Prefer a sample code to refer.

Thks

Re: Passing value from dropdown

Former Member — Fri, 14 Sep 2007 03:59:39 GMT

HI,

after u enter some value into a drop down box we can pass the value in that drop down same as the way we do with normal i/o field.

rgds,

bharat.

Re: Passing value from dropdown

Former Member — Fri, 14 Sep 2007 05:04:58 GMT

Hi,

Try this coding this will help u.

REPORT Z_MATCHCODE.

DEFINE name_dropdown.

selection-screen begin of line.

selection-screen comment 1(30) &3.

parameters: &1 as listbox visible length &2.

selection-screen end of line.

END-OF-DEFINITION.

AT SELECTION-SCREEN OUTPUT.

PERFORM fill_dropdown_list USING 'P_MODE'(001).

FORM fill_dropdown_list USING value(f_parameter).

TYPE-POOLS: vrm. " For parameter drop down lists

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.

name = f_parameter.

value-key = ' '. value-text = ' '.

APPEND value TO list.

value-key = '1'.

value-text = 'C'.

APPEND value TO list.

value-key = '2'.

value-text = 'F'.

APPEND value TO list.

value-key = '3'.

value-text = 'H'.

APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDFORM." fill_dropdown_list

SELECTION-SCREEN: BEGIN OF BLOCK BLK3 WITH FRAME TITLE TEXT-T03.

NAME_DROPDOWN P_MODE(8) 40 MOD_DESC.

SELECTION-SCREEN: END OF BLOCK BLK3.

Thanks

Dharmishta

Re: Passing value from dropdown

Former Member — Fri, 14 Sep 2007 05:42:12 GMT

Hi,

Check this..

TYPE-POOLS : vrm. "Value Request Manager

PARAMETERS: p_test AS LISTBOX VISIBLE LENGTH 12 OBLIGATORY.

INITIALIZATION.

PERFORM f4_value_request.

START-OF-SELECTION.

WRITE P_TEST.

&----

*& Form f4_value_request

&----

text

----

FORM f4_value_request.

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 = 'January'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '2'.

l_value-text = 'February'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '3'.

l_value-text = 'March'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '4'.

l_value-text = 'April'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '5'.

l_value-text = 'May'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '6'.

l_value-text = 'June'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '7'.

l_value-text = 'July'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '8'.

l_value-text = 'August'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '9'.

l_value-text = 'September'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '10'.

l_value-text = 'October'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '11'.

l_value-text = 'November'.

APPEND l_value TO li_list.

CLEAR l_value.

l_value-key = '12'.

l_value-text = 'December'.

APPEND l_value TO li_list.

CLEAR l_value.

l_name = 'P_TEST'.

p_test = '1'. "this is to set the default value of the list box.

example
p_test = '1' for January
p_test = '5' for 'May'

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