Écritures d’entrepôt ne sont pas mis à jour avec toutes les lignes traçabilité dans une feuille de travail lorsque vous publiez un élément dans la feuille de travail à un emplacement dans 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 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 : créer les variables locales suivantes :

1. Ajouter une nouvelle variable globale de la table ligne de Journal de projet (210) et spécifiez la variable comme suit :

   • Nom: WMSManagement

   • Type de données: Codeunit

   • Sous-type: gestion de WMS (7302)

2. Supprimer le code suivant dans la propriété TableRelation du Code emplacement de champ (5403) de la table ligne de Journal de projet (210) :

   Bin.Code WHERE (Location Code=FIELD(Location Code));

3. Modifier le code dans le déclencheur OnValidate Code d’emplacement de champ (5403) de la table ligne de Journal de projet (210) comme suit :
   Code existant

   ...// Delete the following lines.
   TESTFIELD("Location Code");
   CheckItemAvailable;
   // End of the lines.
   ...
   

   Code de remplacement

   ...// Add the following lines.
   TESTFIELD("Location Code");
   IF "Bin Code" <> '' THEN BEGIN
   GetLocation("Location Code");
   Location.TESTFIELD("Bin Mandatory");
   END;
   TESTFIELD(Type,Type::Item);
   CheckItemAvailable;
   WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
   // End of the lines.
   ...
   

4. Ajouter une nouvelle variable locale dans le triggerin de OnLookup Code d’emplacement - la table ligne de Journal de projet (210) et spécifiez la variable comme suit :

   • Nom: BinCode

   • Type de données: Code

   • Longueur: 20

5. Ajoutez le code suivant dans le Code d’emplacement - OnLookup déclencheur dans la table ligne de Journal de projet (210) :

   TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
   BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
   IF BinCode <> '' THEN
   VALIDATE("Bin Code",BinCode);
   

6. Modifiez la valeur dans la propriété OptionString du champ Document Source (25) dans la table ligne feuille entrepôt (7311) pour les éléments suivants :
   OptionString=, S. commande S. facture, note de crédit de S., S. retour, commande, facture, avoir P., P. retour, v.. Fact. Transfert, nomenclature de production. Consommation, f. article., invent. F., Reclass. F., consommation feuille intracomm., f., f. nomencl., Serv ordre de sortie, la tâche f.

7. Modifiez la valeur dans la propriété OptionString du champ Document de référence (60) de la table ligne feuille entrepôt (7311) pour les éléments suivants :
   OptionString= , réception, validée P. facture, n. réception, validée P. avoir, expédition enregistrée, v. reportée, n. expédition enregistrée, enregistrée s avoir, réception enreg. T., expédition enregistrée. T., élément Journal, O.f., rangement, prélèvement, mouvement, Journal des nomenclatures, feuille de travail

8. Modifiez la valeur dans la propriété OptionString du champ Document Source (25) dans la table Ecriture magasin (7312) à ce qui suit :
   OptionString=, S. commande S. facture, note de crédit de S., S. retour, commande, facture, avoir P., P. retour, v.. Fact. Transfert, nomenclature de production. Consommation, f. article., invent. F., Reclass. F., consommation feuille intracomm., f., f. nomencl., serv. ordre de sortie, la tâche f.

9. Modifiez la valeur dans la propriété OptionString du champ Document de référence (60) dans la table Ecriture magasin (7312) à ce qui suit :
   OptionString= , réception, validée P. facture, n. réception, validée P. avoir, expédition enregistrée, v. reportée, n. expédition enregistrée, enregistrée s avoir, réception enreg. T., expédition enregistrée. T., élément Journal, O.f., rangement, prélèvement, mouvement, Journal des nomenclatures, feuille de travail

10. Modifiez la propriété Visible du contrôle de Code magasin (60) sous la forme de la feuille projet (201) comme suit :
    Code existant

    Visible = Yes

    Code de remplacement

    Visible = No

11. Ajouter le champ Code emplacement entre le champ Code magasin et le champ Code Type travail dans le formulaire de feuille de travail (201) et spécifiez la valeur du champ suivre :

    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }
    
    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.
    
    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
    

12. Ajouter une nouvelle variable globale de la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

    • Nom: emplacement

    • Type de données: enregistrement

    • Sous-type: emplacement (14)

13. Créer une nouvelle fonction GetLocation dans la feuille de travail.-Valider ligne codeunit (1012) comme suit :

    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
    

14. Ajoutez le code suivant dans la fonction GetLocation dans la feuille de travail.-Valider ligne codeunit (1012) :

    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
    

15. Créer une fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012) comme suit :

    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);

16. Créer les variables locales suivants dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012) :

    1. Ajoutez une variable locale dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

       • Nom: WarehouseJournalLine

       • Type de données: enregistrement

       • Sous-type: ligne feuille entrepôt (7311)

    2. Ajoutez une variable locale dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

       • Nom: TempWarehouseJournalLine

       • Type de données: enregistrement temporaire

       • Sous-type: ligne feuille entrepôt (7311)

    3. Ajoutez une variable locale dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

       • Nom: ItemTrackingManagement

       • Type de données: Codeunit

       • Sous-type: gestion de traçabilité (6500)

    4. Ajoutez une variable locale dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

       • Nom: WMSManagement

       • Type de données: Codeunit

       • Sous-type: gestion de WMS (7302)

    5. Ajoutez une variable locale dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

       • Nom: WhseJnlRegisterLine

       • Type de données: Codeunit

       • Sous-type: entrep. F.-enregistrer la ligne (7301)

17. Ajoutez le code suivant dans la fonction PostWhseJnlLine dans la feuille de travail.-Valider ligne codeunit (1012) comme suit :

    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
    

18. Ajouter une nouvelle variable locale de la fonction de Code dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

    • Nom: TempTrackingSpecification

    • Type de données: enregistrement temporaire

    • Sous-type: Spécification traçabilité (336)

19. Ajouter une nouvelle variable locale de la fonction de Code dans la feuille de travail.-Valider ligne codeunit (1012), puis spécifiez la variable comme suit :

    • Nom: ItemJnlLine2

    • Type de données: enregistrement

    • Sous-type: ligne feuille article (83)

20. Modifier le code de la fonction de Code dans la feuille de travail.-Valider ligne codeunit (1012) comme suit :
    Code existant 1

    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    
    

    Code de substitution 1

    ...ItemJnlLine.INIT;
    
    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";
    
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    

    Code existant 2

    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    

    Code de substitution 2

    ...ItemLedgEntry.LOCKTABLE;
    
    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;
    
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    
    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
    

21. Modifiez la valeur dans la propriété OptionString du paramètre Document de référence dans la fonction GetSourceDocument dans l’emplacement ajustement. Codeunit de gestion (5775) à ce qui suit :
    OptionString=, S. commande S. facture, note de crédit de S., S. retour, commande, facture, avoir P., P. retour, v.. Fact. Transfert, nomenclature de production. Consommation, f. article., invent. F., Reclass. F., consommation feuille intracomm., f., f. nomencl., serv. ordre de sortie, la tâche f.

22. Modifiez le code dans la fonction GetSourceDocument dans l’emplacement ajustement. Codeunit de gestion (5775) comme suit :
    Code existant

    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    

    Code de remplacement

    ...EXIT;
    END;
    
    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN 
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.
    
    END;
    ERROR(Text000);
    ...
    

23. Modifiez le code dans la fonction CreateWhseJnlLine dans le codeunit de gestion de WMS (7302) comme suivre :
    Code existant

    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";
    
    WhseJnlLine."Reference No." := "Document No.";
    ...
    

    Code de remplacement

    ...WhseJnlLine."Source Line No." := "Line No.";
    
    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...