"[Quantity] units for Document No. [number] have already been returned. Therefore, only 0 units can be returned" error message when you decrease the quantity in a sales return order line in certain scenario in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the Code function in the Undo Return Receipt Line codeunit (5816) as follows: 
   Existing code 1

   ...
   "Return Order Line No.");
   
   ItemShptEntryNo := PostItemJnlLine(ReturnRcptLine,DocLineNo);
   
   InsertNewReceiptLine(ReturnRcptLine,ItemShptEntryNo,DocLineNo);
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UndoPostedWhseRcptLine(PostedWhseRcptLine);
   
   UpdateOrderLine(ReturnRcptLine);
   IF PostedWhseRcptLineFound THEN
   ...

   Replacement code 1

   ...
   "Return Order Line No.");
   
   ItemShptEntryNo := PostItemJnlLine(ReturnRcptLine,DocLineNo);
   
   InsertNewReceiptLine(ReturnRcptLine,ItemShptEntryNo,DocLineNo);
   
   // Add the following line.
   ItemJnlPostLine.UpdateShpmntLedgerEntries(ReturnRcptLine);
   
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UndoPostedWhseRcptLine(PostedWhseRcptLine);
   
   UpdateOrderLine(ReturnRcptLine);
   IF PostedWhseRcptLineFound THEN
   ...

   Existing code 2

   ...
   "Return Order Line No.");
   ItemShptEntryNo := PostItemJnlLine(ReturnRcptLine,DocLineNo);
   InsertNewReceiptLine(ReturnRcptLine,ItemShptEntryNo,DocLineNo);
   
   // Delete the following lines.
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UndoPostedWhseRcptLine(PostedWhseRcptLine);
   
   UpdateOrderLine(ReturnRcptLine);
   // End of the lines.
   
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UpdateSourceDocLines(PostedWhseRcptLine);
   
   "Quantity Invoiced" := Quantity;
   "Qty. Invoiced (Base)" := "Quantity (Base)";
   ...

   Replacement code 2

   ...
   "Return Order Line No.");
   
   ItemShptEntryNo := PostItemJnlLine(ReturnRcptLine,DocLineNo);
   
   InsertNewReceiptLine(ReturnRcptLine,ItemShptEntryNo,DocLineNo);
   
   // Add the following lines.
   SalesLine.GET(SalesLine."Document Type"::"Return Order",ReturnRcptLine."Return Order No.",
   ReturnRcptLine."Return Order Line No.");
   IF ReturnRcptLine."Item Rcpt. Entry No." > 0 THEN BEGIN
   SalesLine."Appl.-from Item Entry" := ItemShptEntryNo;
   SalesLine.MODIFY;
   END;
   
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UndoPostedWhseRcptLine(PostedWhseRcptLine);
   
   UpdateOrderLine(ReturnRcptLine);
   UpdateItemTrkgApplFromEntry(SalesLine);
   // End of the lines.
   
   IF PostedWhseRcptLineFound THEN
   WhseUndoQty.UpdateSourceDocLines(PostedWhseRcptLine);
   
   "Quantity Invoiced" := Quantity;
   "Qty. Invoiced (Base)" := "Quantity (Base)";
   ...

2. Change the code in the UpdateItemTrackingApplFromEntr function in the Undo Return Receipt Line codeunit (5816) as follows: 
   Existing code

   ...
   ItemEntryRelation.INSERT;
   UNTIL TempItemEntryRelation.NEXT = 0;
   END;
   END;
   
   BEGIN
   END.
   }
   }
   ...

   Replacement code

   ...
   ItemEntryRelation.INSERT;
   UNTIL TempItemEntryRelation.NEXT = 0;
   END;
   END;
   
   // Add the following lines.
   LOCAL PROCEDURE UpdateItemTrkgApplFromEntry@14(SalesLine@1000 : Record 37);
   VAR
   ReservationEntry@1001 : Record 337;
   ItemApplicationEntry@1002 : Record 339;
   "Sales Line-Reserve"@1003 : Codeunit 99000832;
   BEGIN
   "Sales Line-Reserve".FilterReservFor(ReservationEntry,SalesLine);
   IF ReservationEntry.FINDSET THEN
   REPEAT
   IF ReservationEntry."Appl.-from Item Entry" <> 0 THEN BEGIN
   IF ItemApplicationEntry.AppliedOutbndEntryExists(ReservationEntry."Appl.-to Item Entry",FALSE) THEN BEGIN
   ReservationEntry."Appl.-from Item Entry" := ItemApplicationEntry."Outbound Item Entry No.";
   ReservationEntry.MODIFY;
   END;
   END;
   UNTIL ReservationEntry.NEXT =0;
   END;
   // End of the lines.
    
   BEGIN
   END.
   }
   }
   ...

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Removal information