Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

default value in list box

Former Member
0 Kudos

hi,

i need to know how to set default value for a list box in selection screen.

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Parameters: P_BUKRS Type T001-BUKRS As Listbox visible length 10 default '1'.

santhosh

4 REPLIES 4

Former Member
0 Kudos

Hi

Check this code...


TYPE-POOLS: vrm.

DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
PARAMETERS : p_frwd(10) as listbox visible length 10 DEFAULT '6 weeks'.
AT SELECTION-SCREEN OUTPUT.
  name = 'P_FRWD'.
  value-text = '7 weeks'.
  APPEND value TO list.
  value-key = '06'.
  value-text = '6 weeks'.
  APPEND value TO list.
  value-key = '05'.
  value-text = '5 weeks'.
  APPEND value TO list.
  value-key = '04'.
  value-text = '4 weeks'.
  APPEND value TO list.
  value-key = '03'.
  value-text = '3 weeks'.
  APPEND value TO list.
  value-key = '02'.
  value-text = '2 weeks'.
  APPEND value TO list.
  value-key = '01'.
  value-text = '1 week'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = name
      VALUES = list.

Message was edited by:

Perez C

Former Member
0 Kudos

Parameters: P_BUKRS Type T001-BUKRS As Listbox visible length 10 default '1'.

santhosh

Former Member
0 Kudos

Hi

check this code

at selection-screen output.

name = 'P_DATE'.

value-key = '1'.

value-text = 'Today'.

append value to list.

value-key = '2'.

value-text = 'Last 7 days'.

append value to list.

value-key = '3'.

value-text = 'Last 30 days'.

append value to list.

value-key = '4'.

value-text = 'Last 90 days'.

append value to list.

value-key = '5'.

value-text = 'Last year'.

append value to list.

  • Call the ''VRM_SET_VALUES' to display the values in Listbox

call function 'VRM_SET_VALUES'

exporting

id = name

values = list.

at selection-screen.

if sy-ucomm = 'CLI1'.

sscrfields-ucomm = 'ONLI'(001).

endif.

if p_date = '1'.

p_date11 = sy-datum .

elseif p_date = '2'.

p_date11 = ( sy-datum - 7 ).

elseif p_date = '3'.

p_date11 = ( sy-datum - 30 ).

elseif p_date = '4'.

p_date11 = ( sy-datum - 90 ).

elseif p_date = '5'.

p_date11 = ( sy-datum - 365 ).

endif.

Reward points if useful...

Regards

Sreenivas

Former Member
0 Kudos

Hi,

Do like this

example code

Parameters:  p_region TYPE ztps_regions-zregion    " Region
                 AS LISTBOX
                 VISIBLE LENGTH 15
                 DEFAULT 'EAST',

Reward Points if this helps,

Satish