Drop down box with default value

[Former Member]

Hi All..

I have created a Drop down box in Custom screen using 'VRM_SET_VALUES'.

The box has 3 values..

Now the 1st value should be the default one ,when screen pops up..

How to do it...???

[Former Member]

Hi,

Suppose you have declared ws_list as

data: ws_list type vrm_values.

then,

ws_list will have two fields ws_list-key and ws_list-text.

Before calling the FM, if you set ws_list-key = 3, maybe it will display the third value as default.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'PAR_COMM'

values = ws_list.

Please try and let me know.

Regards

Subbu

[Former Member]

HI

GOOD

GO THROUGH THIS REPORT.

REPORT demo_dynpro_dropdown_listbox.

TYPE-POOLS vrm.

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.

DATA: wa_spfli TYPE spfli,

ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

TABLES demof4help.

name = 'DEMOF4HELP-CONNID'.

CALL SCREEN 100.

MODULE cancel INPUT.

LEAVE PROGRAM.

ENDMODULE.

MODULE init_listbox OUTPUT.

CLEAR demof4help-connid.

SELECT connid cityfrom cityto deptime

FROM spfli

INTO CORRESPONDING FIELDS OF wa_spfli

WHERE carrid = demof4help-carrier2.

value-key = wa_spfli-connid.

WRITE wa_spfli-deptime TO value-text USING EDIT MASK '__:__:__'.

CONCATENATE value-text

wa_spfli-cityfrom

wa_spfli-cityto

INTO value-text SEPARATED BY space.

APPEND value TO list.

ENDSELECT.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDMODULE.

MODULE user_command_100.

save_ok = ok_code.

CLEAR ok_code.

IF save_ok = 'CARRIER' AND NOT demof4help-carrier2 IS INITIAL.

LEAVE TO SCREEN 200.

ELSE.

SET SCREEN 100.

ENDIF.

ENDMODULE.

MODULE user_command_200.

save_ok = ok_code.

CLEAR ok_code.

IF save_ok = 'SELECTED'.

MESSAGE i888(sabapdocu) WITH text-001 demof4help-carrier2

demof4help-connid.

ENDIF.

ENDMODULE.

GO THROUGH THESE LINKS TO KNOW MORE ABOUT 'VRM_SET_VALUES'

http://www.sap-img.com/abap/fm-vrm-set-value-to-list-box.htm

http://www.sap-img.com/ab012.htm

http://sap.ittoolbox.com/code/archives.asp?i=10&d=1708&a=s

THANKS

MRUTYUN

[Former Member]

HI pavan,

Set that field as obligatory is in the screen layout editor. It will display the value then.

Thanks,

Dinu

[Former Member]

I have coded like this....

Still not able to get the Firsr value as DEFAULT one in the Dropdown Box..

TYPE-POOLS : vrm.

DATA : it_curstatus TYPE vrm_values,

value LIKE LINE OF it_curstatus.

value-key = 'RAISED'.

APPEND value TO it_curstatus.

value-key = 'REJECTED'.

APPEND value TO it_curstatus.

value-key = 'APPROVED'.

APPEND value TO it_curstatus.

value-key = 'IN PROGRESS'.

APPEND value TO it_curstatus.

value-key = 'COMPLETED'.

APPEND value TO it_curstatus.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'cur_status'

values = it_curstatus.

[Former Member]

Try just to equal your screen field to the default value you want to appear after the vrm_set_values call

[Former Member]

hi,

  TYPE-POOLS: VRM.

  DATA: NAME TYPE VRM_ID,
        LIST TYPE VRM_VALUES,
        VALUE LIKE LINE OF LIST.
  PARAMETERS: PS_PARM(10) AS LISTBOX VISIBLE LENGTH 10.

  AT SELECTION-SCREEN OUTPUT.
   NAME = 'PS_PARM'.
   VALUE-KEY = '1'.
   VALUE-TEXT = 'LINE 1'.
   APPEND VALUE TO LIST.
   VALUE-KEY = '2'.
   VALUE-TEXT = 'LINE 2'.
   APPEND VALUE TO LIST.
  CALL FUNCTION 'VRM_SET_VALUES'
   EXPORTING
    ID = NAME
    VALUES = LIST.
*just set the field key that you want to display by default.
    <b>ps_parm = '2'.</b>
  START-OF-SELECTION.
   WRITE: / 'PARAMETER:', PS_PARM.

Regards,

Richa