Fehlermeldung "Element Scheckposten Lfd. Nr. 'Nummer' ist nicht vorhanden" beim Buchen eines Umlagerungseingangs in Microsoft Dynamics NAV 2009

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:

1. Fügen Sie die folgende globale Variable (Textkonstante) in der Codeunit "Nachlagereinheit-Post Shipment" (5704) hinzu:

   Text009@1042 : TextConst 'ENU=Item number %1 is not in inventory.';

2. Ändern Sie den Code im Codestück in Codeunit "Nachlagereinheit-Post Shipment" (5704) wie folgt:
   Vorhandener code

   ...                TransLine.SETFILTER(Quantity,'<>0');
                   TransLine.SETFILTER("Qty. to Ship",'<>0');
                   IF NOT TransLine.FIND('-') THEN
                     ERROR(Text001);
   
                   WhseShip := TempWhseShptHeader.FIND('-');
                   InvtPickPutaway := WhseReference <> 0;
                   IF NOT (WhseShip OR InvtPickPutaway) THEN
                     CheckWarehouse(TransLine);
   ...
   
   

   Neuer code

   ...                TransLine.SETFILTER(Quantity,'<>0');
                   TransLine.SETFILTER("Qty. to Ship",'<>0');
                   IF NOT TransLine.FIND('-') THEN
                     ERROR(Text001);
   
                  // Add the following line. 
                  CheckItemAvailability(TransLine);     
   
                   WhseShip := TempWhseShptHeader.FIND('-');
                   InvtPickPutaway := WhseReference <> 0;
                   IF NOT (WhseShip OR InvtPickPutaway) THEN
                     CheckWarehouse(TransLine);
   ...
   
   

3. Fügen Sie der lokalen CheckItemAvailability -Funktion in der Codeunit "Nachlagereinheit-Post Shipment" (5704) wie folgt:

   LOCAL PROCEDURE CheckItemAvailability@1043(TransLine@1000 : Record 5741);VAR
     Item@1001 : Record 27;
   BEGIN
     WITH Item DO BEGIN
       GET(TransLine."Item No.");
       SETFILTER("Variant Filter",TransLine."Variant Code");
       SETFILTER("Location Filter",TransLine."Transfer-from Code");
       CALCFIELDS(Inventory);
       IF Inventory <= 0 THEN
       ERROR(Text009,TransLine."Item No.");
     END;
   END;