Applies ToDynamics NAV 2009

Problembeschreibung

Grundlagen und Beträge werden für denselben MwSt.-Prozentsatz und Periode die 340-Erklärung gegen MwSt. an die spanische Version von Microsoft Dynamics NAV 2009 falsch gruppiert.Dasselbe Szenario mit normalen MwSt. funktioniert erwartungsgemäß Rechnung unabhängig davon, ob sie den gleichen Mehrwertsteuersatz trennen. Folgen Sie den Schritten im Abschnitt ändert sich dieses Problem lösen. Dieses Problem tritt in den folgenden Produkten auf:

  • Die spanische Version von Microsoft Dynamics NAV 2009 R2

  • Die spanische Version von Microsoft Dynamics NAV 2009 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 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-Supporttechniker helfen der Erläuterung der Funktionalität bestimmter Prozeduren. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren erstellen, die Ihren spezifischen Bedürfnisse erfüllen.Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet werden. Hierzu gehören Dienste Microsoft Dynamics NAV Application Server (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 9015Objekt.

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 im Bericht stellen 340-Erklärung (10743) wie folgt:Vorhandener Code 1

    ...   END;                      END;// Delete the following line.OnAfterGetRecord=BEGIN// End of the deleted line.                           OperationCode := GetOperationCode(VATEntry2);                           VATBuffer."VAT %" := "VAT %";...

    Neuer Code 1

    ... END;                      END;// Add the following lines.OnAfterGetRecord=VARVendLedgEntryAppl@1100000 : Record 25;NewEntry@1100001 : Boolean;BEGIN// End of the added lines.                           OperationCode := GetOperationCode(VATEntry2);                           VATBuffer."VAT %" := "VAT %";...

    Vorhandener Code 2

    ... VATBuffer.Amount := Amount;                             END;                             VATBuffer.INSERT;// Delete the following lines.IF Type = VATEntry.Type::Purchase THEN BEGINVATEntryTemporary := VATEntry2;VATEntryTemporary.INSERT;END;END;// End of the deleted lines.                         END;        TotalFields=Base,Amount;...

    Neuer Code 2

    ...VATBuffer.Amount := Amount;                             END;                             VATBuffer.INSERT;// Add the following lines.END;IF Type = VATEntry.Type::Purchase THENIF HasBeenRealized("Entry No.") OR ("Unrealized VAT Entry No." <> 0) THEN BEGINNewEntry := CheckVLEApplication(VATEntry2);VATEntryTemporary.SETRANGE("Posting Date","Posting Date");VATEntryTemporary.SETRANGE("Document No.","Document No.");VATEntryTemporary.SETRANGE("Document Type","Document Type");VATEntryTemporary.SETRANGE(Type,Type);VATEntryTemporary.SETRANGE("VAT %","VAT %");VATEntryTemporary.SETRANGE("Transaction No.","Transaction No.");IF VATEntryTemporary.FINDFIRST AND NOT NewEntry THEN BEGINVATEntryTemporary.Base += Base;VATEntryTemporary.Amount += Amount;VATEntryTemporary.MODIFY;END ELSE BEGINVATEntryTemporary := VATEntry2;VATEntryTemporary.INSERT;END;END ELSE BEGINVATEntryTemporary := VATEntry2;VATEntryTemporary.INSERT;END;// End of the added lines.                         END;        TotalFields=Base,Amount;...

    Vorhandenen Code 3

    ...  DataItemVarName=<Integer2>;        OnPreDataItem=BEGIN                        VATBuffer.FIND('-');                       VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");                        IF VATEntryTemporary.FINDFIRST THEN;                        CurrReport.CREATETOTALS(VATBuffer2.Base,VATBuffer2.Amount);                        Fin := FALSE;...

    Neuer Code 3

    ...  DataItemVarName=<Integer2>;        OnPreDataItem=BEGIN                        VATBuffer.FIND('-');// Delete the following line.VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");// End of the deleted line.                        IF VATEntryTemporary.FINDFIRST THEN;                        CurrReport.CREATETOTALS(VATBuffer2.Base,VATBuffer2.Amount);                        Fin := FALSE;...

    Vorhandenen Code 4

    ...IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN                             VATEntryTemporary.Amount :=  VATBuffer.Amount;                             VATDeductAmt := CheckDeductibleVAT(VATEntryTemporary);// Delete the following lines.VATEntryTemporary.NEXT;RecordTypePurchase(VATEntry2);// End of the deleted lines.                           END;                           Fin := VATBuffer.NEXT = 0;                         END;...

    Neuer Code 4

    ... IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN                             VATEntryTemporary.Amount :=  VATBuffer.Amount;                             VATDeductAmt := CheckDeductibleVAT(VATEntryTemporary);// Add the following lines.VATEntryTemporary.SETCURRENTKEY("VAT %","EC %");VATEntryTemporary.SETRANGE("VAT %",VATBuffer."VAT %");VATEntryTemporary.SETRANGE("EC %",VATBuffer."EC %");VATEntryTemporary.FINDSET;REPEATRecordTypePurchase(VATEntryTemporary);UNTIL VATEntryTemporary.NEXT = 0;// End of the added lines.                           END;                           Fin := VATBuffer.NEXT = 0;                         END;...
  2. Ändern Sie den Code in globalen Variablen im Bericht stellen 340-Erklärung (10743) wie folgt:Vorhandener code

    ...VATEntryTemporary@1100078 : TEMPORARY Record 254;      TempDeclarationLines@1100149 : TEMPORARY Record 10744;      TempVATEntry@1100007 : TEMPORARY Record 254;      CommonDialogMgt@1100015 : Codeunit 412;      OutFile@1100016 : File;      DeclarationNum@1100017 : Text[4];...

    Neuer code

    ...  VATEntryTemporary@1100078 : TEMPORARY Record 254;      TempDeclarationLines@1100149 : TEMPORARY Record 10744;      TempVATEntry@1100007 : TEMPORARY Record 254;// Add the following line.TempDtldVendLedgerEntry@1100115 : TEMPORARY Record 380;// End of the added line.      CommonDialogMgt@1100015 : Codeunit 412;      OutFile@1100016 : File;      DeclarationNum@1100017 : Text[4];...
  3. Ändern Sie den Code in RecordTypePurchase Funktion im Bericht stellen 340-Erklärung (10743) wie folgt:Vorhandener code

    ... END ELSE        OperationDateText := FormatDate(VATEntryRec."Posting Date");// Delete the following lines.IF VATEntryRec."Document Type" IN [VATEntryRec."Document Type"::Payment,VATEntryRec."Document Type"::Refund] THEN BEGINUnrealizedVATEntryNo := VATEntryRec."Unrealized VAT Entry No.";DocumentDate := VATEntryRec."Posting Date";IF UnrealizedVATEntryNo <> 0 THEN BEGINUnrealizedVATEntry.GET(UnrealizedVATEntryNo);OperationDateText := FormatDate(UnrealizedVATEntry."Posting Date");DocumentDate := UnrealizedVATEntry."Document Date";// End of the deleted lines.        END;      END ELSE        UnrealizedVATEntryNo := 0;...

    Neuer code

    ... END ELSE        OperationDateText := FormatDate(VATEntryRec."Posting Date");// Add the following lines.VATBuffer2.Base := VATBuffer.Base;VATBuffer2.Amount := VATBuffer.Amount;IF VATEntryRec."Document Type" IN [VATEntryRec."Document Type"::Payment,VATEntryRec."Document Type"::Refund] THEN BEGINUnrealizedVATEntryNo := VATEntryTemporary."Unrealized VAT Entry No.";DocumentDate := VATEntryTemporary."Posting Date";IF UnrealizedVATEntryNo <> 0 THEN BEGINUnrealizedVATEntry.GET(UnrealizedVATEntryNo);OperationDateText := FormatDate(UnrealizedVATEntry."Posting Date");DocumentDate := UnrealizedVATEntry."Document Date";IF FindPmtOrderBillGrBankAcc(VATEntry.Type,VATEntry."Document No.") = '' THEN BEGINVendorDocumentNo := UnrealizedVATEntry."External Document No.";VATBuffer2.Base := VATEntryTemporary.Base;VATBuffer2.Amount := VATEntryTemporary.Amount;END;// End of the added lines.        END;      END ELSE        UnrealizedVATEntryNo := 0;...
  4. Ändern Sie den Code in CheckVLEApplication Funktion im Bericht stellen 340-Erklärung (10743) wie folgt:Vorhandener code

    ...  PrevDeclarationNumEnable := ReplaceDeclaration;    END;    BEGIN    END.  }...

    Neuer code

    ...PrevDeclarationNumEnable := ReplaceDeclaration;    END;// Add the following lines.LOCAL PROCEDURE CheckVLEApplication@1100074(VATEntry@1100000 : Record 254) : Boolean;VARVendorLedgerEntry@1100001 : Record 25;DtldVendLedgEntry@1100002 : Record 380;CheckVendLedgEntry@1100003 : Record 25;UnrealizedVendLedgEntry@1100004 : Integer;BEGINFilterVendLedgerEntryByVATEntry(VendorLedgerEntry,VATEntry);UnrealizedVendLedgEntry := GetUnrealizedInvoiceVLENo(VATEntry."Unrealized VAT Entry No.");IF VendorLedgerEntry.FINDSET THENREPEATDtldVendLedgEntry.RESET;DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);DtldVendLedgEntry.SETRANGE("Entry Type",DtldVendLedgEntry."Entry Type"::Application);DtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.",VendorLedgerEntry."Entry No.");IF UnrealizedVendLedgEntry <> 0 THENDtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",UnrealizedVendLedgEntry);IF DtldVendLedgEntry.FINDSET THENREPEATIF (DtldVendLedgEntry."Vendor Ledger Entry No." <> DtldVendLedgEntry."Applied Vend. Ledger Entry No.") ANDCheckVendLedgEntry.GET(DtldVendLedgEntry."Vendor Ledger Entry No.")THEN BEGINIF ExistDtldVLE(DtldVendLedgEntry."Vendor Ledger Entry No.",DtldVendLedgEntry."Applied Vend. Ledger Entry No.") THENEXIT(FALSE);InsertTempDtldVLE(DtldVendLedgEntry."Vendor Ledger Entry No.",DtldVendLedgEntry."Applied Vend. Ledger Entry No.");EXIT(TRUE);END;UNTIL DtldVendLedgEntry.NEXT = 0ELSE BEGINDtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.");DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendorLedgerEntry."Entry No.");IF UnrealizedVendLedgEntry <> 0 THENDtldVendLedgEntry.SETRANGE("Applied Vend. Ledger Entry No.",UnrealizedVendLedgEntry);IF DtldVendLedgEntry.FINDSET THENREPEATIF CheckVendLedgEntry.GET(DtldVendLedgEntry."Applied Vend. Ledger Entry No.") THEN BEGINIF ExistDtldVLE(DtldVendLedgEntry."Applied Vend. Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.") THENEXIT(FALSE);InsertTempDtldVLE(DtldVendLedgEntry."Applied Vend. Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.");EXIT(TRUE);END;UNTIL DtldVendLedgEntry.NEXT = 0;END;UNTIL VendorLedgerEntry.NEXT = 0;EXIT(TRUE);END;LOCAL PROCEDURE GetUnrealizedInvoiceVLENo@1100075(VATEntryNo@1100000 : Integer) : Integer;VARVATEntry@1100002 : Record 254;VendLedgEntry@1100001 : Record 25;BEGINIF NOT VATEntry.GET(VATEntryNo) THENEXIT(0);FilterVendLedgerEntryByVATEntry(VendLedgEntry,VATEntry);IF VendLedgEntry.FINDFIRST THENEXIT(VendLedgEntry."Entry No.");EXIT(0);END;LOCAL PROCEDURE FilterVendLedgerEntryByVATEntry@1100087(VAR VendLedgEntry@1100001 : Record 25;VATEntry@1100000 : Record 254);BEGINVendLedgEntry.SETRANGE("Vendor No.",VATEntry."Bill-to/Pay-to No.");VendLedgEntry.SETRANGE("Posting Date",VATEntry."Posting Date");VendLedgEntry.SETRANGE("Document Type",VATEntry."Document Type");VendLedgEntry.SETRANGE("Document No.",VATEntry."Document No.");VendLedgEntry.SETRANGE("Transaction No.",VATEntry."Transaction No.");END;LOCAL PROCEDURE HasBeenRealized@1100064(VATEntryNo@1100000 : Integer) : Boolean;VARUnrealizedVATEntry@1100001 : Record 254;BEGINUnrealizedVATEntry.SETRANGE("Unrealized VAT Entry No.",VATEntryNo);EXIT(NOT UnrealizedVATEntry.ISEMPTY);END;LOCAL PROCEDURE ExistDtldVLE@1100195(VLENo@1100001 : Integer;AppliedVLENo@1100000 : Integer) : Boolean;BEGINTempDtldVendLedgerEntry.SETRANGE("Vendor Ledger Entry No.",VLENo);TempDtldVendLedgerEntry.SETRANGE("Applied Vend. Ledger Entry No.",AppliedVLENo);EXIT(NOT TempDtldVendLedgerEntry.ISEMPTY);END;LOCAL PROCEDURE InsertTempDtldVLE@1100191(VLENo@1100000 : Integer;AppliedVLENo@1100001 : Integer);BEGINTempDtldVendLedgerEntry.INIT;IF TempDtldVendLedgerEntry.FINDLAST THEN;TempDtldVendLedgerEntry."Entry No." += 1;TempDtldVendLedgerEntry."Vendor Ledger Entry No." := VLENo;TempDtldVendLedgerEntry."Applied Vend. Ledger Entry No." := AppliedVLENo;TempDtldVendLedgerEntry.INSERT;END;// End of the added lines.BEGIN    END.  }...

Voraussetzungen

Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:

  • Die spanische Version von Microsoft Dynamics NAV 2009 R2

  • Die spanische Version von Microsoft Dynamics NAV 2009 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.

Benötigen Sie weitere Hilfe?

Möchten Sie weitere Optionen?

Erkunden Sie die Abonnementvorteile, durchsuchen Sie Trainingskurse, erfahren Sie, wie Sie Ihr Gerät schützen und vieles mehr.

In den Communities können Sie Fragen stellen und beantworten, Feedback geben und von Experten mit umfassendem Wissen hören.