topic Re: field exist in Application Development and Automation Discussions

field exist

Former Member — Thu, 10 Apr 2008 08:27:14 GMT

Hi All

I am working with PM module in tcode 'IE01'. there is one field 'Manufacutre' in this transaction. this field doesn't have F4 help. I want to add a search help in this field so that when user will press F4 in this field it should display all the field from table. that table is ztable.

please help thanks.

Abhishek Prakash

Re: field exist

Former Member — Thu, 10 Apr 2008 08:38:20 GMT

Hi,

The following are the exits available with IE01:

IEQM0003 EXIT_SAPMIEQ0_001

IEQM0007 EXIT_SAPMIEQ0_002

then for F4 value you may use like:

TYPE-POOLS :vrm.

DATA:

i_natio TYPE vrm_values, "-->Table that is passed through FM vrm_set_values

w_natio LIKE LINE OF i_natio.

DATA:

BEGIN OF i_t005t OCCURS 0,

land1 TYPE t005t-land1,

natio TYPE t005t-natio,

END OF i_t005t.

IF i_t005t[] IS INITIAL.

SELECT land1 natio

FROM t005t

INTO TABLE i_t005t

WHERE spras = sy-langu.

IF sy-subrc = 0.

LOOP AT i_t005t .

w_natio-key = i_t005t-land1.

w_natio-text = i_t005t-natio.

APPEND w_natio TO i_natio.

CLEAR w_natio.

ENDLOOP.

ENDIF.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'I_IT0002-NATIO' "-->Field for which dropdown is needed.

values = i_natio

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.

Regards,

Renjith Michael.

Re: field exist

Former Member — Thu, 10 Apr 2008 08:52:09 GMT

Dear michael,

Please explain if possible.

it is not clear to me.

thanks and rgards

abhishek prakash