VAT entries where the "Ignore in 347 Report" check boxes are selected are included in the 347 Declaration report unexpectedly if more than one customer/vendor use the same "VAT Registration No." value in the Spanish version of Microsoft Dynamics NAV

Installation information

Code changes

1. Change the code in the Data Item Number 2 in the Make 347 Declaration report (10707) as follows:
   Existing code

   ...
   END;
   // PS60066.end
   // es0015.end
   END;
   
   GroupTotalFields=VAT Registration No.;
   ...

   Replacement code

   ...
   END;
   // PS60066.end
   // es0015.end
   
   // Add the following line.
   NotIn347Amt := 0;
   
   END;
   
   GroupTotalFields=VAT Registration No.;
   ...

2. Change the code in the Data Item Number 5 in the Make 347 Declaration report (10707) as follows:
   Existing code

   ...
   // CountryCity := '99' + COPYSTR(StatementNo(Country."EU Country/Region Code"),1,3);
   // es0012.end
   // END;
   END;
   
   GroupTotalFields=VAT Registration No.;
   ...

   Replacement code

   ...
   // CountryCity := '99' + COPYSTR(StatementNo(Country."EU Country/Region Code"),1,3);
   // es0012.end
   // END;
   
   // Add the following line.
   NotIn347Amt := 0;
   
   END;
   
   GroupTotalFields=VAT Registration No.;
   ...

3. Change the code in the CheckSameVATRegNo function in the Make 347 Declaration report (10707) as follows:
   Existing code 1

   ...
   PROCEDURE CheckSameVATRegNo@1100006(IsCustomer@1100001 : Boolean) Amt : Decimal;
   VAR
   VATEntry3@1100000 : Record 254;
   BEGIN
   // es0015.begin
   VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
   ...

   Replacement code 1

   ...
   PROCEDURE CheckSameVATRegNo@1100006(IsCustomer@1100001 : Boolean) Amt : Decimal;
   VAR
   VATEntry3@1100000 : Record 254;
   
   // Add the following lines.
   GLEntry@1100002 : Record 17;
   GLAccount@1100003 : Record 15;
   TempVATEntry@1100004 : TEMPORARY Record 254
   // End of the lines.
   
   BEGIN
   // es0015.begin
   VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
   ...

   Existing code 2

   ...
   ELSE
   Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
   // ES0020.end
   UNTIL VATEntry3.NEXT = 0;
   EXIT(Amt);
   // es0015.end
   ...

   Replacement code 2

   ...
   ELSE
   Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
   // ES0020.end
   
   // Add the following lines.
   // ES0002.begin
   TempVATEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
   IF NOT TempVATEntry.FINDFIRST THEN BEGIN
   GLEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
   IF GLEntry.FINDSET THEN
   REPEAT
   GLAccount.GET(GLEntry."G/L Account No.");
   IF GLAccount."Ignore in 347 Report" THEN
   NotIn347Amt := NotIn347Amt + GLEntry.Amount + GLEntry."VAT Amount";
   UNTIL GLEntry.NEXT = 0;
   TempVATEntry := VATEntry3;
   TempVATEntry.INSERT;
   END;
   // ES0002.end
   // End of the lines.
   
   UNTIL VATEntry3.NEXT = 0;
   EXIT(Amt);
   // es0015.end
   ...

Prerequisites

• The Spanish version of Microsoft Dynamics NAV 2009 R2
• The Spanish version of Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• The Spanish version of Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

Removal information