Die Debitorenpostenausgleich und Kreditorenpostenausgleich Form anzeigen falsche Werte im Feld "Saldo" und das Feld Skonto Feld in Microsoft Dynamics NAV 2009

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.

Informationen zur Installation

Microsoft bietet Programmierbeispiele lediglich zur Veranschaulichung, ohne ausdrückliche oder konkludente Gewährleistung. Dies beinhaltet, ist jedoch nicht beschränkt auf, konkludente Gewährleistungen der Tauglichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der von Beispielen verwendeten Programmiersprache und den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden, vertraut sind. Microsoft-Supporttechniker helfen der Erläuterung der Funktionalität bestimmter Prozeduren. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren erstellen, die Ihren spezifischen Bedürfnisse erfüllen.

Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet werden. Hierzu gehören Dienste Microsoft Dynamics NAV Application Server (NAS). Sie sollte nur-Client-Benutzers, der angemeldet ist, wenn Sie diesen Hotfix installieren.

Muss eine Entwicklerlizenz verfügen, um diesen Hotfix installieren können.

Es wird empfohlen, das Benutzerkonto im Fenster Windows-Benutzernamen oder im Fenster Datenbank-Anmeldenamen "SUPER" Rollen-ID zugewiesen werden Wenn das Benutzerkonto die Rollen-ID "SUPER" nicht zugeordnet werden kann, müssen Sie sicherstellen, dass das Benutzerkonto die folgenden Berechtigungen verfügt:

• Änderungsberechtigung für das Objekt, das Sie ändern.

• Ausführungsberechtigung für System Object ID 5210 und System Object ID 9015
  
  Objekt.

Hinweis Sie müssen keine Rechte für die Datenspeicher haben, es sei denn, Sie müssen eine Datenreparatur durchführen.

Ä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 HandlChosenEntries in TheApply Form Debitorenposten (232) wie folgt:
   Vorhandener Code 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Neuer Code 1

   ...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                   AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                    AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF (FromZeroGenJnl) THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Vorhandener Code 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
                  CurrentAmount := CurrentAmount - PossiblePmtDisc;
                  PossiblePmtDisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

   Neuer Code 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                     AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedCustLedgEntryTemp.SETRANGE(Positive);
               AppliedCustLedgEntryTemp.FINDFIRST;
   ...
   

2. Ändern Sie den Code in der Funktion HandlChosenEntries Kreditorenpostenausgleich Form (233) wie folgt:
   Vorhandener Code 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Delete the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
   // End of the deleted lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Neuer Code 1

   ...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                   AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
                 THEN BEGIN
   
   // Add the following lines.
                  PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                  CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                    AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   // End of the added lines.
   
                   AppliedAmount := AppliedAmount + CorrectionAmount;
                 END ELSE IF FromZeroGenJnl THEN BEGIN
                   PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                   CurrentAmount := CurrentAmount +
                     AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
   ...
   

   Vorhandener Code 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Delete the following lines.
                PossiblePmtdisc := AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                IF (((CurrentAmount - PossiblePmtdisc + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN BEGIN
                  PmtDiscAmount := PmtDiscAmount + PossiblePmtdisc;
                  CurrentAmount := CurrentAmount - PossiblePmtdisc;
                  PossiblePmtdisc := 0;
                  AppliedAmount := AppliedAmount + CorrectionAmount;
                END;
   // End of the deleted lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

   Neuer Code 2

   ...END;
                   CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                     AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                 END;
               END ELSE BEGIN
   
   // Add the following lines.
                IF (((CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN
                  AppliedAmount := AppliedAmount + CorrectionAmount;
   // End of the added lines.
   
                 CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
               END;
             END ELSE BEGIN
               AppliedVendLedgEntryTemp.SETRANGE(Positive);
               AppliedVendLedgEntryTemp.FINDFIRST;
   ...
   

Voraussetzungen

Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:

• Microsoft Dynamics NAV 2009 Servicepack 1

• Microsoft Dynamics NAV 2009 R2

Informationen zur Deinstallation

Dieser Hotfix kann nicht entfernt werden.