2007 Nov 29 2:51 AM
Hey guys,
Is it possible to make a dropdown list while in the selection screen?
Im planning to make the dropdown list with the names of the months as the lists.
How am I going to do this? PLease share what you've got guys...
It'll be greatly appreciated.
Regards,
Mark
Hey guys,
Is it possible to make a dropdown list while in the selection screen?
Im planning to make the dropdown list with the names of the months as the lists.
How am I going to do this? PLease share what you've got guys...
It'll be greatly appreciated.
Regards,
Mark
2007 Nov 29 2:55 AM
used this function module vrms_list_display.
refer
2. http://help.sap.com/saphelp_46c/helpdata/en/9f/dbabe435c111d1829f0000e829fbfe/content.htm
sample code...
REPORT abc.
TYPE-POOLS : vrm.
DATA : v TYPE vrm_values.
DATA : vw LIKE LINE OF v.
PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.
INITIALIZATION.
vw-key = '1'.
vw-text = 'Jan'.
APPEND vw TO v.
vw-key = '2'.
vw-text = 'Feb'.
APPEND vw TO v.
vw-key = '3'.
vw-text = 'Mar'.
APPEND vw TO v.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'A'
values = v
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
2007 Nov 29 2:55 AM
Hello Mark,
Try this code
*&---------------------------------------------------------------------*
*& Report ZKRIS_LISTBOX
*&
*&---------------------------------------------------------------------*
*&
*& Populate a simple listbox
*&---------------------------------------------------------------------*
REPORT ZKRIS_LISTBOX.
* List Box in ABAP Report
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.
START-OF-SELECTION.
WRITE: / 'PARAMETER:', PS_PARM.
2007 Nov 29 3:17 AM
Hi,
check this demo program
DEMO_DROPDOWN_LIST_BOX
DEMO_DYNPRO_DROPDOWN_LISTBOX
check this code also..
REPORT ZTEST_CODE_VRM.
TYPE-POOLS: VRM.
TYPES: NAME TYPE VRM_VALUE-TEXT.
DATA: V_VBELN LIKE VBAK-VBELN.
DATA: IT_VALUES TYPE STANDARD TABLE OF VRM_VALUE.
DATA: WA TYPE VRM_VALUE.
TABLES: KNA1.
SELECT-OPTIONS: S_VBELN FOR V_VBELN.
PARAMETERS: P_KUNNR AS CHECKBOX USER-COMMAND ABC.
PARAMETERS: P_CHK1 AS CHECKBOX USER-COMMAND ABC.
PARAMETERS: P_KUNNR1 TYPE NAME AS LISTBOX VISIBLE LENGTH 30.
INITIALIZATION.
S_VBELN-LOW = '123'.
APPEND S_VBELN.
WA-KEY = '1'.
WA-TEXT = 'One'.
APPEND WA TO IT_VALUES.
CLEAR WA.
WA-KEY = '2'.
WA-TEXT = 'Two'.
APPEND WA TO IT_VALUES.
CLEAR WA.
READ TABLE IT_VALUES INTO WA INDEX 1.
P_KUNNR1 = WA-KEY.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = 'P_KUNNR1'
VALUES = IT_VALUES
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.
AT SELECTION-SCREEN.
CLEAR S_VBELN.
REFRESH S_VBELN.
S_VBELN-LOW = '456'.
APPEND S_VBELN.
AT SELECTION-SCREEN ON P_KUNNR.
This event should fire only only for parameters not for select options
P_KUNNR = 'X'.
*
AT SELECTION-SCREEN OUTPUT.
IF P_KUNNR = 'X'.
P_KUNNR = ' '.
ENDIF.
IF P_CHK1 = ' '.
P_CHK1 = 'X'.
ELSE.
P_CHK1 = ' '.
ENDIF.
Thanks