QM related to MIRO

Question

please help me ....
in the Make to order industry.
Let us assume i have Pur order No for 10 qty.
then i done MIGO for all the Item and Qty. 10.
(for this material QM is activated and Qm procu also activated and QM control key 0007 is assigned to the material master.)
after Doing the MIGO the stock is laying in th Quality.
Mean while Our FI personnel done MIRO for the same.
but after conpletion of the result recording i come to know that there is a fuilt in the material
so i am planning to post the material back to the Vendor.
(Return Delivery) through UD Stock posting Screen.
But the system not allowing to do so.
Because MIRO is already done..
Please suggest me How to block the FI personnel not to do MIRO untill Quality clearence .
thanx in advace.
Thanks & Regard's
Pathi,

Answer 1

Hi,
One possible 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...