Ten artykuł dotyczy funkcji Microsoft Dynamics NAV dla wszystkich krajów i wszystkich ustawień regionalnych języków.
Objawy
Załóżmy, że dla magistrali VAT ustawiono pole Typ obliczania podatku VAT. Księgowanie wartości GroupNATIONAL, w której jest określony kod VAT Prod. Wartość grupy księgowanianie zawiera podatku VAT w oknie dialogowym Karta konfiguracji księgowania podatku VAT w programie Microsoft Dynamics NAV 2009. Numer kierunkowy podatku od sprzedaży można zdefiniować przy użyciu kodu jurysdykcji podatku od sprzedaży, który zawiera maksymalną kwotę, i utworzyć klienta przy użyciu kodu kierunkowego podatku od sprzedaży. Następnie do zamówienia sprzedaży są dodawane dwa wiersze zamówień sprzedaży o dwóch różnych wymiarach globalnych. W takiej sytuacji po opublikowaniu zamówienia sprzedaży klienta przy użyciu opcji Wysyłka i faktura jest wyświetlany następujący komunikat o błędzie:
Uwaga
Kwota podatku od sprzedaży dla kodu kierunkowego Kodeksu1 podatku i kodu grupy podatkowej Code2 jest nieprawidłowa. Obliczona kwota podatku od sprzedaży to Kwota1, ale powinna to być kwota2.
Ten problem występuje w następujących produktach:
- Microsoft Dynamics NAV 2009 R2
- Dodatek Service Pack 1 (SP1) dla oprogramowania Microsoft Dynamics NAV 2009
Rozwiązanie
Informacje dotyczące poprawek
Obsługiwana poprawka jest teraz dostępna od firmy Microsoft. Jednak jego celem jest tylko naprawienie problemu opisanego w tym artykule. Zastosuj ją tylko do systemów, w których występuje ten konkretny problem. Ta poprawka może wymagać dodatkowych testów. Dlatego jeśli ten problem cię nie dotyczy poważnie, zalecamy poczekanie na kolejny dodatek Service Pack dla oprogramowania Microsoft Dynamics NAV 2009 lub następną wersję microsoft Dynamics NAV zawierającą tę poprawkę.
Uwaga W specjalnych przypadkach opłaty, które zwykle naliczane są w związku z połączeniami pomocy technicznej, mogą zostać anulowane, jeśli specjalista pomocy technicznej w zakresie oprogramowania Microsoft Dynamics i produktów pokrewnych ustali, że określona aktualizacja rozwiąże problem. Typowe koszty pomocy technicznej będą miały zastosowanie do dodatkowych pytań dotyczących pomocy technicznej i problemów, które nie kwalifikują się do określonej aktualizacji.
Informacje o instalacji
Firma Microsoft udostępnia przykłady programowania wyłącznie w celach ilustracyjnych, bez gwarancji wyrażonej lub dorozumianej. To obejmuje między innymi dorozumiane gwarancje przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że znasz język programowania, który jest demonstrowany, oraz narzędzia, które są używane do tworzenia i debugowania procedur. Inżynierowie pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu funkcjonalności danej procedury. Nie będą jednak modyfikować tych przykładów, aby zapewnić dodatkową funkcjonalność lub konstruować procedur spełniających specyficzne wymagania użytkownika.
Uwaga Przed zainstalowaniem tej poprawki upewnij się, że wszyscy użytkownicy kliencki programu Microsoft Dynamics NAV wylogowali się z systemu. Dotyczy to usług Microsoft Dynamics NAV Application Server (NAS). Należy być jedynym użytkownikiem klienckim, który jest zalogowany podczas implementowania tej poprawki.
Aby zaimplementować tę poprawkę, musisz mieć licencję dewelopera.
Zalecamy przypisanie do konta użytkownika w oknie Logowania systemu Windows lub w oknie Logowania bazy danych identyfikator roli "SUPER". Jeśli do konta użytkownika nie można przypisać identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:
Uprawnienie Modyfikuj dla obiektu, który ma zostać zmieniony.
Uprawnienie Execute dla obiektu System Object ID 5210 i identyfikatora obiektu systemowego 9015
Obiektu.
Uwaga Nie musisz mieć praw do magazynów danych, chyba że musisz wykonać naprawę danych.
Zmiany kodu
Uwaga Przed zastosowaniem poprawek do komputerów produkcyjnych należy zawsze testować poprawki kodu w środowisku kontrolowanym.
Aby rozwiązać ten problem, wykonaj następujące czynności:
Zmień kod zmiennych globalnych w tabeli (37) w następujący sposób:
Istniejący 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"; ...Kod zastępczy
... 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"; ...Zmień kod w funkcji CalcVATAmountLines w tabeli (37) w następujący sposób:
Istniejący 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"), ...Kod zastępczy
... "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"), ...Zmień kod w funkcji GetTotalAmount w tabeli (37) w następujący sposób:
Istniejący kod... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Kod zastępczy
... 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. } } ...Zmień kod zmiennych globalnych w tabeli (39) w następujący sposób:
Istniejący 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"; ...Kod zastępczy
... 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"; ...Zmień kod w funkcji CalcVATAmountLines w tabeli (39) w następujący sposób:
Istniejący 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( ...Kod zastępczy
... "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( ...Zmień kod w funkcji GetTotalAmount w tabeli (39) w następujący sposób:
Istniejący kod... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Kod zastępczy
... 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. } } ...Zmień kod zmiennych globalnych w koderach-dekoderach (12) w następujący sposób:
Istniejący 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'; ...Kod zastępczy
... 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'; ...Zmień kod w funkcji PostVAT w kodeunit (12) w następujący sposób:
Istniejący 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); ...Kod zastępczy
... 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); ...Zmień kod w funkcji SetTotalAmountForTax w koderze (12) w następujący sposób:
Istniejący kod... IF ABS(Decimal1) < ABS(Decimal2) THEN EXIT(Decimal1); EXIT(Decimal2); END; BEGIN END. } } ...Kod zastępczy
... 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. } } ...Zmień kod w oknie Właściwości w kodeunit (80) w następujący sposób:
Istniejący 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; ...Kod zastępczy 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; ...Istniejący 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); ...Kod zastępczy 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); ...Istniejący 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); ...Kod zastępczy 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); ...Istniejący 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; ...Kod zastępczy 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; ...Zmień kod w oknie Właściwości w koderach-dekoderach (90) w następujący sposób:
Istniejący 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 ...Kod zastępczy 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 ...Istniejący 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; ...Kod zastępczy 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; ...Istniejący 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); ...Kod zastępczy 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); ...Istniejący 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 <> '') ...Kod zastępczy 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 <> '') ...Zmień kod zmiennych globalnych w koderach-dekoderach (398) w następujący sposób:
Istniejący 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; ...Kod zastępczy
... 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; ...Zmień kod w funkcji InitSalesTaxLines w koderze (398) w następujący sposób:
Istniejący 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; ...Kod zastępczy 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; ...Istniejący 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; ...Kod zastępczy 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; ...Zmień kod w funkcji SetAmount w koderze (398) w następujący sposób:
Istniejący kod... TaxDetail2 := TMPTaxDetail; EXIT(TRUE); END; BEGIN END. } } ...Kod zastępczy
... 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. } } ...
Wymagania wstępne
Aby zastosować tę poprawkę, musisz mieć zainstalowany jeden z następujących produktów:
- Microsoft Dynamics NAV 2009 R2
- Dodatek Service Pack 1 dla oprogramowania Microsoft Dynamics NAV 2009
Informacje o usunięciu
Nie można usunąć tej poprawki.
Stan
Firma Microsoft potwierdziła, że jest to problem dotyczący produktów firmy Microsoft wymienionych w sekcji „Dotyczy”.
Uwaga Jest to artykuł "SZYBKIE PUBLIKOWANIE" utworzony bezpośrednio z poziomu organizacji pomocy technicznej firmy Microsoft. Informacje zawarte w niniejszym artykule są dostarczane w stanie odpowiadającym na pojawiające się problemy. Ze względu na szybkość jego udostępnienia materiały mogą zawierać błędy typograficzne i mogą zostać poprawione w dowolnym momencie bez powiadomienia. Zobacz Warunki użytkowania , aby zapoznać się z innymi zagadnieniami.