Acest articol se aplică la Microsoft Dynamics NAV pentru toate țările și setările regionale de limbă.
Simptome
Să presupunem că ați setat câmpul Tip de calcul TVA la Taxă pe vânzări pentru magistrala TVA. Grupul de postareNATIONAL în care valoarea produsului TVA. Valoarea grupului de postare nu este FĂRĂ TVA în caseta de dialog Fișă de configurare pentru publicarea TVA din Microsoft Dynamics NAV 2009. Definiți un cod de zonă de impozit pe vânzări utilizând un cod de jurisdicție pentru impozitul pe vânzări care are o valoare maximă și creați un client utilizând prefixul de taxă pe vânzări. Apoi adăugați la o comandă de vânzări două linii de comandă de vânzări care au două dimensiuni globale diferite. În această situație, atunci când înregistrați comanda de vânzări pentru client utilizând opțiunea Livrare și factură , primiți următorul mesaj de eroare:
Notă
Valoarea taxei de vânzare pentru codul de zonă fiscală Code1 și codul grupului fiscal Code2 este incorectă. Valoarea calculată a taxei de vânzare este Suma1, dar trebuia să fie Cantitatea2.
Această problemă apare în cazul următoarelor produse:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Rezolvare
Informații despre remedierea rapidă
O remediere rapidă acceptată este acum disponibilă de la Microsoft. Însă, scopul său este doar să corecteze problema descrisă în acest articol. Aplicați-o doar sistemelor care se confruntă cu această problemă specifică. Această remediere rapidă poate fi testată suplimentar. De aceea, dacă această problemă nu vă afectează grav, vă recomandăm să așteptați următorul pachet Service Pack Microsoft Dynamics NAV 2009 sau versiunea următoare Microsoft Dynamics NAV care conține această remediere rapidă.
Notă În cazuri speciale, costurile implicate de obicei pentru apelurile de asistență pot fi revocate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produsele asociate stabilește că o anumită actualizare va rezolva problema. Costurile uzuale de suport se vor aplica pentru întrebări suplimentare de suport și pentru probleme ce nu fac obiectul actualizării în chestiune.
Informații despre instalare
Microsoft oferă exemple de programare numai în scop ilustrativ, fără nicio garanție explicită sau implicită. Aceasta include, dar nu se limitează la, garanțiile implicite de vandabilitate sau adecvare pentru un anumit scop. Acest articol presupune că sunteți familiarizat cu limbajul de programare prezentat și cu instrumentele utilizate pentru a crea și a depana proceduri. Inginerii de asistență Microsoft vă pot ajuta să explicați funcționalitatea unei anumite proceduri. Totuși, nu vor modifica aceste exemple pentru a furniza funcționalitate suplimentară și nu vor construi proceduri pentru a răspunde cerințelor dvs. specifice.
Notă Înainte de a instala această remediere rapidă, verificați dacă toți utilizatorii clientului Microsoft Dynamics NAV sunt deconectați de la sistem. Printre acestea se numără serviciile Microsoft Dynamics NAV Application Server (NAS). Ar trebui să fiți singurul utilizator client conectat atunci când implementați această remediere rapidă.
Pentru a implementa această remediere rapidă, trebuie să aveți o licență de dezvoltator.
Recomandăm ca contului de utilizator din fereastra Conectări Windows sau din fereastra Conectări bază de date să primească ID-ul de rol "SUPER". În cazul în care contului de utilizator nu i se poate atribui ID-ul de rol "SUPER", trebuie să verificați dacă acel cont de utilizator are următoarele permisiuni:
Permisiunea Modificare pentru obiectul pe care îl veți modifica.
Permisiunea de executare pentru obiectul cu ID obiect de sistem 5210 și pentru ID obiect de sistem 9015
obiect.
Notă: nu trebuie să aveți drepturi asupra depozitelor de date decât dacă trebuie să efectuați repararea datelor.
Modificări de cod
Notă: testați întotdeauna remedierile de cod într-un mediu controlat înainte de a aplica remedierile la computerele de producție.
Pentru a rezolva această problemă, urmați acești pași:
Modificați codul din Variabilele globale din tabelul (37) după cum urmează:
Cod existent... 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"; ...Codul de înlocuire
... 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"; ...Modificați codul din funcția CalcVATAmountLines din tabelul (37) după cum urmează:
Cod existent... "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"), ...Codul de înlocuire
... "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"), ...Modificați codul din funcția GetTotalAmount din tabelul (37) după cum urmează:
Cod existent... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Codul de înlocuire
... 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. } } ...Modificați codul din Variabilele globale din tabelul (39) după cum urmează:
Cod existent... 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"; ...Codul de înlocuire
... 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"; ...Modificați codul din funcția CalcVATAmountLines din tabelul (39) după cum urmează:
Cod existent... "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( ...Codul de înlocuire
... "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( ...Modificați codul din funcția GetTotalAmount din tabelul (39) după cum urmează:
Cod existent... IF "Qty. to Invoice" = 0 THEN EXIT(TRUE); EXIT(FALSE); END; BEGIN END. } } ...Codul de înlocuire
... 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. } } ...Modificați codul din Variabilele globale în unitatea de cod (12) după cum urmează:
Cod existent... 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'; ...Codul de înlocuire
... 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'; ...Modificați codul din funcția PostVAT din unitatea de cod (12) după cum urmează:
Cod existent... 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); ...Codul de înlocuire
... 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); ...Modificați codul din funcția SetTotalAmountForTax din unitatea de cod (12) după cum urmează:
Cod existent... IF ABS(Decimal1) < ABS(Decimal2) THEN EXIT(Decimal1); EXIT(Decimal2); END; BEGIN END. } } ...Codul de înlocuire
... 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. } } ...Modificați codul din Proprietăți în codeunit (80) după cum urmează:
Cod existent 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; ...Codul de înlocuire 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; ...Cod existent 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); ...Codul de înlocuire 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); ...Cod existent 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); ...Codul de înlocuire 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); ...Cod existent 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; ...Codul de înlocuire 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; ...Modificați codul din Proprietăți în unitatea de cod (90) după cum urmează:
Cod existent 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 ...Cod de înlocuire 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 ...Cod existent 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; ...Codul de înlocuire 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; ...Cod existent 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); ...Codul de înlocuire 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); ...Cod existent 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 <> '') ...Codul de înlocuire 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 <> '') ...Modificați codul din Variabile globale în unitatea de cod (398) după cum urmează:
Cod existent... 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; ...Codul de înlocuire
... 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; ...Modificați codul din funcția InitVânzăriTaxLines din unitatea de cod (398) după cum urmează:
Cod existent 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; ...Cod de înlocuire 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; ...Cod existent 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; ...Codul de înlocuire 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; ...Modificați codul din funcția SetAmount din unitatea de cod (398) după cum urmează:
Cod existent... TaxDetail2 := TMPTaxDetail; EXIT(TRUE); END; BEGIN END. } } ...Codul de înlocuire
... 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. } } ...
Cerințe preliminare
Trebuie să aveți instalat unul dintre următoarele produse pentru a aplica această remediere rapidă:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Eliminarea informațiilor
Nu puteți elimina această remediere rapidă.
Stare
Microsoft a confirmat că aceasta este o problemă în produsele Microsoft care sunt listate în secțiunea „Se aplică la”.
Notă: Acesta este un articol "PUBLICARE RAPIDĂ" creat direct din cadrul organizației de asistență Microsoft. Informațiile din acest document sunt furnizate ca atare ca răspuns la problemele apărute. Ca urmare a vitezei de punere la dispoziție, materialele pot include erori tipografice și pot fi revizuite în orice moment fără preaviz. Consultați Condițiile de utilizare pentru alte considerente.