"Post artikeltrans.löpnr [nummer] finns inte" felmeddelande när du bokför en Överföringsinleverans i Microsoft Dynamics NAV 2009

Information om snabbkorrigeringen

En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV 2009 eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.

Kod ändras

Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:

1. Lägg till den globala variabeln (textkonstant) i TransferOrder Bokför utleverans kodmodul (5704):

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

2. Ändra koden i utlösaren OnRun i TransferOrder Bokför utleverans kodmodul (5704) enligt följande:
   Befintlig kod

   ...                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);
   ...
   
   

   Ersättningskod

   ...                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. Lägg till funktionen CheckItemAvailability lokal i TransferOrder Bokför utleverans kodmodul (5704) enligt följande:

   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;