Einträge werden nicht empfohlen, erwartungsgemäß Mahnungszeilen Funktion Wenn in Microsoft Dynamics NAV 2009 "Nur Posten mit fälligen Beträgen" aktiviert ist

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:

1. Ändern Sie den Code in der Funktion MakeReminder "Reminder-Make" Codeunit (392) wie folgt:
   Vorhandener Code 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
   ...
   

   Neuer Code 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
   ...
   

   Vorhandener Code 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;
   ...
   

   Neuer Code 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;
   ...
   

   Vorhandenen Code 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;
   ...
   

   Neuer Code 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. Ändern Sie den Code in der Funktion SetReminderLine "Reminder-Make" Codeunit (392) wie folgt:
   Vorhandener code

   ...// 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. 
   ...
   

   Neuer code

   ...// 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. 
   ...