Você pode criar um depósito interno recepção de um item usando uma quantidade incorreta que não está disponível no Microsoft Dynamics NAV 2009

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:

1. Altere o código na seção campos "Whse. Tabela de linha interna de recepção"(7332) da seguinte maneira:
   1 de código existente

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

   1 código de substituição

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

   2 de código existente

   ...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. Altere o código na função CheckCurrentLineQty Whse". Tabela de linha interna de recepção"(7332) da seguinte maneira:
   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. Altere o código no número de Item de dados 5 no "Whse.-fonte: criar documento" relatório (7305) da seguinte forma:
   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");
   ...