Cet article s’applique à Microsoft Dynamics NAV pour les paramètres régionaux en espagnol (es).
Symptômes
Lorsque vous exécutez la déclaration de TVA dans la version espagnole de Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), le montant de base n’est pas calculé pour la transaction de TVA complète dans le modèle 320.
Résolution
Informations sur le correctif logiciel
Un correctif logiciel pris en charge est désormais disponible auprès de Microsoft. Toutefois, il est uniquement destiné à corriger le problème décrit dans cet article. Appliquez-la uniquement aux systèmes qui rencontrent ce problème spécifique. Ce correctif logiciel peut recevoir des tests supplémentaires. Par conséquent, si vous n’êtes pas gravement affecté 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 contient ce correctif logiciel.
Remarque Dans des cas particuliers, les frais habituellement engagés pour les appels de support peuvent être annulés si un professionnel du support technique pour Microsoft Dynamics et les produits associés détermine qu’une mise à jour spécifique permettra de résoudre votre problème. Les coûts habituels du support technique s’appliqueront aux autres questions et problèmes non directement liés à la mise à jour en question.
Informations sur l’installation
Microsoft fournit des exemples de programmation à des fins d’illustration uniquement, sans garantie exprimée ou implicite. Cela inclut, sans s’y limiter, les garanties implicites de qualité commerciale ou d’adéquation à un usage particulier. Cet article part du principe que vous êtes familiarisé avec le langage de programmation présenté et avec les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.
Remarque Avant d’installer ce correctif logiciel, vérifiez que tous les utilisateurs du client Microsoft Navision sont déconnectés du système. Cela inclut les utilisateurs du client Nas (Microsoft Navision Application Services). Vous devez être le seul utilisateur client connecté lorsque vous implémentez ce correctif logiciel.
Pour implémenter ce correctif logiciel, vous devez disposer d’une licence de développeur.
Nous vous recommandons d’attribuer au compte d’utilisateur dans la fenêtre Connexions Windows ou dans la fenêtre Connexions de base de données l’ID de rôle « SUPER ». Si l’ID de rôle « SUPER » ne peut pas être attribué au compte d’utilisateur, vous devez vérifier que le compte d’utilisateur dispose des autorisations suivantes :
- Autorisation Modifier pour l’objet que vous allez modifier.
- Autorisation Exécuter pour l’objet ID d’objet système 5210 et pour l’objet ID d’objet système 9015.
Remarque Vous n’avez pas besoin de disposer de droits sur les magasins de données, sauf si vous devez effectuer une réparation des données.
Modifications du code
Remarque Toujours tester les correctifs de code dans un environnement contrôlé avant d’appliquer les correctifs à vos ordinateurs de production.
Pour résoudre ce problème, procédez comme suit :
Modifiez le code dans la fonction CalcLineTotal2C dans le rapport de déclaration de TVA (12) comme suit :
Code existant... IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; CalculateTotalAmount(VATStmtLine2); END; ...Code de remplacement
... IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // End of the lines. END; CalculateTotalAmount(VATStmtLine2); END; ...Modifiez le code de la fonction CalcLineTotal dans le rapport de déclaration de TVA (12) comme suit :
Code 1 existant... BEGIN VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code de remplacement 1
... BEGIN VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code existant 2
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Delete the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."VAT %"; VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."VAT %"; END; Amount := ConditionalAdd(0,VATAmount,VATAmountAC); END; Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; ...Code de remplacement 2
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Add the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; ...Code existant 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code de remplacement 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code existant 4
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Delete the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."EC %"; VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."EC %"; END; Amount := ConditionalAdd(0,VATAmount,VATAmountAC); END; Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; END; // End of the lines. END; ...Code de remplacement 4
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Add the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,FALSE), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",FALSE)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; END // End of the lines. END; ...Modifiez le code des propriétés dans la déclaration de TVA (10715) comme suit :
Code existant... Header := Text1100000 ELSE Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter"); END; OnPostReport=BEGIN ...Code de remplacement
... Header := Text1100000 ELSE Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter"); // Add the following lines. GLSetup.GET; IF PrintAmtInAddCurr THEN Currency.GET(GLSetup."Additional Reporting Currency"); // End of the lines. END; OnPostReport=BEGIN ...Ajoutez une variable globale dans le rapport déclaration de TVA télématique (10715), puis spécifiez la variable comme suit :
- Nom :Devise
- DataType :Record
Modifiez le code de la fonction CalcTotLine dans le rapport de déclaration de TVA télématique (10715) comme suit :
Code 1 existant... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code de remplacement 1
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code existant 2
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Code de remplacement 2
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Code existant 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code de remplacement 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Code existant 4
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Code de remplacement 4
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Modifiez le code dans la fonction CalcTotalVATBase dans le rapport de déclaration de TVA (10715) comme suit :
Code existant... OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007 END; BEGIN END. } ...Code de remplacement
... OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007 END; // Add the following lines. PROCEDURE CalcTotalVATBase@1100000(VAT@1100000 : Decimal;EC@1100001 : Decimal;VATAmount@1100002 : Decimal;UseAddCurr@1100003 : Boolean) VATBase : Decimal; BEGIN IF (VAT + EC) = 0 THEN EXIT; IF UseAddCurr THEN EXIT(ROUND(100 * VATAmount / (VAT + EC),Currency."Amount Rounding Precision")) ELSE EXIT(ROUND(100 * VATAmount / (VAT + EC),GLSetup."Amount Rounding Precision")); END; // End of the lines. BEGIN END. } ...
Remarque Le contrôle se trouve en regard du dernier champ de la section.
Configuration requise
La version espagnole de Microsoft Dynamics NAV 2009 Service Pack 1 doit être installée pour appliquer ce correctif.
Informations sur la suppression
Vous ne pouvez pas supprimer ce correctif logiciel.
État
Microsoft a confirmé qu’il s’agissait d’un problème dans les produits Microsoft répertoriés dans la section « S’applique à ».
Remarque Il s’agit d'un article de « dernière minute » créé directement à partir de l’organisation de support technique Microsoft. Les informations présentées ici sont fournies telles quelles en réponse à des problèmes nouveaux. En raison de la rapidité de leur mise à disposition, les documents peuvent contenir des erreurs typographiques et être modifiés à tout moment sans préavis. Consultez les Conditions d’utilisation pour d’autres considérations.