Eine Zahlung, die eine Fremdwährung verwendet bleibt geöffnet, nachdem Sie die Zahlung auf eine Rechnung anwenden, die in Microsoft Dynamics NAV 2009 Landeswährung verwendet


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

Problembeschreibung


Angenommen Sie, Sie die Zahlungstoleranz in Microsoft Dynamics NAV 2009 können. Nach dem Anwenden einer Zahlungsausgangs, die eine Fremdwährung eine Rechnung verwendet, die die lokale Währung verwendet bleibt der Zahlungsausgangs mit dem Restbetrag, obwohl die Zahlungstoleranz akzeptiert wird.
Dieses Problem tritt in den folgenden Produkten auf:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Servicepack 1 (SP1)

Problemlösung


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 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-Supportmitarbeiter können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, sie werden jedoch diese Beispiele nicht verändern um eine erweiterte Funktionalität aufzuzeigen oder Prozeduren entwickeln, die Ihren Anforderungen entsprechen.

Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Navision-Clientbenutzer vom System abgemeldet werden. Dies gilt auch für Clientbenutzer der Microsoft Navision Application Services (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 ApplyCustLedgEntry in der Fibu Buch.-Post Line Codeunit (12) wie folgt:
    Vorhandener Code 1
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldCustLedgEntry."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    TempOldCustLedgEntry."Remaining Pmt. Disc. Possible",TempOldCustLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");

    // Delete the following lines.
    TempOldCustLedgEntry."Accepted Payment Tolerance" :=
    ExchAmount(
    TempOldCustLedgEntry."Accepted Payment Tolerance",TempOldCustLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    // End of the lines.

    TempOldCustLedgEntry."Amount to Apply" :=
    ExchAmount(
    TempOldCustLedgEntry."Amount to Apply",TempOldCustLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Neuer Code 1
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldCustLedgEntry."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    TempOldCustLedgEntry."Remaining Pmt. Disc. Possible",TempOldCustLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldCustLedgEntry."Amount to Apply" :=
    ExchAmount(
    TempOldCustLedgEntry."Amount to Apply",TempOldCustLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Vorhandener Code 2
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");

    // Delete the following lines.
    OldCVLedgEntryBuf2."Accepted Payment Tolerance" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Accepted Payment Tolerance",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    // End of the lines.

    OldCVLedgEntryBuf2."Amount to Apply" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Amount to Apply",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Neuer Code 2
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Amount to Apply" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Amount to Apply",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
  2. Ändern Sie den Code in der Funktion ApplyVendLedgEntry in der Fibu Buch.-Post Line Codeunit (12) wie folgt:
    Vorhandener Code 1
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldVendLedgEntry."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    TempOldVendLedgEntry."Remaining Pmt. Disc. Possible",TempOldVendLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");

    // Delete the following lines.
    TempOldVendLedgEntry."Accepted Payment Tolerance" :=
    ExchAmount(
    TempOldVendLedgEntry."Accepted Payment Tolerance",TempOldVendLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    // End of the lines.

    TempOldVendLedgEntry."Amount to Apply" :=
    ExchAmount(
    TempOldVendLedgEntry."Amount to Apply",TempOldVendLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Neuer Code 1
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldVendLedgEntry."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    TempOldVendLedgEntry."Remaining Pmt. Disc. Possible",TempOldVendLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    TempOldVendLedgEntry."Amount to Apply" :=
    ExchAmount(
    TempOldVendLedgEntry."Amount to Apply",TempOldVendLedgEntry."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Vorhandener Code 2
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");

    // Delete the following lines.
    OldCVLedgEntryBuf2."Accepted Payment Tolerance" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Accepted Payment Tolerance",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    // End of the lines.

    OldCVLedgEntryBuf2."Amount to Apply" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Amount to Apply",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
    Neuer Code 2
    ...NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Remaining Pmt. Disc. Possible",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    OldCVLedgEntryBuf2."Amount to Apply" :=
    ExchAmount(
    OldCVLedgEntryBuf2."Amount to Apply",OldCVLedgEntryBuf2."Currency Code",
    NewCVLedgEntryBuf."Currency Code",NewCVLedgEntryBuf."Posting Date");
    ...
  3. Ändern Sie den Code in der Funktion PutCustPmtTolAmount der Zahlungstoleranz Management-Codeunit (426) wie folgt:
    Vorhandener code
    ...AcceptedEntryTolAmount := ROUND((AppliedCustLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
    TotalAmount := TotalAmount - AppliedCustLedgEntry.Amount;

    // Delete the following lines.
    IF CustledgEntry."Currency Code" <> AppliedCustLedgEntry."Currency Code" THEN BEGIN
    AcceptedEntryTolAmount :=
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,CustledgEntry."Currency Code",AppliedCustLedgEntry."Currency Code",
    CustledgEntry."Posting Date");
    AcceptedTolAmount := AcceptedTolAmount -
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,AppliedCustLedgEntry."Currency Code",CustledgEntry."Currency Code",
    CustledgEntry."Posting Date");
    END ELSE
    AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
    AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END ELSE BEGIN
    AcceptedEntryTolAmount := AcceptedTolAmount;
    IF CustledgEntry."Currency Code" <> AppliedCustLedgEntry."Currency Code" THEN
    AcceptedEntryTolAmount :=
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,CustledgEntry."Currency Code",AppliedCustLedgEntry."Currency Code",
    CustledgEntry."Posting Date");
    // End of the lines.

    AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END;
    AppliedCustLedgEntry."Max. Payment Tolerance" := AppliedCustLedgEntryTemp."Max. Payment Tolerance";
    AppliedCustLedgEntry."Amount to Apply" := AppliedCustLedgEntryTemp."Remaining Amount";
    AppliedCustLedgEntry.MODIFY;
    ...
    Neuer code
    ...AcceptedEntryTolAmount := ROUND((AppliedCustLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
    TotalAmount := TotalAmount - AppliedCustLedgEntry.Amount;

    // Add the following lines.
    AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
    AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END ELSE BEGIN
    AcceptedEntryTolAmount := AcceptedTolAmount;
    //End of the lines.

    AppliedCustLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END;
    AppliedCustLedgEntry."Max. Payment Tolerance" := AppliedCustLedgEntryTemp."Max. Payment Tolerance";
    AppliedCustLedgEntry."Amount to Apply" := AppliedCustLedgEntryTemp."Remaining Amount";
    AppliedCustLedgEntry.MODIFY;
    ...
  4. Ändern Sie den Code in der Funktion PutVendPmtTolAmount der Zahlungstoleranz Management-Codeunit (426) wie folgt:
    Vorhandener code
    ...AcceptedEntryTolAmount := ROUND((AppliedVendLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
    TotalAmount := TotalAmount - AppliedVendLedgEntry.Amount;

    // Delete the following lines.
    IF VendLedgEntry."Currency Code" <> AppliedVendLedgEntry."Currency Code" THEN BEGIN
    AcceptedEntryTolAmount :=
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,VendLedgEntry."Currency Code",AppliedVendLedgEntry."Currency Code",
    VendLedgEntry."Posting Date");
    AcceptedTolAmount := AcceptedTolAmount -
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,AppliedVendLedgEntry."Currency Code",VendLedgEntry."Currency Code",
    VendLedgEntry."Posting Date");
    END ELSE
    AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
    AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END ELSE BEGIN
    AcceptedEntryTolAmount := AcceptedTolAmount;
    IF VendLedgEntry."Currency Code" <> AppliedVendLedgEntry."Currency Code" THEN
    AcceptedEntryTolAmount :=
    GenJnlPostLine.ExchAmount(
    AcceptedEntryTolAmount,VendLedgEntry."Currency Code",AppliedVendLedgEntry."Currency Code",
    VendLedgEntry."Posting Date");
    // End of the lines.

    AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END;
    AppliedVendLedgEntry."Max. Payment Tolerance" := AppliedVendLedgEntryTemp."Max. Payment Tolerance";
    AppliedVendLedgEntry."Amount to Apply" := AppliedVendLedgEntryTemp."Remaining Amount";
    AppliedVendLedgEntry.MODIFY;
    ...
    Neuer code
    ...AcceptedEntryTolAmount := ROUND((AppliedVendLedgEntry.Amount / TotalAmount) * AcceptedTolAmount);
    TotalAmount := TotalAmount - AppliedVendLedgEntry.Amount;

    // Add the following lines.
    AcceptedTolAmount := AcceptedTolAmount - AcceptedEntryTolAmount;
    AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END ELSE BEGIN
    AcceptedEntryTolAmount := AcceptedTolAmount;
    //End of the lines.

    AppliedVendLedgEntry."Accepted Payment Tolerance" := AcceptedEntryTolAmount;
    END;
    AppliedVendLedgEntry."Max. Payment Tolerance" := AppliedVendLedgEntryTemp."Max. Payment Tolerance";
    AppliedVendLedgEntry."Amount to Apply" := AppliedVendLedgEntryTemp."Remaining Amount";
    AppliedVendLedgEntry.MODIFY;
    ...

Voraussetzungen

Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:
  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Servicepack 1 (SP1)

Informationen zur Deinstallation

Dieser Hotfix kann nicht entfernt werden.

Status


Microsoft hat bestätigt, dass es sich um ein Problem bei den Microsoft-Produkten handelt, die im Abschnitt „Eigenschaften“ aufgeführt sind.
Hinweis Dies ist ein im Schnellverfahren veröffentlichter Artikel, der direkt in der Microsoft Support-Organisation erstellt wurde. Die hierin enthaltenen Informationen werden ohne Mängelgewähr in Reaktion auf neue Probleme bereitgestellt. Aufgrund der schnellen Bereitstellung kann das Material möglicherweise typografische Fehler enthalten und jederzeit ohne vorherige Ankündigung geändert werden. Weitere Hinweise finden Sie unter Geschäftsbedingungen .