Tento článok sa vzťahuje na spoločnosť Microsoft v nasledujúcich krajinách a miestnych jazykoch.
- angličtina (Kanada) (en-ca)
- angličtina (USA) (en-us)
- španielčina (Mexiko) (es-mx)
- francúzština (Kanada) (fr-ca)
Príznaky
Predpokladajme, že v severoamerickej verzii systému Microsoft Dynamics NAV 2009 nastavíte CAD ako hodnotu ďalšej meny vykazovania. Pri odoslaní faktúry za nákup, ktorá obsahuje daň, sa zobrazí toto chybové hlásenie:
Poznámka
Transakciu nie je možné dokončiť, pretože spôsobí nekonzistencie v tabuľke položiek hlavnej aktualizácie. Skontrolujte, kde a ako sa funkcia CONSISTENT používa v transakcii, a nájdite príčinu chyby.
Tento problém sa vyskytuje v nasledujúcich produktoch:
- Severoamerická verzia systému Microsoft Dynamics NAV 2009 R2
- Severoamerická verzia balíka Microsoft Dynamics NAV 2009 Service Pack 1
Riešenie
Informácie o rýchlych opravách
Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 2009 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu hotfix.
Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.
Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.
Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.
Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:
- Povolenie Upraviť pre objekt, ktorý budete meniť.
- Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.
Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.
Zmeny kódu
Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:
Zmeňte kód v poliach v tabuľke Riadok čiastky dane z predaja (10011) takto:
Existujúci kód... ESM=Es Informe jurisdicci¢n; FRC=Est une juridiction fiscale; ENC=Is Report-to Jurisdiction]; Editable=No } } KEYS { { ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax; ...Náhradný kód
... ESM=Es Informe jurisdicci¢n; FRC=Est une juridiction fiscale; ENC=Is Report-to Jurisdiction]; Editable=No } // Add the following line. { 10044; ;Tax Base Amount FCY ;Decimal } // End of the added line. } KEYS { { ;Tax Area Code for Key,Tax Jurisdiction Code,Tax %,Tax Group Code,Expense/Capitalize,Tax Type,Use Tax; ...Zmeňte kód vo funkcii PostSalesTaxToGL v kódovej jednotke Sales-Post (80) takto:
Existujúci kód... END; GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code"; IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN RemSalesTaxSrcAmt := RemSalesTaxSrcAmt + // Delete the following lines. CurrExchRate.ExchangeAmtLCYToFCY( UseDate,SalesHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",SalesHeader."Currency Factor"); // End of the deleted lines. GenJnlLine."Source Curr. VAT Amount" := SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision"); RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount"; RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount"; ...Náhradný kód
... END; GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code"; IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN RemSalesTaxSrcAmt := RemSalesTaxSrcAmt + // Add the following lines. TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100; // End of the added lines. GenJnlLine."Source Curr. VAT Amount" := SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision"); RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount"; RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount"; ...Zmeňte kód vo funkcii PostSalesTaxToGL v položke Nákup.-Post Codeunit (90) takto:
Existujúci kód... END; GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code"; IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN RemSalesTaxSrcAmt := RemSalesTaxSrcAmt + // Delete the following lines. CurrExchRate.ExchangeAmtLCYToFCY( Usedate,PurchHeader."Currency Code",TempSalesTaxAmtLine."Tax Amount",PurchHeader."Currency Factor"); // End of the deleted lines. GenJnlLine."Source Curr. VAT Amount" := SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision"); RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount"; RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount"; ...Náhradný kód
... END; GenJnlLine."Tax Jurisdiction Code" := TempSalesTaxAmtLine."Tax Jurisdiction Code"; IF TempSalesTaxAmtLine."Tax Amount" <> 0 THEN BEGIN RemSalesTaxSrcAmt := RemSalesTaxSrcAmt + // Add the following line. TempSalesTaxAmtLine."Tax Base Amount FCY" * TempSalesTaxAmtLine."Tax %" / 100; // End of the added line. GenJnlLine."Source Curr. VAT Amount" := SalesTaxCalculate.ArithmeticRound(RemSalesTaxSrcAmt,Currency."Amount Rounding Precision"); RemSalesTaxSrcAmt := RemSalesTaxSrcAmt - GenJnlLine."Source Curr. VAT Amount"; RemSalesTaxAmt := RemSalesTaxAmt + TempSalesTaxAmtLine."Tax Amount"; ...Zmeňte kód vo funkcii PostProvincialSalesTaxToGL v jednotke Purch.-Post Codeunit (90) takto:
Existujúci kód... TaxJurisdiction.TESTFIELD("Tax Account (Purchases)"); GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)"; END; GenJnlLine.Amount := GenJnlLine."VAT Amount"; // Delete the following lines. GenJnlLine."Source Curr. VAT Base Amount" := 0; GenJnlLine."VAT Base Amount (LCY)" := 0; GenJnlLine."VAT Base Amount" := 0; GenJnlLine."Source Curr. VAT Amount" := 0; // End of the deleted lines. GenJnlLine."VAT Amount (LCY)" := 0; GenJnlLine."VAT Amount" := 0; GenJnlLine.Quantity := 0; GenJnlLine."VAT Difference" := 0; ...Náhradný kód
... TaxJurisdiction.TESTFIELD("Tax Account (Purchases)"); GenJnlLine."Account No." := TaxJurisdiction."Tax Account (Purchases)"; END; GenJnlLine.Amount := GenJnlLine."VAT Amount"; // Add the following lines. GenJnlLine."Source Currency Amount" := GenJnlLine."Source Curr. VAT Amount"; GenJnlLine."Source Curr. VAT Base Amount" := 0; GenJnlLine."VAT Base Amount (LCY)" := 0; GenJnlLine."VAT Base Amount" := 0; // End of the added lines. GenJnlLine."VAT Amount (LCY)" := 0; GenJnlLine."VAT Amount" := 0; GenJnlLine.Quantity := 0; GenJnlLine."VAT Difference" := 0; ...Zmeňte kód vo funkcii AddSalesLine v časti Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Delete the following line. "Tax Base Amount" := (SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor; // End of the deleted line. "Line Amount" := SalesLine."Line Amount" / ExchangeFactor; "Tax Liable" := SalesLine."Tax Liable"; Quantity := SalesLine."Quantity (Base)"; "Invoice Discount Amount" := SalesLine."Inv. Discount Amount"; ...Náhradný kód 1
... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,FALSE); // End of the added line. "Line Amount" := SalesLine."Line Amount" / ExchangeFactor; "Tax Liable" := SalesLine."Tax Liable"; Quantity := SalesLine."Quantity (Base)"; "Invoice Discount Amount" := SalesLine."Inv. Discount Amount"; ...Existujúci kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor); IF SalesLine."Tax Liable" THEN "Tax Liable" := SalesLine."Tax Liable"; // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + ((SalesLine."Line Amount" - SalesLine."Inv. Discount Amount") / ExchangeFactor); // End of the deleted line. "Tax Amount" := 0; Quantity := Quantity + SalesLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount"; MODIFY; ...Náhradný kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesLine."Line Amount" / ExchangeFactor); IF SalesLine."Tax Liable" THEN "Tax Liable" := SalesLine."Tax Liable"; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesLine."Line Amount" - SalesLine."Inv. Discount Amount",ExchangeFactor,TRUE); // End of the added line. "Tax Amount" := 0; Quantity := Quantity + SalesLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + SalesLine."Inv. Discount Amount"; MODIFY; ...Zmeňte kód vo funkcii AddSalesInvoiceLines v položke Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor; // Delete the following line. "Tax Base Amount" := SalesInvoiceLine."VAT Base Amount" / ExchangeFactor; // End of the deleted line. Quantity := SalesInvoiceLine.Quantity; "Tax Liable" := SalesInvoiceLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := SalesInvoiceLine."Line Amount" / ExchangeFactor; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,FALSE); // End of the added line. Quantity := SalesInvoiceLine.Quantity; "Tax Liable" := SalesInvoiceLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (SalesInvoiceLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + SalesInvoiceLine.Quantity; IF SalesInvoiceLine."Tax Liable" THEN "Tax Liable" := SalesInvoiceLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesInvoiceLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesInvoiceLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + SalesInvoiceLine.Quantity; IF SalesInvoiceLine."Tax Liable" THEN "Tax Liable" := SalesInvoiceLine."Tax Liable"; InsertRec := FALSE; ...Zmeňte kód vo funkcii AddSalesCrMemoLines vo funkcii Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor; // Delete the following line. "Tax Base Amount" := SalesCrMemoLine."VAT Base Amount" / ExchangeFactor; // End of the deleted line. Quantity := SalesCrMemoLine.Quantity; "Tax Liable" := SalesCrMemoLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := SalesCrMemoLine."Line Amount" / ExchangeFactor; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE); // End of the added line. Quantity := SalesCrMemoLine.Quantity; "Tax Liable" := SalesCrMemoLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (SalesCrMemoLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + SalesCrMemoLine.Quantity; IF SalesCrMemoLine."Tax Liable" THEN "Tax Liable" := SalesCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (SalesCrMemoLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,SalesCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + SalesCrMemoLine.Quantity; IF SalesCrMemoLine."Tax Liable" THEN "Tax Liable" := SalesCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Zmeňte kód vo funkcii AddPurchLine v položke Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Delete the following line. "Tax Base Amount" := (PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor; // End of the deleted line. "Line Amount" := PurchLine."Line Amount" / ExchangeFactor; "Tax Liable" := PurchLine."Tax Liable"; "Use Tax" := PurchLine."Use Tax"; ...Náhradný kód 1
... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,FALSE); // End of the added line. "Line Amount" := PurchLine."Line Amount" / ExchangeFactor; "Tax Liable" := PurchLine."Tax Liable"; "Use Tax" := PurchLine."Use Tax"; ...Existujúci kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor); IF PurchLine."Tax Liable" THEN "Tax Liable" := PurchLine."Tax Liable"; // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + ((PurchLine."Line Amount" - PurchLine."Inv. Discount Amount") / ExchangeFactor); // End of the deleted line. "Tax Amount" := 0; Quantity := Quantity + PurchLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount"; MODIFY; ...Náhradný kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchLine."Line Amount" / ExchangeFactor); IF PurchLine."Tax Liable" THEN "Tax Liable" := PurchLine."Tax Liable"; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchLine."Line Amount" - PurchLine."Inv. Discount Amount",ExchangeFactor,TRUE); // End of the added line. "Tax Amount" := 0; Quantity := Quantity + PurchLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + PurchLine."Inv. Discount Amount"; MODIFY; ...Zmeňte kód vo funkcii AddPurchInvoiceLines v časti Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor; // Delete the following line. "Tax Base Amount" := PurchInvLine."VAT Base Amount" / ExchangeFactor; // End of the deleted line. Quantity := PurchInvLine.Quantity; "Tax Liable" := PurchInvLine."Tax Liable"; "Use Tax" := PurchInvLine."Use Tax"; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := PurchInvLine."Line Amount" / ExchangeFactor; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,FALSE); // End of the added line. Quantity := PurchInvLine.Quantity; "Tax Liable" := PurchInvLine."Tax Liable"; "Use Tax" := PurchInvLine."Use Tax"; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (PurchInvLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + PurchInvLine.Quantity; IF PurchInvLine."Tax Liable" THEN "Tax Liable" := PurchInvLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchInvLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchInvLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + PurchInvLine.Quantity; IF PurchInvLine."Tax Liable" THEN "Tax Liable" := PurchInvLine."Tax Liable"; InsertRec := FALSE; ...Zmeňte kód vo funkcii AddPurchCrMemoLines v položke Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor; // Delete the following line. "Tax Base Amount" := PurchCrMemoLine."VAT Base Amount" / ExchangeFactor; // End of the deleted line. Quantity := PurchCrMemoLine.Quantity; "Tax Liable" := PurchCrMemoLine."Tax Liable"; "Use Tax" := PurchCrMemoLine."Use Tax"; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := PurchCrMemoLine."Line Amount" / ExchangeFactor; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE); // End of the added line. Quantity := PurchCrMemoLine.Quantity; "Tax Liable" := PurchCrMemoLine."Tax Liable"; "Use Tax" := PurchCrMemoLine."Use Tax"; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (PurchCrMemoLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + PurchCrMemoLine.Quantity; IF PurchCrMemoLine."Tax Liable" THEN "Tax Liable" := PurchCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (PurchCrMemoLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,PurchCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + PurchCrMemoLine.Quantity; IF PurchCrMemoLine."Tax Liable" THEN "Tax Liable" := PurchCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Zmeňte kód vo funkcii AddServiceLine v dani z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Delete the following line. "Tax Base Amount" := (ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor; // End of the deleted line. "Line Amount" := ServiceLine."Line Amount" / ExchangeFactor; "Tax Liable" := ServiceLine."Tax Liable"; Quantity := ServiceLine."Quantity (Base)"; "Invoice Discount Amount" := ServiceLine."Inv. Discount Amount"; ...Náhradný kód 1
... "Round Tax" := TaxArea."Round Tax"; TaxJurisdiction.GET("Tax Jurisdiction Code"); "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,FALSE); // End of the added line. "Line Amount" := ServiceLine."Line Amount" / ExchangeFactor; "Tax Liable" := ServiceLine."Tax Liable"; Quantity := ServiceLine."Quantity (Base)"; "Invoice Discount Amount" := ServiceLine."Inv. Discount Amount"; ...Existujúci kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor); IF ServiceLine."Tax Liable" THEN "Tax Liable" := ServiceLine."Tax Liable"; // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + ((ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount") / ExchangeFactor); // End of the deleted line. "Tax Amount" := 0; Quantity := Quantity + ServiceLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount"; MODIFY; ...Náhradný kód 2
... END ELSE BEGIN "Line Amount" := "Line Amount" + (ServiceLine."Line Amount" / ExchangeFactor); IF ServiceLine."Tax Liable" THEN "Tax Liable" := ServiceLine."Tax Liable"; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,ServiceLine."Line Amount" - ServiceLine."Inv. Discount Amount",ExchangeFactor,TRUE); // End of the added line. "Tax Amount" := 0; Quantity := Quantity + ServiceLine."Quantity (Base)"; "Invoice Discount Amount" := "Invoice Discount Amount" + ServiceLine."Inv. Discount Amount"; MODIFY; ...Zmeňte kód vo funkcii AddServInvoiceLines v položke Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := ServInvLine."Line Amount" / ExchangeFactor; // Delete the following lines. "Tax Base Amount" := ServInvLine."VAT Base Amount" / ExchangeFactor; Quantity := ServInvLine.Quantity; "Tax Liable" := ServInvLine."Tax Liable"; // End of the deleted line. "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; INSERT; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := ServInvLine."Line Amount" / ExchangeFactor; // Add the following lines. SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,FALSE); Quantity := ServInvLine.Quantity; "Tax Liable" := ServInvLine."Tax Liable"; // End of the added lines. "Calculation Order" := TaxAreaLine."Calculation Order"; InsertRec := TRUE; INSERT; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (ServInvLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + ServInvLine.Quantity; IF ServInvLine."Tax Liable" THEN "Tax Liable" := ServInvLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (ServInvLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,ServInvLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + ServInvLine.Quantity; IF ServInvLine."Tax Liable" THEN "Tax Liable" := ServInvLine."Tax Liable"; InsertRec := FALSE; ...Zmeňte kód vo funkcii AddServCrMemoLines v položke Daň z predaja Vypočítať jednotku kódu (398) takto:
Existujúci kód 1... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor; // Delete the following line. "Tax Base Amount" := ServCrMemoLine."VAT Base Amount" / ExchangeFactor; // End of the deleted line. Quantity := ServCrMemoLine.Quantity; "Tax Liable" := ServCrMemoLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; ...Náhradný kód 1
... "Is Report-to Jurisdiction" := ("Tax Jurisdiction Code" = TaxJurisdiction."Report-to Jurisdiction"); END; "Line Amount" := ServCrMemoLine."Line Amount" / ExchangeFactor; // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,FALSE); // End of the added line. Quantity := ServCrMemoLine.Quantity; "Tax Liable" := ServCrMemoLine."Tax Liable"; "Calculation Order" := TaxAreaLine."Calculation Order"; ...Existujúci kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor); // Delete the following line. "Tax Base Amount" := "Tax Base Amount" + (ServCrMemoLine."VAT Base Amount" / ExchangeFactor); // End of the deleted line. Quantity := Quantity + ServCrMemoLine.Quantity; IF ServCrMemoLine."Tax Liable" THEN "Tax Liable" := ServCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Náhradný kód 2
... InsertRec := TRUE; INSERT; END ELSE BEGIN "Line Amount" := "Line Amount" + (ServCrMemoLine."Line Amount" / ExchangeFactor); // Add the following line. SetTaxBaseAmount(TempSalesTaxLine,ServCrMemoLine."VAT Base Amount",ExchangeFactor,TRUE); // End of the added line. Quantity := Quantity + ServCrMemoLine.Quantity; IF ServCrMemoLine."Tax Liable" THEN "Tax Liable" := ServCrMemoLine."Tax Liable"; InsertRec := FALSE; ...Pridajte funkciu SetTaxBaseAmount do položky Daň z predaja Vypočítať kódovú jednotku (398) takto:
LOCAL PROCEDURE SetTaxBaseAmount@1020031(VAR SalesTaxAmountLine@1020001 : Record 10011;Value@1020000 : Decimal;ExchangeFactor@1020002 : Decimal;Increment@1020003 : Boolean); BEGIN WITH SalesTaxAmountLine DO BEGIN IF Increment THEN "Tax Base Amount FCY" += Value ELSE "Tax Base Amount FCY" := Value; "Tax Base Amount" := "Tax Base Amount FCY" / ExchangeFactor; END; END;
Predpoklady
Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovaný niektorý z nasledujúcich produktov:
- Severoamerická verzia systému Microsoft Dynamics NAV 2009 R2
- Severoamerická verzia balíka Microsoft Dynamics NAV 2009 Service Pack 1
Informácie o odstránení
Túto rýchlu opravu nemožno odstrániť.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
Poznámka: Toto je článok typu FAST PUBLISH, ktorý bol vytvorený priamo v rámci organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sa poskytujú tak, ako sú, ako odpoveď na vzniknuté problémy. V dôsledku rýchlosti ich sprístupnenia môžu materiály obsahovať typografické chyby a môžu byť kedykoľvek revidované bez predchádzajúceho upozornenia. Ďalšie dôležité informácie nájdete v Podmienkach používania .