Les écritures de TVA où les cases à cocher « Ignorer dans état 347 » sont sélectionnés sont inclus dans l’état de déclaration 347 inattendue si plus d’un client/fournisseur utiliser la même valeur « N° identif » dans la version espagnole de Microsoft Dynamics NAV

Informations sur le correctif

Un correctif pris en charge est désormais disponible auprès de Microsoft. Toutefois, il est conçu uniquement pour corriger le problème décrit dans cet article. Il s’applique uniquement aux systèmes rencontrant ce problème spécifique. Ce correctif peut subir des tests supplémentaires. Par conséquent, si vous n’êtes pas sérieusement concerné par ce problème, nous vous recommandons d’attendre le prochain service pack Microsoft Dynamics NAV 2009 ou la prochaine version de Microsoft Dynamics NAV qui comprendra ce correctif.

Remarque Dans certains cas, les frais généralement encourus pour la prise en charge des appels peuvent être annulés si un technicien du Support technique pour Microsoft Dynamics et les produits associés détermine qu’une mise à jour spécifique peut résoudre votre problème. Les coûts habituels du support technique s’appliqueront aux autres questions et problèmes qui ne relèvent pas de la mise à jour spécifique en question.

Modifications du code

Remarque Toujours tester le code des correctifs dans un environnement contrôlé, avant d'appliquer les correctifs à vos ordinateurs de production.
Pour résoudre ce problème, procédez comme suit :

1. Modifiez le code dans l’élément numéro 2 des données dans le rapport de rendre les déclaration 347 (10707) comme suit :
   Code existant

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

   Code de remplacement

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

2. Modifiez le code dans l’article numéro 5 des données dans le rapport de rendre les déclaration 347 (10707) comme suit :
   Code existant

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

   Code de remplacement

   ...// 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. Modifiez le code dans la fonction CheckSameVATRegNo dans le rapport de rendre les déclaration 347 (10707) comme suit :
   Code existant 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.");
   ...
   

   Code de substitution 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.");
   ...
   

   Code existant 2

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

   Code de substitution 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
   ...