How to set default value for drop down menu

[Former Member]

Hi Experts,

I have a drop down menu in the selection screen as follws

PARAMETERS: p_bp_ty(10) AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY.

TYPES: BEGIN OF vrm_value,

key(40) TYPE c,

text(80) TYPE c,

END OF vrm_value.

DATA: param(80) TYPE c,

values TYPE vrm_value,

it_values TYPE STANDARD TABLE OF vrm_value,

wa_value TYPE vrm_value.

param = 'p_bp_ty'.

"Assigning a key to each drop down value

wa_value-key = '1'.

wa_value-text = 'Premium value'.

APPEND wa_value TO it_values.

CLEAR wa_value.

wa_value-key = '2'.

wa_value-text = 'High value'.

APPEND wa_value TO it_values.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING id = param

values = it_values

.

According to requirment 'Primium value' should be selected by default How can this be done ??

Thanks in advance .

Regards

Bikas

[Former Member]

Hi,

data : name type vrm_id,
       list type vrm_values,
       value like line of list.



    name = 'MODE'.
    value-key = '1'.value-text = 'By Lorry-LCV'.
    append value to list.
    value-key = '2'.value-text = 'By Lorry-FTL'.
    append value to list.
    value-key = '3'.value-text = 'By Lorry-Speed'.
    append value to list.
    value-key = '4'.value-text = 'By Courier'.
    append value to list.
    value-key = '5'.value-text = 'By Air'.
    append value to list.
    value-key = '6'.value-text = 'By Train'.
    append value to list.
    value-key = '7'.value-text = 'By Car'.
    append value to list.
    value-key = '8'.value-text = 'By Hand'.
    append value to list.
    value-key = '9'.value-text = 'By own Vehicle'.
    append value to list.
    value-key = '10'.value-text = 'By MRT-BUS'.
    append value to list.




 call function 'VRM_SET_VALUES'
      exporting
        id     = name
        values = list.
    if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.

Regards,

V.Balaji

Reward if Usefull...

[Former Member]

Hi ,

I know how to make drop down menu just tell me how to make a default selection

Regards

Bikas

[Former Member]

Just check this code. also execute my above program.

initialization.
  
param = 'p_bp_ty'.
wa_value-key = '1'.
wa_value-text = 'Premium value'.
APPEND wa_value TO it_values.
CLEAR wa_value.
 
wa_value-key = '2'.
wa_value-text = 'High value'.
APPEND wa_value TO it_values.
 
 
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING id = param
values = it_values
.
p_bp_ty = '1'.

[Former Member]

In the initialization part after filling the values, now set the key value of one you want to be default.

p_bp_ty = '1'.

[Former Member]

Setting value 1 create one more option and in the selection text it come as '1'

ie, it does not work

[Former Member]

Check this Code.

PROGRAM ztest.

TYPES: BEGIN OF vrm_value,
key(40) TYPE c,
text(80) TYPE c,
END OF vrm_value.

DATA: param(80) TYPE c,
values TYPE vrm_value,
it_values TYPE STANDARD TABLE OF vrm_value,
wa_value TYPE vrm_value.


PARAMETERS: p_bp_ty(10) AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY .

INITIALIZATION.

  param = 'p_bp_ty'.
  wa_value-key = '1'.
  wa_value-text = 'Premium value'.
  APPEND wa_value TO it_values.
  CLEAR wa_value.

  wa_value-key = '2'.
  wa_value-text = 'High value'.
  APPEND wa_value TO it_values.


  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = it_values.

  p_bp_ty = '1'.

[Former Member]

Slight modification to your code.

program ztest.

TYPES: BEGIN OF vrm_value,
key(40) TYPE c,
text(80) TYPE c,
END OF vrm_value.

DATA: param(80) TYPE c,
values TYPE vrm_value,
it_values TYPE STANDARD TABLE OF vrm_value,
wa_value TYPE vrm_value.


PARAMETERS: p_bp_ty(10) AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY .

initialization.


param = 'p_bp_ty'.
wa_value-key = '1'.
wa_value-text = 'Premium value'.
APPEND wa_value TO it_values.
CLEAR wa_value.

wa_value-key = '2'.
wa_value-text = 'High value'.
APPEND wa_value TO it_values.


CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING id = param
values = it_values
.
p_bp_ty = '1'.

[Ifathalla]

This should be the correct answer.

Thank you

[dhruv_shah3]

Hi,

Try with the below code.

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.

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

HTH

Regards,

Dhruv Shah

[venkat_o]

Hi, Check this code. Its working.

PARAMETERS: p_bp_ty(10) AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY.

AT SELECTION-SCREEN OUTPUT.
  TYPE-POOLS:vrm.
  DATA: param(80) TYPE c,
  it_values TYPE STANDARD TABLE OF vrm_value,
  wa_value LIKE LINE OF it_values.



*"*Assigning a key to each drop down value
  wa_value-key = '1'.
  wa_value-text = 'Premium value'.
  APPEND wa_value TO it_values.
  CLEAR wa_value.

  wa_value-key = '2'.
  wa_value-text = 'High value'.
  APPEND wa_value TO it_values.
  
  param = 'P_BP_TY'. "Dropdown for the field.
  p_bp_ty = '1'.     "Defaulting to Premium value.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = param
      values = it_values.

The code u have written for the dropdown should be displayed when u write AT Selection-screen output that is PBO for SS. or at INITIALIZATION . Regards, Venkat.O

[Former Member]

Hi,

Check this code.

PARAMETERS: p_bp_ty(10) AS LISTBOX VISIBLE LENGTH 15 OBLIGATORY.

TYPES: BEGIN OF vrm_value,

key(40) TYPE c,

text(80) TYPE c,

END OF vrm_value.

DATA: param(80) TYPE c,

values TYPE vrm_value,

it_values TYPE STANDARD TABLE OF vrm_value,

wa_value TYPE vrm_value.

initialization.

param = 'p_bp_ty'.

"Assigning a key to each drop down value

wa_value-key = '1'.

wa_value-text = 'Premium value'.

APPEND wa_value TO it_values.

CLEAR wa_value.

wa_value-key = '2'.

wa_value-text = 'High value'.

APPEND wa_value TO it_values.

p_bp_ty = '1'. "This is to set default value

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING id = param

values = it_values.