Den här artikeln gäller Microsoft Dynamics NAV för alla länder och alla språkspråk.
Symptom
Anta att du ställer in fältet Typ av momsberäkning på Moms för momsbussen. Bokför gruppNATIONAL där momsdeklarationen. Bokför gruppvärdet är INGEN moms i dialogrutan Momsregistreringskort i Microsoft Dynamics NAV 2009. Du definierar ett områdesnummer för moms genom att använda en jurisdiktionskod för moms som har ett högsta belopp och skapa en kund med hjälp av riktnumret för moms. Sedan lägger du till två försäljningsorderrader som har två olika globala dimensioner i en försäljningsorder. I det här fallet får du följande felmeddelande när du bokför försäljningsordern för kunden med hjälp av alternativet Leverans och faktura :
Obs
Momsbeloppet för kod1-momsområdeskoden och kod2-skattegruppkoden är felaktiga. Det beräknade momsbeloppet är Belopp1, men skulle vara Belopp2.
Det här problemet uppstår i följande produkter:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Lösning
Snabbkorrigeringsinformation
En snabbkorrigering som stöds är nu tillgänglig från Microsoft. Det är dock bara avsett att åtgärda problemet som beskrivs i den här artikeln. Använd den bara på system som har det här specifika problemet. Den här snabbkorrigeringen kan få ytterligare tester. Om du inte drabbas hårt av det här problemet rekommenderar vi därför att du väntar på nästa Microsoft Dynamics NAV 2009 Service Pack eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.
Obs! I särskilda fall kan avgifter som vanligtvis uppkommer för supportsamtal avbrytas om en teknisk supporttekniker för Microsoft Dynamics och relaterade produkter fastställer att en specifik uppdatering löser problemet. De vanliga supportkostnaderna gäller för ytterligare supportfrågor och problem som inte är berättigade till den aktuella uppdateringen.
Installationsinformation
Microsoft tillhandahåller endast programmeringsexempel i visningssyfte, utan att någon form av garanti uttrycks eller är underförstådd. Detta omfattar men är inte begränsat till underförstådda garantier för säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa till att förklara funktionerna i en viss procedur. De kommer dock inte att ändra dessa exempel för att tillhandahålla ytterligare funktioner eller konstruktionsprocedurer för att uppfylla dina specifika krav.
Obs! Innan du installerar den här snabbkorrigeringen kontrollerar du att alla Microsoft Dynamics NAV-klientanvändare loggas ut från systemet. Detta omfattar NAS-tjänster (Microsoft Dynamics NAV Application Server). Du bör vara den enda klientanvändare som är inloggad när du implementerar snabbkorrigeringen.
Om du vill implementera den här snabbkorrigeringen måste du ha en utvecklarlicens.
Vi rekommenderar att användarkontot i fönstret Windows-inloggningar eller i fönstret Databasinloggningar tilldelas roll-ID:t "SUPER". Om användarkontot inte kan tilldelas superroll-ID måste du kontrollera att användarkontot har följande behörigheter:
Behörigheten Ändra för det objekt som du kommer att ändra.
Körbehörigheten för systemobjekt-ID 5210-objektet och för systemobjekt-ID 9015
Objekt.
Obs! Du behöver inte ha rättigheter till datakällorna om du inte behöver utföra datareparation.
Kodändringar
Obs! Testa alltid korrigeringar av kod i en kontrollerad miljö innan du tillämpar korrigeringarna på produktionsdatorerna.
Lös problemet genom att följa de här stegen:
Ändra koden i Globala variabler i tabellen (37) enligt följande:
Befintlig kod... 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"; ...Ersättningskod
... 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"; ...Ändra koden i funktionen CalcVATAmountLines i tabellen (37) enligt följande:
Befintlig kod... "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"), ...Ersättningskod
... "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"), ...Ändra koden i funktionen GetTotalAmount i tabellen (37) på följande sätt:
Befintlig kod... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Ersättningskod
... 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. } } ...Ändra koden i Globala variabler i tabellen (39) enligt följande:
Befintlig kod... 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"; ...Ersättningskod
... 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"; ...Ändra koden i funktionen CalcVATAmountLines i tabellen (39) enligt följande:
Befintlig kod... "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( ...Ersättningskod
... "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( ...Ändra koden i funktionen GetTotalAmount i tabellen (39) enligt följande:
Befintlig kod... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Ersättningskod
... 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. } } ...Ändra koden i Globala variabler i koduniten (12) på följande sätt:
Befintlig kod... 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'; ...Ersättningskod
... 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'; ...Ändra koden i funktionen PostVAT i koduniten (12) enligt följande:
Befintlig kod... 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); ...Ersättningskod
... 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); ...Ändra koden i funktionen SetTotalAmountForTax i codeunit (12) på följande sätt:
Befintlig kod... IF ABS(Decimal1) < ABS(Decimal2) THEN EXIT(Decimal1); EXIT(Decimal2); END; BEGIN END. } } ...Ersättningskod
... 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. } } ...Ändra koden i Egenskaper i koduniten (80) på följande sätt:
Befintlig kod 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; ...Ersättningskod 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; ...Befintlig kod 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); ...Ersättningskod 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); ...Befintlig kod 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); ...Ersättningskod 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); ...Befintlig kod 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; ...Ersättningskod 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; ...Ändra koden i Egenskaper i koduniten (90) på följande sätt:
Befintlig kod 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 ...Ersättningskod 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 ...Befintlig kod 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; ...Ersättningskod 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; ...Befintlig kod 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); ...Ersättningskod 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); ...Befintlig kod 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 <> '') ...Ersättningskod 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 <> '') ...Ändra koden i Globala variabler i koduniten (398) på följande sätt:
Befintlig kod... 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; ...Ersättningskod
... 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; ...Ändra koden i funktionen InitSalesTaxLines i koduniten (398) enligt följande:
Befintlig kod 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; ...Ersättningskod 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; ...Befintlig kod 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; ...Ersättningskod 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; ...Ändra koden i funktionen SetAmount i codeunit (398) på följande sätt:
Befintlig kod... TaxDetail2 := TMPTaxDetail; EXIT(TRUE); END; BEGIN END. } } ...Ersättningskod
... 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. } } ...
Krav
Du måste ha någon av följande produkter installerade för att kunna använda den här snabbkorrigeringen:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Information om borttagning
Du kan inte ta bort den här snabbkorrigeringen.
Status
Microsoft har bekräftat att detta är ett problem i de Microsoft-produkter som anges i avsnittet "Gäller".
Obs! Det här är en "FAST PUBLISH"-artikel som skapats direkt från Microsofts supportorganisation. Den information som finns häri tillhandahålls i befintligt format som svar på framväxande problem. Till följd av hur snabbt materialet blir tillgängligt kan materialet innehålla typografiska fel och kan komma att revideras när som helst utan föregående meddelande. Se användningsvillkor för andra överväganden.