topic Need code ......which push customer no in to list box at initialization in Application Development and Automation Discussions

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

Former Member — Tue, 23 Oct 2007 04:44:18 GMT

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

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

Former Member — Tue, 23 Oct 2007 04:56:38 GMT

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

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

Former Member — Tue, 23 Oct 2007 11:16:31 GMT

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

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

Former Member — Tue, 23 Oct 2007 11:19:30 GMT

Hi,

For multiple values:-