Vous ne pouvez pas créer de commande client à partir d’un devis pour un client qui utilise le paiement anticipé lorsque le devis utilise le titre ou le type de ligne « Début-Total » ou « Fin-Total » dans la version suisse de Microsoft Dynamics NAV 2009

S’applique à
Dynamics NAV 2009

Cet article s’applique à Microsoft Dynamics NAV pour les pays et paramètres régionaux de langue suivants.

  • Français (Suisse) (fr-ch)
  • Allemand (Suisse) (gr-ch)
  • Italien (Suisse) (it-ch)

Symptômes

Supposons que vous ayez un client qui utilise le paiement anticipé dans la version suisse de Microsoft Dynamics NAV 2009. Ensuite, vous créez un devis de vente dans lequel le champ Type est défini sur Titre ou Début-Total ou Fin-Total pour le client. Dans ce cas, lorsque vous créez une commande client à partir du devis en cliquant sur Passer une commande, le message d’erreur suivant s’affiche :

Remarque

Vous devez spécifier Non. dans Sales Line Document Type='Order',Document No.='DocumentNumber',Line No.='LineNumber'.

Ce problème se produit dans les produits suivants :

  • La version suisse de Microsoft Dynamics NAV 2009 R2
  • La version suisse de Microsoft Dynamics NAV 2009 Service Pack 1

      

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 :

  1. Modifiez le code dans la table Sales Line (37) comme suit :
    Code 1 existant

    ...
// Delete the following line.
IF NOT (Type IN [Type::" ",Type::Title..Type::"New Page"]) THEN BEGIN
...

    Code de remplacement 1

    ...
// Add the following line.
IF IsTypeQuantitative THEN BEGIN
...

    Code existant 2

    ...
// Delete the following line.
IF (NOT (Type IN [Type::"G/L Account"..Type::"Charge (Item)"])) AND (Quantity <> 0) THEN
...

    Code de remplacement 2

    ...
// Add the following line.
IF NOT IsTypeQuantitative AND (Quantity <> 0) THEN
...

    Code existant 3

    ...
// Delete the following line.
IF ("Prepayment %" <> 0) AND (Type <> Type::" ") THEN BEGIN
...

    Code de remplacement 3

    ...
// Add the following line.
IF ("Prepayment %" <> 0) AND IsTypeQuantitative THEN BEGIN
...

    Code existant 4

    ...
// Delete the following line.IF NOT (Type IN[Type::"G/L Account"..Type::"Charge (Item)"]) THEN
...

    Code de remplacement 4

    ...
// Add the following line.
IF NOT IsTypeQuantitative THEN BEGIN
...

    Code existant 5

    ...
// Delete the following line.
IF (Type IN[Type::"G/L Account"..Type::"Charge (Item)"]) AND ("No." <> '') THEN BEGIN
...

    Code de remplacement 5

    ...
// Add the following line.
IF IsTypeQuantitative AND ("No." <> '') THEN BEGIN
...

    Code existant 6

    ...
PROCEDURE RoundLineAmount@1150000(_Amount@1150000 : Decimal) : Decimal;
VAR
SalesSetup@1150001 : Record 311;
BEGIN
GLSetup.GET;
IF ("Currency Code" = '') OR ("Currency Code" = GLSetup."LCY Code") THEN BEGIN
SalesSetup.GET;
SalesSetup.TESTFIELD("Line Amt. Round LCY");
_Amount := ROUND(_Amount,SalesSetup."Line Amt. Round LCY");
END;
EXIT(_Amount);
END;
BEGIN
...

    Code de remplacement 6

    ...
PROCEDURE RoundLineAmount@1150000(_Amount@1150000 : Decimal) : Decimal;
VAR
SalesSetup@1150001 : Record 311;
BEGIN
GLSetup.GET;
IF ("Currency Code" = '') OR ("Currency Code" = GLSetup."LCY Code") THEN BEGIN
SalesSetup.GET;
SalesSetup.TESTFIELD("Line Amt. Round LCY");
_Amount := ROUND(_Amount,SalesSetup."Line Amt. Round LCY");
END;
EXIT(_Amount);
END;

// Add the following lines.
PROCEDURE IsTypeQuantitative@1150010() : Boolean;
BEGIN
EXIT(Type IN [Type::"G/L Account"..Type::"Charge (Item)"]);
END;
// End of the lines.

BEGIN
...

    Code existant 7

    ...
// Delete the following line.
IF Type <> Type::" " THEN

Quantity := TempSalesLine.Quantity;
...

    Code de remplacement 7

    ...
// Add the following line.
IF IsTypeQuantitative THEN

Quantity := TempSalesLine.Quantity;
...

    Code existant 8

    ...
// Delete the following line.
IF NOT "System-Created Entry" AND ("Document Type" = "Document Type"::Order) AND (Type <> Type::" ") THEN

"Prepayment %" := SalesHeader."Prepayment %";...

    Code de remplacement 8

    ...
// Add the following line.
IF NOT "System-Created Entry" AND ("Document Type" = "Document Type"::Order) AND IsTypeQuantitative THEN

"Prepayment %" := SalesHeader."Prepayment %";
...

    Code existant 9

    ...
// Delete the following line.
IF ("Shipment Date" < WORKDATE) AND (Type <> Type::" ") THEN

IF NOT (HideValidationDialog OR HasBeenShown) AND GUIALLOWED THEN BEGIN
...

    Code de remplacement 9

    ...
// Add the following line.
IF ("Shipment Date" < WORKDATE) AND IsTypeQuantitative THEN

IF NOT (HideValidationDialog OR HasBeenShown) AND GUIALLOWED THEN BEGIN
...

    Code existant 10

    ...
// Delete the following line.
IF Type <> Type::" " THEN

UpdateAmounts;
...

    Code de remplacement 10

    ...
// Add the following line.
IF IsTypeQuantitative THEN

UpdateAmounts;
...

    Code existant 11

    ...
// Delete the following line.
IF Type = Type::" " THEN

EXIT(TRUE);
...

    Code de remplacement 11

    ...
// Add the following line.
IF NOT IsTypeQuantitative THEN

EXIT(TRUE);
...

  2. Modifiez le code dans l’unité de code QuoteMgt (3010801) comme suit :
    Code existant

    ...
// Delete the following lines.
IF (Type IN [Type::"G/L Account"..Type::"Charge (Item)"]) AND
("No." <> '')
THEN BEGIN
// End of the lines.
...

    Code de remplacement

    ...
// Add the following line.
IF IsTypeQuantitative AND ("No." <> '') THEN BEGIN
...

Configuration requise

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

  • La version suisse de Microsoft Dynamics NAV 2009 R2
  • La version suisse de Microsoft Dynamics NAV 2009 Service Pack 1

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.