Anwendungseinträge werden nicht wie erwartet gelöscht, wenn Sie Simulationseinträge löschen, die auf Rechnungen für einen Kreditor oder einen Kunden in der griechischen Version von Microsoft Dynamics NAV 2009 angewendet werden.

Gilt für
Dynamics NAV 2009

Dieser Artikel bezieht sich auf Microsoft Dynamics NAV für das Gebietsschema griechisch (gr).

Symptome

Angenommen, Sie löschen einen Simulationseintrag, der auf eine Rechnung für einen Kreditor oder kunden im Dialogfeld Simulationsregister in der griechischen Version von Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) angewendet wird. In diesem Fall wird der entsprechende Anwendungseintrag nicht gelöscht. Wenn Sie daher einen Testbilanzbericht für den Anbieter oder den Kunden ausführen, wird der Anwendungseintrag unerwartet in die Berechnung einbezogen. Darüber hinaus tritt dieses Problem auch auf, wenn Sie einen Ledgerbericht für den Anbieter oder den Kunden ausführen.
Dieses Problem tritt in den folgenden Produkten auf:

  • Die griechische Version von Microsoft Dynamics NAV 2009 R2
  • Die griechische Version von Microsoft Dynamics NAV 2009 Service Pack (SP1)

      

Lösung

Hotfixinformationen

Ein unterstützter Hotfix ist jetzt bei Microsoft verfügbar. Es dient jedoch nur zur Behebung des problems, das in diesem Artikel beschrieben wird. Wenden Sie sie nur auf Systeme an, bei denen dieses spezifische Problem auftritt. Dieser Hotfix erhält möglicherweise zusätzliche Tests. Wenn Sie von diesem Problem nicht stark betroffen sind, empfiehlt es sich 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 Gebühren, die normalerweise für Supportanrufe anfallen, storniert werden, wenn ein Technischer Supportmitarbeiter für Microsoft Dynamics und zugehörige Produkte feststellt, dass ihr Problem durch ein bestimmtes Update behoben wird. PLEASE DO NOT TRANSLATE. DOES NOT APPLY TO GERMAN.

            
          

Informationen zur Installation

Microsoft stellt Programmierbeispiele nur zur Veranschaulichung zur Verfügung, ohne ausdrückliche oder stillschweigende Garantie. Dies schließt die stillschweigende Gewährleistung der Marktgängigkeit oder der Eignung für einen bestimmten Zweck ein, ist aber nicht darauf beschränkt. In diesem Artikel wird davon ausgegangen, dass Sie mit der vorgestellten Programmiersprache und den Werkzeugen zum Erstellen und Debuggen von Prozeduren vertraut sind. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

Hinweis Überprüfen Sie vor der Installation dieses Hotfixs, ob alle Microsoft Navision-Clientbenutzer vom System abgemeldet sind. Dies schließt Microsoft Navision Application Services (NAS)-Clientbenutzer ein. Sie sollten der einzige Clientbenutzer sein, der angemeldet ist, wenn Sie diesen Hotfix implementieren.

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

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

  • Die Berechtigung Ändern für das Objekt, das Sie ändern.
  • Die Execute-Berechtigung für das Systemobjekt-ID 5210-Objekt und für das Systemobjekt-ID 9015-Objekt.

                
Hinweis Sie benötigen keine Rechte für die Datenspeicher, 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 Ihre Produktionscomputer anwenden.
Gehen Sie wie folgt vor, um das Problem zu beheben:

  1. Erstellen Sie eine neue lokale Variable in der DeleteReg-Funktion in der Codeeinheit simulation management (16755), und geben Sie dann die Variable wie folgt an:

    • Name: SimCust2
    • Datentyp: Datensatz
    • Untertyp: 16757

  2. Erstellen Sie eine neue lokale Variable in der DeleteReg-Funktion in der Codeeinheit simulation management (16755), und geben Sie dann die Variable wie folgt an:

    • Name: SimVend2
    • Datentyp: Datensatz
    • Untertyp: 16759

  3. Erstellen Sie eine neue lokale Variable in der DeleteReg-Funktion in der Codeeinheit simulation management (16755), und geben Sie dann die Variable wie folgt an:

    • Name: SimDtldCust2
    • Datentyp: Datensatz
    • Untertyp: 16758

  4. Erstellen Sie eine neue lokale Variable in der DeleteReg-Funktion in der Codeeinheit simulation management (16755), und geben Sie dann die Variable wie folgt an:

    • Name: SimDtldVend2
    • Datentyp: Datensatz
    • Untertyp: 16760

  5. Ändern Sie den Code in der DeleteReg-Funktion in der Codeeinheit Simulation Management (16755) wie folgt:
    Vorhandener Code 1

    ...
IF SimCust.FIND('-') THEN BEGIN
REPEAT
WITH SimDtldCust DO BEGIN

// Delete the following lines. 
SimDtldCust.SETRANGE("Cust. Ledger Entry No.",SimCust."Entry No.");
IF SimDtldCust.FIND('-') THEN BEGIN
REPEAT
SimDtldCust.DELETE;
UNTIL SimDtldCust.NEXT = 0;
END;
// End of the lines. 

END;
WITH LedgEntryDim DO BEGIN
LedgEntryDim.SETRANGE("Table ID",16757);
...

    Ersetzungscode 1

    ...
IF SimCust.FIND('-') THEN BEGIN
REPEAT
WITH SimDtldCust DO BEGIN

// Add the following lines.
RESET;
SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type","Posting Date");
SETRANGE("Cust. Ledger Entry No.",SimCust."Entry No.");
IF FINDSET THEN
REPEAT
IF "Entry Type" = "Entry Type"::"Initial Entry" THEN
DELETE
ELSE BEGIN
SimDtldCust2.SETRANGE("Transaction No.","Transaction No.");
SimDtldCust2.SETFILTER("Entry Type",'>%1',"Entry Type"::"Initial Entry");
IF SimDtldCust2.FINDSET THEN
REPEAT
IF (SimDtldCust2."Cust. Ledger Entry No." <> SimCust."Entry No.") AND
(SimDtldCust2."Entry Type" = SimDtldCust2."Entry Type"::Application) 
THEN BEGIN
SimCust2.GET(SimDtldCust2."Cust. Ledger Entry No.");
SimCust2."Accepted Payment Tolerance" := 0;
IF NOT SimCust2.Open THEN BEGIN
SimCust2.Open := TRUE;
SimCust2."Closed by Entry No." := 0;
SimCust2."Closed at Date" := 0D;
SimCust2."Closed by Amount" := 0;
SimCust2."Closed by Amount (LCY)" := 0;
SimCust2."Closed by Currency Code" := '';
SimCust2."Closed by Currency Amount" := 0;
SimCust2."Pmt. Disc. Given (LCY)" := 0;
SimCust2."Pmt. Tolerance (LCY)" := 0;
END;
SimCust2.MODIFY;
END;
SimDtldCust2.DELETE;
UNTIL SimDtldCust2.NEXT = 0;
END;
UNTIL NEXT = 0;
// End of the lines. 

END;
WITH LedgEntryDim DO BEGIN
LedgEntryDim.SETRANGE("Table ID",16757);
...

    Vorhandener Code 2

    ...
IF SimVend.FIND('-') THEN BEGIN
REPEAT
WITH SimDtldVend DO BEGIN

// Delete the following lines.
SimDtldVend.SETRANGE("Vendor Ledger Entry No.",SimVend."Entry No.");
IF SimDtldVend.FIND('-') THEN BEGIN
REPEAT
SimDtldVend.DELETE;
UNTIL SimDtldVend.NEXT = 0;
END;
// End of the lines.

END;
WITH LedgEntryDim DO BEGIN
LedgEntryDim.SETRANGE("Table ID",16759);
...

    Ersetzungscode 2

    ...
IF SimVend.FIND('-') THEN BEGIN
REPEAT
WITH SimDtldVend DO BEGIN

// Add the following lines.
RESET;
SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type","Posting Date");
SETRANGE("Vendor Ledger Entry No.",SimVend."Entry No.");
IF FINDSET THEN
REPEAT
IF "Entry Type" = "Entry Type"::"Initial Entry" THEN
DELETE
ELSE BEGIN
SimDtldVend2.SETRANGE("Transaction No.","Transaction No.");
SimDtldVend2.SETFILTER("Entry Type",'>%1',"Entry Type"::"Initial Entry");
IF SimDtldVend2.FINDSET THEN
REPEAT
IF (SimDtldVend2."Vendor Ledger Entry No." <> SimVend."Entry No.") AND
(SimDtldVend2."Entry Type" = SimDtldVend2."Entry Type"::Application)
THEN BEGIN
SimVend2.GET(SimDtldVend2."Vendor Ledger Entry No.");
SimVend2."Accepted Payment Tolerance" := 0;
IF NOT SimVend2.Open THEN BEGIN
SimVend2.Open := TRUE;
SimVend2."Closed by Entry No." := 0;
SimVend2."Closed at Date" := 0D;
SimVend2."Closed by Amount" := 0;
SimVend2."Closed by Amount (LCY)" := 0;
SimVend2."Closed by Currency Code" := '';
SimVend2."Closed by Currency Amount" := 0;
SimVend2."Pmt. Disc. Rcd.(LCY)" := 0;
SimVend2."Pmt. Tolerance (LCY)" := 0;
END;
SimVend2.MODIFY;
END;
SimDtldVend2.DELETE;
UNTIL SimDtldVend2.NEXT = 0;
END;
UNTIL NEXT = 0;
// End of the lines.

END;
WITH LedgEntryDim DO BEGIN
LedgEntryDim.SETRANGE("Table ID",16759);
...

            
          

Voraussetzungen

Sie müssen eines der folgenden Produkte installiert haben, um diesen Hotfix anwenden zu können:

  • Die griechische Version von Microsoft Dynamics NAV 2009 R2
  • Die griechische Version von Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Informationen zur Deinstallation

Sie können diesen Hotfix nicht entfernen.

Status

Microsoft hat bestätigt, dass dies ein Problem bei den Microsoft-Produkten ist, die im Abschnitt „Gilt für“ aufgeführt sind.

Hinweis: Dies ist ein Artikel vom Typ "SCHNELL VERÖFFENTLICHEN", der direkt in der Microsoft-Supportorganisation erstellt wurde. Die Informationen in diesem Artikel werden ohne Gewähr als Reaktion auf auftretende Probleme bereitgestellt. Aufgrund ihrer schnellen Bereitstellung können sie typografische Fehler enthalten und jederzeit ohne vorherige Ankündigung geändert werden. Andere Überlegungen finden Sie unter Nutzungsbedingungen.