Varat izveidot iekšējo noliktavas izvietošanas vienumu, izmantojot nepareizu daudzumu, kas nav pieejamas Microsoft Dynamics NAV 2009

Informācija par labojumfailu

Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams nogaidīt, līdz tiks izlaista nākamā servisa pakotne Microsoft Dynamics NAV 2009 vai nākamo Microsoft Dynamics NAV versiju, kurā ir iekļauts šis labojumfails.

Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja ar tehniskā atbalsta speciālistu programmai Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Koda izmaiņas

Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.
Lai novērstu šo problēmu, rīkojieties šādi:

1. Nomainiet šo kodu laukus sadaļā "preču apstrādes laiks. Iekšējās izvietošanas rindā"tabula (7332) šādi:
   Kods 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);
   ...
   

   Aizstāšanas kods = 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);
   ...
   

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

   Aizstāšanas kods 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. Nomainiet šo kodu funkciju CheckCurrentLineQty "preču apstrādes laiks. Iekšējās izvietošanas rindā"tabula (7332) šādi:
   Kods

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

   Aizstāšanas kodu

   ...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. Nomainiet šo kodu datu vienumu skaits 5 "preču apstrādes laiks.-avota - izveidot dokumentu" (7305) šāds ziņojums:
   Kods

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

   Aizstāšanas kodu

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