Sunday, August 27, 2023

Eine Zahlung, die eine Fremdwährung verwendet, bleibt offen, nachdem Sie die Zahlung einer Rechnung zugewiesen haben, die die lokale Währung in Microsoft Dynamics NAV 2009 verwendet – Microsoft-Support

Dieser Artikel gilt für Microsoft Dynamics NAV für alle Länder und alle Sprachgebietsschemas.

Symptome

Angenommen, Sie aktivieren die Einstellungen für die Zahlungstoleranz in Microsoft Dynamics NAV 2009. Nachdem Sie eine Zahlung, die eine Fremdwährung verwendet, auf eine Rechnung anwenden, die die lokale Währung verwendet, bleibt die Zahlung mit einem Restbetrag offen, auch wenn die Zahlungstoleranz akzeptiert wird.
Dieses Problem tritt bei folgenden Produkten auf:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1 (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 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 einer bestimmten Prozedur 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 Navision-Clients vom System abgemeldet sind. Dazu gehören Clientbenutzer von Microsoft Navision Application Services (NAS). 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.



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, führen Sie die folgenden Schritte aus:

  1. Ändern Sie den Code in der Funktion „ApplyCustLedgEntry" in der Codeeinheit „Gen. Jnl.-Post Line" (12) wie folgt:
    Vorhandener Code 1

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldCustLedgEntry."Remaining Pmt. Disk. Möglich" :=
     Umtauschbetrag(
     TempOldCustLedgEntry."Restzahlung möglich",TempOldCustLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");

     // Folgende Zeilen löschen.
     TempOldCustLedgEntry."Akzeptierte Zahlungstoleranz" :=
     Umtauschbetrag(
     TempOldCustLedgEntry."Akzeptierte Zahlungstoleranz",TempOldCustLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     // Ende der Zeilen.

     TempOldCustLedgEntry."Anzuwendender Betrag" :=
     Umtauschbetrag(
     TempOldCustLedgEntry."Anzuwendender Betrag",TempOldCustLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Ersatzcode 1

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldCustLedgEntry."Remaining Pmt. Disk. Möglich" :=
     Umtauschbetrag(
     TempOldCustLedgEntry."Restzahlung möglich",TempOldCustLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldCustLedgEntry."Anzuwendender Betrag" :=
     Umtauschbetrag(
     TempOldCustLedgEntry."Anzuwendender Betrag",TempOldCustLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Vorhandener Code 2

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Restzahlungsschein. Möglich" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Restzahlung möglich",OldCVLedgEntryBuf2"Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");

     // Folgende Zeilen löschen.
     OldCVLedgEntryBuf2. „Akzeptierte Zahlungstoleranz" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Akzeptierte Zahlungstoleranz",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     // Ende der Zeilen.

     OldCVLedgEntryBuf2."Anzuwendender Betrag" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Anzuwendender Betrag",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Ersatzcode 2

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Restzahlungsschein. Möglich" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Restzahlung möglich",OldCVLedgEntryBuf2"Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Anzuwendender Betrag" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Anzuwendender Betrag",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

  2. Ändern Sie den Code in der Funktion „ApplyVendLedgEntry" in der Codeeinheit „Gen. Jnl.-Post Line" (12) wie folgt:
    Vorhandener Code 1

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldVendLedgEntry."Verbleibender Zahlungsbetrag. Möglich" :=
     Umtauschbetrag(
     TempOldVendLedgEntry."Restzahlung möglich",TempOldVendLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");

     // Folgende Zeilen löschen.
     TempOldVendLedgEntry."Akzeptierte Zahlungstoleranz" :=
     Umtauschbetrag(
     TempOldVendLedgEntry."Akzeptierte Zahlungstoleranz",TempOldVendLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     // Ende der Zeilen.

     TempOldVendLedgEntry."Anzuwendender Betrag" :=
     Umtauschbetrag(
     TempOldVendLedgEntry."Anzuwendender Betrag",TempOldVendLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Ersatzcode 1

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldVendLedgEntry."Verbleibender Zahlungsbetrag. Möglich" :=
     Umtauschbetrag(
     TempOldVendLedgEntry."Restzahlung möglich",TempOldVendLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     TempOldVendLedgEntry."Anzuwendender Betrag" :=
     Umtauschbetrag(
     TempOldVendLedgEntry."Anzuwendender Betrag",TempOldVendLedgEntry."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Vorhandener Code 2

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Restzahlungsschein. Möglich" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Restzahlung möglich",OldCVLedgEntryBuf2"Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");

     // Folgende Zeilen löschen.
     OldCVLedgEntryBuf2. „Akzeptierte Zahlungstoleranz" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Akzeptierte Zahlungstoleranz",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     // Ende der Zeilen.

     OldCVLedgEntryBuf2."Anzuwendender Betrag" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Anzuwendender Betrag",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

    Ersatzcode 2

     ...
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Restzahlungsschein. Möglich" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Restzahlung möglich",OldCVLedgEntryBuf2"Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     OldCVLedgEntryBuf2."Anzuwendender Betrag" :=
     Umtauschbetrag(
     OldCVLedgEntryBuf2."Anzuwendender Betrag",OldCVLedgEntryBuf2."Währungscode",
     NewCVLedgEntryBuf."Währungscode",NewCVLedgEntryBuf."Posting Date");
     ...

  3. Ändern Sie den Code in der Funktion PutCustPmtTolAmount in der Codeunit „Payment Tolerance Management" (426) wie folgt:
    Vorhandener Code

     ...
     AcceptedEntryTolAmount := ROUND((AppliedCustLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
     TotalAmount := TotalAmount - AppliedCustLedgEntry.Amount;

     // Folgende Zeilen löschen.
     WENN CustledgEntry."Währungscode" <> AppliedCustLedgEntry."Währungscode" DANN BEGINNEN
     AcceptedEntryTolAmount :=
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,CustledgEntry."Währungscode",AppliedCustLedgEntry."Währungscode",
     CustledgeEntry."Posting Date");
     AcceptedTolAmount := AcceptedTolAmount -
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,AppliedCustLedgEntry."Währungscode",CustledgEntry."Währungscode",
     CustledgeEntry."Posting Date");
     ENDE SONST
     AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
     AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE SONST BEGINNEN
     AcceptedEntryTolAmount := AcceptedTolAmount;
     WENN CustledgEntry."Währungscode" <> AppliedCustLedgEntry."Währungscode" DANN
     AcceptedEntryTolAmount :=
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,CustledgEntry."Währungscode",AppliedCustLedgEntry."Währungscode",
     CustledgeEntry."Posting Date");
     // Ende der Zeilen.

     AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE;
     AppliedCustLedgEntry."Max. Zahlungstoleranz" := AppliedCustLedgEntryTemp."Max. Zahlungstoleranz";
     AppliedCustLedgEntry."Anzuwendender Betrag" := AppliedCustLedgEntryTemp."Restbetrag";
     AppliedCustLedgEntry.MODIFY;
     ...

    Ersatzcode

     ...
     AcceptedEntryTolAmount := ROUND((AppliedCustLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
     TotalAmount := TotalAmount - AppliedCustLedgEntry.Amount;

     // Fügen Sie die folgenden Zeilen hinzu.
     AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
     AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE SONST BEGINNEN
     AcceptedEntryTolAmount := AcceptedTolAmount;
     //Ende der Zeilen.

     AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE;
     AppliedCustLedgEntry."Max. Zahlungstoleranz" := AppliedCustLedgEntryTemp."Max. Zahlungstoleranz";
     AppliedCustLedgEntry."Anzuwendender Betrag" := AppliedCustLedgEntryTemp."Restbetrag";
     AppliedCustLedgEntry.MODIFY;
     ...

  4. Ändern Sie den Code in der Funktion PutVendPmtTolAmount in der Codeunit „Payment Tolerance Management" (426) wie folgt:
    Vorhandener Code

     ...
     AcceptedEntryTolAmount := ROUND((AppliedVendLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
     TotalAmount := TotalAmount - AppliedVendLedgEntry.Amount;

     // Folgende Zeilen löschen.
     WENN VendLedgEntry."Währungscode" <> AppliedVendLedgEntry."Währungscode" DANN BEGINNEN
     AcceptedEntryTolAmount :=
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,VendLedgEntry."Währungscode",AppliedVendLedgEntry."Währungscode",
     VendLedgEntry."Posting Date");
     AcceptedTolAmount := AcceptedTolAmount -
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,AppliedVendLedgEntry."Währungscode",VendLedgEntry."Währungscode",
     VendLedgEntry."Posting Date");
     ENDE SONST
     AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
     AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE SONST BEGINNEN
     AcceptedEntryTolAmount := AcceptedTolAmount;
     WENN VendLedgEntry."Währungscode" <> AppliedVendLedgEntry."Währungscode" DANN
     AcceptedEntryTolAmount :=
     GenJnlPostLine.ExchAmount(
     AcceptedEntryTolAmount,VendLedgEntry."Währungscode",AppliedVendLedgEntry."Währungscode",
     VendLedgEntry."Posting Date");
     // Ende der Zeilen.

     AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE;
     AppliedVendLedgEntry."Max. Zahlungstoleranz" := AppliedVendLedgEntryTemp."Max. Zahlungstoleranz";
     AppliedVendLedgEntry."Anzuwendender Betrag" := AppliedVendLedgEntryTemp."Remaining Amount";
     AppliedVendLedgEntry.MODIFY;
     ...

    Ersatzcode

     ...
     AcceptedEntryTolAmount := ROUND((AppliedVendLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
     TotalAmount := TotalAmount - AppliedVendLedgEntry.Amount;

     // Fügen Sie die folgenden Zeilen hinzu.
     AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
     AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE SONST BEGINNEN
     AcceptedEntryTolAmount := AcceptedTolAmount;
     //Ende der Zeilen.

     AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
     ENDE;
     AppliedVendLedgEntry."Max. Zahlungstoleranz" := AppliedVendLedgEntryTemp."Max. Zahlungstoleranz";
     AppliedVendLedgEntry."Anzuwendender Betrag" := AppliedVendLedgEntryTemp."Remaining Amount";
     AppliedVendLedgEntry.MODIFY;
     ...

Voraussetzungen

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

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 Service Pack 1 (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 .

Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)