Statistik om en faktura beräknas felaktigt när du använder fakturaavrundningskontot i den tjeckiska versionen av Microsoft Dynamics NAV 2009 R2

Information om snabbkorrigeringen

En snabbkorrigering är nu tillgänglig från Microsoft. Den är endast avsedd att åtgärda det problem som beskrivs i denna artikel. Använd den bara på datorer där detta problem uppstår. Snabbkorrigeringen kan komma att testas igen. Om inte störs alltför mycket av detta problem rekommenderar vi att du väntar på Nästa service pack-versionen för Microsoft Dynamics NAV 2009 eller nästa Microsoft Dynamics NAV-version som innehåller den här snabbkorrigeringen.

Obs! I särskilda fall, de avgifter som är normalt för support vara avgiftsfri om en supporttekniker för Microsoft Dynamics och relaterade produkter som bestämmer att en särskild uppdatering kan lösa ditt problem. De vanliga supportkostnaderna gäller för övriga supportfrågor och problem som inte berör den särskilda uppdateringen.

Kod ändras

Obs! Alltid åtgärdas testa koden i en kontrollerad miljö innan du installerar korrigeringar för produktionsdatorer.
Lös problemet så här:

1. Ändra koden i funktionen CalcVATAmountLines i tabellen Försäljningsrad (37) enligt följande:
   Befintlig kod 1

   ...              IF NOT ZeroAmountLine(QtyType) THEN BEGIN
   
   // Delete the following lines.
                  IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
                    RoundingLineInserted := ("No." = CustPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
   // End of the lines.
   
                 IF "VAT Calculation Type" IN
   ...
   
   

   Ersättningskod 1

   ...              IF NOT ZeroAmountLine(QtyType) THEN BEGIN
   
   // Add the following lines.
                  IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN BEGIN
                    SalesLine4 := SalesLine;
                    RoundingLineInserted :=
                      (("No." = CustPostingGroup."Invoice Rounding Account") AND (NOT SalesLine4.FIND)) OR RoundingLineInserted;
                  END;
   // End of the lines.
   
                 IF "VAT Calculation Type" IN
   ...
   
   

   Befintlig kod 2

   ...                  END;
                 IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN // CZ0001
   ...
   
   

   Ersättningskod 2

   ...                  END;
   
   // Delete the following line.
                 GLSetup.GET;
   
                 IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN // CZ0001
   ...
   
   

   Befintlig kod 3

   ...                    BEGIN
   
   // Delete the following line.
                         GLSetup.GET;
   
                         GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   ...
   
   

   Ersättningskod 3

   ...                    BEGIN
                         GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   ...
   
   

2. Ändra koden i funktionen CalcVATAmountLines i tabellen thePurchase (39) på följande sätt:
   Befintlig kod 1

   ...              IF NOT ZeroAmountLine(QtyType) THEN BEGIN
   
   // Delete the following lines.
                  IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
                    RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
   // End of the lines.
   
                 IF "VAT Calculation Type" IN
   ...
   
   

   Ersättningskod 1

   ...              IF NOT ZeroAmountLine(QtyType) THEN BEGIN
   
   // Add the following lines.
                  IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN BEGIN
                    PurchLine3 := PurchLine;
                    RoundingLineInserted :=
                      (("No." = VendorPostingGroup."Invoice Rounding Account") AND (NOT PurchLine3.FIND)) OR RoundingLineInserted;
                  END;
   // End of the lines.
   
                 IF "VAT Calculation Type" IN
   ...
   
   

   Befintlig kod 2

   ...              END;
                 IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN // CZ0001
   ...
   
   

   Ersättningskod 2

   ...              END;
   
   // Add the following line.
                GLSetup.GET;
   
                 IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN // CZ0001
   ...
   
   

   Befintlig kod 3

   ...                    BEGIN
   
   // Delete the following line.
                        GLSetup.GET;
   
                         GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   ...
   
   

   Ersättningskod 3

   ...                    BEGIN
                         GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
   ...