topic Re: Regarding List Box in Application Development and Automation Discussions

Regarding List Box

Former Member — Fri, 07 Nov 2008 06:52:37 GMT

Hi,

i have one PERIOD parameter in the selection screen. i want to show 3 year period values via drop down list box in the period parameter. the three year values means current year period values, previous year values and next year values. That is 2007,2008 and 2009 values. i want this dynamically. And also default value should be current year paeriod in the period. That is 11/2008.

Thanks in Advance.

Re: Regarding List Box

Former Member — Fri, 07 Nov 2008 07:35:13 GMT

Hi,

Try like this...


TYPE-POOLS : vrm.
DATA: name  TYPE vrm_id,
      list  TYPE vrm_values,
      value LIKE LINE OF list,
       year(4).
.
PARAMETER : a(4) AS LISTBOX VISIBLE LENGTH 8 OBLIGATORY.

INITIALIZATION.
  WRITE '1' TO a.

AT SELECTION-SCREEN OUTPUT.
  year = sy-datum(4).

  name = 'A'.
  value-key = '1'.

  value-text = year.
  value-key = '1'.
  APPEND value TO list.

  value-text = year + 1.
  value-key = '2'.
  APPEND value TO list.

  value-text = year - 1.
  value-key = '3'.
  APPEND value TO list.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.

Regards

Debarshi

Re: Regarding List Box

Former Member — Fri, 07 Nov 2008 07:37:38 GMT

Hi......


REPORT ZLISTBOX. 
type-pools: vrm. 
data: name type vrm_id, 
list type vrm_values, 
value like line of list. 

parameters: ps_date(10) as listbox visible length 10. 
at selection-screen output. 

name = 'PS_DATE'. 
value-key = '1'.
 value-text = '2007'. 
append value to list. 
value-key = '2'. 
value-text = '2008'. 
append value to list. 
call function 'VRM_SET_VALUES' 
exporting 
id = name 
values = list. 
start-of-selection.

Thanks

Saurabh

Re: Regarding List Box

Former Member — Fri, 07 Nov 2008 07:43:11 GMT

Hello,

Try this i am using the same thing in my program

PARAMETERS :

y_p_flst TYPE char32 AS LISTBOX VISIBLE LENGTH 22

MODIF ID rng. .

*******File formate F4 help

AT SELECTION-SCREEN ON VALUE-REQUEST FOR y_p_flst.

PERFORM y_f_file_frmt_f4.

FORM y_f_file_frmt_f4 .

MOVE: text-212 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-213 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-214 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

MOVE text-215 TO y_wa_listbox1-field.

APPEND y_wa_listbox1 TO y_i_listbox1.

CLEAR y_wa_listbox1.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'FIELD'

dynpprog = sy-repid

stepl = 1

value = ' '

value_org = 'S'

display = ' '

TABLES

value_tab = y_i_listbox1[]

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc <> 0.

...

ENDIF.

REFRESH y_i_listbox1.

ENDFORM. " y_f_file_frmt_f4

Try this it will work