Εμφανίζεται το μήνυμα λάθους "Δεν είναι δυνατό να αλλάξετε κωδικό αποθήκης" όταν αλλάζετε την τιμή "Πώληση σε πελάτη όχι" σε μια παραγγελία πώλησης στο Microsoft Dynamics NAV

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

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

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

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

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

1. Διαγράψτε το ακόλουθο σταθερά κειμένου:

   Text047@1095 : TextConst 'ENU=You cannot change %1 because reservation, item tracking, or order tracking exists on the sales order.'; 

   
   

2. Αλλάξτε τον κωδικό στη συνάρτηση RecreateSalesLines ως εξής:
   Υπάρχοντα κώδικα

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                 SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
   // Delete the following lines.
               IF "Location Code" <> xRec."Location Code" THEN                 
                 IF NOT TempReservEntry.ISEMPTY THEN                              
                   ERROR(Text047,FIELDCAPTION("Location Code"));               
   // End of the deleted lines.
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …
   

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

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
   
   // Add the following lines.
                 IF SalesLine."Location Code" <> "Location Code" THEN                      
                   SalesLine.VALIDATE("Location Code","Location Code");                     
   // End of the added lines.
   
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …