Pode criar uma arrumação de armazém interna de um item utilizando uma quantidade incorrecta que não está disponível no Microsoft Dynamics NAV 2009

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:

1. Alterar o código da secção de campos de "ajuste. Tabela de linha de documento de arrumação interna"(7332) da seguinte forma:
   Código existente 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);
   ...
   

   Código de substituição 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);
   ...
   

   Código existente 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.));
   ...
   

   Código de substituição 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. Alterar o código na função CheckCurrentLineQty de "ajuste. Tabela de linha de documento de arrumação interna"(7332) da seguinte forma:
   Código existente

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

   Código de substituição

   ...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. Alterar o código do 5 de número de Item de dados na "Arm.-origem - criar documento" report (7305) do seguinte modo:
   Código existente

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

   Código de substituição

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