"Item tracking defined for the source line accounts for more than the quantity you have entered" error message when you try to create a pick register on a warehouse shipment in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code in the WhseItemTrkgLineExists function in the Item Tracking Management Codeunit (6500) as follows:
   Existing code

   ...
   ItemTrackingCode.GET(Item."Item Tracking Code");
   EXIT(ItemTrackingCode."Strict Expiration Posting");
   END;
   
   BEGIN
   END.
   }
   }
   ...

   Replacement code

   ...
   ItemTrackingCode.GET(Item."Item Tracking Code");
   EXIT(ItemTrackingCode."Strict Expiration Posting");
   END;
   
   // Add the following lines.
   PROCEDURE WhseItemTrkgLineExists@32(SourceId@1000 : Code[20];SourceType@1001 : Integer;SourceSubtype@1002 : '0,1,2,3,4,5,6,7,8,9,10';SourceBatchName@1170000000 : Code[10];SourceProdOrderLine@1003 : Integer;SourceRefNo@1004 : Integer;LocationCode@1005 : Code[10]) : Boolean;
   
   VAR
   WhseItemTrkgLine@1006 : Record 6550;
   BEGIN
   WITH WhseItemTrkgLine DO BEGIN
   SETCURRENTKEY(
   "Source ID","Source Type","Source Subtype","Source Batch Name",
   "Source Prod. Order Line","Source Ref. No.","Location Code");
   SETRANGE("Source ID",SourceId);
   SETRANGE("Source Type",SourceType);
   SETRANGE("Source Subtype",SourceSubtype);
   SETRANGE("Source Batch Name",SourceBatchName);
   SETRANGE("Source Prod. Order Line",SourceProdOrderLine);
   SETRANGE("Source Ref. No.",SourceRefNo);
   SETRANGE("Location Code",LocationCode);
   EXIT(FINDFIRST);
   END;
   END;
   // End of the added lines.
   
   BEGIN
   END.
   }
   }...

2. Change the code in the CreateWhseItemTrkgLines function in the Create Reserv. Entry Codeunit (99000830) as follows:
   Existing code

   ...
   SETRANGE("Source Type",ReservEntry."Source Type");
   SETRANGE("Source Subtype",ReservEntry."Source Subtype");
   SETRANGE("Source No.",ReservEntry."Source ID");
   SETRANGE("Source Line No.",ReservEntry."Source Ref. No.");
   
   // Delete the following lines.
   IF FINDFIRST THEN BEGIN
   ItemTrkgMgt.InitWhseWkshLine(WhseWkshLine,
   2,"No.","Line No.","Source Type","Source Subtype","Source No.","Source Line No.",0);
   ItemTrkgMgt.CreateWhseItemTrkgForResEntry(ReservEntry,WhseWkshLine);
   END;
   // End of the deleted lines.
   
   END;
   END;
   
   PROCEDURE SetApplyToEntryNo@16(EntryNo@1000 : Integer);
   ...

   Replacement code

   ...
   SETRANGE("Source Type",ReservEntry."Source Type");
   SETRANGE("Source Subtype",ReservEntry."Source Subtype");
   SETRANGE("Source No.",ReservEntry."Source ID");
   SETRANGE("Source Line No.",ReservEntry."Source Ref. No.");
   
   // Add the following lines.
   IF FINDFIRST THEN
   IF NOT ItemTrkgMgt.WhseItemTrkgLineExists("No.",DATABASE::"Warehouse Shipment Line",0,'',0,
   "Source Line No.","Location Code")
   THEN BEGIN
   ItemTrkgMgt.InitWhseWkshLine(WhseWkshLine,
   2,"No.","Line No.","Source Type","Source Subtype","Source No.","Source Line No.",0);
   ItemTrkgMgt.CreateWhseItemTrkgForResEntry(ReservEntry,WhseWkshLine);
   END;
   // End of the added lines.
   
   END;
   END;
   
   PROCEDURE SetApplyToEntryNo@16(EntryNo@1000 : Integer);
   ...

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information