topic Re: Drop Down List Box in Module Pool in Application Development and Automation Discussions

Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 11:59:48 GMT

hi frds ..

how to create a drop down list box and how to enter datas in the list box ..

pari..

Re: Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 12:04:01 GMT

Refer program "rsdemo_dropdown_listbox".

Re: Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 12:06:49 GMT

Hi Pari,

Code your program with the following logic :

here is few info about vrm_values :

type-pools : vrm.

types:

*-- Single Value in Value Set

begin of vrm_value,

key(40) type c,

text(80) type c,

end of vrm_value,

*-- Table of Values

vrm_values type vrm_value occurs 0 .

vrm_values is one of the parameters of type vrm_value in VRM_SET_VALUES function module .

Use VRM_SET_VALUES is the function module to get input help .

fill the values to be displayed in an itab and pass the values to the FM parameter VALUES .

module create_drop_down_box_material output.

select matnr from mara

into table l_tab_mara_matnr

where matkl = 'ZPMBMAT'.

if not l_tab_mara_matnr[] is initial.

select maktx from makt

into l_tab_collect_maktx_frm_db-material_descr

for all entries in l_tab_mara_matnr

where matnr = l_tab_mara_matnr-material_no.

append l_tab_collect_maktx_frm_db.

endselect.

endif.

loop at l_tab_collect_maktx_frm_db into l_wa_collect_maktx_frm_db.

l_wa_mat_descr-key = l_wa_collect_maktx_frm_db-material_descr.

append l_wa_mat_descr to l_tab_mat_descr.

endloop.

name = 'ZCOT_PPT_DTLS-MATERIAL_DESCR'.

call function 'VRM_SET_VALUES'

exporting

id = name

values = l_tab_mat_descr

exceptions

id_illegal_name = 1

others = 2.

free: l_tab_mat_descr,l_tab_collect_maktx_frm_db.

endmodule. " create_drop_down_box_material OUTPUT

refer this site.

Thanks,

Message was edited by:

Alvaro Tejada Galindo

Re: Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 12:07:54 GMT

hi,

Hi,

Please check the modified code

TYPE-POOLS :vrm.

DATA:i_natio TYPE vrm_values,

w_natio LIKE LINE OF i_natio.

w_natio-key = 'ABC'. "<< Append your 6 values here

w_natio-text = 'TEST ABC'.

APPEND w_natio TO i_natio.

w_natio-key = 'CDE'.

w_natio-text = 'TEST CDE'.

APPEND w_natio TO i_natio.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'I_IT0002-NATIO'

values = i_natio

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

IF sy-subrc <> 0.

ENDIF.

thanks

Message was edited by:

Alvaro Tejada Galindo

Re: Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 12:08:23 GMT

hi,

assign listbox value in drop down in attributes of that element.

then in screen flow logic

PROCESS ON VALUE-REQUEST.

FIELD ifmtp-form_type MODULE fm_drop.

ifmtp-form_type - field which is listbox.

MODULE fm_drop INPUT.

CLEAR ifmtp.

REFRESH ifmtp.

ifmtp-form_type = 'C'.

APPEND ifmtp.

ifmtp-form_type = 'F'.

APPEND ifmtp.

ifmtp-form_type = 'H'.

APPEND ifmtp.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'FORM_TYPE'

value_org = 'S'

TABLES

value_tab = ifmtp.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDMODULE. " fm_drop INPUT

and in top module u have to declare like this.

DATA : BEGIN OF ifmtp OCCURS 0,

form_type LIKE zform_track_mast-form_type,

END OF ifmtp.

Message was edited by:

Alvaro Tejada Galindo

Re: Drop Down List Box in Module Pool

Former Member — Fri, 21 Sep 2007 12:08:37 GMT

Hi,

select Input/Output Field and then in its attributes selct listbox.

then use call function VRM_SET_VALUES

and TYPE-POOLS vrm.

DATA values TYPE vrm_values WITH HEADER LINE.

IF init is initial.

SELECT * FROM scarr.

values-text = scarr-carrname.

values-key = scarr-carrid.

APPEND values.

ENDSELECT.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'SBOOK-CARRID'

values = 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.