Sunday, December 10, 2023

Bei der Berechnung von Verzugszinsen wird in der italienischen Version von Microsoft Dynamics NAV 2009 ein falscher Betrag verwendet - Microsoft-Support

Symptome

Wenn Sie eine Rechnung auf die zugehörige Zahlungstransaktion anwenden und diese dann in der italienischen Version von Microsoft Dynamics NAV 2009 buchen, wird die Zahlung im Bericht „Liste der Kreditorenkontenrechnungen" nicht angezeigt. Die Rechnung wird nur als abgeschlossen angezeigt. Befolgen Sie die Schritte im Abschnitt „Codeänderungen", um dieses Problem zu beheben. Dieses Problem tritt bei folgenden Produkten auf:

  • Die italienische Version von Microsoft Dynamics NAV 2009 R2

  • Die italienische Version von Microsoft Dynamics NAV 2009 SP1

Auflösung

Hotfix-Informationen

Ein unterstützter Hotfix ist jetzt von Microsoft verfügbar. Es dient jedoch lediglich der Behebung des in diesem Artikel beschriebenen Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise weiteren Tests unterzogen. Wenn Sie von diesem Problem nicht schwerwiegend betroffen sind, empfehlen wir Ihnen daher, auf das nächste Microsoft Dynamics NAV 2009 Service Pack oder die nächste Microsoft Dynamics NAV-Version zu warten, die diesen Hotfix enthält.

Hinweis: In besonderen Fällen können die Gebühren, die normalerweise für Supportanrufe anfallen, storniert werden, wenn ein Mitarbeiter des technischen Supports für Microsoft Dynamics und verwandte Produkte feststellt, dass ein bestimmtes Update Ihr Problem lösen wird. Für zusätzliche Supportfragen und Probleme, die für das jeweilige Update nicht in Frage kommen, fallen die üblichen Supportkosten an.

Installationsinformationen

Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder stillschweigende Gewährleistung. Dazu gehören unter anderem stillschweigende Garantien der Marktgängigkeit oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der demonstrierten Programmiersprache und den Tools vertraut sind, die zum Erstellen und Debuggen von Prozeduren verwendet werden. Microsoft-Supporttechniker können dabei helfen, die Funktionalität eines bestimmten Verfahrens zu erläutern. Sie werden diese Beispiele jedoch nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren zu erstellen, die Ihren spezifischen Anforderungen entsprechen.

Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Benutzer des Microsoft Dynamics NAV-Clients vom System abgemeldet sind. Dazu gehören Microsoft Dynamics NAV Application Server (NAS)-Dienste. Sie sollten der einzige Clientbenutzer sein, der angemeldet ist, wenn Sie diesen Hotfix implementieren.

Um diesen Hotfix zu implementieren, benötigen Sie eine Entwicklerlizenz.

Wir empfehlen, dem Benutzerkonto im Fenster „Windows-Anmeldungen" oder im Fenster „Datenbank-Anmeldungen" die Rollen-ID „SUPER" zuzuweisen. Wenn dem Benutzerkonto nicht die Rollen-ID „SUPER" zugewiesen werden kann, müssen Sie überprüfen, ob das Benutzerkonto über die folgenden Berechtigungen verfügt:

  • Die Änderungsberechtigung für das Objekt, das Sie ändern möchten.

  • Die Ausführungsberechtigung für das Systemobjekt-ID-5210-Objekt und für das Systemobjekt-ID-9015-Objekt

    Objekt.

Hinweis Sie müssen keine Rechte an den Datenspeichern haben, es sei denn, Sie müssen eine Datenreparatur durchführen.

Codeänderungen

Hinweis: Testen Sie Codekorrekturen immer in einer kontrollierten Umgebung, bevor Sie die Korrekturen auf Ihren Produktionscomputern anwenden.

Um dieses Problem zu beheben, ändern Sie den Code im Bericht „Zinsen auf Zahlungsrückstände berechnen" (12107) wie folgt:

Vorhandener Code 1

...
IF CustLedgerEntry."Due Date" < RateInterestDate THEN BEGIN
ix +=1;
IF ix < ix2 THEN BEGIN

// Delete the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + CustLedgerEntry."Amount (LCY)") *
// End of the deleted line.

CalcIntArrOr(CustLedgerEntry."Due Date", DueDateTmp[ix+1], Customer."Int. on Arrears Code")), GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Ersatzcode 1

...
IF CustLedgerEntry."Due Date" < RateInterestDate THEN BEGIN
ix +=1;
IF ix < ix2 THEN BEGIN

// Add the following lines.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + CustLedgerEntry."Closed by Amount (LCY)") *
// End of the added lines.

CalcIntArrOr(CustLedgerEntry."Due Date", DueDateTmp[ix+1], Customer."Int. on Arrears Code")), GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Vorhandener Code 2

...
DD_Calculated += RateInterestDate - DueDateTmp[ix+1];
DueDate[ix] := DueDateTmp[ix+1];
END ELSE BEGIN

// Delete the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + CustLedgerEntry."Amount (LCY)") *
// End of the deleted line.

CalcIntArrOr(CustLedgerEntry."Due Date", RateInterestDate, Customer."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Ersatzcode 2

...
DD_Calculated += RateInterestDate - DueDateTmp[ix+1];
DueDate[ix] := DueDateTmp[ix+1];
END ELSE BEGIN

// Add the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + CustLedgerEntry."Closed by Amount (LCY)") *
// End of the added line.

CalcIntArrOr(CustLedgerEntry."Due Date", RateInterestDate, Customer."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Vorhandener Code 3

...
DD_Calculated += RateInterestDate - CustLedgerEntry."Due Date";
DueDate[ix] := RateInterestDate;
END;

// Delete the following line.
TotalAmount += CustLedgerEntry."Amount (LCY)";
// End of the deleted line.

BaseAmount[ix] := TotalAmount;
RateInterestDateDetail[ix] := CustLedgerEntry."Due Date";
DocType[ix] := CustLedgerEntry."Document Type";
...

Ersatzcode 3


...
DD_Calculated += RateInterestDate - CustLedgerEntry."Due Date";
DueDate[ix] := RateInterestDate;
END;

// Add the followingline.
TotalAmount += CustLedgerEntry."Closed by Amount (LCY)";
// End of the added line.

BaseAmount[ix] := TotalAmount;
RateInterestDateDetail[ix] := CustLedgerEntry."Due Date";
DocType[ix] := CustLedgerEntry."Document Type";
...

Vorhandener Code 4

...
IF VenLedgerEntry."Due Date" < RateInterestDate THEN BEGIN
ix +=1;
IF ix < ix2 THEN BEGIN

// Delete the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + VenLedgerEntry."Amount (LCY)") *
// End of the deleted line.

CalcIntArrOr(VenLedgerEntry."Due Date", DueDateTmp[ix+1], Vendor."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Ersatzcode 4

...
IF VenLedgerEntry."Due Date" < RateInterestDate THEN BEGIN
ix +=1;
IF ix < ix2 THEN BEGIN

// Add the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + VenLedgerEntry."Closed by Amount (LCY)") *
// End of the added line.

CalcIntArrOr(VenLedgerEntry."Due Date", DueDateTmp[ix+1], Vendor."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Vorhandener Code 5

...
DD_Calculated += RateInterestDate - DueDateTmp[ix+1];
DueDate[ix] := DueDateTmp[ix+1];
END ELSE BEGIN

// Delete the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + VenLedgerEntry."Amount (LCY)") *
// End of the deleted line.

CalcIntArrOr(VenLedgerEntry."Due Date", RateInterestDate, Vendor."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Ersatzcode 5

...
DD_Calculated += RateInterestDate - DueDateTmp[ix+1];
DueDate[ix] := DueDateTmp[ix+1];
END ELSE BEGIN

// Add the following line.
IntLedgerEntryDetail[ix] := ROUND(ABS((TotalAmount + VenLedgerEntry."Closed by Amount (LCY)") *
// End of the added line.

CalcIntArrOr(VenLedgerEntry."Due Date", RateInterestDate, Vendor."Int. on Arrears Code")),
GLSetup."Amount Rounding Precision");
IntLedgerEntry += IntLedgerEntryDetail[ix];
...

Vorhandener Code 6

...
DD_Calculated += RateInterestDate - VenLedgerEntry."Due Date";
DueDate[ix] := RateInterestDate;
END;

// Delete the following line.
TotalAmount += VenLedgerEntry."Amount (LCY)";
// End of the deleted line.

BaseAmount[ix] := TotalAmount;
RateInterestDateDetail[ix] := VenLedgerEntry."Due Date";
DocType[ix] := VenLedgerEntry."Document Type";
...

Ersatzcode 6

...
DD_Calculated += RateInterestDate - VenLedgerEntry."Due Date";
DueDate[ix] := RateInterestDate;
END;

// Add the following line.
TotalAmount += VenLedgerEntry."Closed by Amount (LCY)";
// End of the added line.

BaseAmount[ix] := TotalAmount;
RateInterestDateDetail[ix] := VenLedgerEntry."Due Date";
DocType[ix] := VenLedgerEntry."Document Type";
...

Voraussetzungen

Um diesen Hotfix anwenden zu können, muss eines der folgenden Produkte installiert sein:

  • Die italienische Version von Microsoft Dynamics NAV 2009 R2

  • Die italienische Version von Microsoft Dynamics NAV 2009 SP1

Informationen zum Entfernen

Sie können diesen Hotfix nicht entfernen.

Status

Microsoft hat bestätigt, dass es sich hierbei um ein Problem bei den Microsoft-Produkten handelt, die im Abschnitt „Gilt für" aufgeführt sind.

Hinweis Dies ist ein „FAST PUBLISH"-Artikel, der direkt von der Microsoft-Supportorganisation erstellt wurde. Die hierin enthaltenen Informationen werden unverändert als Reaktion auf neu auftretende Probleme bereitgestellt. Aufgrund der schnellen Bereitstellung können die Materialien Tippfehler enthalten und jederzeit ohne Vorankündigung überarbeitet werden. Weitere Hinweise finden Sie in den Nutzungsbedingungen .

No comments:

Post a Comment