Podatek VAT jest księgowany niepoprawnie podczas stosowania faktury sprzedaży do faktury korygującej We włoskiej wersji systemu Microsoft Dynamics NAV 2009

Informacje o poprawce

Obsługiwana poprawka jest obecnie udostępniana przez firmę Microsoft. Jednak to jest przeznaczona tylko do usunięcia problemu opisanego w tym artykule. Zastosuj ją tylko w systemach, w których występuje ten problem. Ta poprawka może być wciąż w fazie testowania. Jeśli dany system nie jest poważnie narażony na ten problem, firma Microsoft zaleca, aby poczekać na następny dodatek service pack dla systemu Microsoft Dynamics NAV 2009 lub następną wersję systemu Microsoft Dynamics NAV, zawierający tę poprawkę.

Uwaga W wyjątkowych przypadkach opłaty, telefonujący do pomocy technicznej mogą zostać anulowane, jeśli pomocy technicznej dla systemu Microsoft Dynamics i produktów powiązanych Określa, że określonej aktualizacji, można rozwiązać swój problem. Koszty obsługi zwykłych zastosuje się do dodatkowych pytań i problemów, których nie można rozwiązać przy użyciu określonej aktualizacji.

Informacje dotyczące instalacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura. Nie będą jednak modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.

Uwaga Przed zainstalowaniem tej poprawki należy zweryfikować, że wszyscy użytkownicy klienta systemu Microsoft Dynamics NAV są wylogowani systemu. Obejmuje to usług systemu Microsoft Dynamics NAV aplikacji serwera (NAS). Powinny być użytkownika klienta, który jest zalogowany w momencie wdrożyć tę poprawkę.

Aby wdrożyć tę poprawkę, musi mieć licencję deweloperską.

Firma Microsoft zaleca, aby do konta użytkownika w oknie identyfikatorów logowania systemu Windows lub w oknie identyfikatorów logowania bazy danych być przypisany identyfikator roli "SUPER". Jeśli konto użytkownika nie można przypisać Identyfikatora roli "SUPER", należy sprawdzić, czy konto użytkownika ma następujące uprawnienia:

• Uprawnienie Modyfikacja dla obiektu, który będzie zmieniany.

• Uprawnienie Execute obiektu 5210 identyfikator obiektu systemu i 9015 identyfikator obiektu systemu
  
  obiekt.

Uwaga Nie trzeba mieć prawa do magazynów danych, chyba że konieczne jest przeprowadzenie naprawy danych.

Zmiany kodu

Uwaga Zawsze test poprawki kodu w kontrolowanym środowisku przed zastosowaniem poprawki na komputerach produkcyjnych.

Aby rozwiązać ten problem, wykonaj następujące kroki:

1. Zmień kod w kluczach w tabeli Zapis VAT (254) w następujący sposób:
   Istniejący kod

   ...KeyGroups=SalesTax }
         {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                        SumIndexFields=Base,Additional-Currency Base;
                                                        KeyGroups=VIES_EC }
   
   // Delete the following line.
        {    ;Document No.,Posting Date                }
   // End of the deleted line.
   
         {    ;Transaction No.                          }
         {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                        KeyGroups=SalesTax }
         {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
   ...
   

   Kod zastępczy

   ...KeyGroups=SalesTax }
         {    ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
                                                        SumIndexFields=Base,Additional-Currency Base;
                                                        KeyGroups=VIES_EC }
   
   // Add the following line.
        {    ;Document No.,Posting Date               ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
   // End of the added line.
   
         {    ;Transaction No.                          }
         {    ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
                                                        KeyGroups=SalesTax }
         {    ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
   ...
   

2. Zmień kod w kluczach w tabeli Zapis VAT (254) w następujący sposób:
   Istniejący kod 1

   ...END;
           EXIT(GLSetup."Additional Reporting Currency");
         END;
   
   // Delete the following line.
        PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
   // End of the deleted line.
   
         VAR
           UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
         BEGIN
           IF (Type <> 0) AND
   ...
   

   Kod zastępczy 1

   ...END;
           EXIT(GLSetup."Additional Reporting Currency");
         END;
   
   // Add the following line.
        PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
   // End of the added line.
   
         VAR
           UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
         BEGIN
           IF (Type <> 0) AND
   ...
   

   Istniejący kod 2

   ...(("Remaining Unrealized Amount" = 0) AND
                 ("Remaining Unrealized Base" = 0))
             THEN
               EXIT(0);
   
   // Delete the following lines.
           //IF ABS(Paid) = ABS(Full) THEN
           //   EXIT(1);
   
            CASE UnrealizedVatType OF
              UnrealizedVatType::Percentage:
                BEGIN
                  IF Type2 = Type2::Purchase THEN BEGIN
                    IF (DocType = DocType::"Credit Memo") THEN BEGIN
                      IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                        EXIT(1)
                    END ELSE BEGIN
                      IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                        EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                          ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                      ELSE
                        EXIT(1)
                    END;
                  END
                  ELSE BEGIN
                    IF (DocType = DocType::"Credit Memo") THEN BEGIN
                      IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                        EXIT(1)
                    END ELSE BEGIN
                      IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                        EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
                          ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
                      ELSE
                        EXIT(1)
                    END;
                  END;
   // End of the deleted lines.
   
                 END;
               UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                   BEGIN
                     IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
   ...
   

   Kod zastępczy 2

   ...(("Remaining Unrealized Amount" = 0) AND
                 ("Remaining Unrealized Base" = 0))
             THEN
               EXIT(0);
   
   // Add the following lines.
            IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
               NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
            THEN BEGIN
              VATPart := 1;
              EXIT(VATPart);
            END;
   
            CASE UnrealizedVatType OF
              UnrealizedVatType::Percentage:
                IF Type2 = Type2::Purchase THEN BEGIN
                  TransactionInclPrepmt := FALSE;
                  IF DocType = DocType::"Credit Memo" THEN BEGIN
                    IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
                      TransactionInclPrepmt := TRUE;
                      IF VATPart = 0 THEN BEGIN
                        IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                           (ABS(Paid) = ABS(Full))
                        THEN
                          VATPart := 1
                        ELSE
                          VATPart :=
                            CalcVatPart(
                              GetCurrencyCode,1.0,TotalPayments,
                              GetTransactionRemainingAmount("Transaction No."));
                      END;
                      EXIT(VATPart);
                    END ELSE
                      IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                        EXIT(1)
                  END ELSE BEGIN
                    IF PurchInvInclPrepmt("Document No.") THEN BEGIN
                      TransactionInclPrepmt := TRUE;
                      IF VATPart = 0 THEN BEGIN
                        IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                          (ABS(Paid) = ABS(Full))
                        THEN
                          VATPart := 1
                        ELSE
                          VATPart :=
                            CalcVatPart(
                              GetCurrencyCode,1.0,TotalPayments,
                              GetTransactionRemainingAmount("Transaction No."));
                      END;
                      EXIT(VATPart);
                    END ELSE
                      IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                        EXIT(
                          CalcVatPart(
                            GetCurrencyCode,1.0,TotalPayments,
                           ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
                    EXIT(1);
                  END;
                END ELSE BEGIN
                  TransactionInclPrepmt := FALSE;
                  IF DocType = DocType::"Credit Memo" THEN BEGIN
                    IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                      TransactionInclPrepmt := TRUE;
                      IF VATPart = 0 THEN BEGIN
                        IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                           (ABS(Paid) = ABS(Full))
                        THEN
                          VATPart := 1
                        ELSE
                          VATPart :=
                            CalcVatPart(
                              GetCurrencyCode,1.0,TotalPayments,
                              GetTransactionRemainingAmount("Transaction No."));
                      END;
                      EXIT(VATPart);
                    END;
                    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
                      EXIT(1);
                    EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
                  END;
                  IF SalesInvInclPrepmt("Document No.") THEN BEGIN
                    TransactionInclPrepmt := TRUE;
                    IF VATPart = 0 THEN BEGIN
                     IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
                         (ABS(Paid) = ABS(Full))
                      THEN
                        VATPart := 1
                      ELSE
                        VATPart :=
                          CalcVatPart(
                            GetCurrencyCode,1.0,TotalPayments,
                            GetTransactionRemainingAmount("Transaction No."));
                    END;
                    EXIT(VATPart);
                  END ELSE
                    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
                      EXIT(
                        CalcVatPart(
                          GetCurrencyCode,1.0,TotalPayments,
                          ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
                  EXIT(1);
   // End of the added lines.
   
                 END;
               UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
                   BEGIN
                     IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
   ...
   

3. Zmień kod w funkcji SalesInvInclPrepmt w tabeli Zapis VAT (254) w następujący sposób:
   Istniejący kod

   ...EXIT(RemainingAmount - SettledAmount);
           EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
         END;
   
         BEGIN
         END.
       }
     }
   ...
   

   Kod zastępczy

   ...EXIT(RemainingAmount - SettledAmount);
           EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
         END;
   
   // Add the following lines.
     LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
     VAR
       SalesInvLine@1130001 : Record 113;
     BEGIN
       SalesInvLine.SETRANGE("Document No.",DocNo);
       SalesInvLine.SETRANGE("Prepayment Line",TRUE);
       EXIT(NOT SalesInvLine.ISEMPTY);
     END;
   
     LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
     VAR
       SalesCrMemoLine@1130001 : Record 115;
     BEGIN
       SalesCrMemoLine.SETRANGE("Document No.",DocNo);
       SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
       EXIT(NOT SalesCrMemoLine.ISEMPTY);
     END;
   
     LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
     VAR
       PurchInvLine@1130001 : Record 123;
     BEGIN
       PurchInvLine.SETRANGE("Document No.",DocNo);
       PurchInvLine.SETRANGE("Prepayment Line",TRUE);
       EXIT(NOT PurchInvLine.ISEMPTY);
     END;
   
     LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
     VAR
       PurchCrMemoLine@1130001 : Record 125;
     BEGIN
       PurchCrMemoLine.SETRANGE("Document No.",DocNo);
       PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
       EXIT(NOT PurchCrMemoLine.ISEMPTY);
     END;
   
     LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
     VAR
       VATEntry@1130001 : Record 254;
     BEGIN
       WITH VATEntry DO BEGIN
         SETRANGE("Transaction No.",TransactionNo);
         IF FINDSET THEN
           REPEAT
             TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
           UNTIL NEXT = 0;
       END;
     END;
   
     LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
     VAR
       VATEntry@1130002 : Record 254;
     BEGIN
       VATEntry.SETCURRENTKEY("Document No.","Posting Date");
       VATEntry.SETRANGE("Document No.",DocumentNo);
       VATEntry.SETRANGE("Posting Date",PostingDate);
       VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
       EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
     END;
   
     LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
     BEGIN
       CASE VATType OF
         VATType::Purchase:
           IF DocumentType = DocumentType::"Credit Memo" THEN
             EXIT(PurchCrMemoInclPrepmt(DocumentNo))
           ELSE
             EXIT(PurchInvInclPrepmt(DocumentNo));
         VATType::Sale:
           IF DocumentType = DocumentType::"Credit Memo" THEN
             EXIT(SalesInvInclPrepmt(DocumentNo))
           ELSE
             EXIT(SalesCrMemoInclPrepmt(DocumentNo));
       END;
     END;
   // End of the added lines.
   
         BEGIN
         END.
       }
     }
   ...
   

4. Zmień kod w funkcji CustUnrealizedVAT w dziennika gł.-Post wiersza Codeunit (12) w następujący sposób:
   Istniejący kod 1

   ...SalesVATUnrealAccount@1010 : Code[20];
           LastConnectionNo@1011 : Integer;
           TotalPayments@1130000 : Decimal;
           Type2@1130001 : 'Sale,Purchase';
         BEGIN
           PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
           VATEntry2.RESET;
           VATEntry2.SETCURRENTKEY("Transaction No.");
   ...
   

   Kod zastępczy 1

   ...SalesVATUnrealAccount@1010 : Code[20];
           LastConnectionNo@1011 : Integer;
           TotalPayments@1130000 : Decimal;
           Type2@1130001 : 'Sale,Purchase';
   
   // Add the following line.
          TransactionInclPrepmt@1130002 : Boolean;
   // End of the added line.
   
         BEGIN
           PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
           VATEntry2.RESET;
           VATEntry2.SETCURRENTKEY("Transaction No.");
   ...
   

   Istniejący kod 2

   ...InsertSummarizedVAT;
                 LastConnectionNo := VATEntry2."Sales Tax Connection No.";
               END;
   
   // Delete the following lines.
              VATPart := VATEntry2.GetUnRealizedVATPart(
                ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
                PaidAmount,
                CustLedgEntry2."Original Amt. (LCY)",
                TotalUnrealVATAmountFirst,
                TotalUnrealVATAmountLast,
                Type2::Sale,
                CustLedgEntry2."Document Type",
                CustLedgEntry2.Open,
                CustLedgEntry2.Amount,
                CustLedgEntry2."Remaining Amount",
                TotalPayments);
   // End of the deleted lines.
   
               IF VATPart > 0 THEN BEGIN
                 CASE VATEntry2."VAT Calculation Type" OF
                   VATEntry2."VAT Calculation Type"::"Normal VAT",
   ...
   

   Kod zastępczy 2

   ...InsertSummarizedVAT;
                 LastConnectionNo := VATEntry2."Sales Tax Connection No.";
               END;
   
   // Add the following lines.
              VATPart :=
                VATEntry2.GetUnRealizedVATPart(
                  ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
                  PaidAmount,
                  CustLedgEntry2."Original Amt. (LCY)",
                  TotalUnrealVATAmountFirst,
                  TotalUnrealVATAmountLast,
                  Type2::Sale,
                  CustLedgEntry2."Document Type",
                  CustLedgEntry2.Open,
                  CustLedgEntry2.Amount,
                  CustLedgEntry2."Remaining Amount",
                  TotalPayments,
                  VATPart,
                  TransactionInclPrepmt);
   // End of the added lines.
   
               IF VATPart > 0 THEN BEGIN
                 CASE VATEntry2."VAT Calculation Type" OF
                   VATEntry2."VAT Calculation Type"::"Normal VAT",
   ...
   

   Istniejący kod 3

   ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                       AddCurrency."Amount Rounding Precision");
                 END;
   
   // Delete the following line.
                TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   // End of the deleted line.
   
                 IF VATAmount <> 0 THEN BEGIN
                   InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   ...
   

   Kod zastępczy 3

   ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
                       AddCurrency."Amount Rounding Precision");
                 END;
   
   // Add the following lines.
                IF TransactionInclPrepmt THEN
                  TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
                ELSE
                  TotalPayments :=
                    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   // End of the added lines.
   
                 IF VATAmount <> 0 THEN BEGIN
                   InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   ...
   

5. Zmień kod w funkcji VendUnrealizedVAT w dziennika gł.-Post wiersza Codeunit (12) w następujący sposób:
   Istniejący kod 1

   ...PurchReverseUnrealAccount@1012 : Code[20];
           LastConnectionNo@1013 : Integer;
           Type2@1130000 : 'Sale,Purchase';
           TotalPayments@1130001 : Decimal;
         BEGIN
           VATEntry2.RESET;
           VATEntry2.SETCURRENTKEY("Transaction No.");
           VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
   ...
   

   Kod zastępczy 1

   ...PurchReverseUnrealAccount@1012 : Code[20];
           LastConnectionNo@1013 : Integer;
           Type2@1130000 : 'Sale,Purchase';
           TotalPayments@1130001 : Decimal;
   
   // Add the following line.
          TransactionInclPrepmt@1130002 : Boolean;
   // End of the added line.
   
         BEGIN
           VATEntry2.RESET;
           VATEntry2.SETCURRENTKEY("Transaction No.");
           VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
   ...
   

   Istniejący kod 2

   ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
                 InsertSummarizedVAT;
                 LastConnectionNo := VATEntry2."Sales Tax Connection No.";
               END;
   
   // Delete the following lines.
              IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
                EXIT;
              VATPart := VATEntry2.GetUnRealizedVATPart(
                ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
                PaidAmount,
                VendLedgEntry2."Original Amt. (LCY)",
                TotalUnrealVATAmountFirst,
                TotalUnrealVATAmountLast,
                Type2::Purchase,
                VendLedgEntry2."Document Type",
                VendLedgEntry2.Open,
                VendLedgEntry2.Amount,
                VendLedgEntry2."Remaining Amount",
                TotalPayments);
   // End of the deleted lines.
   
               IF VATPart >= 0 THEN BEGIN
                 IF VATPart <> 0 THEN BEGIN
                   CASE VATEntry2."VAT Calculation Type" OF
   ...
   

   Kod zastępczy 2

   ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
                 InsertSummarizedVAT;
                 LastConnectionNo := VATEntry2."Sales Tax Connection No.";
               END;
   
   // Add the following lines.
              IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
                 (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
              THEN
                EXIT;
   
              VATPart :=
                VATEntry2.GetUnRealizedVATPart(
                  ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
                  PaidAmount,
                  VendLedgEntry2."Original Amt. (LCY)",
                  TotalUnrealVATAmountFirst,
                  TotalUnrealVATAmountLast,
                  Type2::Purchase,
                  VendLedgEntry2."Document Type",
                  VendLedgEntry2.Open,
                  VendLedgEntry2.Amount,
                  VendLedgEntry2."Remaining Amount",
                  TotalPayments,
                  VATPart,
                  TransactionInclPrepmt);
   // End of the added lines.
   
               IF VATPart >= 0 THEN BEGIN
                 IF VATPart <> 0 THEN BEGIN
                   CASE VATEntry2."VAT Calculation Type" OF
   ...
   

   Istniejący kod 3

   ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                       END;
                   END;
   
   // Delete the following lines.
                  VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
                  VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
                  TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   // End of the deleted lines.
   
                   IF VATAmount <> 0 THEN BEGIN
                     InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                     GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   ...
   

   Kod zastępczy 3

   ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
                       END;
                   END;
   
   // Add the following lines.
                  VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
                  VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
                IF TransactionInclPrepmt THEN
                  TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
                ELSE
                  TotalPayments :=
                    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   // End of the added lines.
   
                   IF VATAmount <> 0 THEN BEGIN
                     InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
                     GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   ...
   

Wymagania wstępne

Musi mieć jedną z następujących produktów, w celu zastosowania tej poprawki:

• Włoski lokalizację systemu Microsoft Dynamics NAV 2009 R2

• Włoski lokalizację dodatku SP1 dla programu Microsoft Dynamics NAV 2009

Informacje dotyczące usuwania

Nie można usunąć tej poprawki.