Das Tool zur Änderung des Mehrwertsteuersatzes berücksichtigt keine Filter in Dokumentzeilen in Microsoft Dynamics NAV.

Gilt für
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Dieser Artikel gilt für Microsoft Dynamics NAV für alle Länder und gebietsschemas aller Sprachen.

Symptome

Wenn Sie das MwSt.-Satzänderungstool ausführen, für das ein Filter in Microsoft Dynamics NAV festgelegt ist, wird der Filter in Dokumentzeilen nicht berücksichtigt. 
Dieses Problem tritt in den folgenden Produkten auf:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (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 Support-Techniker von Microsoft können Ihnen die Funktionalität eines bestimmten Verfahrens erklären. Sie werden diese Beispiele jedoch nicht ändern, um zusätzliche Funktionen bereitzustellen oder Verfahren zu konstruieren, die Ihren speziellen Anforderungen entsprechen.

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. Ändern Sie den Code in der UpdateSales-Funktion in der Codeunit Vat Rate Change Conversion (550) wie folgt:
    Vorhandener Code

    ...
SalesLine.SETRANGE("Document No.",SalesHeader."No.");
IF SalesLine.FINDSET THEN
REPEAT
IF LineInScope(SalesLine."Gen. Prod. Posting Group",SalesLine."VAT Prod. Posting Group",ConvertGenProdPostingGroup,
ConvertVATProdPostingGroup) THEN BEGIN

// Delete the following line.
IF (SalesLine."Shipment No." = '') AND (SalesLine."Return Receipt No." = '') THEN BEGIN

IF SalesLine.Quantity = SalesLine."Outstanding Quantity" THEN BEGIN
RecRef.GETTABLE(SalesLine);

IF SalesHeader."Prices Including VAT" THEN
SalesLineOld := SalesLine;
...

    Ersetzungscode

    ...
SalesLine.SETRANGE("Document No.",SalesHeader."No.");
IF SalesLine.FINDSET THEN
REPEAT
IF LineInScope(SalesLine."Gen. Prod. Posting Group",SalesLine."VAT Prod. Posting Group",ConvertGenProdPostingGroup,
ConvertVATProdPostingGroup) THEN BEGIN

// Add the following lines.
IF (SalesLine."Shipment No." = '') AND (SalesLine."Return Receipt No." = '') AND IncludeLine(SalesLine.Type,
SalesLine."No.") THEN BEGIN
// End of the lines.

IF SalesLine.Quantity = SalesLine."Outstanding Quantity" THEN BEGIN
RecRef.GETTABLE(SalesLine);

IF SalesHeader."Prices Including VAT" THEN
SalesLineOld := SalesLine;
...

  2. Ändern Sie den Code in der Funktion UpdatePurchase in der Codeunit Vat Rate Change Conversion codeunit (550) wie folgt:
    Vorhandener Code

    ...
PurchaseLine.SETRANGE("Document No.",PurchaseHeader."No.");
IF PurchaseLine.FINDSET THEN
REPEAT
IF LineInScope(PurchaseLine."Gen. Prod. Posting Group",PurchaseLine."VAT Prod. Posting Group",
ConvertGenProdPostingGroup,ConvertVATProdPostingGroup) THEN BEGIN

// Delete the following line.
IF (PurchaseLine."Receipt No." = '') AND (PurchaseLine."Return Shipment No." = '') THEN BEGIN

IF PurchaseLine.Quantity = PurchaseLine."Outstanding Quantity" THEN BEGIN
IF PurchaseHeader."Prices Including VAT" THEN
PurchaseLineOld := PurchaseLine;

RecRef.GETTABLE(PurchaseLine);
...

    Ersetzungscode

    ...
PurchaseLine.SETRANGE("Document No.",PurchaseHeader."No.");
IF PurchaseLine.FINDSET THEN
REPEAT
IF LineInScope(PurchaseLine."Gen. Prod. Posting Group",PurchaseLine."VAT Prod. Posting Group",
ConvertGenProdPostingGroup,ConvertVATProdPostingGroup) THEN BEGIN

// Add the following lines.
IF (PurchaseLine."Receipt No." = '') AND (PurchaseLine."Return Shipment No." = '') AND IncludeLine(PurchaseLine.Type
,PurchaseLine."No.")THEN BEGIN
// End of the lines.

IF PurchaseLine.Quantity = PurchaseLine."Outstanding Quantity" THEN BEGIN
IF PurchaseHeader."Prices Including VAT" THEN
PurchaseLineOld := PurchaseLine;

RecRef.GETTABLE(PurchaseLine);
...

  3. Ändern Sie den Code in der UpdateService-Funktion in der Codeeinheit Vat Rate Change Conversion (550) wie folgt:
    Vorhandener Code

    ...
LastDocNo := '';
IF FIND('-') THEN
REPEAT
IF LineInScope("Gen. Prod. Posting Group","VAT Prod. Posting Group",ConvertGenProdPostingGroup,ConvertVATProdPostingGroup)
THEN BEGIN

// Delete the following line.
IF CanUpdateService(ServiceLine) THEN BEGIN

IF Quantity = "Outstanding Quantity" THEN BEGIN
IF LastDocNo <> ServiceHeader."No." THEN BEGIN
ServiceHeader.GET("Document Type","Document No.");
LastDocNo := ServiceHeader."No.";
END;
...

    Ersetzungscode

    ...
LastDocNo := '';
IF FIND('-') THEN
REPEAT
IF LineInScope("Gen. Prod. Posting Group","VAT Prod. Posting Group",ConvertGenProdPostingGroup,ConvertVATProdPostingGroup)
THEN BEGIN

// Add the following line.
IF CanUpdateService(ServiceLine) AND IncludeServiceLine(Type,"No.") THEN BEGIN

IF Quantity = "Outstanding Quantity" THEN BEGIN
IF LastDocNo <> ServiceHeader."No." THEN BEGIN
ServiceHeader.GET("Document Type","Document No.");
LastDocNo := ServiceHeader."No.";
END;
...

  4. Ändern Sie den Code in der CopyFromServiceDocDimToLine-Funktion in der Codeeinheit MwSt.Rate Change Conversion codeunit (550) wie folgt:
    Vorhandener Code

    ...
DocDim.INSERT;
UNTIL FromDocDim.NEXT = 0;
END;
END;

// Delete the following line.
BEGIN
END.
}
}

    Ersetzungscode

    ...
DocDim.INSERT;
UNTIL FromDocDim.NEXT = 0;
END;
END;

// Add the following lines.
PROCEDURE IncludeLine@25(Type@1000 : ' ,G/L Account,Item,Resource';No@1001 : Code[20]) : Boolean;
BEGIN
CASE Type OF
Type::"G/L Account":
EXIT(IncludeGLAccount(No));
Type::Item:
EXIT(IncludeItem(No));
Type::Resource:
EXIT(IncludeRes(No));
END;
EXIT(TRUE);
END;

PROCEDURE IncludeGLAccount@26(No@1000 : Code[20]) : Boolean;
VAR
GLAccount@1001 : Record 15;
BEGIN
IF VATRateChangeSetup."Account Filter" = '' THEN
EXIT(TRUE);
GLAccount."No." := No;
GLAccount.SETFILTER("No.",VATRateChangeSetup."Account Filter");
EXIT(GLAccount.FIND);
END;

ROCEDURE IncludeItem@28(No@1000 : Code[20]) : Boolean;
VAR
Item@1001 : Record 27;
BEGIN
IF VATRateChangeSetup."Item Filter" = '' THEN
EXIT(TRUE);
Item."No." := No;
Item.SETFILTER("No.",VATRateChangeSetup."Item Filter");
EXIT(Item.FIND);
END;

PROCEDURE IncludeRes@29(No@1000 : Code[20]) : Boolean;
VAR
Res@1001 : Record 156;
BEGIN
IF VATRateChangeSetup."Resource Filter" = '' THEN
EXIT(TRUE);
Res."No." := No;
Res.SETFILTER("No.",VATRateChangeSetup."Resource Filter");
EXIT(Res.FIND);
END;

PROCEDURE IncludeServiceLine@30(Type@1000 : ' ,Item,Resource,Cost,G/L Account';No@1001 : Code[20]) : Boolean;
BEGIN
CASE Type OF
Type::"G/L Account":
EXIT(IncludeGLAccount(No));
Type::Item:
EXIT(IncludeItem(No));
Type::Resource:
EXIT(IncludeRes(No));
END;
EXIT(TRUE);
END;

BEGIN
{

END.
}
}

Voraussetzungen

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

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