Intrări de depozit nu sunt actualizate cu toate liniile de urmărire articol într-un jurnal de activitate când publicați un element în Jurnalul de activitate un de reciclare în Microsoft Dynamics NAV 2009

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Modificări de cod

Notă Întotdeauna test cod remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.
Pentru a rezolva această problemă, urmați acești pași: creați următoarele variabile locale:

1. Adăugați o nouă variabilă globală în tabelul de linie de jurnal de lucrare (210) și apoi specificați variabila după cum urmează:

   • Nume: WMSManagement

   • Tip de date: Codeunit

   • Subtip: WMS Management (7302)

2. Ștergeți următorul cod în proprietate TableRelation Bin cod de câmp (5403) în tabelul de linie de jurnal lucrare (210):

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

3. Modificare codul în trigger OnValidate pentru reciclare cod câmp (5403) în tabelul de linie de jurnal de lucrare (210) după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...// 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. Adăugați o nouă variabilă locală în Cod Bin - OnLookup triggerin tabelul de linie de jurnal lucrare (210) și apoi specificați variabila după cum urmează:

   • Nume: BinCode

   • Tip de date: cod

   • Lungime: 20

5. Adăugaţi următorul cod în Cod de reciclare - OnLookup declanşa în tabelul de linie de jurnal lucrare (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. Modificați valoarea în proprietatea OptionString câmpul Document sursă (25) în tabelul de linie de jurnal depozit (7311) cu următoarele:
   OptionString=, S. comandă, S. factură, notă de S. Credit, S. Return ordinea, ordinea P., P. factură, notă de P. Credit, P. Return ordinea, Inb. Transfer, Outb. Transfer, Prod. Consum, elementul jurnal. stoc fizic. Jurnal., reclasificate. Jurnal., jurnal de consum., Ieșire jurnal., jurnal LM., Serv ordine, jurnal de muncă.

7. Modificați valoarea în proprietatea OptionString câmpul de Referință Document (60) în tabelul de linie de jurnal depozit (7311) cu următoarele:
   OptionString= , publicate recepţie postat P. Inv., publicate Rtrn. recepţie, postat P. sume notă, publicate de livrare, postat Inv. S., publicate Rtrn. transport, postat S. sume notă, postat T. chitanță, postat T. livrărilor, elementul jurnal, Prod., înmagazinare, alegeți, deplasarea, jurnal LM, Jurnalul lucrare

8. Modificați valoarea în proprietatea OptionString câmpul Document sursă (25) în tabelul de intrare depozit (7312) cu următoarele:
   OptionString=, S. comandă, S. factură, notă de S. Credit, S. Return ordinea, ordinea P., P. factură, notă de P. Credit, P. Return ordinea, Inb. Transfer, Outb. Transfer, Prod. Consum, elementul jurnal. stoc fizic. Jurnal., reclasificate. Jurnal., jurnal de consum., Ieșire jurnal., jurnal LM., servicii ordine, jurnal de muncă.

9. Modificați valoarea în proprietatea OptionString câmpul de referință Document (60) în tabelul de intrare depozit (7312) cu următoarele:
   OptionString= , publicate recepţie postat P. Inv., publicate Rtrn. recepţie, postat P. sume notă, publicate de livrare, postat Inv. S., publicate Rtrn. transport, postat S. sume notă, postat T. chitanță, postat T. livrărilor, elementul jurnal, Prod., înmagazinare, alegeți, deplasarea, jurnal LM, Jurnalul lucrare

10. Modificați vizibile proprietatea de control Cod locaţie (60) în formularul de jurnal lucrare (201) după cum urmează:
    Cod existent

    Visible = Yes

    Cod de înlocuire

    Visible = No

11. Adaugă câmpul De reciclare cod între câmpul Cod locaţie şi Codul de tip de lucru în formularul de jurnal lucrare (201) și apoi specificați câmpul ca urmaţi:

    ...{ 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. Adăugați o nouă variabilă globală în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

    • Nume: locație

    • TipDate: înregistrare

    • Subtip: locație (14)

13. Creați o nouă funcție GetLocation în jurnal-Post linie codeunit (1012) după cum urmează:

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

14. Adăugaţi următorul cod în funcția GetLocation în jurnal-Post linie codeunit (1012):

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

15. Creați o funcție nouă PostWhseJnlLine în jurnal-Post linie codeunit (1012) după cum urmează:

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

16. Creați următoarele variabile locale în funcția PostWhseJnlLine în jurnal-Post linie codeunit (1012):

    1. Adăugați o variabilă locală în funcţie de PostWhseJnlLine în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

       • Nume: WarehouseJournalLine

       • TipDate: înregistrare

       • Subtip: linie de jurnal depozit (7311)

    2. Adăugați o variabilă locală în funcţie de PostWhseJnlLine în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

       • Nume: TempWarehouseJournalLine

       • Tip de date: temporare înregistrare

       • Subtip: linie de jurnal din depozit (7311)

    3. Adăugați o variabilă locală în funcţie de PostWhseJnlLine în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

       • Nume: ItemTrackingManagement

       • Tip de date: Codeunit

       • Subtip: Management de urmărire articol (6500)

    4. Adăugați o variabilă locală în funcţie de PostWhseJnlLine în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

       • Nume: WMSManagement

       • Tip de date: Codeunit

       • Subtip: WMS Management (7302)

    5. Adăugați o variabilă locală în funcţie de PostWhseJnlLine în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

       • Nume: WhseJnlRegisterLine

       • TipDate: Codeunit

       • Subtip: DEP. . Jurnal-înregistrați linie (7301)

17. Adăugaţi următorul cod în funcția PostWhseJnlLine în jurnal-Post linie codeunit (1012) după cum urmează:

    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. Adăugați o nouă variabilă locală în funcţie de cod în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

    • Nume: TempTrackingSpecification

    • Tip de date: temporare înregistrare

    • Subtip: urmărirea Specification (336)

19. Adăugați o nouă variabilă locală în funcţie de cod în jurnal-Post linie codeunit (1012), apoi specificați variabila după cum urmează:

    • Nume: ItemJnlLine2

    • TipDate: înregistrare

    • Subtip: linie de jurnal articol (83)

20. Modificați codul din funcția de cod în jurnal-Post linie codeunit (1012) după cum urmează:
    Cod existent 1

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

    Cod de înlocuire 1

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

    Cod existent 2

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

    Înlocuirea cod 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. Modificați valoarea în proprietatea OptionString parametrul de referință documentul în funcția GetSourceDocument în depozit. Gestionare codeunit (5775) cu următoarele:
    OptionString=, S. comandă, S. factură, notă de S. Credit, S. Return ordinea, ordinea P., P. factură, notă de P. Credit, P. Return ordinea, Inb. Transfer, Outb. Transfer, Prod. Consum, elementul jurnal. stoc fizic. Jurnal., reclasificate. Jurnal., jurnal de consum., Ieșire jurnal., jurnal LM., servicii ordine, muncă jurnal.

22. Modificați codul din funcția GetSourceDocument în depozit. Gestionare codeunit (5775) după cum urmează:
    Cod existent

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

    Cod de înlocuire

    ...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. Modificați codul din funcția CreateWhseJnlLine în codeunit WMS Management (7302), urmați:
    Cod existent

    ...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.";
    ...
    

    Cod de înlocuire

    ...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.";
    ...