Dieser Artikel gilt für Microsoft Dynamics NAV für alle Länder und gebietsschemas aller Sprachen.
Symptome
Angenommen, Sie legen den Wert 0,001 im Feld Betrag rundungsgenauigkeit für eine Fremdwährung in einem Unternehmen fest. Wenn Sie eine Vorauszahlungsrechnung buchen, die die Fremdwährung verwendet, erhalten Sie die folgende Fehlermeldung:
Hinweis
Die Transaktion kann nicht abgeschlossen werden, da sie zu Inkonsistenzen in der G/L-Eintragstabelle führt. Überprüfen Sie, wo und wie die CONSISTENT-Funktion in der Transaktion verwendet wird, um die Ursache für den Fehler zu finden. Wenden Sie sich an den Systemadministrator.
Tabellen können bei umfassenden Aufgaben wie der Buchung als inkonsistent markiert werden. Dadurch wird verhindert, dass Daten falsch aktualisiert werden.
Der Konsistenzfehler tritt auf, weil die Belastung und das Guthaben für die zusätzliche Berichtswährung (ARC) nicht übereinstimmen. Daher stimmen die Belastung und das Guthaben für die lokale Währung (LCY) wie erwartet überein.
Dieses Problem tritt auf, wenn das Unternehmen über vorhandene Einträge verfügt.
Dieses Problem tritt in den folgenden Produkten auf:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Lösung
Hotfixinformationen
Ein unterstützter Hotfix ist jetzt bei Microsoft verfügbar. Es dient jedoch nur zur Behebung des problems, das in diesem Artikel beschrieben wird. Wenden Sie sie nur auf Systeme an, bei denen dieses spezifische Problem auftritt. Dieser Hotfix erhält möglicherweise zusätzliche Tests. Wenn Sie von diesem Problem nicht stark betroffen sind, empfiehlt es sich daher, auf das nächste Microsoft Dynamics NAV 2009 Service Pack oder die nächste Microsoft Dynamics NAV-Version zu warten, die diesen Hotfix enthält.
Hinweis In besonderen Fällen können Gebühren, die normalerweise für Supportanrufe anfallen, storniert werden, wenn ein Technischer Supportmitarbeiter für Microsoft Dynamics und zugehörige Produkte feststellt, dass ihr Problem durch ein bestimmtes Update behoben wird. PLEASE DO NOT TRANSLATE. DOES NOT APPLY TO GERMAN.
Informationen zur Installation
Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder stillschweigende Garantie. Dies schließt die stillschweigende Gewährleistung der Marktgängigkeit oder der Eignung für einen bestimmten Zweck ein, ist aber nicht darauf beschränkt. In diesem Artikel wird davon ausgegangen, dass Sie mit der vorgestellten Programmiersprache und den Werkzeugen zum Erstellen und Debuggen von Prozeduren vertraut sind. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.
Hinweis Überprüfen Sie vor der Installation dieses Hotfixs, ob alle Microsoft Navision-Clientbenutzer vom System abgemeldet sind. Dies schließt Microsoft Navision Application Services (NAS)-Clientbenutzer ein. Sie sollten der einzige Clientbenutzer sein, der angemeldet ist, wenn Sie diesen Hotfix implementieren.
Um diesen Hotfix implementieren zu können, benötigen Sie eine Entwicklerlizenz.
Es wird empfohlen, dem Benutzerkonto im Fenster Windows-Anmeldungen oder im Fenster Datenbankanmeldungen die Rollen-ID "SUPER" zuzuweisen. Wenn dem Benutzerkonto die Rollen-ID "SUPER" nicht zugewiesen werden kann, müssen Sie überprüfen, ob das Benutzerkonto über die folgenden Berechtigungen verfügt:
- Die Berechtigung Ändern für das Objekt, das Sie ändern.
- Die Execute-Berechtigung für das Systemobjekt-ID 5210-Objekt und für das Systemobjekt-ID 9015-Objekt.
Hinweis Sie benötigen keine Rechte für die Datenspeicher, es sei denn, Sie müssen eine Datenreparatur durchführen.
Codeänderungen
Hinweis Testen Sie Codekorrekturen immer in einer kontrollierten Umgebung, bevor Sie die Korrekturen auf Ihre Produktionscomputer anwenden.
Gehen Sie wie folgt vor, um das Problem zu beheben:
Ändern Sie den Code im OnRun-Trigger in der Sales-Post Codeunit (80) wie folgt:
Vorhandener Code... GenJnlLine."External Document No." := GenJnlLineExtDocNo; GenJnlLine."Currency Code" := "Currency Code"; GenJnlLine.Amount := -TotalSalesLine."Amount Including VAT"; GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -TotalSalesLine."Amount Including VAT"; // Delete the following line. GenJnlLine."Amount (LCY)" := -TotalSalesLineLCY."Amount Including VAT"; IF SalesHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ELSE GenJnlLine."Currency Factor" := SalesHeader."Currency Factor"; GenJnlLine.Correction := Correction; ... IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN SalesLine."Prepmt Amt Deducted" := SalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct"; SalesLine."Prepmt VAT Diff. Deducted" := SalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct"; // Delete the following lines. IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYSalesLine := SalesLine; IF TempPrePayDeductLCYSalesLine.FIND THEN SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)"; END ELSE SalesLine."Prepmt. Amount Inv. (LCY)" := ROUND( ROUND( ROUND(SalesLine."Unit Price" * (SalesLine.Quantity - SalesLine."Quantity Shipped"), Currency."Amount Rounding Precision") * (1 - SalesLine."Line Discount %" / 100),Currency."Amount Rounding Precision") * SalesLine."Prepayment %" / 100,Currency."Amount Rounding Precision"); // End of the lines. SalesLine."Prepmt Amt to Deduct" := SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted"; SalesLine."Prepmt VAT Diff. to Deduct" := 0; END; END; ... IF ABS(TempSalesLine."Quantity Invoiced") > ABS(TempSalesLine."Quantity Shipped") THEN ERROR( Text014, TempSalesLine."Document No."); TempSalesLine.InitQtyToInvoice; // Delete the following lines. TempSalesLine."Prepmt Amt Deducted" := TempSalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct"; TempSalesLine."Prepmt VAT Diff. Deducted" := TempSalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct"; IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYSalesLine := SalesLine; IF TempPrePayDeductLCYSalesLine.FIND THEN TempSalesLine."Prepmt. Amount Inv. (LCY)" := TempSalesLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)"; END ELSE TempSalesLine."Prepmt. Amount Inv. (LCY)" := TempSalesLine."Prepmt. Amount Inv. (LCY)" - SalesLine."Prepmt Amt to Deduct"; IF (TempSalesLine."Quantity Invoiced" = TempSalesLine.Quantity) AND (TempSalesLine."Prepayment %" <> 0) THEN PrepayRealizeGainLoss(TempSalesLine); TempSalesLine."Prepmt Amt to Deduct" := TempSalesLine."Prepmt. Amt. Inv." - TempSalesLine."Prepmt Amt Deducted"; TempSalesLine."Prepmt VAT Diff. to Deduct" := 0; // End of the lines. TempSalesLine.InitOutstanding; IF (TempSalesLine."Purch. Order Line No." <> 0) AND (TempSalesLine.Quantity = TempSalesLine."Quantity Invoiced") THEN UpdateAssocLines(TempSalesLine); ... InsertTrackingSpecification; IF SalesLine.FINDSET THEN REPEAT IF SalesLine."Purch. Order Line No." <> 0 THEN UpdateAssocLines(SalesLine); // Delete the following lines. IF (SalesLine."Prepayment %" <> 0) THEN BEGIN IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYSalesLine := SalesLine; IF TempPrePayDeductLCYSalesLine.FIND THEN SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)"; END ELSE SalesLine."Prepmt. Amount Inv. (LCY)" := SalesLine."Prepmt. Amount Inv. (LCY)" - SalesLine."Prepmt Amt to Deduct"; PrepayRealizeGainLoss(SalesLine); END; // End of the lines. UNTIL SalesLine.NEXT = 0; END; END; SalesLine.SETFILTER("Blanket Order Line No.",'<>0'); ...Ersetzungscode
... GenJnlLine."External Document No." := GenJnlLineExtDocNo; GenJnlLine."Currency Code" := "Currency Code"; GenJnlLine.Amount := -TotalSalesLine."Amount Including VAT"; GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -TotalSalesLine."Amount Including VAT"; // Add the following line. GenJnlLine."Amount (LCY)" := ROUND(-TotalSalesLineLCY."Amount Including VAT",GLSetup."Amount Rounding Precision"); IF SalesHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ELSE GenJnlLine."Currency Factor" := SalesHeader."Currency Factor"; GenJnlLine.Correction := Correction; ... IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN SalesLine."Prepmt Amt Deducted" := SalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct"; SalesLine."Prepmt VAT Diff. Deducted" := SalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct"; // Add the following line. DecrementPrepmtAmtInvLCY(SalesLine,SalesLine."Prepmt. Amount Inv. (LCY)"); SalesLine."Prepmt Amt to Deduct" := SalesLine."Prepmt. Amt. Inv." - SalesLine."Prepmt Amt Deducted"; SalesLine."Prepmt VAT Diff. to Deduct" := 0; END; END; ... IF ABS(TempSalesLine."Quantity Invoiced") > ABS(TempSalesLine."Quantity Shipped") THEN ERROR( Text014, TempSalesLine."Document No."); TempSalesLine.InitQtyToInvoice; // Add the following lines. IF TempSalesLine."Prepayment %" <> 0 THEN BEGIN TempSalesLine."Prepmt Amt Deducted" := TempSalesLine."Prepmt Amt Deducted" + SalesLine."Prepmt Amt to Deduct"; TempSalesLine."Prepmt VAT Diff. Deducted" := TempSalesLine."Prepmt VAT Diff. Deducted" + SalesLine."Prepmt VAT Diff. to Deduct"; DecrementPrepmtAmtInvLCY(SalesLine,TempSalesLine."Prepmt. Amount Inv. (LCY)"); TempSalesLine."Prepmt Amt to Deduct" := TempSalesLine."Prepmt. Amt. Inv." - TempSalesLine."Prepmt Amt Deducted"; TempSalesLine."Prepmt VAT Diff. to Deduct" := 0; END; // End of the lines. TempSalesLine.InitOutstanding; IF (TempSalesLine."Purch. Order Line No." <> 0) AND (TempSalesLine.Quantity = TempSalesLine."Quantity Invoiced") THEN UpdateAssocLines(TempSalesLine); ... InsertTrackingSpecification; IF SalesLine.FINDSET THEN REPEAT IF SalesLine."Purch. Order Line No." <> 0 THEN UpdateAssocLines(SalesLine); // Add the following lines. IF (SalesLine."Prepayment %" <> 0) THEN DecrementPrepmtAmtInvLCY(SalesLine,SalesLine."Prepmt. Amount Inv. (LCY)"); // End of the lines. UNTIL SalesLine.NEXT = 0; END; END; SalesLine.SETFILTER("Blanket Order Line No.",'<>0'); ...Ändern Sie den Code in der FillInvPostingBuffer-Funktion in der Sales-Post codeunit (80) wie folgt:
Vorhandener Code... TempDocDim.SETRANGE("Table ID",DATABASE::"Sales Line"); TempDocDim.SETRANGE("Line No.",SalesLine."Line No."); TotalVAT := SalesLine."Amount Including VAT" - SalesLine.Amount; TotalVATACY := SalesLineACY."Amount Including VAT" - SalesLineACY.Amount; // Delete the following line. TotalAmount := SalesLine.Amount; TotalAmountACY := SalesLineACY.Amount; IF SalesSetup."Discount Posting" IN [SalesSetup."Discount Posting"::"Invoice Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN BEGIN IF SalesLine."VAT Calculation Type" = SalesLine."VAT Calculation Type"::"Reverse Charge VAT" THEN ...Ersetzungscode
... TempDocDim.SETRANGE("Table ID",DATABASE::"Sales Line"); TempDocDim.SETRANGE("Line No.",SalesLine."Line No."); TotalVAT := SalesLine."Amount Including VAT" - SalesLine.Amount; TotalVATACY := SalesLineACY."Amount Including VAT" - SalesLineACY.Amount; // Add the following line. TotalAmount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision"); TotalAmountACY := SalesLineACY.Amount; IF SalesSetup."Discount Posting" IN [SalesSetup."Discount Posting"::"Invoice Discounts",SalesSetup."Discount Posting"::"All Discounts"] THEN BEGIN IF SalesLine."VAT Calculation Type" = SalesLine."VAT Calculation Type"::"Reverse Charge VAT" THEN ...Fügen Sie in der Sales-Post codeunit (80) wie folgt eine neue DecrementPrepmtAmtInvLCY-Funktion hinzu:
LOCAL PROCEDURE DecrementPrepmtAmtInvLCY@86(SalesLine@1000 : Record 37;VAR PrepmtAmountInvLCY@1001 : Decimal); TempPrePayDeductLCYSalesLine := SalesLine; IF TempPrePayDeductLCYSalesLine.FIND THEN PrepmtAmountInvLCY := PrepmtAmountInvLCY - TempPrePayDeductLCYSalesLine."Prepmt. Amount Inv. (LCY)";Ändern Sie den Code im OnRun-Trigger in purch.-Post codeunit (90) wie folgt:
Vorhandener Code... GenJnlLine."External Document No." := GenJnlLineExtDocNo; GenJnlLine."Currency Code" := "Currency Code"; GenJnlLine.Amount := -TotalPurchLine."Amount Including VAT"; GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -TotalPurchLine."Amount Including VAT"; // Delete the following line. GenJnlLine."Amount (LCY)" := -TotalPurchLineLCY."Amount Including VAT"; IF PurchHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ELSE GenJnlLine."Currency Factor" := PurchHeader."Currency Factor"; GenJnlLine."Sales/Purch. (LCY)" := -TotalPurchLineLCY.Amount; ... IF PurchLine."Qty. to Invoice" <> 0 THEN BEGIN PurchLine."Prepmt Amt Deducted" := PurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct"; PurchLine."Prepmt VAT Diff. Deducted" := PurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct"; // Delete the following line. IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYPurchLine := PurchLine; IF TempPrePayDeductLCYPurchLine.FIND THEN PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)"; END ELSE PurchLine."Prepmt. Amount Inv. (LCY)" := ROUND( ROUND( ROUND(PurchLine."Direct Unit Cost" * (PurchLine.Quantity - PurchLine."Quantity Received"), Currency."Amount Rounding Precision") * (1 - PurchLine."Line Discount %" / 100),Currency."Amount Rounding Precision") * PurchLine."Prepayment %" / 100,Currency."Amount Rounding Precision"); PurchLine."Prepmt Amt to Deduct" := PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted"; // End of the lines. PurchLine."Prepmt VAT Diff. to Deduct" := 0; END; END; UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice); ... Text018 + Text99000000, TempPurchLine."Sales Order No."); END; TempPurchLine.InitQtyToInvoice; // Delete the following lines. TempPurchLine."Prepmt Amt Deducted" := TempPurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct"; TempPurchLine."Prepmt VAT Diff. Deducted" := TempPurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct"; IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYPurchLine := PurchLine; IF TempPrePayDeductLCYPurchLine.FIND THEN TempPurchLine."Prepmt. Amount Inv. (LCY)" := TempPurchLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)"; END ELSE TempPurchLine."Prepmt. Amount Inv. (LCY)" := TempPurchLine."Prepmt. Amount Inv. (LCY)" - PurchLine."Prepmt Amt to Deduct"; IF (TempPurchLine."Quantity Invoiced" = TempPurchLine.Quantity) AND (TempPurchLine."Prepayment %" <> 0) THEN PrepayRealizeGainLoss(TempPurchLine); TempPurchLine."Prepmt Amt to Deduct" := TempPurchLine."Prepmt. Amt. Inv." - TempPurchLine."Prepmt Amt Deducted"; TempPurchLine."Prepmt VAT Diff. to Deduct" := 0; // End of the lines. TempPurchLine.InitOutstanding; TempPurchLine.MODIFY; END; UNTIL PurchLine.NEXT = 0; InsertTrackingSpecification; ... PurchLine.SETRANGE("Return Shipment No."); END; ELSE IF PurchLine.FINDSET THEN REPEAT // Delete the following lines. IF (PurchLine."Prepayment %" <> 0) THEN BEGIN IF "Currency Code" <> '' THEN BEGIN TempPrePayDeductLCYPurchLine := PurchLine; IF TempPrePayDeductLCYPurchLine.FIND THEN PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" - TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)"; END ELSE PurchLine."Prepmt. Amount Inv. (LCY)" := PurchLine."Prepmt. Amount Inv. (LCY)" - PurchLine."Prepmt Amt to Deduct"; PrepayRealizeGainLoss(PurchLine); END; // End of the lines. UNTIL PurchLine.NEXT = 0; END; PurchLine.SETFILTER("Blanket Order Line No.",'<>0'); IF PurchLine.FINDSET THEN ...Ersetzungscode
... GenJnlLine."External Document No." := GenJnlLineExtDocNo; GenJnlLine."Currency Code" := "Currency Code"; GenJnlLine.Amount := -TotalPurchLine."Amount Including VAT"; GenJnlLine."Source Currency Code" := "Currency Code"; GenJnlLine."Source Currency Amount" := -TotalPurchLine."Amount Including VAT"; // Add the following line. GenJnlLine."Amount (LCY)" := ROUND(-TotalPurchLineLCY."Amount Including VAT",GLSetup."Amount Rounding Precision"); IF PurchHeader."Currency Code" = '' THEN GenJnlLine."Currency Factor" := 1 ELSE GenJnlLine."Currency Factor" := PurchHeader."Currency Factor"; GenJnlLine."Sales/Purch. (LCY)" := -TotalPurchLineLCY.Amount; ... IF PurchLine."Qty. to Invoice" <> 0 THEN BEGIN PurchLine."Prepmt Amt Deducted" := PurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct"; PurchLine."Prepmt VAT Diff. Deducted" := PurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct"; // Add the following lines. DecrementPrepmtAmtInvLCY(PurchLine,PurchLine."Prepmt. Amount Inv. (LCY)"); PurchLine."Prepmt Amt to Deduct" := PurchLine."Prepmt. Amt. Inv." - PurchLine."Prepmt Amt Deducted"; // End of the lines. PurchLine."Prepmt VAT Diff. to Deduct" := 0; END; END; UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice); ... Text018 + Text99000000, TempPurchLine."Sales Order No."); END; TempPurchLine.InitQtyToInvoice; // Add the following lines. IF TempPurchLine."Prepayment %" <> 0 THEN BEGIN TempPurchLine."Prepmt Amt Deducted" := TempPurchLine."Prepmt Amt Deducted" + PurchLine."Prepmt Amt to Deduct"; TempPurchLine."Prepmt VAT Diff. Deducted" := TempPurchLine."Prepmt VAT Diff. Deducted" + PurchLine."Prepmt VAT Diff. to Deduct"; DecrementPrepmtAmtInvLCY(PurchLine,TempPurchLine."Prepmt. Amount Inv. (LCY)"); TempPurchLine."Prepmt Amt to Deduct" := TempPurchLine."Prepmt. Amt. Inv." - TempPurchLine."Prepmt Amt Deducted"; TempPurchLine."Prepmt VAT Diff. to Deduct" := 0; END; // End of the lines. TempPurchLine.InitOutstanding; TempPurchLine.MODIFY; END; UNTIL PurchLine.NEXT = 0; InsertTrackingSpecification; ... // Add the following lines. IF (PurchLine."Prepayment %" <> 0) THEN DecrementPrepmtAmtInvLCY(PurchLine,PurchLine."Prepmt. Amount Inv. (LCY)"); // End of the lines. ...Ändern Sie den Code in der FillInvPostingBuffer-Funktion in der Purch.-Post codeunit (90) wie folgt:
Vorhandener Code... TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); TotalVAT := PurchLine."Amount Including VAT" - PurchLine.Amount; TotalVATACY := PurchLineACY."Amount Including VAT" - PurchLineACY.Amount; // Delete the following line. TotalAmount := PurchLine.Amount; TotalAmountACY := PurchLineACY.Amount; IF PurchSetup."Discount Posting" IN [PurchSetup."Discount Posting"::"Invoice Discounts",PurchSetup."Discount Posting"::"All Discounts"] THEN BEGIN CASE PurchLine."VAT Calculation Type" OF ...Ersetzungscode
... TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); TotalVAT := PurchLine."Amount Including VAT" - PurchLine.Amount; TotalVATACY := PurchLineACY."Amount Including VAT" - PurchLineACY.Amount; // Add the following line. TotalAmount := ROUND(PurchLine.Amount,GLSetup."Amount Rounding Precision"); TotalAmountACY := PurchLineACY.Amount; TotalAmountACY := PurchLineACY.Amount; IF PurchSetup."Discount Posting" IN [PurchSetup."Discount Posting"::"Invoice Discounts",PurchSetup."Discount Posting"::"All Discounts"] THEN BEGIN CASE PurchLine."VAT Calculation Type" OF ...Fügen Sie in purch.-Post codeunit (90) wie folgt eine neue DecrementPrepmtAmtInvLCY-Funktion hinzu:
LOCAL PROCEDURE DecrementPrepmtAmtInvLCY@86(PurchLine@1000 : Record 39;VAR PrepmtAmountInvLCY@1001 : Decimal); TempPrePayDeductLCYPurchLine := PurchLine; IF TempPrePayDeductLCYPurchLine.FIND THEN PrepmtAmountInvLCY := PrepmtAmountInvLCY - TempPrePayDeductLCYPurchLine."Prepmt. Amount Inv. (LCY)";Ändern Sie den Code in der RoundAmounts-Funktion in der codeunit Sales-Post Vorauszahlungen (442) wie folgt:
Vorhandener Code... IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,SalesHeader,DummySalesLine,FALSE,0); IF SalesHeader."Currency Code" <> '' THEN BEGIN VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT"; // Delete the following lines. PrepmtInvLineBuf."Amount Incl. VAT" := AmountToLCY( SalesHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"); // End of the lines. IF VAT THEN PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100)) ELSE PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT"; PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount; IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount; END; IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,SalesHeader,DummySalesLine,FALSE,0); ...Ersetzungscode
... IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,SalesHeader,DummySalesLine,FALSE,0); IF SalesHeader."Currency Code" <> '' THEN BEGIN VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT"; // Add the following lines. PrepmtInvLineBuf."Amount Incl. VAT" := ROUND( AmountToLCY( SalesHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"), GLSetup."Amount Rounding Precision"); // End of the lines. IF VAT THEN PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100)) ELSE PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT"; PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount; IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount; END; IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,SalesHeader,DummySalesLine,FALSE,0); ...Ändern Sie den Code in der Funktion InitInvoiceRoundingLine in der codeunit (442) von Sales-Post wie folgt:
Vorhandener Code... "Unit Price", ROUND( InvoiceRoundingAmount / (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100), Currency."Amount Rounding Precision")); VALIDATE("Amount Including VAT",InvoiceRoundingAmount); END; EXIT(TRUE);Ersetzungscode
... "Unit Price", ROUND( InvoiceRoundingAmount / (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100), Currency."Amount Rounding Precision")); // Add the following line. VALIDATE("Prepayment Amount",InvoiceRoundingAmount); VALIDATE("Amount Including VAT",InvoiceRoundingAmount); END; EXIT(TRUE);Ändern Sie den Code in der Funktion RoundAmounts in der codeunit (444) der Purchase-Post Vorauszahlungen wie folgt:
Vorhandener Code... IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,PurchHeader,DummyPurchLine,FALSE,0); IF PurchHeader."Currency Code" <> '' THEN BEGIN VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT"; PrepmtInvLineBuf."Amount Incl. VAT" := // Delete the following lines. AmountToLCY( PurchHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"); IF VAT THEN PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100)) ELSE PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT"; // End of the lines. PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount; IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount; END; IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,PurchHeader,DummyPurchLine,FALSE,0); ...Ersetzungscode
... IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBuf,PurchHeader,DummyPurchLine,FALSE,0); IF PurchHeader."Currency Code" <> '' THEN BEGIN VAT := PrepmtInvLineBuf.Amount <> PrepmtInvLineBuf."Amount Incl. VAT"; PrepmtInvLineBuf."Amount Incl. VAT" := // Add the following lines. ROUND( AmountToLCY( PurchHeader,TotalPrepmtInvLineBuf."Amount Incl. VAT",TotalPrepmtInvLineBufLCY."Amount Incl. VAT"), GLSetup."Amount Rounding Precision"); IF VAT THEN PrepmtInvLineBuf.Amount := ROUND(PrepmtInvLineBuf."Amount Incl. VAT" / (1 + PrepmtInvLineBuf."VAT %" / 100)) ELSE PrepmtInvLineBuf.Amount := PrepmtInvLineBuf."Amount Incl. VAT"; // End of the lines. PrepmtInvLineBuf."VAT Amount" := PrepmtInvLineBuf."Amount Incl. VAT" - PrepmtInvLineBuf.Amount; IF PrepmtInvLineBuf."VAT Base Amount" <> 0 THEN PrepmtInvLineBuf."VAT Base Amount" := PrepmtInvLineBuf.Amount; END; IncrAmounts(PrepmtInvLineBuf,TotalPrepmtInvLineBufLCY,PurchHeader,DummyPurchLine,FALSE,0); ...Ändern Sie den Code in der Funktion InitInvoiceRoundingLine in der Purchase-Post Codeunit (444) wie folgt:
Vorhandener Code... "Direct Unit Cost", ROUND( InvoiceRoundingAmount / (1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100), Currency."Amount Rounding Precision")); VALIDATE("Amount Including VAT",InvoiceRoundingAmount); END; EXIT(TRUE);Ersetzungscode
... "Direct Unit Cost", ROUND( InvoiceRoundingAmount / (1 + (1 - PurchHeader."VAT Base Discount %" / 100) * "VAT %" / 100), Currency."Amount Rounding Precision")); // Add the following line. VALIDATE("Prepayment Amount",InvoiceRoundingAmount); VALIDATE("Amount Including VAT",InvoiceRoundingAmount); END; EXIT(TRUE);
Voraussetzungen
Sie müssen eines der folgenden Produkte installiert haben, um diesen Hotfix anwenden zu können:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Informationen zur Deinstallation
Sie können diesen Hotfix nicht entfernen.
Status
Microsoft hat bestätigt, dass dies ein Problem bei den Microsoft-Produkten ist, die im Abschnitt „Gilt für“ aufgeführt sind.
Hinweis: Dies ist ein Artikel vom Typ "SCHNELL VERÖFFENTLICHEN", der direkt in der Microsoft-Supportorganisation erstellt wurde. Die Informationen in diesem Artikel werden ohne Gewähr als Reaktion auf auftretende Probleme bereitgestellt. Aufgrund ihrer schnellen Bereitstellung können sie typografische Fehler enthalten und jederzeit ohne vorherige Ankündigung geändert werden. Andere Überlegungen finden Sie unter Nutzungsbedingungen.