Der MwSt.-Rundung funktioniert nicht richtig für die Stornobuchungen Sales-EK-Belege in der Tschechischen Version von Microsoft Dynamics NAV 2009 R2


Dieser Artikel bezieht sich auf Microsoft Dynamics NAV für das Tschechische (cz).

Problembeschreibung


Tschechische Version von Microsoft Dynamics NAV 2009 R2 berechnet das System den MwSt.-Rundung für die Stornobuchungen auf Sales-EK-Belege. Dieses Problem tritt auf, wenn das System Rechnung und Mehrwertsteuer auf ganze Zahlen gerundet.

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 2009 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 RoundAmount in die Codeunit Vertrieb-Beitrag (80) wie folgt:
    Fügen Sie eine Textkonstante wie folgt:
    Text054: TextConst "ENU = %1 ' % 2 ' muss NULL MwSt.-Einrichtung."
    Vorhandener code
    ...      IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);

    IF SalesHeader."Prices Including VAT" THEN
    ...
    Neuer code
    ...   IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    // Add the following lines.
    IF "System-Created Entry" THEN BEGIN
    RoundingPrecisionLCY := Currency."Amount Rounding Precision";
    RoundingDirectionLCY := Currency.VATRoundingDirection;
    END ELSE BEGIN
    // End of the added lines.

    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
    // Add the following line.
    END;

    IF SalesHeader."Prices Including VAT" THEN
    ...
  2. Ändern Sie den Code in der Funktion InvoiceRounding in die Codeunit Vertrieb-Beitrag (80) wie folgt:
    Löschen Sie die folgenden lokalen Variablen:
    • Name: RoundingPrecision; Datentyp: Dezimalzahl
    • Name: RoundingDirection; Datentyp: Text [1]
    Fügen Sie die folgenden lokalen Variablen:
    • Name: Neuer Code; Datentyp: Datensatz (325)
    • Name: GLAcc; Datentyp: Datensatz (15)

    Vorhandener Code 1
    ...// Delete the following line.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Currency.TESTFIELD("Invoice Rounding Precision");
    InvoiceRoundingAmount :=
    -ROUND(
    TotalSalesLine."Amount Including VAT" -
    ROUND(
    TotalSalesLine."Amount Including VAT",
    Currency."Invoice Rounding Precision",
    Currency.InvoiceRoundingDirection),
    // Delete the following line.
    RoundingPrecision);

    IF InvoiceRoundingAmount <>0 THEN BEGIN
    CustPostingGr.GET(SalesHeader."Customer Posting Group");
    CustPostingGr.TESTFIELD("Invoice Rounding Account");

    WITH SalesLine DO BEGIN
    ...
    Neuer Code 1
    ...  Currency.TESTFIELD("Invoice Rounding Precision");
    InvoiceRoundingAmount :=
    -ROUND(
    TotalSalesLine."Amount Including VAT" -
    ROUND(
    TotalSalesLine."Amount Including VAT",
    Currency."Invoice Rounding Precision",
    Currency.InvoiceRoundingDirection),

    // Add the following line.
    Currency."Amount Rounding Precision");

    IF InvoiceRoundingAmount <> 0 THEN BEGIN
    CustPostingGr.GET(SalesHeader."Customer Posting Group");
    CustPostingGr.TESTFIELD("Invoice Rounding Account");
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
    GLAcc.GET(CustPostingGr."Invoice Rounding Account");
    IF VATPostingSetup.GET(SalesHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
    IF VATPostingSetup."VAT %" <> 0 THEN
    ERROR(Text054,CustPostingGr.FIELDCAPTION("Invoice Rounding Account"),CustPostingGr."Invoice Rounding Account");
    END;
    // End of the added lines.

    WITH SalesLine DO BEGIN
    ...
    Vorhandener Code 2
    ...   ELSE
    VALIDATE(
    "Unit Price",
    ROUND(
    InvoiceRoundingAmount /
    (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
    // Delete the following line.
    RoundingPrecision));

    VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
    ...
    Neuer Code 2
    ...  ELSE
    VALIDATE(
    "Unit Price",
    ROUND(
    InvoiceRoundingAmount /
    (1 + (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100),
    // Add the following line.
    Currency."Amount Rounding Precision"));

    VALIDATE("Amount Including VAT",InvoiceRoundingAmount);
    ...
  3. Ändern Sie den Code in der Funktion RoundAmount in der Purch.-Post Codeunit (90) wie folgt:
    Fügen Sie folgende Textkonstante hinzu:

    Text061: TextConst "ENU = %1 ' % 2 ' muss NULL MwSt.-Einrichtung."

    Vorhandener code
    ...  IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);

    IF PurchHeader."Prices Including VAT" THEN
    ...
    Neuer code
    ...  IF ("VAT Calculation Type" = "VAT Calculation Type"::"Normal VAT") OR
    ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT")
    THEN BEGIN
    GetCurrency;
    // Add the following lines.
    IF "System-Created Entry" THEN BEGIN
    RoundingPrecisionLCY := Currency."Amount Rounding Precision";
    RoundingDirectionLCY := Currency.VATRoundingDirection;
    END ELSE BEGIN
    // End of the added lines.
    GLSetup.GET;
    GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
    // Add the following line.
    END;

    IF PurchHeader."Prices Including VAT" THEN
    ...
  4. Ändern Sie den Code in der Funktion InvoiceRounding in der Purch.-Post Codeunit (90) wie folgt:
    Löschen Sie die folgenden lokalen Variablen:
    • Name: RoundingPrecision; Datentyp: Dezimalzahl
    • Name: RoundingDirection; Datentyp: Text [1]
    Fügen Sie die folgenden lokalen Variablen:
    • Name: Neuer Code; Datentyp: Datensatz (325)
    • Name: GLAcc; Datentyp: Datensatz (15)

    Vorhandener code
    ...   IF InvoiceRoundingAmount <> 0 THEN BEGIN
    VendPostingGr.GET(PurchHeader."Vendor Posting Group");
    VendPostingGr.TESTFIELD("Invoice Rounding Account");

    WITH PurchLine DO BEGIN
    ...
    Neuer code
    ...    IF InvoiceRoundingAmount <>  0 THEN BEGIN
    VendPostingGr.GET(PurchHeader."Vendor Posting Group");
    VendPostingGr.TESTFIELD("Invoice Rounding Account");
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" <> GLSetup."Amount Rounding Precision" THEN BEGIN
    GLAcc.GET(VendPostingGr."Invoice Rounding Account");
    IF VATPostingSetup.GET(PurchHeader."VAT Bus. Posting Group",GLAcc."VAT Prod. Posting Group") THEN
    IF VATPostingSetup."VAT %" <>0 THEN
    ERROR(Text061,VendPostingGr.FIELDCAPTION("Invoice Rounding Account"),VendPostingGr."Invoice Rounding Account");
    END;
    // End of the added lines.
    WITH PurchLine DO BEGIN
    ...
  5. Ändern Sie den Code in der Betrag inklusive MwSt. - OnValidate Trigger in der Tabelle Verkaufszeile (37) folgendermaßen:
    Vorhandener code
    ...    CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
    Neuer code
    ...  CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    // Add the following lines.
    IF "System-Created Entry" THEN
    RoundingPrecision := Currency."Amount Rounding Precision"
    ELSE
    // End of the added lines.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
  6. Ändern Sie den Code in der Funktion CalcVATAmountLines Verkaufszeile (37) folgendermaßen:
    Vorhandener Code 1
    ...              END;
    END;
    // Delete the following line
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount;
    VATCorrection := VATCorrection AND SalesLine."VAT Correction";
    END;
    UNTIL NEXT = 0;
    ...
    Neuer Code 1
    ...            END;
    END;
    // Add the following lines.
    IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    // End of the added lines.
    VATCorrection := VATCorrection AND SalesLine."VAT Correction";
    END;
    UNTIL NEXT = 0;
    ...
    Vorhandener Code 2
    ...    END;
    END;
    // Delete the following line.
    IF RoundingLineInserted THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
    Neuer Code 2
    ...     END;
    END;
    // Add the following line.
    IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
  7. Ändern Sie den Code in den Betrag inklusive MwSt. - OnValidate Trigger in der Tabelle " Einkaufszeile " (39) folgendermaßen:
    Vorhandener code
    ...    CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
    Neuer code
    ...  CASE "VAT Calculation Type" OF
    "VAT Calculation Type"::"Normal VAT",
    "VAT Calculation Type"::"Reverse Charge VAT":
    BEGIN
    // Add the following lines.
    IF "System-Created Entry" THEN
    RoundingPrecision := Currency."Amount Rounding Precision"
    ELSE
    // End of the added lines.
    GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);

    Amount :=
    ...
  8. Ändern Sie den Code in der Funktion CalcVATAmountLines in der Tabelle " Einkaufszeile " (39) folgendermaßen:
    Vorhandener Code 1
    ...       END;
    END;

    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    VATCorrection := VATCorrection AND PurchLine."VAT Correction";
    ...
    Neuer Code 1
    ...       END;
    END;
    // Add the following line.
    IF GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision" THEN
    TotalVATAmount := TotalVATAmount + "Amount Including VAT" - Amount + "VAT Difference";
    VATCorrection := VATCorrection AND PurchLine."VAT Correction";
    ...
    Vorhandener Code 2
    ...   END;
    END;
    // Delete the following line.
    IF RoundingLineInserted THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...
    Neuer Code 2
    ...     END;
    END;
    // Add the following line
    IF RoundingLineInserted AND (GLSetup."Rounding VAT (LCY)" = GLSetup."Amount Rounding Precision") THEN
    TotalVATAmount := TotalVATAmount - "VAT Amount";
    "Calculated VAT Amount" := "VAT Amount" - "VAT Difference";
    ...

Voraussetzungen

Tschechische Version des Microsoft Dynamics NAV 2009 R2 verfügen, um diesen Hotfix installieren müssen.

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.

Referenzen


VSTF DynamicsNAV SE: 254108
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 .