Saturday, November 25, 2023

Im Bericht (10885) in der französischen Version von Microsoft Dynamics NAV 2009 fehlen Zusatzinformationen – Microsoft-Support

Unterkontobezeichnung, Währungsbetrag und Währung sind optionale Felder in der FEC-Datei in der französischen Version von Microsoft Dynamics NAV 2009. Dies ist jedoch nicht optional, wenn die Einträge im Hauptbuch validiert werden. Befolgen Sie die Schritte im Abschnitt „Codeänderungen", um dieses Problem zu beheben. Dieses Problem tritt bei folgenden Produkten auf:

  • Die französische Version von Microsoft Dynamics NAV 2009 R2

  • Die französische Version von 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 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, führen Sie die folgenden Schritte aus:

  1. Ändern Sie den Code in der Funktion „GetCustomerLedgerEntryData" im Bericht „Hauptbucheinträge exportieren – Steuerprüfung" (10885) wie folgt:
    Vorhandener Code

     ...
    PartyName := Kunde.Name;
    ENDE;

    // Folgende Zeile löschen.
    PayRecAccount := GetReceivablesAccount(CustLedgerEntry."Customer Posting Group");

    CountOfGLentriesInTransaction := GetTransPayRecEntriesCount(GLEntry."Transaction No.",PayRecAccount);

    WENN (CustLedgerEntry."Currency Code" <> '') AND (CountOfGLEntriesInTransaction = 1) THEN BEGIN
    ...

    Ersatzcode

     ...
    PartyName := Kunde.Name;
    ENDE;

    CountOfGLentriesInTransaction := GetTransPayRecEntriesCount(GLEntry."Transaction No.",PayRecAccount);

    WENN (CustLedgerEntry."Currency Code" <> '') AND (CountOfGLEntriesInTransaction = 1) THEN BEGIN
    ...
  2. Ändern Sie den Code in der Funktion „GetVendorLedgerEntryData" im Bericht „Hauptbucheinträge exportieren – Steuerprüfung" (10885) wie folgt:
    Vorhandener Code

     ...
    PartyNo := Vendor."No.";
    PartyName := Vendor.Name;
    ENDE;

    // Folgende Zeile löschen.
    PayRecAccount := GetPayablesAccount(VendorLedgerEntry."Vendor Posting Group");

    CountOfGLentriesInTransaction := GetTransPayRecEntriesCount(GLEntry."Transaction No.",PayRecAccount);

    WENN (VendorLedgerEntry."Currency Code" <> '') AND (CountOfGLEntriesInTransaction = 1) THEN BEGIN
    ...

    Ersatzcode

     ...

    PartyNo := Vendor."No.";
    PartyName := Vendor.Name;
    ENDE;
    CountOfGLentriesInTransaction := GetTransPayRecEntriesCount(GLEntry."Transaction No.",PayRecAccount);

    WENN (VendorLedgerEntry."Currency Code" <> '') AND (CountOfGLEntriesInTransaction = 1) THEN BEGIN
    ...
  3. Ändern Sie den Code in der Funktion „GetLedgerEntryDataForCustVend" im Bericht „Hauptbucheinträge exportieren – Steuerprüfung" (10885) wie folgt:
    Vorhandener Code 1

     ...
    ENDE
    ENDE;

    // Folgende Zeile löschen.
    VERFAHREN GetLedgerEntryDataForCustVend@1120007(TransactionNo@1120000 : Integer;VAR PartyNo@1120011 : Code[20];VAR PartyName@1120012 : Text[50];VAR FCYAmount@1120013 : Text[250];VAR CurrencyCode@1120014 : Code[1 0] ;VAR PayRecAccount@1120044 : Code[20]);

    VAR
    CustLedgerEntry@1120005: Datensatz 21;
    VendorLedgerEntry@1120006: Datensatz 25;
    ...

    Ersatzcode 1

     ...
    ENDE
    ENDE;

    // Fügen Sie die folgende Zeile hinzu.
    VERFAHREN GetLedgerEntryDataForCustVend@1120007(TransactionNo@1120000 : Integer;VAR PartyNo@1120011 : Code[20];VAR PartyName@1120012 : Text[50];VAR FCYAmount@1120013 : Text[250];VAR CurrencyCode@1120014 : Code[1 0] );

    VAR
    CustLedgerEntry@1120005: Datensatz 21;
    VendorLedgerEntry@1120006: Datensatz 25;
    ...

    Vorhandener Code 2

     ...
    VAR
    CustLedgerEntry@1120005: Datensatz 21;
    VendorLedgerEntry@1120006: Datensatz 25;

    // Folgende Zeilen löschen.
    CountOfGLentriesInTransaction@1120001 : Ganzzahl;
    BEGINNEN
    CustLedgerEntry.SETRANGE("Transaction No.",TransactionNo);
    WENN CustLedgerEntry.FINDFIRST UND (CustLedgerEntry.COUNT = 1) DANN BEGINNEN
    // Ende der gelöschten Zeilen.

    GetCustomerLedgerEntryData(CustLedgerEntry,PartyNo,PartyName,FCYAmount,CurrencyCode);
    AUSFAHRT;
    ENDE;
    ...

    Ersatzcode 2

     ...
    VAR
    CustLedgerEntry@1120005: Datensatz 21;
    VendorLedgerEntry@1120006: Datensatz 25;

    // Fügen Sie die folgenden Zeilen hinzu.
    BEGINNEN
    CustLedgerEntry.SETRANGE("Transaction No.",TransactionNo);
    WENN CustLedgerEntry.FINDFIRST, DANN BEGIN
    PayRecAccount := GetReceivablesAccount(CustLedgerEntry."Customer Posting Group");
    CustLedgerEntry.SETFILTER("Kunden-Nr.",'<>%1',CustLedgerEntry."Kunden-Nr.");
    WENN CustLedgerEntry.FINDFIRST, DANN BEGIN
    PartyName := 'Multi-Clients';
    PartyNr := '*';
    ENDE SONST
    // Ende der hinzugefügten Zeilen.

    GetCustomerLedgerEntryData(CustLedgerEntry,PartyNo,PartyName,FCYAmount,CurrencyCode);
    AUSFAHRT;
    ENDE;
    ...

    Vorhandener Code 3

     ...
    ENDE;

    VendorLedgerEntry.SETRANGE("Transaction No.",TransactionNo);

    // Folgende Zeile löschen.
    WENN VendorLedgerEntry.FINDFIRST UND (VendorLedgerEntry.COUNT = 1) DANN BEGINNEN

    GetVendorLedgerEntryData(VendorLedgerEntry,PartyNo,PartyName,FCYAmount,CurrencyCode);
    ENDE
    ENDE;
    ...

    Ersatzcode 3

     ...
    ENDE;

    VendorLedgerEntry.SETRANGE("Transaction No.",TransactionNo);

    // Fügen Sie die folgenden Zeilen hinzu.
    WENN VendorLedgerEntry.FINDFIRST DANN BEGIN
    PayRecAccount := GetPayablesAccount(VendorLedgerEntry."Vendor Posting Group");
    VendorLedgerEntry.SETFILTER("Lieferanten-Nr.",'<>%1',VendorLedgerEntry."Lieferanten-Nr.");
    WENN VendorLedgerEntry.FINDFIRST DANN BEGIN
    PartyName := 'multi-fournisseurs';
    PartyNr := '*';
    ENDE SONST
    // Ende der hinzugefügten Zeilen.

    GetVendorLedgerEntryData(VendorLedgerEntry,PartyNo,PartyName,FCYAmount,CurrencyCode);
    ENDE
    ENDE;
    ...
  4. Ändern Sie den Code in der Funktion „ProcessGLEntry" im Bericht „Hauptbucheinträge exportieren – Steuerprüfung" (10885) wie folgt:
    Vorhandener Code 1

     ...
    CustVendLedgEntryPartyNo,
    CustVendLedgEntryPartyName,
    CustVendLedgEntryFCYAmount,

    // Folgende Zeilen löschen.
    CustVendLedgEntryCurrencyCode,
    PayRecAccount);
    // Ende der gelöschten Zeilen.

    CurrentTransactionNo := GLEntry."Transaktionsnr.";
    ENDE;
    ...

    Ersatzcode 1

     ...
    CustVendLedgEntryPartyNo,
    CustVendLedgEntryPartyName,
    CustVendLedgEntryFCYAmount,

    // Fügen Sie die folgende Zeile hinzu.
    CustVendLedgEntryCurrencyCode);

    CurrentTransactionNo := GLEntry."Transaktionsnr.";
    ENDE;
    ...
  5. Ändern Sie den Code in der Funktion „WriteHeaderToFile" im Bericht „Hauptbucheinträge exportieren – Steuerprüfung" (10885) wie folgt:
    Vorhandener Code

     ...
    LOKALE PROZEDUR WriteHeaderToFile@1120040();
    BEGINNEN

    // Folgende Zeile löschen.
    OutputTextStream.WriteLine('JournalCode|JournalLib|EcriturNum|EcritureDate|CompteNum|CompteLib|CompAuxNum|CompAuxLib|PieceRef|' +

    'PieceDate|EcritureLib|Debit|Credit|EcritureLet|DateLet|ValidDate|Montantdevise|Idevise');
    ENDE;
    ...

    Ersatzcode

     ...
    LOKALE PROZEDUR WriteHeaderToFile@1120040();
    BEGINNEN

    // Fügen Sie die folgenden Zeilen hinzu.
    OutputTextStream.WriteLine(
    'JournalCode|JournalLib|EcritureNum|EcritureDate|CompteNum|CompteLib|CompAuxNum|CompAuxLib|PieceRef|' +
    // Ende der hinzugefügten Zeilen.

    'PieceDate|EcritureLib|Debit|Credit|EcritureLet|DateLet|ValidDate|Montantdevise|Idevise');
    ENDE;
    ...


Voraussetzungen

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

  • Die französische Version von Microsoft Dynamics NAV 2009 R2

  • Die französische 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