Application Development and Automation 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: 
Read only

LIST BOX in Selection Screen

Former Member
0 Likes
464

Hi Experts,

I define a Parameter of Fiscal Year in the Selection Screen, like,

p_gjahr like bsad-gjahr.

So,

I wuld like to hv DROP DOWN property for this Fiscal Year parameter, starting from 1990 till current year! Since, the VRM type-pool, VRM_SET_VALUE FM, VRM table, itab mehtod is lengthy for so many years, I wanna use a simple methos(if available). So, pls. let me know, If there is any simple procedure for this issue?

ThanQ.

1 ACCEPTED SOLUTION
Read only

RichHeilman
Developer Advocate
Developer Advocate
0 Likes
436

How about this.....



REPORT zrich_001.

TYPE-POOLS: vrm.


DATA: ivrm_values TYPE vrm_values.
DATA: xvrm_values LIKE LINE OF ivrm_values.
DATA: name TYPE vrm_id.

PARAMETERS: p_year AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

  name = 'P_YEAR'.

  xvrm_values-key = '1990'.
  xvrm_values-text  =  xvrm_values-key.
  APPEND xvrm_values TO ivrm_values.

  DO .
    xvrm_values-key = xvrm_values-key + 1.
    xvrm_values-text = xvrm_values-key .
    APPEND xvrm_values TO ivrm_values.
    IF xvrm_values-key = sy-datum(4).
      EXIT.
    ENDIF.
  ENDDO.

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

Regards,

RIch Heilman

2 REPLIES 2
Read only

RichHeilman
Developer Advocate
Developer Advocate
0 Likes
437

How about this.....



REPORT zrich_001.

TYPE-POOLS: vrm.


DATA: ivrm_values TYPE vrm_values.
DATA: xvrm_values LIKE LINE OF ivrm_values.
DATA: name TYPE vrm_id.

PARAMETERS: p_year AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

  name = 'P_YEAR'.

  xvrm_values-key = '1990'.
  xvrm_values-text  =  xvrm_values-key.
  APPEND xvrm_values TO ivrm_values.

  DO .
    xvrm_values-key = xvrm_values-key + 1.
    xvrm_values-text = xvrm_values-key .
    APPEND xvrm_values TO ivrm_values.
    IF xvrm_values-key = sy-datum(4).
      EXIT.
    ENDIF.
  ENDDO.

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

Regards,

RIch Heilman

Read only

0 Likes
436

Hi Rich,

ThanQ.

Actually, I already opened a thread on this topic, with Title DROP DOWN!

Anyways, I got the answer.

Why dont u respond my other thread in smartforms concept, with the title ''SMARTFORMS Download/Upload & Copy'' It deals with,

I did customisation for a Z_existing Smartform in DEV box, but accidentally I deleted one Folder, which contains many Text nodes. So, now, I wuld like to have(Smartform) these nodes from QA box of that corresponding Smartform!

So,

1- How to get into this(Smartform) Folder with many Text nodes into DEV box, from QA box with out disturbing my customised Smartform in DEV box, as u know, both the Smartforms in both boxes r possess the same NAME!

So, by renaming Is it achieved, while Downloading and Uploading? If not, What is the solution?

ThanQ.