Dieser Artikel beschreibt ein Problem, wenn Sie eine Rechnung anwenden, die unrealisierte MwSt. und negative Zeile in eine Gutschrift in der italienischen Version von Microsoft Dynamics NAV 2009 enthält. Dieses Problem tritt immer noch nach der Korrektur von KB 2882952implementieren.
Folgen Sie den Schritten im Abschnitt ändert sich dieses Problem lösen. Dieses Problem tritt in den folgenden Produkten auf:
-
Die italienische Version von Microsoft Dynamics NAV 2009 R2
-
Die italienische Version von Microsoft Dynamics NAV 2009 Service Pack 1 (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 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:
-
Ändern Sie den Code in der Tabelle MwSt.-Posten (254) Schlüssel wie folgt:
Vorhandener code...KeyGroups=SalesTax }
{ ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
SumIndexFields=Base,Additional-Currency Base;
KeyGroups=VIES_EC }
// Delete the following line.
{ ;Document No.,Posting Date }
// End of the deleted line.
{ ;Transaction No. }
{ ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
KeyGroups=SalesTax }
{ ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
...Neuer code
...KeyGroups=SalesTax }
{ ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
SumIndexFields=Base,Additional-Currency Base;
KeyGroups=VIES_EC }
// Add the following line.
{ ;Document No.,Posting Date ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
// End of the added line.
{ ;Transaction No. }
{ ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
KeyGroups=SalesTax }
{ ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
... -
Ändern Sie den Code in der Funktion GetUnRealizedVATPart in der Tabelle MwSt.-Posten (254) wie folgt:
Vorhandener Code 1...END;
EXIT(GLSetup."Additional Reporting Currency");
END;
// Delete the following line.
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
// End of the deleted line.
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
BEGIN
IF (Type <> 0) AND
...Neuer Code 1
...END;
EXIT(GLSetup."Additional Reporting Currency");
END;
// Add the following line.
PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
// End of the added line.
VAR
UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
BEGIN
IF (Type <> 0) AND
...Vorhandener Code 2
...(("Remaining Unrealized Amount" = 0) AND
("Remaining Unrealized Base" = 0))
THEN
EXIT(0);
// Delete the following lines.
//IF ABS(Paid) = ABS(Full) THEN
// EXIT(1);
CASE UnrealizedVatType OF
UnrealizedVatType::Percentage:
BEGIN
IF Type2 = Type2::Purchase THEN BEGIN
IF (DocType = DocType::"Credit Memo") THEN BEGIN
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
ELSE
EXIT(1)
END;
END
ELSE BEGIN
IF (DocType = DocType::"Credit Memo") THEN BEGIN
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
ELSE
EXIT(1)
END;
END;
// End of the deleted lines.
END;
UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
BEGIN
IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
...Neuer Code 2
...(("Remaining Unrealized Amount" = 0) AND
("Remaining Unrealized Base" = 0))
THEN
EXIT(0);
// Add the following lines.
IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
THEN BEGIN
VATPart := 1;
EXIT(VATPart);
END;
CASE UnrealizedVatType OF
UnrealizedVatType::Percentage:
IF Type2 = Type2::Purchase THEN BEGIN
TransactionInclPrepmt := FALSE;
IF DocType = DocType::"Credit Memo" THEN BEGIN
IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1)
END ELSE BEGIN
IF PurchInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
EXIT(1);
END;
END ELSE BEGIN
TransactionInclPrepmt := FALSE;
IF DocType = DocType::"Credit Memo" THEN BEGIN
IF SalesInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END;
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
EXIT(1);
EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
END;
IF SalesInvInclPrepmt("Document No.") THEN BEGIN
TransactionInclPrepmt := TRUE;
IF VATPart = 0 THEN BEGIN
IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
(ABS(Paid) = ABS(Full))
THEN
VATPart := 1
ELSE
VATPart :=
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
GetTransactionRemainingAmount("Transaction No."));
END;
EXIT(VATPart);
END ELSE
IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
EXIT(
CalcVatPart(
GetCurrencyCode,1.0,TotalPayments,
("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
EXIT(1);
// End of the added lines.
END;
UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
BEGIN
IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
... -
Ändern Sie den Code in der Funktion SalesInvInclPrepmt in der Tabelle MwSt.-Posten (254) wie folgt:
Vorhandener code...EXIT(RemainingAmount - SettledAmount);
EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
END;
BEGIN
END.
}
}
...Neuer code
...EXIT(RemainingAmount - SettledAmount);
EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
END;
// Add the following lines.
LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
VAR
SalesInvLine@1130001 : Record 113;
BEGIN
SalesInvLine.SETRANGE("Document No.",DocNo);
SalesInvLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT SalesInvLine.ISEMPTY);
END;
LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
VAR
SalesCrMemoLine@1130001 : Record 115;
BEGIN
SalesCrMemoLine.SETRANGE("Document No.",DocNo);
SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT SalesCrMemoLine.ISEMPTY);
END;
LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
VAR
PurchInvLine@1130001 : Record 123;
BEGIN
PurchInvLine.SETRANGE("Document No.",DocNo);
PurchInvLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT PurchInvLine.ISEMPTY);
END;
LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
VAR
PurchCrMemoLine@1130001 : Record 125;
BEGIN
PurchCrMemoLine.SETRANGE("Document No.",DocNo);
PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
EXIT(NOT PurchCrMemoLine.ISEMPTY);
END;
LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
VAR
VATEntry@1130001 : Record 254;
BEGIN
WITH VATEntry DO BEGIN
SETRANGE("Transaction No.",TransactionNo);
IF FINDSET THEN
REPEAT
TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
UNTIL NEXT = 0;
END;
END;
LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
VAR
VATEntry@1130002 : Record 254;
BEGIN
VATEntry.SETCURRENTKEY("Document No.","Posting Date");
VATEntry.SETRANGE("Document No.",DocumentNo);
VATEntry.SETRANGE("Posting Date",PostingDate);
VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
END;
LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
BEGIN
CASE VATType OF
VATType::Purchase:
IF DocumentType = DocumentType::"Credit Memo" THEN
EXIT(PurchCrMemoInclPrepmt(DocumentNo))
ELSE
EXIT(PurchInvInclPrepmt(DocumentNo));
VATType::Sale:
IF DocumentType = DocumentType::"Credit Memo" THEN
EXIT(SalesInvInclPrepmt(DocumentNo))
ELSE
EXIT(SalesCrMemoInclPrepmt(DocumentNo));
END;
END;
// End of the added lines.
BEGIN
END.
}
}
... -
Ändern Sie den Code in der Funktion CustUnrealizedVAT in der Fibu Buch.-Post Line Codeunit (12) wie folgt:
Vorhandener Code 1...SalesVATUnrealAccount@1010 : Code[20];
LastConnectionNo@1011 : Integer;
TotalPayments@1130000 : Decimal;
Type2@1130001 : 'Sale,Purchase';
BEGIN
PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
...Neuer Code 1
...SalesVATUnrealAccount@1010 : Code[20];
LastConnectionNo@1011 : Integer;
TotalPayments@1130000 : Decimal;
Type2@1130001 : 'Sale,Purchase';
// Add the following line.
TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.
BEGIN
PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
...Vorhandener Code 2
...InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Delete the following lines.
VATPart := VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Sale,
CustLedgEntry2."Document Type",
CustLedgEntry2.Open,
CustLedgEntry2.Amount,
CustLedgEntry2."Remaining Amount",
TotalPayments);
// End of the deleted lines.
IF VATPart > 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
VATEntry2."VAT Calculation Type"::"Normal VAT",
...Neuer Code 2
...InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Add the following lines.
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Sale,
CustLedgEntry2."Document Type",
CustLedgEntry2.Open,
CustLedgEntry2.Amount,
CustLedgEntry2."Remaining Amount",
TotalPayments,
VATPart,
TransactionInclPrepmt);
// End of the added lines.
IF VATPart > 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
VATEntry2."VAT Calculation Type"::"Normal VAT",
...Vorhandenen Code 3
...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// Delete the following line.
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted line.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...Neuer Code 3
...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// Add the following lines.
IF TransactionInclPrepmt THEN
TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
ELSE
TotalPayments :=
TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
... -
Ändern Sie den Code in der Funktion VendUnrealizedVAT in der Fibu Buch.-Post Line Codeunit (12) wie folgt:
Vorhandener Code 1...PurchReverseUnrealAccount@1012 : Code[20];
LastConnectionNo@1013 : Integer;
Type2@1130000 : 'Sale,Purchase';
TotalPayments@1130001 : Decimal;
BEGIN
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...Neuer Code 1
...PurchReverseUnrealAccount@1012 : Code[20];
LastConnectionNo@1013 : Integer;
Type2@1130000 : 'Sale,Purchase';
TotalPayments@1130001 : Decimal;
// Add the following line.
TransactionInclPrepmt@1130002 : Boolean;
// End of the added line.
BEGIN
VATEntry2.RESET;
VATEntry2.SETCURRENTKEY("Transaction No.");
VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
...Vorhandener Code 2
...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Delete the following lines.
IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
EXIT;
VATPart := VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Purchase,
VendLedgEntry2."Document Type",
VendLedgEntry2.Open,
VendLedgEntry2.Amount,
VendLedgEntry2."Remaining Amount",
TotalPayments);
// End of the deleted lines.
IF VATPart >= 0 THEN BEGIN
IF VATPart <> 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
...Neuer Code 2
...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
InsertSummarizedVAT;
LastConnectionNo := VATEntry2."Sales Tax Connection No.";
END;
// Add the following lines.
IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
(VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
THEN
EXIT;
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast,
Type2::Purchase,
VendLedgEntry2."Document Type",
VendLedgEntry2.Open,
VendLedgEntry2.Amount,
VendLedgEntry2."Remaining Amount",
TotalPayments,
VATPart,
TransactionInclPrepmt);
// End of the added lines.
IF VATPart >= 0 THEN BEGIN
IF VATPart <> 0 THEN BEGIN
CASE VATEntry2."VAT Calculation Type" OF
...Vorhandenen Code 3
...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
END;
END;
// Delete the following lines.
VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the deleted lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...Neuer Code 3
...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
END;
END;
// Add the following lines.
VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
IF TransactionInclPrepmt THEN
TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
ELSE
TotalPayments :=
TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
// End of the added lines.
IF VATAmount <> 0 THEN BEGIN
InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
...
Voraussetzungen
Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:
-
Die italienische Lokalisierung von Microsoft Dynamics NAV 2009 R2
-
Die italienische Lokalisierung 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.
