USER-EXIT or BADI for IE01 / IE02

[Former Member]

When I create or change an Equipment (IE01 / IE02) , I should not allow any special characters in Serial Number.

Any Exits or BADIs for this transaction.

Thanks

Kiran

[naveen_inuganti2]

Hi....

Yes there are...

Copy this program into your editer.... and excute and give T'Code for which you wnat to find BADI or User exit...

report  zbadi.
tables : tstc,
tadir,
modsapt,
modact,
trdir,
tfdir,
enlfdir,
sxs_attrt ,
tstct.

data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.

parameters : p_tcode like tstc-tcode,
p_pgmna like tstc-pgmna .



data wa_tadir type tadir.

start-of-selection.

if not p_tcode is initial.
select single * from tstc where tcode eq p_tcode.

elseif not p_pgmna is initial.
tstc-pgmna = p_pgmna.
endif.

if sy-subrc eq 0.
select single * from tadir
where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.

move : tadir-devclass to v_devclass.

if sy-subrc ne 0.
select single * from trdir
where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir
where pname = tstc-pgmna.

select single * from enlfdir
where funcname = tfdir-funcname.

select single * from tadir
where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name eq enlfdir-area.

move : tadir-devclass to v_devclass.
endif.
endif.

select * from tadir into table jtab
where pgmid = 'R3TR'
and object in ('SMOD', 'SXSD')
and devclass = v_devclass.


select single * from tstct
where sprsl eq sy-langu
and tcode eq p_tcode.

format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(105) sy-uline.
format color col_heading intensified on.



sort jtab by object.
data : wf_txt(60) type c,
wf_smod type i ,
wf_badi type i ,
wf_object2(30) type c.
clear : wf_smod, wf_badi , wf_object2.

loop at jtab into wa_tadir.
at first.
format color col_heading intensified on.

write:/1 sy-vline,
2 'Enhancement/ Business Add-in',
41 sy-vline ,
42 'Description',
105 sy-vline.
write:/(105) sy-uline.
endat.
clear wf_txt.
at new object.
if wa_tadir-object = 'SMOD'.
wf_object2 = 'Enhancement' .
elseif wa_tadir-object = 'SXSD'.
wf_object2 = ' Business Add-in'.

endif.
format color col_group intensified on.

write:/1 sy-vline,

2 wf_object2,
105 sy-vline.
endat.

case wa_tadir-object.
when 'SMOD'.
wf_smod = wf_smod + 1.
select single modtext into wf_txt
from modsapt
where sprsl = sy-langu
and name = wa_tadir-obj_name.
format color col_normal intensified off.

when 'SXSD'.



wf_badi = wf_badi + 1 .
select single text into wf_txt
from sxs_attrt
where sprsl = sy-langu
and exit_name = wa_tadir-obj_name.
format color col_normal intensified on.

endcase.


write:/1 sy-vline,
2 wa_tadir-obj_name hotspot on,
41 sy-vline ,
42 wf_txt,
105 sy-vline.
at end of object.
write : /(105) sy-uline.
endat.


endloop.

write:/(105) sy-uline.



skip.
format color col_total intensified on.
write:/ 'No.of Exits:' , wf_smod.
write:/ 'No.of BADis:' , wf_badi.

else.
format color col_negative intensified on.
write:/(105) 'No userexits or BADis exist'.
endif.
else.
format color col_negative intensified on.
write:/(105) 'Transaction does not exist'.
endif.

at line-selection.

data : wf_object type tadir-object.
clear wf_object.


get cursor field field1.
check field1(8) eq 'WA_TADIR'.
read table jtab with key obj_name = sy-lisel+1(20).
move jtab-object to wf_object.

case wf_object.
when 'SMOD'.
set parameter id 'MON' field sy-lisel+1(10).

call transaction 'SMOD' and skip first screen.
when 'SXSD'.
set parameter id 'EXN' field sy-lisel+1(20).
call transaction 'SE18' and skip first screen.
endcase.

Thanks,

Naveen.I

[former_member181995]

Use exit:

Enhancement                                                                                
IEQM0001                                Add. checks for equip. installation at functional locations   
IEQM0002                                Additional checks for definition of equipment hierarchies     
IEQM0003                                Additional checks before equipment update

[Former Member]

I want a check to be performed on SERNR field on SerData TAB.

These exits are not having that field in thier parameters.

Any more plz.

Thanks

Kiran

[former_member181995]

I want a check to be performed on SERNR field on SerData TAB.

These exits are not having that field in thier parameters.

Did you check carefully?

i can see SERNR field in exit IEQM0003>EXIT_SAPMIEQ0_001>DATA_EQUI(Import parameter) field which is import parameter.

Amit.

[Former Member]

Thanks,

I just now checked it too...

I shall start coding now and let you know.

Thanks

Kiran

[former_member181995]

Alright.

PS:before asking question try first from your side than you should land on SDN

Happy posting.

Cheers