Gains ou pertes n’est pas répercutée dans la TVA lorsque vous validez une facture dans une devise étrangère dans la version nord-américaine de Microsoft Dynamics NAV 2009

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 ApplyCustLedgEntry dans la feuille compta.-Valider ligne codeunit (12) comme suit :
   Code existant

   ...CalcCurrencyRealizedGainLoss(
               NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
   
   // Delete the following lines.
             VATRealizedGainLossLCY := RealizedGainLossLCY;
   
             CalcCurrencyRealizedGainLoss(
               OldCVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
   // End of the deleted lines.
   
             CalcApplication(
               NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
   ...
   

   Code de remplacement

   ...CalcCurrencyRealizedGainLoss(
               NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
   
   // Add the following lines.
   
             CalcCurrencyRealizedGainLoss(
               OldCVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
             VATRealizedGainLossLCY := RealizedGainLossLCY;
   // End of the added lines.
   
             CalcApplication(
               NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
   ...
   

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

   ...//what is LCY value of VAT and VAT Base at posting date (cash basis)
                   IF (VATPostingSetup."Unrealized VAT Type" = VATPostingSetup."Unrealized VAT Type"::"Cash Basis") AND
                      (GainLossLCY <> 0) THEN BEGIN
                     VATBaseFCY := ROUND(
                       CurrExchRate.ExchangeAmtLCYToFCY(
                         PostingDate,CustLedgEntry2."Currency Code",VATBase,CustLedgEntry2."Original Currency Factor"));
   ...
   

   Code de remplacement

   ...//what is LCY value of VAT and VAT Base at posting date (cash basis)
                   IF (VATPostingSetup."Unrealized VAT Type" = VATPostingSetup."Unrealized VAT Type"::"Cash Basis") AND
                      (GainLossLCY <> 0) THEN BEGIN
   
   // Add the following lines.
                     IF CurrencyFactor = 1  THEN
                       CurrencyFactor := CurrExchRate.ExchangeRate(PostingDate,CustLedgEntry2."Currency Code");
   
   // End of the added lines.
   
                     VATBaseFCY := ROUND(
                       CurrExchRate.ExchangeAmtLCYToFCY(
                         PostingDate,CustLedgEntry2."Currency Code",VATBase,CustLedgEntry2."Original Currency Factor"));
   ...
   

   
   

3. Modifiez le code dans ApplyVendLedgEntryfonction dans la feuille compta.-Valider ligne codeunit (12) comme suit :
   Code existant

   ...CalcCurrencyRealizedGainLoss(
               NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
   
   // Delete the following lines.
             VATRealizedGainLossLCY := RealizedGainLossLCY;
   
             CalcCurrencyRealizedGainLoss(
               OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
   // End of the deleted lines.
   
             CalcApplication(
               NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
   ...
   

   Code de remplacement

   ...CalcCurrencyRealizedGainLoss(
               NewCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,AppliedAmount,AppliedAmountLCY,RealizedGainLossLCY);
   
   // Add the following lines.
   
             CalcCurrencyRealizedGainLoss(
               OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
               GenJnlLine,-OldAppliedAmount,-AppliedAmountLCY,RealizedGainLossLCY);
             VATRealizedGainLossLCY := RealizedGainLossLCY;
   // End of the added lines.
   
             CalcApplication(
               NewCVLedgEntryBuf,OldCVLedgEntryBuf,DtldCVLedgEntryBuf,
   ...
   

4. Modifiez le code dans la VendUnrealizedVATfonction dans la feuille compta.-Valider ligne codeunit (12) comme suit :
   Code existant

   ...IF (VATPostingSetup."Unrealized VAT Type" = VATPostingSetup."Unrealized VAT Type"::"Cash Basis") AND
                      (GainLossLCY <> 0)
                   THEN BEGIN
                     VATBaseFCY := ROUND(
                       CurrExchRate.ExchangeAmtLCYToFCY(
                         PostingDate,VendLedgEntry2."Currency Code",VATBase,VendLedgEntry2."Original Currency Factor"));
   ...
   

   Code de remplacement

   ...IF (VATPostingSetup."Unrealized VAT Type" = VATPostingSetup."Unrealized VAT Type"::"Cash Basis") AND
                      (GainLossLCY <> 0)
                   THEN BEGIN
   
   // Add the following lines.
                    IF CurrencyFactor = 1  THEN
                       CurrencyFactor := CurrExchRate.ExchangeRate(PostingDate,VendLedgEntry2."Currency Code");
   
   // End of the added lines.
   
                     VATBaseFCY := ROUND(
                       CurrExchRate.ExchangeAmtLCYToFCY(
                         PostingDate,VendLedgEntry2."Currency Code",VATBase,VendLedgEntry2."Original Currency Factor"));
   ...