topic Re: MI01 User-Exit in Application Development and Automation Discussions

MI01 User-Exit

Former Member — Thu, 05 Apr 2007 10:54:37 GMT

Hi Experts,

I need some user-exit about trx MI01 - MI02 - MI04.

My need is to check a condition during open/save Physical Inventory Document.

Could you help me?? Any suggestions??

Thanks in advance,

Frank

Re: MI01 User-Exit

Former Member — Thu, 05 Apr 2007 11:18:15 GMT

execute this program. Enter ur tcode u will get all the userexits for that tcode.

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.

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.

Sorting the internal Table

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.

Get the total SMOD.

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'.

For BADis

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.

Re: MI01 User-Exit

Former Member — Thu, 05 Apr 2007 12:09:06 GMT

Hi,

These are the exits for MI01, MI02 and MI03 transactions.

Enhancement/ Business Add-in Description

Enhancement

MB_CF001 Customer Function Exit in the Case of Updating a Mat. Doc.

MBCF0011 Read from RESB and RKPF for print list in MB26

MBCF0010 Customer exit: Create reservation BAPI_RESERVATION_CREATE1

MBCF0009 Filling the storage location field

MBCF0007 Customer function exit: Updating a reservation

MBCF0006 Customer function for WBS element

MBCF0005 Material document item for goods receipt/issue slip

MBCF0002 Customer function exit: Segment text in material doc. item

Business Add-in

MB_RESERVATION_BADI MB21/MB22: Check and Complete Dialog Data

MB_QUAN_CHECK_BADI BAdI: Item Data at Time of Quantity Check

MB_PHYSINV_INTERNAL Connection: Core Inventory and Retail AddOn

MB_MIGO_ITEM_BADI BAdI in MIGO for Changing Item Data

MB_MIGO_BADI BAdI in MIGO for External Detail Subscreens

MB_DOC_BADI_INTERNAL BAdIs when Creating a Material Document (SAP Internal)

MB_DOCUMENT_UPDATE BADI when updating material document: MSEG and MKPF

MB_DOCUMENT_BADI BAdIs when Creating a Material Document

MB_CIN_MM07MFB7_QTY Proposal of quantity from Excise invoice in GR

MB_CIN_MM07MFB7 BAdI for India Version exit in include MM07MFB7

MB_CIN_LMBMBU04 posting of gr

MB_CHECK_LINE_BADI BAdI: Check Line Before Copying to the Blocking Tables

MB_BATCH_MASTER Setting of Batch Data at Goods Movement

ARC_MM_MATBEL_WRITE Check Add-On-Specific Data for MM_MATBEL

ARC_MM_MATBEL_CHECK Check Add-On-Specific Criteria for MM_MATBEL

Reward if useful.

Regards,

Ramana

Re: MI01 User-Exit

Former Member — Thu, 05 Apr 2007 13:26:15 GMT

Hi,

thanks a lot for replying, but I tried to put break in all point you indicate and when I save using MI01 MI02 the flow don't stop.

Is it possible there isn't a good user-exit(badi during saving Physical Inventory??

Re: MI01 User-Exit

Former Member — Thu, 05 Apr 2007 23:10:09 GMT

You should activate those Enhancements thorugh SMOD before checking them just for testing purpose; no need to create the Project for those enhancements thorugh CMOD. I think, you will get some exit.

Thanks

Amol G. Lohade