Το σύστημα δημιουργεί περιττές εγγραφές γ/λ, όταν εκτελείτε τη λειτουργία Αντιλογισμός συναλλαγή στο Microsoft Dynamics NAV 2009

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

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

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

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

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

1. Προσθέστε την παρακάτω καθολική μεταβλητή στον πίνακα Εγγραφή αντιλογισμού (179):

   Text013@1039 : TextConst 'ENU="You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry. "';

2. Αλλάξτε τον κωδικό στη συνάρτηση CheckDtldCustLedgEntry στον πίνακα Εγγραφή αντιλογισμού (179) ως εξής:
   Υπάρχοντα κώδικα

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

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

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldCustLedgEntry.SETRANGE(Unapplied);
     DtldCustLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldCustLedgEntry."Entry Type"::"Realized Gain",DtldCustLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldCustLedgEntry.ISEMPTY THEN
     ERROR(Text013,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

3. Αλλάξτε τον κωδικό στη συνάρτηση CheckDtldVendLedgEntry στον πίνακα Εγγραφή αντιλογισμού (179) ως εξής:
   Υπάρχοντα κώδικα

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...
   
   

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

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldVendLedgEntry.SETRANGE(Unapplied);
     DtldVendLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldVendLedgEntry."Entry Type"::"Realized Gain",DtldVendLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldVendLedgEntry.ISEMPTY THEN
     ERROR(Text013,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...