La date de la TVA dans un paiement comptabilisé est en dehors de la plage de dates de comptabilisation dans la version croate de Microsoft Dynamics NAV 2009 R2 TVA autorisée

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 la fonction RunCheck dans la « feuille compta.-ligne « codeunit (11), comme suit :
   Code existant

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Delete the following line. 
   VATDateNeeded := FALSE;
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

   Code de remplacement

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Add the following lines. 
   IF "VAT Date" <> 0D THEN
   VATDateNeeded := TRUE
   ELSE BEGIN
   // End of the added lines. 
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   
   // Add the following line. 
   END; 
   
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

2. Modifiez le code dans la fonction CalcPmtDiscIfAdjVAT dans la « feuille compta.-Valider ligne « codeunit (12) comme suit :
   Code existant

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...
   

   Code de remplacement

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   
   // Add the following line.
   TempVatEntry."VAT Date" := GenJnlLine."VAT Date"; 
   
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...