‎2007 Aug 09 9:37 AM
I have a listbox with certain values. my requirement is that when i select a particular value from the listbox, the corresponding text should come beside the field, how is it possible?
‎2007 Aug 09 10:04 AM
check this sample code for selection-screen...
TABLES : MARA.
TYPE-POOLS : VRM.
DATA : BEGIN OF ITAB OCCURS 0,
MATNR LIKE MARA-MATNR,
END OF ITAB.
DATA : IVALUE TYPE VRM_VALUES,
WVALUE TYPE VRM_VALUE,
IID TYPE VRM_ID.
DATA : CKEY(2).
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : P_MATNR LIKE MARA-MATNR AS LISTBOX VISIBLE LENGTH 20 USER-COMMAND LIST.
SELECTION-SCREEN COMMENT 25(10) TEXT.
SELECTION-SCREEN END OF LINE.
INITIALIZATION.
SELECT MATNR INTO TABLE ITAB FROM MARA UP TO 15 ROWS.
IID = 'P_MATNR'.
LOOP AT ITAB.
CKEY = SY-TABIX.
WVALUE-KEY = ITAB-MATNR.
WVALUE-TEXT = ITAB-MATNR.
APPEND WVALUE TO IVALUE.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = IID
VALUES = IVALUE
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.
SELECT SINGLE MAKTX INTO TEXT FROM MAKT WHERE MATNR = P_MATNR.
reagrds
shiba dutta