La ligne de journal intrastat est incorrecte lorsque vous publiez une facture dans la version espagnole de Microsoft Dynamics NAV

S’applique à

Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Les articles publiés rapidement fournissent des informations directement dans le organization de support Microsoft. Les informations contenues dans les présentes sont créées en réponse à des sujets émergents ou uniques, ou sont destinées à compléter d’autres informations de la Base de connaissances.
Microsoft Business Solutions-Navision 4.0 et Microsoft Navision 4.0 font désormais partie de Microsoft Dynamics NAV 4.0. Toutes les références à Microsoft Business Solutions-Navision ou à Microsoft Navision 4.0 se rapportent à Microsoft Dynamics NAV.

Cet article s’applique à Microsoft Dynamics NAV 5.0 pour les paramètres régionaux en espagnol (es).

Symptômes

Lorsque vous publiez une facture comportant une ligne d’article et une ligne de frais d’article dans la version espagnole de Microsoft Dynamics NAV, la ligne de journal intrastat est incorrecte. Ce problème se produit si une remise sur facture et une remise de paiement sont utilisées.

Ce problème se produit dans les produits suivants :

La version espagnole de Microsoft Dynamics NAV 2009
La version espagnole de Microsoft Dynamics NAV 5.0
La version espagnole de Microsoft Dynamics NAV 4.0

Cause

Ce problème se produit parce que Microsoft Dynamics NAV ne prend pas en compte la remise dans les frais d’article appliqués à la ligne d’article.

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 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 appliquer ce correctif logiciel, procédez comme suit :

Modifiez le code du déclencheur UpdateVATOnLines dans la table Sales Line (37) comme suit :
Code existant

...
        END;
        InitOutstanding;
        MODIFY;
        RecRef.GETTABLE(SalesLine);
...

Code de remplacement

...
        END;
        InitOutstanding;

// Add the following lines.
        IF Type = Type::"Charge (Item)" THEN 
          UpdateItemChargeAssgnt; 
// End of the added lines.

        MODIFY;
        RecRef.GETTABLE(SalesLine);
...

Modifiez le code du déclencheur UpdateVATOnLines dans la table Ligne d’achat (39) comme suit :
Code existant

...
          UpdateUnitCost;
        END;
        MODIFY;
        RecRef.GETTABLE(PurchLine);
...

Code de remplacement

...
          UpdateUnitCost;
        END;

// Add the following lines.
        IF Type = Type::"Charge (Item)" THEN  
          UpdateItemChargeAssgnt;
// End of the added lines.

        MODIFY;
        RecRef.GETTABLE(PurchLine);
...

Modifiez le code dans le déclencheur InitValueEntry dans l’unité de code Item Jnl.-Post Line (22) comme suit :
Code 1 existant

...
      IF GLSetup."Additional Reporting Currency" <> '' THEN
        ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");

// Delete the following lines.
      IF (ValueEntry."Valued Quantity" > 0) AND  
         (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND
// End of the deleted lines.

         (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
      THEN BEGIN
        IF Item."Costing Method" = Item."Costing Method"::Standard THEN
...

Code de remplacement 1

...
      IF GLSetup."Additional Reporting Currency" <> '' THEN
        ValueEntry."Cost per Unit (ACY)" := RetrieveCostPerUnitACY(ValueEntry."Cost per Unit");
// Add the following line.
      IF (ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Purchase) AND

         (ValueEntry."Entry Type" = ValueEntry."Entry Type"::"Direct Cost")
      THEN BEGIN
        IF Item."Costing Method" = Item."Costing Method"::Standard THEN
...

Code existant 2

...
          END;
        ValueEntry."Cost Amount (Actual)" := CostAmt;
        ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;

// Delete the following lines.
        IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN  
          IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN 
            ValueEntry."Cost Amount (Actual)" := ValueEntry."Cost Amount (Actual)" - "Discount Amount"; 
            ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - "Discount Amount"; 
          END; 
// End of the deleted lines.

      END;
    (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
...

Code de remplacement 2

...
          END;
        ValueEntry."Cost Amount (Actual)" := CostAmt;
        ValueEntry."Cost Amount (Actual) (ACY)" := CostAmtACY;

      END;
    (ValueEntry."Expected Cost" = TRUE) AND (ValueEntry.Inventoriable = TRUE):
...

Code existant 3

...
          ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
        END;
      END;
  END;


  RoundAmtValueEntry(ValueEntry);
...

Code de remplacement 3

...
          ValueEntry."Cost Amount (Non-Invtbl.)(ACY)" := CostAmtACY;
        END;
      END;
  END;

// Add the following lines.
  IF (GLSetup."Payment Discount Type" = GLSetup."Payment Discount Type"::"Calc. Pmt. Disc. on Lines") THEN BEGIN
    IF (ValueEntry."Discount Amount" <> 0) AND (ItemJnlLine."Item Charge No." <> '') THEN BEGIN
      CASE "Entry Type" OF
        "Entry Type"::Sale: 
         ValueEntry."Sales Amount (Actual)" := ValueEntry."Sales Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
        "Entry Type"::Purchase:
        BEGIN  
          ValueEntry."Cost Amount (Actual)" := CostAmt - ItemJnlLine."Pmt. Discount Amount"; 
          ValueEntry."Purchase Amount (Actual)" := ValueEntry."Purchase Amount (Actual)" - ItemJnlLine."Pmt. Discount Amount";
        END;
      END;
    END; 
  END;
// End of the added lines.

  RoundAmtValueEntry(ValueEntry);
...

Modifiez le code du déclencheur PostItemChargePerOrder dans l'Sales-Post codeunit (80) comme suit :
Code existant

...
  IF SalesHeader."Currency Code" <> '' THEN
    ItemJnlLine2."Discount Amount" := ROUND(
      CurrExchRate.ExchangeAmtFCYToLCY(
        UseDate,SalesHeader."Currency Code",

// Delete the following line.
        (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 

         ItemJnlLine2."Invoiced Qty. (Base)" /
         ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
         SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
  ELSE
    ItemJnlLine2."Discount Amount" := ROUND(

// Delete the following line.
      (ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *

       ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
       GLSetup."Amount Rounding Precision");
// Delete the following lines.
  IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN
    ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
...

Code de remplacement

...
  IF SalesHeader."Currency Code" <> '' THEN
    ItemJnlLine2."Discount Amount" := ROUND(
      CurrExchRate.ExchangeAmtFCYToLCY(
        UseDate,SalesHeader."Currency Code",

// Add the following lines.
        (ItemChargeSalesLine."Line Discount Amount" +
        ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") * 
// End of the added lines.

         ItemJnlLine2."Invoiced Qty. (Base)" /
         ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign"  / QtyToInvoice,
         SalesHeader."Currency Factor"),GLSetup."Amount Rounding Precision")
  ELSE
    ItemJnlLine2."Discount Amount" := ROUND(

// Add the following lines.
      (ItemChargeSalesLine."Line Discount Amount" +
      ItemChargeSalesLine."Inv. Discount Amount" + ItemChargeSalesLine."Pmt. Disc. Given Amount") *
// End of the added lines.

       ItemJnlLine2."Invoiced Qty. (Base)" /
       ItemChargeSalesLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
       GLSetup."Amount Rounding Precision");
// Add the following lines.
    ItemJnlLine2."Pmt. Discount Amount" := ItemChargeSalesLine."Pmt. Disc. Given Amount" *  
      ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargeSalesLine."Quantity (Base)" * 
        "Qty. to Assign"  / QtyToInvoice; 
    IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN 
      ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
      ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
    END;
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargeSalesLine."Shortcut Dimension 1 Code";
...

Modifiez le code dans le déclencheur PostItemChargePerOrder dans l’unité de code Purch.-Post (90) comme suit :
Code existant

...
      ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
      GLSetup."Amount Rounding Precision");


  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
  ItemJnlLine2."Shortcut Dimension 2 Code" := ItemChargePurchLine."Shortcut Dimension 2 Code";
...

Code de remplacement

...
      ItemChargePurchLine."Quantity (Base)" * "Qty. to Assign" / QtyToInvoice,
      GLSetup."Amount Rounding Precision");

// Add the following lines.
   ItemJnlLine2."Pmt. Discount Amount" := ItemChargePurchLine."Pmt. Disc. Rcd. Amount" * 
     ItemJnlLine2."Invoiced Qty. (Base)" / ItemChargePurchLine."Quantity (Base)" *
       "Qty. to Assign" / QtyToInvoice; 
   IF "Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"] THEN BEGIN
     ItemJnlLine2."Discount Amount" := -ItemJnlLine2."Discount Amount";
     ItemJnlLine2."Pmt. Discount Amount" := -ItemJnlLine2."Pmt. Discount Amount";
   END;
// End of the added lines.

  ItemJnlLine2."Shortcut Dimension 1 Code" := ItemChargePurchLine."Shortcut Dimension 1 Code";
...

Configuration requise

L’un des produits suivants doit être installé pour appliquer ce correctif :

La version espagnole de Microsoft Dynamics NAV 2009 Service Pack 1
La version espagnole de Microsoft Dynamics NAV 2009
La version espagnole de Microsoft Dynamics NAV 5.0 Service Pack 1
La version espagnole de Microsoft Dynamics NAV 4.0 Service Pack 3

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 à ».

MICROSOFT ET/OU SES FOURNISSEURS NE FONT AUCUNE DÉCLARATION OU GARANTIE QUANT À LA PERTINENCE, À LA FIABILITÉ OU À L’EXACTITUDE DES INFORMATIONS CONTENUES DANS LES DOCUMENTS ET LES GRAPHIQUES ASSOCIÉS PUBLIÉS SUR CE SITE WEB (LES « SUPPORTS ») À QUELQUE FIN QUE CE SOIT.

LES DOCUMENTS PEUVENT INCLURE DES IMPRÉCISIONS TECHNIQUES OU DES ERREURS TYPOGRAPHIQUES ET PEUVENT ÊTRE MODIFIÉS À TOUT MOMENT SANS PRÉAVIS. DANS LA MESURE MAXIMALE AUTORISÉE PAR LA LOI EN VIGUEUR, MICROSOFT ET/OU SES FOURNISSEURS REJETTENT ET EXCLUENT TOUTES LES REPRÉSENTATIONS, GARANTIES ET CONDITIONS EXPRESSES, IMPLICITES OU LÉGALES, Y COMPRIS, MAIS SANS S’Y LIMITER, LES REPRÉSENTATIONS, GARANTIES OU CONDITIONS DE TITRE, L’ABSENCE DE CONTREFAÇON, LA CONDITION SATISFAISANTE OU LA QUALITÉ, LA QUALITÉ MARCHANDE ET L’ADÉQUATION À UN USAGE PARTICULIER, EN CE QUI CONCERNE LE MATÉRIEL.

La ligne de journal intrastat est incorrecte lorsque vous publiez une facture dans la version espagnole de Microsoft Dynamics NAV

Symptômes

Cause

Résolution

Informations sur le correctif logiciel

Informations sur l’installation

Modifications du code

Configuration requise

Informations sur la suppression

État

Ces informations vous ont-elles été utiles ?

Nous vous remercions de vos commentaires.