Dieser Artikel gilt für Microsoft Dynamics NAV für alle Länder und gebietsschemas aller Sprachen.
Symptome
Angenommen, Sie legen das Feld MwSt.-Berechnungstyp für den Vat Bus auf Mehrwertsteuer fest. BuchungsgruppeNATIONAL, in der der Wert der MwSt. Prod. Buchungsgruppekeine MwSt. ist, im Dialogfeld MwSt. Buchungskarte in Microsoft Dynamics NAV 2009. Sie definieren eine Umsatzsteuer-Gebietskennzahl, indem Sie einen Steuergebietscode verwenden, der einen Maximalen Betrag aufweist, und einen Kunden mithilfe der Umsatzsteuer-Gebietskennzahl erstellen. Anschließend fügen Sie einem Verkaufsauftrag zwei Auftragspositionen mit zwei unterschiedlichen globalen Dimensionen hinzu. Wenn Sie in diesem Fall den Verkaufsauftrag für den Kunden mithilfe der Option Versand und Rechnung buchen, erhalten Sie die folgende Fehlermeldung:
Hinweis
Der Mehrwertsteuerbetrag für den Code1-Steuerbereichscode und den Code2-Steuergruppencode ist falsch. Der berechnete Mehrwertsteuerbetrag ist Amount1, sollte aber Betrag2 lauten.
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 Support-Techniker von Microsoft können Ihnen die Funktionalität eines bestimmten Verfahrens erklären. Sie werden diese Beispiele jedoch nicht ändern, um zusätzliche Funktionen bereitzustellen oder Verfahren zu konstruieren, die Ihren speziellen Anforderungen entsprechen.
Hinweis Bevor Sie diesen Hotfix installieren, überprüfen Sie, ob alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet sind. Dies schließt Microsoft Dynamics NAV-Anwendungsserverdienste (NAS) 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 die 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 in Global Variables in der Tabelle (37) wie folgt:
Vorhandener Code... Text046@1105 : TextConst 'ENU=You cannot return more than the %1 units that you have shipped for %2 %3.'; Text047@1106 : TextConst 'ENU=must be positive when %1 is not 0.'; TrackingBlocked@1107 : Boolean; Text048@1108 : TextConst 'ENU=You cannot use item tracking on a %1 created from a %2.'; Text049@1139 : TextConst 'ENU=cannot be %1.'; PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Received"; ...Ersetzungscode
... Text046@1105 : TextConst 'ENU=You cannot return more than the %1 units that you have shipped for %2 %3.'; Text047@1106 : TextConst 'ENU=must be positive when %1 is not 0.'; TrackingBlocked@1107 : Boolean; Text048@1108 : TextConst 'ENU=You cannot use item tracking on a %1 created from a %2.'; Text049@1139 : TextConst 'ENU=cannot be %1.'; // Add the following line. TotalAmountForTax@1117 : Decimal; // End of the added line. PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Received"; ...Ändern Sie den Code in der CalcVATAmountLines-Funktion in der Tabelle (37) wie folgt:
Vorhandener Code... "Amount Including VAT" := "VAT Amount"; END; "VAT Calculation Type"::"Sales Tax": BEGIN "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount"; "VAT Base" := ROUND( SalesTaxCalculate.ReverseCalculateTax( SalesHeader."Tax Area Code","Tax Group Code",SalesHeader."Tax Liable", SalesHeader."Posting Date","Amount Including VAT",Quantity,SalesHeader."Currency Factor"), ...Ersetzungscode
... "Amount Including VAT" := "VAT Amount"; END; "VAT Calculation Type"::"Sales Tax": BEGIN "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount"; // Add the following line. TotalAmountForTax := TotalAmountForTax + "Amount Including VAT"; // End of the added line. "VAT Base" := ROUND( SalesTaxCalculate.ReverseCalculateTax( SalesHeader."Tax Area Code","Tax Group Code",SalesHeader."Tax Liable", SalesHeader."Posting Date","Amount Including VAT",Quantity,SalesHeader."Currency Factor"), ...Ändern Sie den Code in der GetTotalAmount-Funktion in der Tabelle (37) wie folgt:
Vorhandener Code... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Ersetzungscode
... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; // Add the following lines. PROCEDURE GetTotalAmount@1112() : Decimal; BEGIN EXIT(TotalAmountForTax); END; // End of the added lines. BEGIN END. } } ...Ändern Sie den Code in Global Variables in der Tabelle (39) wie folgt:
Vorhandener Code... UnitCostCurrency@1063 : Decimal; UpdateFromVAT@1087 : Boolean; Text042@1088 : TextConst 'ENU=You cannot return more than the %1 units that you have received for %2 %3.'; Text043@1089 : TextConst 'ENU=must be positive when %1 is not 0.'; Text044@1080 : TextConst 'ENU=You cannot change %1 because this purchase order is associated with %2 %3.'; PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Shipped"; ...Ersetzungscode
... UnitCostCurrency@1063 : Decimal; UpdateFromVAT@1087 : Boolean; Text042@1088 : TextConst 'ENU=You cannot return more than the %1 units that you have received for %2 %3.'; Text043@1089 : TextConst 'ENU=must be positive when %1 is not 0.'; Text044@1080 : TextConst 'ENU=You cannot change %1 because this purchase order is associated with %2 %3.'; // Add the following line. TotalAmountForTax@1117 : Decimal; // End of the added line. PROCEDURE InitOutstanding@16(); BEGIN IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN "Outstanding Quantity" := Quantity - "Return Qty. Shipped"; ...Ändern Sie den Code in der CalcVATAmountLines-Funktion in der Tabelle (39) wie folgt:
Vorhandener Code... "Amount Including VAT" := "VAT Amount"; END; "VAT Calculation Type"::"Sales Tax": BEGIN "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount"; IF "Use Tax" THEN "VAT Base" := "Amount Including VAT" ELSE "VAT Base" := ROUND( ...Ersetzungscode
... "Amount Including VAT" := "VAT Amount"; END; "VAT Calculation Type"::"Sales Tax": BEGIN "Amount Including VAT" := "Line Amount" - "Invoice Discount Amount"; // Add the following line. TotalAmountForTax := TotalAmountForTax + "Amount Including VAT"; // End of the added line. IF "Use Tax" THEN "VAT Base" := "Amount Including VAT" ELSE "VAT Base" := ROUND( ...Ändern Sie den Code in der GetTotalAmount-Funktion in der Tabelle (39) wie folgt:
Vorhandener Code... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Ersetzungscode
... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; // Add the following lines. PROCEDURE GetTotalAmount@1119() : Decimal; BEGIN EXIT(TotalAmountForTax); END; // End of the added lines. BEGIN END. } } ...Ändern Sie den Code in Global Variables in der codeunit (12) wie folgt:
Vorhandener Code... LastDocType@1072 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder'; NextCheckEntryNo@1073 : Integer; AddCurrGLEntryVATAmt@1075 : Decimal; CurrencyDate@1076 : Date; CurrencyFactor@1077 : Decimal; UseCurrFactorOnly@1078 : Boolean; NonAddCurrCodeOccured@1079 : Boolean; FADimAlreadyChecked@1080 : Boolean; Text010@1008 : TextConst 'ENU=Residual caused by rounding of %1'; Text013@1007 : TextConst 'ENU=A dimension used in %1 %2, %3, %4 has caused an error. %5'; ...Ersetzungscode
... LastDocType@1072 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder'; NextCheckEntryNo@1073 : Integer; AddCurrGLEntryVATAmt@1075 : Decimal; CurrencyDate@1076 : Date; CurrencyFactor@1077 : Decimal; // Add the following line. TotalAmountForTax@1118 : Decimal; // End of the added line. UseCurrFactorOnly@1078 : Boolean; NonAddCurrCodeOccured@1079 : Boolean; FADimAlreadyChecked@1080 : Boolean; Text010@1008 : TextConst 'ENU=Residual caused by rounding of %1'; Text013@1007 : TextConst 'ENU=A dimension used in %1 %2, %3, %4 has caused an error. %5'; ...Ändern Sie den Code in der PostVAT-Funktion in der codeunit (12) wie folgt:
Vorhandener Code... InsertVAT( GLEntry.Amount,GLEntry."VAT Amount","VAT Base Amount (LCY)","Source Currency Code", "Source Curr. VAT Base Amount","Source Curr. VAT Amount","Source Curr. VAT Base Amount"); END ELSE BEGIN CLEAR(SalesTaxCalculate); SalesTaxCalculate.InitSalesTaxLines( "Tax Area Code","Tax Group Code","Tax Liable", SalesTaxBaseAmount,Quantity,"Posting Date",GLEntry."VAT Amount"); SrcCurrVATAmount := 0; SrcCurrSalesTaxBaseAmount := CalcLCYToAddCurr(SalesTaxBaseAmount); ...Ersetzungscode
... InsertVAT( GLEntry.Amount,GLEntry."VAT Amount","VAT Base Amount (LCY)","Source Currency Code", "Source Curr. VAT Base Amount","Source Curr. VAT Amount","Source Curr. VAT Base Amount"); END ELSE BEGIN CLEAR(SalesTaxCalculate); // Add the following line. SalesTaxCalculate.SetAmount(ABS(TotalAmountForTax),ABS(SalesTaxBaseAmount + GLEntry."VAT Amount")); // End of the added line. SalesTaxCalculate.InitSalesTaxLines( "Tax Area Code","Tax Group Code","Tax Liable", SalesTaxBaseAmount,Quantity,"Posting Date",GLEntry."VAT Amount"); SrcCurrVATAmount := 0; SrcCurrSalesTaxBaseAmount := CalcLCYToAddCurr(SalesTaxBaseAmount); ...Ändern Sie den Code in der SetTotalAmountForTax-Funktion in der Codeunit (12) wie folgt:
Vorhandener Code... IF ABS(Decimal1) < ABS(Decimal2) THEN EXIT(Decimal1); EXIT(Decimal2); END; BEGIN END. } } ...Ersetzungscode
... IF ABS(Decimal1) < ABS(Decimal2) THEN EXIT(Decimal1); EXIT(Decimal2); END; // Add the following lines. PROCEDURE SetTotalAmountForTax@1122(TotalAmountForTax2@1107 : Decimal); BEGIN TotalAmountForTax := TotalAmountForTax2; END; // End of the added lines. BEGIN END. } } ...Ändern Sie den Code in Eigenschaften in der Codeeinheit (80) wie folgt:
Vorhandener Code 1... PurchCommentLine@1018 : Record 43; UpdateAnalysisView@1002 : Codeunit 410; UpdateItemAnalysisView@1014 : Codeunit 7150; ICInOutBoxMgt@1008 : Codeunit 427; CostBaseAmount@1004 : Decimal; TrackingSpecificationExists@1007 : Boolean; EndLoop@1009 : Boolean; DocType@1022 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,Shipment'; TempJnlLineDim2@1023 : TEMPORARY Record 356; TempPrePmtAmtToDeduct@1003 : Decimal; ...Ersetzungscode 2
... PurchCommentLine@1018 : Record 43; UpdateAnalysisView@1002 : Codeunit 410; UpdateItemAnalysisView@1014 : Codeunit 7150; ICInOutBoxMgt@1008 : Codeunit 427; CostBaseAmount@1004 : Decimal; // Add the following line. TotalAmountForTax@1117 : Decimal; // End of the added line. TrackingSpecificationExists@1007 : Boolean; EndLoop@1009 : Boolean; DocType@1022 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,Shipment'; TempJnlLineDim2@1023 : TEMPORARY Record 356; TempPrePmtAmtToDeduct@1003 : Decimal; ...Vorhandener Code 2
... RoundingLineInserted := FALSE; MergeSaleslines(SalesHeader,SalesLine,TempPrepaymentSalesLine,CombinedSalesLineTemp); TempVATAmountLineRemainder.DELETEALL; SalesLine.CalcVATAmountLines(1,SalesHeader,CombinedSalesLineTemp,TempVATAmountLine); IF SalesLine.FINDSET THEN REPEAT ItemJnlRollRndg := FALSE; LineCount := LineCount + 1; Window.UPDATE(2,LineCount); ...Ersetzungscode 2
... RoundingLineInserted := FALSE; MergeSaleslines(SalesHeader,SalesLine,TempPrepaymentSalesLine,CombinedSalesLineTemp); TempVATAmountLineRemainder.DELETEALL; SalesLine.CalcVATAmountLines(1,SalesHeader,CombinedSalesLineTemp,TempVATAmountLine); // Add the following line. TotalAmountForTax := SalesLine.GetTotalAmount; // End of the added line. IF SalesLine.FINDSET THEN REPEAT ItemJnlRollRndg := FALSE; LineCount := LineCount + 1; Window.UPDATE(2,LineCount); ...Vorhandener Code 3
... UNTIL DropShipPostBuffer.NEXT = 0; IF Invoice THEN BEGIN // Post sales and VAT to G/L entries from posting buffer LineCount := 0; IF InvPostingBuffer[1].FIND('+') THEN REPEAT LineCount := LineCount + 1; Window.UPDATE(3,LineCount); ...Ersatzcode 3
... UNTIL DropShipPostBuffer.NEXT = 0; IF Invoice THEN BEGIN // Post sales and VAT to G/L entries from posting buffer LineCount := 0; // Add the following line. GenJnlPostLine.SetTotalAmountForTax(TotalAmountForTax); // End of the added line. IF InvPostingBuffer[1].FIND('+') THEN REPEAT LineCount := LineCount + 1; Window.UPDATE(3,LineCount); ...Vorhandener Code 4
... RunGenJnlPostLine(GenJnlLine,InvPostingBuffer[1]."Dimension Entry No."); GenJnlLine."Account Type" := GenJnlLine."Account Type"::"G/L Account"; GenJnlLine.VALIDATE("FA Posting Type",GenJnlLine."FA Posting Type"::" "); UNTIL InvPostingBuffer[1].NEXT(-1) = 0; InvPostingBuffer[1].DELETEALL; // Post customer entry Window.UPDATE(4,1); GenJnlLine.INIT; ...Ersatzcode 4
... RunGenJnlPostLine(GenJnlLine,InvPostingBuffer[1]."Dimension Entry No."); GenJnlLine."Account Type" := GenJnlLine."Account Type"::"G/L Account"; GenJnlLine.VALIDATE("FA Posting Type",GenJnlLine."FA Posting Type"::" "); UNTIL InvPostingBuffer[1].NEXT(-1) = 0; // Add the following lines. TotalAmountForTax := 0; GenJnlPostLine.SetTotalAmountForTax(TotalAmountForTax); // End of the added lines. InvPostingBuffer[1].DELETEALL; // Post customer entry Window.UPDATE(4,1); GenJnlLine.INIT; ...Ändern Sie den Code in Eigenschaften in der Codeeinheit (90) wie folgt:
Vorhandener Code 1... ICInboxPurchHdr@1012 : Record 436; SalesHeader@1041 : Record 36; UpdateAnalysisView@1002 : Codeunit 410; UpdateItemAnalysisView@1008 : Codeunit 7150; CostBaseAmount@1003 : Decimal; TrackingSpecificationExists@1010 : Boolean; EndLoop@1009 : Boolean; TempPrePmtAmtToDeduct@1004 : Decimal; BEGIN IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN ...Ersetzungscode 1
... ICInboxPurchHdr@1012 : Record 436; SalesHeader@1041 : Record 36; UpdateAnalysisView@1002 : Codeunit 410; UpdateItemAnalysisView@1008 : Codeunit 7150; CostBaseAmount@1003 : Decimal; // Add the following line. TotalAmountForTax@1217 : Decimal; // End of the added line. TrackingSpecificationExists@1010 : Boolean; EndLoop@1009 : Boolean; TempPrePmtAmtToDeduct@1004 : Decimal; BEGIN IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN ...Vorhandener Code 2
... RoundingLineInserted := FALSE; MergePurchLines(PurchHeader,PurchLine,TempPrepmtPurchLine,CombinedPurchLineTemp); TempVATAmountLineRemainder.DELETEALL; PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine); IF PurchLine.FINDSET THEN REPEAT JobPurchLine := PurchLine; ItemJnlRollRndg := FALSE; LineCount := LineCount + 1; ...Ersetzungscode 2
... RoundingLineInserted := FALSE; MergePurchLines(PurchHeader,PurchLine,TempPrepmtPurchLine,CombinedPurchLineTemp); TempVATAmountLineRemainder.DELETEALL; PurchLine.CalcVATAmountLines(1,PurchHeader,CombinedPurchLineTemp,TempVATAmountLine); // Add the following line. TotalAmountForTax := PurchLine.GetTotalAmount; // End of the added line. IF PurchLine.FINDSET THEN REPEAT JobPurchLine := PurchLine; ItemJnlRollRndg := FALSE; LineCount := LineCount + 1; ...Vorhandener Code 3
... UNTIL DropShptPostBuffer.NEXT = 0; IF Invoice THEN BEGIN // Post purchase and VAT to G/L entries from buffer LineCount := 0; IF InvPostingBuffer[1].FIND('+') THEN REPEAT LineCount := LineCount + 1; IF GUIALLOWED THEN Window.UPDATE(3,LineCount); ...Ersatzcode 3
... UNTIL DropShptPostBuffer.NEXT = 0; IF Invoice THEN BEGIN // Post purchase and VAT to G/L entries from buffer LineCount := 0; // Add the following line. GenJnlPostLine.SetTotalAmountForTax(TotalAmountForTax); // End of the added line. IF InvPostingBuffer[1].FIND('+') THEN REPEAT LineCount := LineCount + 1; IF GUIALLOWED THEN Window.UPDATE(3,LineCount); ...Vorhandener Code 4
... GenJnlLine."Use Duplication List" := InvPostingBuffer[1]."Use Duplication List"; END; RunGenJnlPostLine(GenJnlLine,InvPostingBuffer[1]."Dimension Entry No."); UNTIL InvPostingBuffer[1].NEXT(-1) = 0; InvPostingBuffer[1].DELETEALL; // Check External Document number IF PurchSetup."Ext. Doc. No. Mandatory" OR (GenJnlLineExtDocNo <> '') ...Ersatzcode 4
... GenJnlLine."Use Duplication List" := InvPostingBuffer[1]."Use Duplication List"; END; RunGenJnlPostLine(GenJnlLine,InvPostingBuffer[1]."Dimension Entry No."); UNTIL InvPostingBuffer[1].NEXT(-1) = 0; // Add the following lines. TotalAmountForTax := 0; GenJnlPostLine.SetTotalAmountForTax(TotalAmountForTax); // End of the added lines. InvPostingBuffer[1].DELETEALL; // Check External Document number IF PurchSetup."Ext. Doc. No. Mandatory" OR (GenJnlLineExtDocNo <> '') ...Ändern Sie den Code in Global Variables in der Codeunit (398) wie folgt:
Vorhandener Code... TaxDetail@1006 : Record 322; TMPTaxDetail@1007 : TEMPORARY Record 322; ExchangeFactor@1008 : Decimal; TotalTaxAmountRounding@1009 : Decimal; TotalForAllocation@1010 : Decimal; RemainingTaxDetails@1011 : Integer; LastCalculationOrder@1012 : Integer; Initialised@1013 : Boolean; FirstLine@1014 : Boolean; TaxOnTaxCalculated@1015 : Boolean; ...Ersetzungscode
... TaxDetail@1006 : Record 322; TMPTaxDetail@1007 : TEMPORARY Record 322; ExchangeFactor@1008 : Decimal; TotalTaxAmountRounding@1009 : Decimal; TotalForAllocation@1010 : Decimal; // Add the following lines. TotalAmountForTax@1117 : Decimal; TotalLineAmountForTax@1120 : Decimal; // End of the added lines. RemainingTaxDetails@1011 : Integer; LastCalculationOrder@1012 : Integer; Initialised@1013 : Boolean; FirstLine@1014 : Boolean; TaxOnTaxCalculated@1015 : Boolean; ...Ändern Sie den Code in der Funktion InitSalesTaxLines in der Codeunit (398) wie folgt:
Vorhandener Code 1... IF TaxDetail."Calculate Tax on Tax" THEN TaxBaseAmount := Amount + TaxAmount ELSE TaxBaseAmount := Amount; IF TaxLiable THEN BEGIN // Delete the following lines. IF (ABS(TaxBaseAmount) <= TaxDetail."Maximum Amount/Qty.") OR (TaxDetail."Maximum Amount/Qty." = 0) THEN AddedTaxAmount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100 ELSE BEGIN MaxAmount := TaxBaseAmount / ABS(TaxBaseAmount) * TaxDetail."Maximum Amount/Qty."; AddedTaxAmount := ((MaxAmount * TaxDetail."Tax Below Maximum") + ((TaxBaseAmount - MaxAmount) * TaxDetail."Tax Above Maximum")) / 100; // End of the deleted lines. END; END ELSE AddedTaxAmount := 0; TaxAmount := TaxAmount + AddedTaxAmount; TMPTaxDetail := TaxDetail; ...Ersetzungscode 1
... IF TaxDetail."Calculate Tax on Tax" THEN TaxBaseAmount := Amount + TaxAmount ELSE TaxBaseAmount := Amount; IF TaxLiable THEN BEGIN // Add the following lines. IF (TaxDetail."Maximum Amount/Qty." = 0) THEN AddedTaxAmount := TaxBaseAmount * TaxDetail."Tax Below Maximum" / 100 ELSE BEGIN MaxAmount := TaxBaseAmount / ABS(TaxBaseAmount) * TaxDetail."Maximum Amount/Qty."; IF TotalAmountForTax = 0 THEN TotalAmountForTax := 1; AddedTaxAmount := (((TaxDetail."Tax Below Maximum" - TaxDetail."Tax Above Maximum") * MaxAmount / 100) * TotalLineAmountForTax / TotalAmountForTax) + (TaxBaseAmount * TaxDetail."Tax Above Maximum") / 100 // End of the added lines. END; END ELSE AddedTaxAmount := 0; TaxAmount := TaxAmount + AddedTaxAmount; TMPTaxDetail := TaxDetail; ...Vorhandener Code 2
... RemainingTaxDetails := RemainingTaxDetails + 1; END; TaxDetail.SETRANGE("Tax Type",TaxDetail."Tax Type"::"Excise Tax"); IF TaxDetail.FIND('+') AND ((TaxDetail."Tax Below Maximum" <> 0) OR (TaxDetail."Tax Above Maximum" <> 0)) THEN BEGIN IF TaxLiable THEN BEGIN // Delete the following lines. IF (ABS(Quantity) <= TaxDetail."Maximum Amount/Qty.") OR (TaxDetail."Maximum Amount/Qty." = 0) THEN AddedTaxAmount := Quantity * TaxDetail."Tax Below Maximum" ELSE BEGIN MaxAmount := Quantity / ABS(Quantity) * TaxDetail."Maximum Amount/Qty."; AddedTaxAmount := (MaxAmount * TaxDetail."Tax Below Maximum") + ((Quantity - MaxAmount) * TaxDetail."Tax Above Maximum"); // End of the deleted lines. END; END ELSE AddedTaxAmount := 0; TaxAmount := TaxAmount + AddedTaxAmount; TMPTaxDetail := TaxDetail; ...Ersetzungscode 2
... RemainingTaxDetails := RemainingTaxDetails + 1; END; TaxDetail.SETRANGE("Tax Type",TaxDetail."Tax Type"::"Excise Tax"); IF TaxDetail.FIND('+') AND ((TaxDetail."Tax Below Maximum" <> 0) OR (TaxDetail."Tax Above Maximum" <> 0)) THEN BEGIN IF TaxLiable THEN BEGIN // Add the following lines. IF (TaxDetail."Maximum Amount/Qty." = 0) THEN AddedTaxAmount := Quantity * TaxDetail."Tax Below Maximum" ELSE BEGIN MaxAmount := Quantity / ABS(Quantity) * TaxDetail."Maximum Amount/Qty."; IF TotalAmountForTax = 0 THEN TotalAmountForTax := 1; AddedTaxAmount := (((TaxDetail."Tax Below Maximum" - TaxDetail."Tax Above Maximum") * MaxAmount / 100) * TotalLineAmountForTax / TotalAmountForTax) + (Quantity * TaxDetail."Tax Above Maximum") / 100 // End of the added lines. END; END ELSE AddedTaxAmount := 0; TaxAmount := TaxAmount + AddedTaxAmount; TMPTaxDetail := TaxDetail; ...Ändern Sie den Code in der SetAmount-Funktion in der codeunit (398) wie folgt:
Vorhandener Code... TaxDetail2 := TMPTaxDetail; EXIT(TRUE); END; BEGIN END. } } ...Ersetzungscode
... TaxDetail2 := TMPTaxDetail; EXIT(TRUE); END; // Add the following lines. PROCEDURE SetAmount@1107(TotalAmountForTax2@1118 : Decimal;TotalLineAmountForTax2@1119 : Decimal); BEGIN TotalAmountForTax := TotalAmountForTax2; TotalLineAmountForTax := TotalLineAmountForTax2; END; // End of the added lines. BEGIN END. } } ...
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.