Need code ......which push customer no in to list box at initialization

[Former Member]

hI,

I am using dropdown list box. I need to push customer no in to list box at initialization . Please send me code for that .

Help will be rewarded.

Regards

Gurprit Bhatia

[Former Member]

hI,

I am using dropdown list box. I need to push customer no in to list box at initialization . Please send me code for that .

Help will be rewarded.

Regards

Gurprit Bhatia

[Former Member]

Hi,

check this..

TYPE-POOLS: vrm.
 
PARAMETERS: p_test TYPE kunnr AS LISTBOX VISIBLE LENGTH 10.
 
DATA: t_data TYPE vrm_values.
 
INITIALIZATION.
 
DATA: s_data TYPE vrm_value.
 
s_data-key = '1234567890'.   " My customer number
s_data-text = 'Customer 1'.    " My customer number description.
APPEND s_data TO t_data.
 
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_TEST'
values = t_data
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.
 
 
START-OF-SELECTION.
 
WRITE: / p_test.

Thanks

Naren

[Former Member]

Hi,

For multiple values:-

TYPE-POOLS: vrm.

PARAMETERS:P_KUNNR AS LISTBOX VISIBLE LENGTH 20.

DATA: NAME type VRM_ID,

TB_KUNNRLIST TYPE VRM_VALUES, “Table holds values

WA_KUNNRLIST like line of WA_KUNNRLIST. “internal

“table

INITIALIZATION.

name = 'P_KUNNR'.

WA_KUNNRLIST-key = '<CUSTOMER NUMBER1>'. "Customer NUMBER

WA_KUNNRLIST-text = '<NAME OF CUSTOMER1>'. "Customer NAME APPEND WA_KUNNRLIST TO TB_KUNNRLIST.

WA_KUNNRLIST-key = '<CUSTOMER NUMBER2>'. "Customer NUMBER

WA_KUNNRLIST-text = '<NAME OF CUSTOMER2>'. "Customer NAME APPEND WA_KUNNRLIST TO TB_KUNNRLIST.

WA_KUNNRLIST-key = '<CUSTOMER NUMBER3>'. "Customer NUMBER

WA_KUNNRLIST-text = '<NAME OF CUSTOMER3>'. "Customer NAME APPEND WA_KUNNRLIST TO TB_KUNNRLIST.

.

.

.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = NAME “Parameter element name

values = TB_KUNNRLIST “populated internal table name

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.

START-OF-SELECTION.

WRITE: / P_KUNNR.

Regards,

Vijay Mekala

Message was edited by:

vijay Mekala

Message was edited by:

vijay Mekala

[Former Member]

Hi,

For multiple values:-