The system always assigns a new number to the "VAT Exempt. Int. Registry No." number when you select the number in the Italian version of Microsoft Dynamics NAV 2009

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 of the Properties in the VAT Exemption table (12186) as follows:
   Existing code

   ...
   SalesSetup@1130001 : Record 311;
   PurchSetup@1130002 : Record 312;
   BEGIN
   VATExemption.RESET;
   VATExemption.SETRANGE(Type,Type);
   IF VATExemption.FINDSET THEN
   REPEAT
   IF DATE2DMY(VATExemption."VAT Exempt. Starting Date",3) = DATE2DMY("VAT Exempt. Starting Date",3) THEN BEGIN
   "VAT Exempt. Int. Registry No." := VATExemption."VAT Exempt. Int. Registry No.";
   EXIT;
   ...
   

   Replacement code

   ...
   SalesSetup@1130001 : Record 311;
   PurchSetup@1130002 : Record 312;
   BEGIN
   VATExemption.RESET;
   VATExemption.SETRANGE(Type,Type);
   
   // Add the following line.
   VATExemption.SETRANGE("No.","No.");
   
   IF VATExemption.FINDSET THEN
   REPEAT
   IF DATE2DMY(VATExemption."VAT Exempt. Starting Date",3) = DATE2DMY("VAT Exempt. Starting Date",3) THEN BEGIN
   "VAT Exempt. Int. Registry No." := VATExemption."VAT Exempt. Int. Registry No.";
   EXIT;
   ...
   

2. Change the code of the Fields in the VAT Exemption table (12186) as follows:
   Existing code

   ...
   NotBlank=Yes }
   { 5 ; ;VAT Exempt. Int. Registry No.;Code20;
   OnValidate=BEGIN
   VATExemption.RESET;
   VATExemption.SETRANGE(Type,Type);
   IF VATExemption.FINDSET THEN
   REPEAT
   IF (DATE2DMY(VATExemption."VAT Exempt. Starting Date",3) = DATE2DMY("VAT Exempt. Starting Date",3)) AND
   ("VAT Exempt. Int. Registry No." <> VATExemption."VAT Exempt. Int. Registry No.")
   THEN
   ...
   

   Replacement code

   ...
   NotBlank=Yes }
   { 5 ; ;VAT Exempt. Int. Registry No.;Code20;
   OnValidate=BEGIN
   VATExemption.RESET;
   VATExemption.SETRANGE(Type,Type);
   
   // Add the following line.
   VATExemption.SETRANGE("No.","No.");
   
   IF VATExemption.FINDSET THEN
   REPEAT
   IF (DATE2DMY(VATExemption."VAT Exempt. Starting Date",3) = DATE2DMY("VAT Exempt. Starting Date",3)) AND
   ("VAT Exempt. Int. Registry No." <> VATExemption."VAT Exempt. Int. Registry No.")
   THEN
   ...
   

3. Change the code of the Global Variables in the VAT Exemption table (12186) as follows:
   Existing code

   ...
   Text12101@1130002 : TextConst 'ENU=It is not possible to insert a new VAT exemption if an active exemption exists.;ITA=Impossibile inserire una nuova esenzione IVA se esiste un''esenzione attiva.';
   Text12102@1130000 : TextConst 'ENU=%1 %2 is unique for year %3.;ITA=%1 %2 Š univoco per l''anno %3.';
   Text12103@1130003 : TextConst 'ENU=It is not posiible to have two VAT Exemptions in the same period.;ITA=Impossibile avere due esenzioni IVA nello stesso periodo.';
   VATExemption@1130004 : Record 12186;
   
   // Delete the following line.
   BEGIN
   
   END.
   }
   }
   ...
   

   Replacement code

   ...
   Text12101@1130002 : TextConst 'ENU=It is not possible to insert a new VAT exemption if an active exemption exists.;ITA=Impossibile inserire una nuova esenzione IVA se esiste un''esenzione attiva.';
   Text12102@1130000 : TextConst 'ENU=%1 %2 is unique for year %3.;ITA=%1 %2 Š univoco per l''anno %3.';
   Text12103@1130003 : TextConst 'ENU=It is not posiible to have two VAT Exemptions in the same period.;ITA=Impossibile avere due esenzioni IVA nello stesso periodo.';
   VATExemption@1130004 : Record 12186;
   
   // Add the following lines.
   PROCEDURE GetVATExRegNo@1001();
   VAR
   SalesSetup@1001 : Record 311;
   NoSeriesMgt@1002 : Codeunit 396;
   BEGIN
   RESET;
   SETRANGE(Type,Type);
   SETRANGE("No.","No.");
   SalesSetup.GET;
   NoSeriesMgt.LookupSeries(SalesSetup."VAT Exemption Nos.","No. Series");
   IF "VAT Exempt. Int. Registry No." = '' THEN
   NoSeriesMgt.SetSeries("VAT Exempt. Int. Registry No.");
   END;
   // End of the lines.
   ...
   

4. Change the code of the Controls in the VAT Exemptions form (12100) as follows:
   Existing code

   ...
   { 1130008;Label ;0 ;0 ;0 ;0 ;ParentControl=1130007;
   InColumnHeading=Yes }
   { 1130013;TextBox ;0 ;0 ;1700 ;0 ;ParentControl=1130000;
   InColumn=Yes;
   SourceExpr="VAT Exempt. Int. Registry No.";
   
   // Delete the following lines.
   OnAssistEdit=VAR
   SalesSetup@1130000 : Record 311;
   NoSeriesMgt@1130001 : Codeunit 396;
   BEGIN
   SalesSetup.GET;
   NoSeriesMgt.LookupSeries(SalesSetup."VAT Exemption Nos.","No. Series");
   NoSeriesMgt.SetSeries("VAT Exempt. Int. Registry No.");
   // End of the lines.
   
   END;
   }
   { 1130014;Label ;0 ;0 ;0 ;0 ;ParentControl=1130013;
   InColumnHeading=Yes }
   { 1130015;TextBox ;0 ;0 ;1700 ;0 ;ParentControl=1130000;
   ...
   

   Replacement code

   ...
   { 1130008;Label ;0 ;0 ;0 ;0 ;ParentControl=1130007;
   InColumnHeading=Yes }
   { 1130013;TextBox ;0 ;0 ;1700 ;0 ;ParentControl=1130000;
   InColumn=Yes;
   SourceExpr="VAT Exempt. Int. Registry No.";
   
   // Add the following lines.
   OnAssistEdit=BEGIN
   GetVATExRegNo;
   // End of the lines.
   
   END;
   }
   { 1130014;Label ;0 ;0 ;0 ;0 ;ParentControl=1130013;
   InColumnHeading=Yes }
   { 1130015;TextBox ;0 ;0 ;1700 ;0 ;ParentControl=1130000;
   ...