La dimension du type de commande n’est pas considérée comme si vous créez une commande de service de contrat sur une facture de service dans Microsoft Dynamics NAV 2009 SP1

Modèle : CPR - modèle de correctif de Code de Navision

N° de BOGUE : 139558 (Maintenance du contenu)BOGUE #: 57902 (Vedbaek SE)

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

Symptômes

Lorsque vous créez une commande de service de contrat sur une facture de service dans la gestion des contrats dans Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), la dimension de type de commande n’est pas considérée. Par conséquent, la dimension est manquante dans la commande de service créée.

Résolution

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.

Si ce correctif n’est pas publié pour le téléchargement public (autrement dit, qu'une URL publique pour ce correctif n’est pas fournie dans cet article), distribution nécessite l’approbation du responsable, membre de l’équipe escalade ou responsable technique et les informations suivantes s’appliquent :

  • Pour recevoir le correctif, les clients doivent être confrontés au bogue qui est mentionné dans la section « Symptômes ».

  • Vous devez suivre les clients que vous envoyez ce correctif et fournissez le prochain service pack dès qu’il sera disponible (si un service pack est commercialisé).

Ce correctif n’est pas planifié pour être incluse dans un service pack de Microsoft Dynamics NAV 2009.



Informations sur l’installation

Microsoft fournit des exemples de programmation à titre d'illustration uniquement, sans garantie expresse ou implicite. Ceci inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les ingénieurs du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

Remarque Avant d’installer ce correctif, vérifiez que tous les utilisateurs du client Microsoft Navision sont enregistrés sur le système. Cela inclut les utilisateurs du client Microsoft Navision Application Services (NAS). Vous devez être le seul utilisateur client connecté lors de l’implémentation de ce correctif.

Pour appliquer ce correctif, vous devez posséder une licence développeur.

Il est recommandé que le compte d’utilisateur dans la fenêtre Logins Windows ou dans la fenêtre Logins base de données est affecté à l’ID de rôle « SUPER ». Si le compte d’utilisateur ne peut pas être affecté à l’ID de rôle « SUPER », vous devez vérifier que le compte d’utilisateur dispose des autorisations suivantes :

  • L’autorisation de modification pour l’objet que vous allez modifier.

  • L’autorisation d’exécution pour l’objet ID objet système 5210 et pour l’objet ID objet système 9015 .



Remarque Vous n’êtes pas obligé de disposer des droits pour les banques de données excepté si vous devez réparer des données.

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 le déclencheur de Nomenclature n° – OnValidate dans la table en-tête contrat Service (5965) comme suit :
    Code existant

    ...CreateDim(                                                                    
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Delete the following line.
    DATABASE::"Service Contract Template","Template No.");
    // End of the deleted line.

    END;
    ...

    Code de remplacement

    ...CreateDim(
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Add the following lines.
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    END;
    ...
  2. Modifiez le code dans le déclencheur de la table en-tête contrat Service (5965) nom client facturé – OnValidate comme suit :
    Code existant

    ...CreateDim(
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Delete the following line.
    DATABASE::"Service Contract Template","Template No.");
    // End of the deleted line.

    END;
    ...

    Code de remplacement

    ...CreateDim(
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Add the following lines.
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    END;
    ...
  3. Ajoutez le code suivant au déclencheur OnValidate – le Type de commande de Service dans la table en-tête contrat Service (5965) :

    CreateDim(DATABASE::"Service Order Type","Service Order Type",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code");
    END;

  4. Modifiez le code dans le déclencheur N° de modèle : OnValidate dans la table en-tête contrat Service (5965) comme suit :
    Code existant

    ...CreateDim(
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Delete the following line.
    DATABASE::"Service Contract Template","Template No.");
    // End of the deleted line.

    END;
    ...

    Code de remplacement

    ...CreateDim(
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Add the following lines.
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    END;
    ...
  5. Modifiez le code dans le déclencheur N° téléphone – OnValidate dans la table en-tête contrat Service (5965) comme suit :
    Code existant

    ...CreateDim(
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Delete the following line.
    DATABASE::"Service Contract Template","Template No.");
    // End of the deleted line.

    END;
    ...

    Code de remplacement

    ...CreateDim(
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Add the following lines.
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    END;
    ...
  6. Ajoutez les paramètres suivants à la fonction CreateDim de la table en-tête contrat Service (5965) :

      • Nom: Type4

      • Type de données: nombre entier

      • Nom: No4

      • Type: Code

      • Longueur: 20

  7. Modifiez le code dans la fonction CreateDim de la table en-tête contrat Service (5965) comme suit :
    Code existant

    ...No[2] := No2;
    TableID[3] := Type3;
    No[3] := No3;
    TableID[4] := Type4;
    No[4] := No4;


    "Shortcut Dimension 1 Code" := '';
    "Shortcut Dimension 2 Code" := '';
    DimMgt.GetDefaultDim(
    TableID,No,SourceCodeSetup."Service Management",
    ...

    Code de remplacement

    ...No[2] := No2;
    TableID[3] := Type3;
    No[3] := No3;
    TableID[4] := Type4;
    No[4] := No4;

    // Add the following lines.
    TableID[5] := Type5;
    No[5] := No5;
    // End of the added lines.

    "Shortcut Dimension 1 Code" := '';
    "Shortcut Dimension 2 Code" := '';
    DimMgt.GetDefaultDim(
    TableID,No,SourceCodeSetup."Service Management",
    ...
  8. Modifiez le code dans la fonction CreateOrAddToServOrder dans le rapport Créer cdes contrat Service (6036) comme suit :
    Code existant

    ...ServHeader."Max. Labor Unit Price" := "Service Contract Header"."Max. Labor Unit Price";
    ServHeader."Your Reference" := "Service Contract Header"."Your Reference";
    ServHeader."Service Zone Code" := "Service Contract Header"."Service Zone Code";
    ServHeader."Shortcut Dimension 1 Code" := "Service Contract Header"."Shortcut Dimension 1 Code";
    ServHeader."Shortcut Dimension 2 Code" := "Service Contract Header"."Shortcut Dimension 2 Code";
    ServHeader.MODIFY(TRUE);


    DimMgt.DeleteDocDim(
    DATABASE::"Service Header",
    ServHeader."Document Type",
    ...

    Code de remplacement

    ...ServHeader."Max. Labor Unit Price" := "Service Contract Header"."Max. Labor Unit Price";
    ServHeader."Your Reference" := "Service Contract Header"."Your Reference";
    ServHeader."Service Zone Code" := "Service Contract Header"."Service Zone Code";
    ServHeader."Shortcut Dimension 1 Code" := "Service Contract Header"."Shortcut Dimension 1 Code";
    ServHeader."Shortcut Dimension 2 Code" := "Service Contract Header"."Shortcut Dimension 2 Code";

    // Add the following line.
    ServHeader.VALIDATE("Service Order Type","Service Contract Header"."Service Order Type");
    // End of the added line.

    ServHeader.MODIFY(TRUE);

    DimMgt.DeleteDocDim(
    DATABASE::"Service Header",
    ServHeader."Document Type",
    ...
  9. Modifiez le code dans la ChangeCustNoOnServContract dans le codeunit ServContractManagement (5940) comme suit :
    Code existant

    ...CreateDim(
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Delete the following line.
    DATABASE::"Service Contract Template","Template No.");
    // End of the deleted line.

    ServContractLine.RESET;
    ServContractLine.SETRANGE("Contract Type","Contract Type");
    ServContractLine.SETRANGE("Contract No.","Contract No.");
    IF ServContractLine.FIND('-') THEN
    ...

    Code de remplacement

    ...CreateDim(
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    DATABASE::"Responsibility Center","Responsibility Center",

    // Add the following lines.
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    ServContractLine.RESET;
    ServContractLine.SETRANGE("Contract Type","Contract Type");
    ServContractLine.SETRANGE("Contract No.","Contract No.");
    IF ServContractLine.FIND('-') THEN
    ...
  10. Modifiez le code dans le déclencheur OnRun dans le ServContractQuote-Stat. Upd. codeunit (5942) comme suit :
    Code existant 1

    ...ServContract.VALIDATE("Serv. Contract Acc. Gr. Code",ContractTemplate."Serv. Contract Acc. Gr. Code");
    ServContract."Template No." := ContractTemplate."No.";


    ServContract.CreateDim(
    DATABASE::"Service Contract Template",ContractTemplate."No.",

    // Delete the following line.
    0,'',0,'',0,'');
    // End of the deleted line.

    WITH ServContract DO BEGIN
    CreateDim(
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    ...

    Code de substitution 1

    ...ServContract.VALIDATE("Serv. Contract Acc. Gr. Code",ContractTemplate."Serv. Contract Acc. Gr. Code");
    ServContract."Template No." := ContractTemplate."No.";


    ServContract.CreateDim(
    DATABASE::"Service Contract Template",ContractTemplate."No.",

    // Add the following line.
    0,'',0,'',0,'',0,'');
    // End of the added line.

    WITH ServContract DO BEGIN
    CreateDim(
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",
    ...

    Code existant 2

    ...WITH ServContract DO BEGIN
    CreateDim(
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",

    // Delete the following line.
    DATABASE::"Responsibility Center","Responsibility Center");
    // End of the deleted line.

    END;


    ContractDisc.RESET;
    ContractDisc.SETRANGE("Contract Type",ServContract."Contract Type");
    ContractDisc.SETRANGE("Contract No.",ServContract."Contract No.");
    ...

    Code de substitution 2

    ...WITH ServContract DO BEGIN
    CreateDim(
    DATABASE::"Service Contract Template","Template No.",
    DATABASE::Customer,"Bill-to Customer No.",
    DATABASE::"Salesperson/Purchaser","Salesperson Code",

    // Add the following lines.
    DATABASE::"Responsibility Center","Responsibility Center",
    DATABASE::"Service Order Type","Service Order Type");
    // End of the added lines.

    END;


    ContractDisc.RESET;
    ContractDisc.SETRANGE("Contract Type",ServContract."Contract Type");
    ContractDisc.SETRANGE("Contract No.",ServContract."Contract No.");
    ...

Conditions préalables

Vous devez disposer du Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) pour appliquer ce correctif.

Informations sur la suppression

Vous ne pouvez pas supprimer ce correctif.

État

Microsoft a confirmé l'existence de ce 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 de Microsoft. Les informations contenues dans ce document sont fournies en l'état, en réponse à des problèmes nouveaux. En raison de la rapidité de leur mise à disposition, les documents peuvent contenir des erreurs typographiques et peuvent être révisés à tout moment sans préavis. Consultez les Conditions d’utilisation pour d’autres considérations.

Auteur : pruivo
Writer : v-tinw
Réviseur technique : pruivo
Éditeur :

Besoin d’aide ?

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoindre Microsoft Insider

Ces informations vous ont-elles été utiles ?

Nous vous remercions pour vos commentaires.

Merci pour vos commentaires. Il serait vraisemblablement utile pour vous de contacter l’un de nos agents du support Office.

×