Error message when you run the Unapply Entries function on a purchase invoice and a payment in the Italian version of Microsoft Dynamics NAV 2009 Service Pack 1: "VAT Book Entry Entry No. '[Number]' already exists"

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV 2009 service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, follow these steps:

1. Change the code in the UnapplyCustLedgEntry trigger in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code

   ...
                   VATEntry2."Entry No." := NextVATEntryNo;
                   NextVATEntryNo := NextVATEntryNo + 1;
                   VATEntry2.INSERT;
                   TempVatEntry.DELETE;
                 END;
                 IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   Replacement code

   ...
                   VATEntry2."Entry No." := NextVATEntryNo;
                   NextVATEntryNo := NextVATEntryNo + 1;
                   VATEntry2.INSERT;
   
   // Add the following line.
                   InsertVATBookEntry(VATEntry2);
   
                   TempVatEntry.DELETE;
                 END;
                 IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

2. Change the code in the UnapplyVendLedgEntry trigger in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code 1

   ...
                 TempVatEntry."User ID" := USERID;
                 TempVatEntry."Transaction No." := NextTransactionNo;
                 TempVatEntry.INSERT;
   
   // Delete the following line.
                 InsertVATBookEntry(TempVatEntry);
   
                 IF VATEntry."Unrealized VAT Entry No." <> 0 THEN BEGIN
                   VATPostingSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group");
                   IF VATPostingSetup."VAT Calculation Type" IN
   ...
   

   Replacement code 1

   ...
                 TempVatEntry."User ID" := USERID;
                 TempVatEntry."Transaction No." := NextTransactionNo;
                 TempVatEntry.INSERT;
                 IF VATEntry."Unrealized VAT Entry No." <> 0 THEN BEGIN
                   VATPostingSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group");
                   IF VATPostingSetup."VAT Calculation Type" IN
   ...
   

   Existing code 2

   ...
                   VatEntry2."Entry No." := NextVATEntryNo;
                   NextVATEntryNo := NextVATEntryNo + 1;
                   VatEntry2.INSERT;
                   TempVatEntry.DELETE;
                 END;
                 IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

   Replacement code 2

   ...
                   VatEntry2."Entry No." := NextVATEntryNo;
                   NextVATEntryNo := NextVATEntryNo + 1;
                   VatEntry2.INSERT;
   
   // Add the following line.
                   InsertVATBookEntry(VatEntry2);
   
                   TempVatEntry.DELETE;
                 END;
                 IF (VATPostingSetup."Adjust for Payment Discount") AND
   ...
   

3. Change the code in the InsertVatEntriesFromTemp trigger in the Gen. Jnl.-Post Line codeunit (12) as follows:
   Existing code

   ...
             VATEntry := TempVatEntry;
             VATEntry."Entry No." := NextVATEntryNo;
             VATEntry.INSERT;
             NextVATEntryNo := NextVATEntryNo + 1;
             IF VATEntry."Unrealized VAT Entry No." = 0 THEN
               GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
   ...
   

   Replacement code

   ...
             VATEntry := TempVatEntry;
             VATEntry."Entry No." := NextVATEntryNo;
             VATEntry.INSERT;
   
   // Add the following line.
             InsertVATBookEntry(VATEntry);
   
             NextVATEntryNo := NextVATEntryNo + 1;
             IF VATEntry."Unrealized VAT Entry No." = 0 THEN
               GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
   ...