Δεν προτείνονται εγγραφές όπως αναμένεται από τη λειτουργία Πρόταση Γραμμών Σημ, εάν είναι ενεργοποιημένη η επιλογή "Μόνο εγγραφές με ληξιπρόθεσμα ποσά" στο Microsoft Dynamics NAV 2009

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

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

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

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

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

1. Αλλάξτε τον κωδικό στη συνάρτηση MakeReminder στη μονάδα κώδικα "Υπενθύμιση-βεβαιωθείτε" (392) ως εξής:
   Υπάρχοντα κωδικό 1

   ...FilterCustLedgEntries(ReminderLevel);
   IF CustLedgEntry.FIND('-') THEN
   REPEAT
   IF CustLedgEntry."On Hold" = '' THEN BEGIN
   SetReminderLine(LineLevel,ReminderLevel."No.",ReminderDueDate);
   
   // Delete the following line. 
   IF (CALCDATE(ReminderLevel."Grace Period",ReminderDueDate) < ReminderHeaderReq."Document Date") AND
   
   ((LineLevel <= ReminderTerms."Max. No. of Reminders") OR (ReminderTerms."Max. No. of Reminders" = 0))
   THEN BEGIN
   CustLedgEntry.MARK(TRUE);
   ReminderLevel.MARK(TRUE);
   IF (ReminderLevel."No." > MaxReminderLevel) AND
   ...
   

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

   ...FilterCustLedgEntries(ReminderLevel);
   IF CustLedgEntry.FIND('-') THEN
   REPEAT
   IF CustLedgEntry."On Hold" = '' THEN BEGIN
   SetReminderLine(LineLevel,ReminderLevel."No.",ReminderDueDate);
   
   // Add the following line.
   IF (ReminderDueDate < ReminderHeaderReq."Document Date") AND
   
   ((LineLevel <= ReminderTerms."Max. No. of Reminders") OR (ReminderTerms."Max. No. of Reminders" = 0))
   THEN BEGIN
   CustLedgEntry.MARK(TRUE);
   ReminderLevel.MARK(TRUE);
   IF (ReminderLevel."No." > MaxReminderLevel) AND
   ...
   

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

   ...IF CustLedgEntry.Positive AND
   (CALCDATE(ReminderLevel."Grace Period",ReminderDueDate) < ReminderHeaderReq."Document Date")
   THEN
   MakeDoc := TRUE;
   END ELSE
   
   // Delete the following line. 
   IF (CustLedgEntry."Due Date" >= ReminderHeaderReq."Document Date") AND
   
   (NOT OverdueEntriesOnly)
   THEN BEGIN
   CustLedgEntry.MARK(TRUE);
   ReminderLevel.MARK(TRUE);
   END;
   ...
   

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

   ...IF CustLedgEntry.Positive AND
   (CALCDATE(ReminderLevel."Grace Period",ReminderDueDate) < ReminderHeaderReq."Document Date")
   THEN
   MakeDoc := TRUE;
   END ELSE
   
   // Add the following line. 
   IF (ReminderDueDate >= ReminderHeaderReq."Document Date") AND
   
   (NOT OverdueEntriesOnly)
   THEN BEGIN
   CustLedgEntry.MARK(TRUE);
   ReminderLevel.MARK(TRUE);
   END;
   ...
   

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

   ...ReminderHeader.InsertLines;
   ReminderLine.SETRANGE("Reminder No.",ReminderHeader."No.");
   ReminderLine.FIND('+');
   NextLineNo := ReminderLine."Line No.";
   IF (NOT OverdueEntriesOnly) THEN BEGIN
   
   // Delete the following lines. 
   IF CustLedgEntry.FIND('-') THEN BEGIN
   REPEAT
   IF CustLedgEntry."Due Date" >= ReminderHeaderReq."Document Date" THEN BEGIN
   // End of the lines.
   
   IF NOT AmountsNotDueLineInserted THEN BEGIN
   ReminderLine.INIT;
   NextLineNo := NextLineNo + 10000;
   ReminderLine."Reminder No." := ReminderHeader."No.";
   ReminderLine."Line No." := NextLineNo;
   ...
   

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

   ...ReminderHeader.InsertLines;
   ReminderLine.SETRANGE("Reminder No.",ReminderHeader."No.");
   ReminderLine.FIND('+');
   NextLineNo := ReminderLine."Line No.";
   IF (NOT OverdueEntriesOnly) THEN BEGIN
   
   // Add the following lines. 
   CustLedgEntry.SETRANGE("Last Issued Reminder Level");
   IF CustLedgEntry.FIND('-') THEN BEGIN
   REPEAT
   SetReminderLine(LineLevel,ReminderLevel."No.",ReminderDueDate);
   IF ReminderDueDate >= ReminderHeaderReq."Document Date" THEN BEGIN
   // End of the lines. 
   
   IF NOT AmountsNotDueLineInserted THEN BEGIN
   ReminderLine.INIT;
   NextLineNo := NextLineNo + 10000;
   ReminderLine."Reminder No." := ReminderHeader."No.";
   ReminderLine."Line No." := NextLineNo;
   ...
   

2. Αλλάξτε τον κωδικό στη συνάρτηση SetReminderLine στη μονάδα κώδικα "Υπενθύμιση-βεβαιωθείτε" (392) ως εξής:
   Υπάρχοντα κώδικα

   ...// Delete the following lines.
   IF Level > 1 THEN BEGIN
   ReminderEntry.SETCURRENTKEY("Customer Entry No.",Type);
   ReminderEntry.SETRANGE("Customer Entry No.",CustLedgEntry."Entry No.");
   ReminderEntry.SETRANGE(Type,ReminderEntry.Type::Reminder);
   ReminderEntry.SETRANGE("Reminder Level", CustLedgEntry."Last Issued Reminder Level");
   ReminderEntry.FIND('+');
   ReminderDueDate2 := ReminderEntry."Due Date";
   LineLevel2 := ReminderEntry."Reminder Level" +1
   END ELSE BEGIN
   ReminderDueDate2 := CustLedgEntry."Due Date";
   LineLevel2 := 1;
   END;
   // End of the lines. 
   ...
   

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

   ...// Add the following lines.
   IF CustLedgEntry."Last Issued Reminder Level" > 0 THEN BEGIN
   ReminderEntry.SETCURRENTKEY("Customer Entry No.",Type);
   ReminderEntry.SETRANGE("Customer Entry No.",CustLedgEntry."Entry No.");
   ReminderEntry.SETRANGE(Type,ReminderEntry.Type::Reminder);
   ReminderEntry.SETRANGE("Reminder Level", CustLedgEntry."Last Issued Reminder Level");
   IF ReminderEntry.FINDLAST THEN BEGIN
   ReminderDueDate2 := ReminderEntry."Due Date";
   LineLevel2 := ReminderEntry."Reminder Level" +1;
   EXIT;
   END
   END;
   ReminderDueDate2 := CustLedgEntry."Due Date";
   LineLevel2 := 1;
   // End of the lines. 
   ...