Συμπτώματα
Σε μια αγοράς ή μια επιστροφή πώλησης, όταν χρησιμοποιείτε τη λειτουργία "Αντιγραφή καταχωρημένων γραμμών παραστατικού για αντιλογισμό" στο Microsoft Dynamics NAV 2009, και επιλέξτε τις καταχωρημένες παραλαβές, τις γραμμές μεταβιβάζονται όλες τις διαστάσεις που χρησιμοποιήθηκαν ήδη οι παραλαβές αγορών ή πωλήσεων. Ακολουθήστε τα βήματα της ενότητας οι αλλαγές κώδικα για να επιλύσετε αυτό το ζήτημα. Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες Microsoft Dynamics NAV εφαρμογών διακομιστή (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για την 9015 Αναγνωριστικό αντικειμένου συστήματος
το αντικείμενο.
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Αλλάξτε τον κωδικό στη συνάρτηση CopyLineToDoc στη καταχωρούνται πωλήσεις εγγράφου φόρμα γραμμές (5850) ως εξής:
Υπάρχοντα κωδικό 1... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesShptLinesToDoc(
ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...
Αντικατάσταση κώδικα 1... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesShptLinesToDoc(
ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...
Υπάρχοντα κώδικα 2... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesReturnRcptLinesToDoc(
ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
...
Αντικατάσταση κώδικα 2... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopySalesReturnRcptLinesToDoc(
ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
... -
Αλλάξτε τον κωδικό στη συνάρτηση CopyLineToDoc στη καταχώρηση αγορών εγγράφου φόρμα γραμμές (5855) ως εξής:
Υπάρχοντα κωδικό 1...LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...Αντικατάσταση κώδικα 1
... LinesNotCopied := 0;
CASE CurrentMenuType OF
0:
BEGIN
CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchRcptLinesToDoc(
ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
END;
1:
...Υπάρχοντα κώδικα 2
...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchReturnShptLinesToDoc(
ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
...Αντικατάσταση κώδικα 2
...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
END;
2:
BEGIN
CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.
CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
CopyDocMgt.CopyPurchReturnShptLinesToDoc(
ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
END;
3:
... -
Να αλλάξετε τον κωδικό σε καθολικές μεταβλητές στο αντίγραφο εγγράφου/υ μονάδας κώδικα (6620) ως εξής:
Υπάρχοντα κώδικα...SkippedLine@1047 : Boolean;
Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
BEGIN
IncludeHeader := NewIncludeHeader;
RecalculateLines := NewRecalculateLines;
...Αντικατάσταση κώδικα
...SkippedLine@1047 : Boolean;
Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
SomeAreFixed@1045 : Boolean;
// Add the following line.
CopyDimensions@1050 : Boolean;
// End of the added line.
PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
BEGIN
IncludeHeader := NewIncludeHeader;
RecalculateLines := NewRecalculateLines;
... -
Αλλάξτε τον κωδικό στη συνάρτηση CopyFromPstdSalesDocDimToLine στο αντίγραφο εγγράφου/υ μονάδας κώδικα (6620) ως εξής:
Υπάρχοντα κώδικα...LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
VAR
DocDim@1002 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.
DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
DocDim.DELETEALL;
...Αντικατάσταση κώδικα
... LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
VAR
DocDim@1002 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.
DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
DocDim.DELETEALL;
... -
Αλλάξτε τον κωδικό στη συνάρτηση CopyFromPstdPurchDocDimToLine στο αντίγραφο εγγράφου/υ μονάδας κώδικα (6620) ως εξής:
Υπάρχοντα κώδικα...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
VAR
DocDim@1001 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.
DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
DocDim.DELETEALL;
...Αντικατάσταση κώδικα
...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
VAR
DocDim@1001 : Record 357;
FromPostedDocDim@1000 : Record 359;
BEGIN
// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.
DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
DocDim.DELETEALL;
... -
Αλλάξτε τον κωδικό στη συνάρτηση CopyAllDimensions στο αντίγραφο εγγράφου/υ μονάδας κώδικα (6620) ως εξής:
Υπάρχοντα κώδικα...MESSAGE(Text031);
IF Text <> '' THEN
MESSAGE(Text);
END;
BEGIN
END.
}
}
...Αντικατάσταση κώδικα
...MESSAGE(Text031);
IF Text <> '' THEN
MESSAGE(Text);
END;
// Add the following lines.
PROCEDURE CopyAllDimensions@85();
BEGIN
CopyDimensions := TRUE;
END;
// End of the added line.
BEGIN
END.
}
}
...
Προϋποθέσεις
Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 SP1
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης".
