Εγγραφές διαχείρισης αποθήκης δεν ενημερώνονται με όλες οι γραμμές ιχνηλασιμότητας σε εγγραφές έργου όταν καταχωρείτε ένα στοιχείο στις εγγραφές έργων σε μια θέση αποθήκης στο Microsoft Dynamics NAV 2009

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα: Δημιουργήστε τις ακόλουθες τοπικές μεταβλητές:

1. Προσθέστε μια νέα καθολική μεταβλητή στον πίνακα "γραμμή καταχώρησης έργων" (210) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

   • Όνομα: WMSManagement

   • Τύπος δεδομένων: μονάδα κώδικα

   • Δευτερεύων τύπος: Διαχείριση WMS (7302)

2. Διαγραφή τον ακόλουθο κώδικα στην ιδιότητα TableRelation τον Κωδικό θέσης αποθήκης πεδίου (5403) στον πίνακα "γραμμή καταχώρησης έργων" (210):

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

3. Αλλαγή κώδικα στο έναυσμα για τη θέση αποθήκης με την επικύρωση πεδίου (5403) στον πίνακα γραμμή καταχώρησης έργων (210) ως εξής:
   Υπάρχοντα κώδικα

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

   Αντικατάσταση κώδικα

   ...// 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. Προσθέστε μια νέα τοπική μεταβλητή με το Αποθήκης - triggerin OnLookup τον πίνακα "γραμμή καταχώρησης έργων" (210) και, στη συνέχεια, καθορίστε τη μεταβλητή ως εξής:

   • Όνομα: BinCode

   • Τύπος δεδομένων: κώδικα

   • Μήκος: 20

5. Προσθέστε τον ακόλουθο κώδικα στο έναυσμα Αποθήκης - OnLookup στον πίνακα "γραμμή καταχώρησης έργων" (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. Αλλάξτε την τιμή στην ιδιότητα OptionString πεδίο Παραστατικό προέλευσης (25) στον πίνακα γραμμή εγγραφής αποθήκης (7311) με την ακόλουθη:
   OptionString=, S. παραγγελία, τιμολόγιο S., S. πιστωτικό τιμολόγιο, S. επιστροφής, σ. παραγγελία, τιμολόγιο, πιστωτικό τιμολόγιο, παραγγελία, Τιμ. Μεταφορά, Outb. Διακίνησης, Εντ. Κατανάλωση, στοιχείο πρότυπων εγγραφών, απογραφής. Προδ., εγγραφές αναδιάρθρωσης Προδ., κατανάλωση Mερισμός εγγραφών λογιστικής, Διεταιρικής Εξερχόμενης Εγγραφής "," τεχνική Προδιαγραφή Mερισμός εγγραφών λογιστικής, τ/υ σειρά εξόδου, εργασία παραμετροποίησης.

7. Αλλάξτε την τιμή στην ιδιότητα OptionString το πεδίο Παραστατικό αναφοράς (60) στον πίνακα γραμμή εγγραφής αποθήκης (7311) με την ακόλουθη:
   OptionString= , καταχωρούνται παραλαβή, καταχώρηση τιμολογίου σ., Rtrn. παραλαβή, καταχώρηση σ. πιστωτικό τιμολόγιο, καταχωρημένη αποστολή, καταχωρημένο S. Τιμ., Καταχ Rtrn. S. πιστωτικό τιμολόγιο, καταχωρημένη παραλαβή T., καταχωρημένη αποστολή T., έχουν καταχωρηθεί το στοιχείο εγγραφές ειδών, Τοποθέτηση Αποθ., συλλογή, εσωτερική μετακίνηση, εγγραφές τεχνικών Προδιαγραφών, εγγραφές έργων

8. Αλλάξτε την τιμή στην ιδιότητα OptionString πεδίο παραστατικό προέλευσης (25) στον πίνακα εγγραφή αποθήκης (7312) με το ακόλουθο:
   OptionString=, S. παραγγελία, τιμολόγιο S., S. πιστωτικό τιμολόγιο, S. επιστροφής, σ. παραγγελία, τιμολόγιο, πιστωτικό τιμολόγιο, παραγγελία, Τιμ. Μεταφορά, Outb. Διακίνησης, Εντ. Κατανάλωση, στοιχείο πρότυπων εγγραφών, απογραφής. Προδ., εγγραφές αναδιάρθρωσης Προδ., κατανάλωση Mερισμός εγγραφών λογιστικής, εξόδου Διεταιρικής Εξερχόμενης Εγγραφής "," τεχνική Προδιαγραφή Mερισμός εγγραφών λογιστικής, εντολή τ/υ, εργασία παραμετροποίησης.

9. Αλλάξτε την τιμή στην ιδιότητα OptionString το πεδίο παραστατικό αναφοράς (60) στον πίνακα εγγραφή αποθήκης (7312) με το ακόλουθο:
   OptionString= , καταχωρούνται παραλαβή, καταχώρηση τιμολογίου σ., Rtrn. παραλαβή, καταχώρηση σ. πιστωτικό τιμολόγιο, καταχωρημένη αποστολή, καταχωρημένο S. Τιμ., Καταχ Rtrn. S. πιστωτικό τιμολόγιο, καταχωρημένη παραλαβή T., καταχωρημένη αποστολή T., έχουν καταχωρηθεί το στοιχείο εγγραφές ειδών, Τοποθέτηση Αποθ., συλλογή, εσωτερική μετακίνηση, εγγραφές τεχνικών Προδιαγραφών, εγγραφές έργων

10. Αλλάξτε την ορατή ιδιότητα του στοιχείου ελέγχου κωδικός αποθήκης (60) στη φόρμα εγγραφές έργων (201) ως εξής:
    Υπάρχοντα κώδικα

    Visible = Yes

    Αντικατάσταση κώδικα

    Visible = No

11. Προσθέστε το πεδίο Θέση αποθήκης μεταξύ το πεδίο και το πεδίο Κωδικός τύπου εργασίας στη φόρμα εγγραφές έργων (201) και στη συνέχεια καθορίστε το πεδίο ως ακολουθήστε:

    ...{ 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. Προσθέσετε μια νέα καθολική μεταβλητή στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: θέση

    • Τύπος δεδομένων: εγγραφή

    • Δευτερεύων τύπος: θέση (14)

13. Δημιουργείτε μια καινούρια συνάρτηση GetLocation στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012) ως εξής:

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

14. Προσθέστε τον ακόλουθο κώδικα στη συνάρτηση GetLocation στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012):

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

15. Δημιουργείτε μια καινούρια συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012) ως εξής:

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

16. Δημιουργήστε τις ακόλουθες τοπικές μεταβλητές στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012):

    1. Προσθέστε μια τοπική μεταβλητή στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

       • Όνομα: WarehouseJournalLine

       • Τύπος δεδομένων: εγγραφή

       • Δευτερεύων τύπος: γραμμή εγγραφής αποθήκης (7311)

    2. Προσθέστε μια τοπική μεταβλητή στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

       • Όνομα: TempWarehouseJournalLine

       • Τύπος δεδομένων: ΠΡΟΣΩΡΙΝΉ εγγραφή

       • Δευτερεύων τύπος: γραμμή εγγραφής αποθήκης (7311)

    3. Προσθέστε μια τοπική μεταβλητή στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

       • Όνομα: ItemTrackingManagement

       • Τύπος δεδομένων: μονάδα κώδικα

       • Δευτερεύων τύπος: Διαχείριση ιχνηλασιμότητας (6500)

    4. Προσθέστε μια τοπική μεταβλητή στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

       • Όνομα: WMSManagement

       • Τύπος δεδομένων: μονάδα κώδικα

       • Δευτερεύων τύπος: Διαχείριση WMS (7302)

    5. Προσθέστε μια τοπική μεταβλητή στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

       • Όνομα: WhseJnlRegisterLine

       • Τύπος δεδομένων: μονάδα κώδικα

       • Δευτερεύων τύπος: Αποθ. Mερισμός Εγγραφών Λογιστικής-καταχώρηση γραμμής (7301)

17. Προσθέστε τον ακόλουθο κώδικα στη συνάρτηση PostWhseJnlLine στην εργασία πρότυπων εγγραφών-μονάδα κώδικα γραμμή καταχώρησης (1012) ως εξής:

    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. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση κώδικα το εγγραφών έργων.-Post γραμμή μονάδα κώδικα (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: TempTrackingSpecification

    • Τύπος δεδομένων: ΠΡΟΣΩΡΙΝΉ εγγραφή

    • Δευτερεύων τύπος: Καθορισμός Ιχνηλασιμότητας (336)

19. Προσθέσετε μια νέα τοπική μεταβλητή στη συνάρτηση κώδικα το εγγραφών έργων.-Post γραμμή μονάδα κώδικα (1012), και στη συνέχεια καθορίστε τη μεταβλητή ως εξής:

    • Όνομα: ItemJnlLine2

    • Τύπος δεδομένων: εγγραφή

    • Δευτερεύων τύπος: γραμμή εγγραφών ειδών (83)

20. Να αλλάξετε τον κωδικό στη συνάρτηση κώδικα το εγγραφών έργων.-Post γραμμή μονάδα κώδικα (1012) ως εξής:
    Υπάρχοντα κωδικό 1

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

    Αντικατάσταση κώδικα 1

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

    Υπάρχοντα κώδικα 2

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

    Αντικατάσταση κώδικα 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. Αλλάξτε την τιμή στην ιδιότητα OptionString της παραμέτρου παραστατικό αναφοράς στη συνάρτηση GetSourceDocument στην Αποθ. Μονάδα κώδικα Management (5775) με την ακόλουθη:
    OptionString=, S. παραγγελία, τιμολόγιο S., S. πιστωτικό τιμολόγιο, S. επιστροφής, σ. παραγγελία, τιμολόγιο, πιστωτικό τιμολόγιο, παραγγελία, Τιμ. Μεταφορά, Outb. Διακίνησης, Εντ. Κατανάλωση, στοιχείο πρότυπων εγγραφών, απογραφής. Προδ., εγγραφές αναδιάρθρωσης Προδ., κατανάλωση Mερισμός εγγραφών λογιστικής, εξόδου Διεταιρικής Εξερχόμενης Εγγραφής "," τεχνική Προδιαγραφή Mερισμός εγγραφών λογιστικής, εντολή τ/υ, εργασία παραμετροποίησης.

22. Για να αλλάξετε τον κωδικό στη συνάρτηση GetSourceDocument στην Αποθ. Μονάδα κώδικα Management (5775) ως εξής:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

    ...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. Μπορείτε να αλλάξετε τον κωδικό στη συνάρτηση CreateWhseJnlLine στη μονάδα κώδικα διαχείρισης WMS (7302) ως ακολουθήστε:
    Υπάρχοντα κώδικα

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

    Αντικατάσταση κώδικα

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