Môžete vytvoriť interné naskladnenie tovaru pomocou nesprávneho množstva, ktorý nie je k dispozícii v Microsoft Dynamics NAV 2009

Informácie o rýchlej oprave

Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.

Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.

Zmeny kódu

Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:

1. Zmena kódu v poliach v ". Interné naskladnenie Line"tabuľky (7332) takto:
   Nahradenie kód 1

   ...CALCFIELDS("Put-away Qty.");
   IF Quantity < "Qty. Put Away" + "Put-away Qty." THEN
   FIELDERROR(Quantity,STRSUBSTNO(Text001,"Qty. Put Away" + "Put-away Qty."));
   
   // Delete the following lines.
   IF CurrFieldNo = FIELDNO(Quantity) THEN
   CheckBinContentQty;
   VALIDATE("Qty. Outstanding",(Quantity - "Qty. Put Away"));
   "Qty. (Base)" := CalcBaseQty(Quantity);
   Status := CalcStatusPutAwayLine;
   // End of the lines.
   
   IF Status <> xRec.Status THEN BEGIN
   GetInternalPutAwayHeader("No.");
   DocStatus := WhseInternalPutAwayHeader.GetDocumentStatus(0);
   ...
   

   Nahradenie kód 1

   ...CALCFIELDS("Put-away Qty.");
   IF Quantity < "Qty. Put Away" + "Put-away Qty." THEN
   FIELDERROR(Quantity,STRSUBSTNO(Text001,"Qty. Put Away" + "Put-away Qty."));
   
   // Add the following lines.
   "Qty. (Base)" := CalcBaseQty(Quantity);
   IF CurrFieldNo = FIELDNO(Quantity) THEN
   CheckBinContentQty;
   VALIDATE("Qty. Outstanding",(Quantity - "Qty. Put Away"));
   Status := CalcStatusPutAwayLine;
   // End of the lines.
   
   IF Status <> xRec.Status THEN BEGIN
   GetInternalPutAwayHeader("No.");
   DocStatus := WhseInternalPutAwayHeader.GetDocumentStatus(0);
   ...
   

   Existujúci kód 2

   ...OnLookup=BEGIN
   SelectLookUp(FIELDNO("Unit of Measure Code"));
   END;
   
   // Delete the following line.
   }
   
   { 30  ;   ;Qty. per Unit of Measure;Decimal   ;InitValue=1;
   DecimalPlaces=0:5;
   Editable=No }
   { 31  ;   ;Variant Code        ;Code10        ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.));
   ...
   

   Nahradenie kód 2

   ...OnLookup=BEGIN
   SelectLookUp(FIELDNO("Unit of Measure Code"));
   END;
   
   // Add the following line.
   Editable=No }
   
   { 30  ;   ;Qty. per Unit of Measure;Decimal   ;InitValue=1;
   DecimalPlaces=0:5;
   Editable=No }
   { 31  ;   ;Variant Code        ;Code10        ;TableRelation="Item Variant".Code WHERE (Item No.=FIELD(Item No.));
   ...
   

2. Zmena kódu v CheckCurrentLineQty funkcia v ". Interné naskladnenie Line"tabuľky (7332) takto:
   Existujúci kód

   ...WhseItemTrackingForm.SetSource(TempWhseWorksheetLine,DATABASE::"Whse. Internal Put-away Line");
   WhseItemTrackingForm.InsertItemTrackingLine(TempWhseWorksheetLine,SerialNo,LotNo,ExpirationDate,QtyToEmpty);
   END;
   BEGIN
   END.
   }
   }
   ...
   

   Nahradenie kódu

   ...WhseItemTrackingForm.SetSource(TempWhseWorksheetLine,DATABASE::"Whse. Internal Put-away Line");
   WhseItemTrackingForm.InsertItemTrackingLine(TempWhseWorksheetLine,SerialNo,LotNo,ExpirationDate,QtyToEmpty);
   END;
   
   // Add the following lines. 
   PROCEDURE CheckCurrentLineQty@25();
   VAR
   BinContent@1000 : Record 7302;
   AvailQtyBase@1001 : Decimal;
   BEGIN
   GetLocation("Location Code");
   IF Location."Bin Mandatory" AND
   ("Location Code" <> '') AND ("From Bin Code" <> '') AND
   ("Item No." <> '') AND ("Unit of Measure Code" <> '')
   THEN BEGIN
   IF Location."Directed Put-away and Pick" THEN
   CheckBlocking(BinContent);
   AvailQtyBase := BinContent.CalcQtyAvailToPick(0);
   IF AvailQtyBase < "Qty. (Base)" THEN
   FIELDERROR(
   "Qty. (Base)",
   STRSUBSTNO(Text002,AvailQtyBase));
   END;
   END;
   // End of the lines.
   
   BEGIN
   END.
   }
   }
   ...
   

3. Zmena kódu v údaje položky číslo 5 "skladu-Source - vytvoriť dokument" správa (7305) takto:
   Existujúci kód

   ...BinContent."Block Movement"::Outbound,BinContent."Block Movement"::All]
   THEN
   BinContent.FIELDERROR("Block Movement");
   END;
   WhseWkshLine.SETRANGE("Whse. Document Line No.","Line No.");
   IF NOT WhseWkshLine.FIND('-') THEN BEGIN
   TESTFIELD("Qty. per Unit of Measure");
   ...
   

   Nahradenie kódu

   ...BinContent."Block Movement"::Outbound,BinContent."Block Movement"::All]
   THEN
   BinContent.FIELDERROR("Block Movement");
   END;
   
   // Add the following line.
   CheckCurrentLineQty;
   
   WhseWkshLine.SETRANGE("Whse. Document Line No.","Line No.");
   IF NOT WhseWkshLine.FIND('-') THEN BEGIN
   TESTFIELD("Qty. per Unit of Measure");
   ...