Blocking the invoice verification

[Former Member]

Hi Friends!

My client wants to block the invoice verification (MIRO) if the material is under quality stock. Till the usage decision is not done invoice verification should not be allowed against that PO.

Pl. Help

Regards

Naveen

[pankaj_singh9 · Accepted solution]

In MM02,

Quality management view,

Activate "QM in Procurement is Active"

Enter QM control key - "0007" i.e. Del. release, invoice block

U have to also maintain QM Info Record, use QI01

Test 1 complete cycle PO > GR > LIV

It will start working

[Former Member]

Alright!!

And thanks for Correcting me..

[JL23]

You cannot block MIRO, you can only block payment for an entered invoice with QM in procurement.

IF you dont want that an invoice can be entered, then you have to program this yourself in an user-exit of MIRO.

[Former Member]

I have done every setting till payment block, but client wants that MIRO should not be done for the material under quality stock.

Thanks for suggestion.

Can u guide me for user exit in MIRO

Regards

NAveen

[dheeraj_vaishampayan]

Hi,

If you want GR to be blocked unless QA clears the material i.e. MIRO should be done only when Inspection lot qty is posted to Unrestricted use stock, then i am afraid it can be done only with an user exit

only prerequisite being creation of inspection lot for GR

way to block MIRO before UD posting is done is thru an enhancement

LMR1M001

Here you need to post following code to block MIRO in include:ZXM08U16

this code will cause an error message before UD and will allow MIRO for only qty posted to Unrestricted stock

&----

---

*& Include ZXM08U16

&----

---

Declaration of variables

DATA: w_prueflos TYPE qamb-prueflos,

w_lmenge TYPE qals-lmenge01.

Declaration of Internal Tables

DATA: itab LIKE qals OCCURS 0 WITH HEADER LINE.

LOOP AT e_tdrseg WHERE selkz EQ 'X'.

Checking whether the document require Inspection

CLEAR: w_prueflos.

SELECT SINGLE prueflos

INTO w_prueflos

FROM qamb

WHERE mblnr = e_tdrseg-lfbnr

AND zeile = e_tdrseg-lfpos.

IF sy-subrc EQ 0.

CLEAR: itab[], itab.

SELECT SINGLE * INTO CORRESPONDING FIELDS OF itab

FROM qals

WHERE prueflos = w_prueflos

AND stat35 = 'X'.

IF sy-subrc EQ 0.

READ TABLE itab INDEX 1.

CLEAR: w_lmenge.

Sum of quantity (Excludes Block stock)

w_lmenge = itab-lmenge01.

IF e_tdrseg-menge GT w_lmenge.

MESSAGE ID 'ZMM' TYPE 'E' NUMBER '004' WITH w_lmenge e_tdrseg-lfbnr.

ENDIF.

ELSE.

MESSAGE ID 'ZMM' TYPE 'E' NUMBER '005' WITH e_tdrseg-lfbnr.

ENDIF.

ENDIF.

ENDLOOP.

Hope this helps

Regards

Dheeraj...

[JL23]

EXIT_SAPLMRMP_001

I habe seen functions like sending a pop-up that informs user about the quality status and gives him the chance to decide if he still want continue with entry or not.

CALL FUNCTION 'POPUP_TO_DECIDE'

depending on the answer:

RAISE CALL_FAILURE.

[Former Member]

If the material is lying QI stock then system itself will not allow you to make payment.Cofirm with you QI and FI team first.

[JL23]

Sorry Mr. Boeckle, but this is certainly not the case if you have not QM in procurement active. In standard you can enter and pay the invoice regardless of any stock status.