Problembeschreibung
Updates der Vorauszahlung haben die MwSt.-Posten manchmal falsche Werte in der Ungarisch Version von Microsoft Dynamics NAV 2009 R2. Darüber hinaus wird beim Erstellen einer Gutschrift voraus mit Fremdwährung eine falsche Währung verwendet. Folgen Sie den Schritten im Abschnitt ändert sich dieses Problem lösen. Dieses Problem tritt in den folgenden Produkten auf:
-
Ungarisch Version von Microsoft Dynamics NAV 2009 R2
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 Codeunit (26585) Variablen wie folgt:
Vorhandener code... TempDocDim@1470008 : TEMPORARY Record 357;
TempDimBuf@1470007 : TEMPORARY Record 360;
PrepmtInvBuffer@1470009 : TEMPORARY Record 461;
SalesSetup@1470010 : Record 311;
PrevLineNo@1470012 : Integer;
LineNo@1470011 : Integer;
...Neuer code
...TempDocDim@1470008 : TEMPORARY Record 357;
TempDimBuf@1470007 : TEMPORARY Record 360;
PrepmtInvBuffer@1470009 : TEMPORARY Record 461;
// Add the following line.
VATClauseBuffer@1470085 : TEMPORARY Record 26511;
// End of the added line.
SalesSetup@1470010 : Record 311;
PrevLineNo@1470012 : Integer;
LineNo@1470011 : Integer;
... -
Ändern Sie den Code in PostLetter Funktion im Modul (26585) wie folgt:
Vorhandener Code 1... PostingDate@1470020 : Date;
LineAmount@1470009 : Decimal;
PostingDescription@1470021 : Text[50];
BEGIN
LetterHeader := LetterHeader2;
WITH SalesHeader DO BEGIN
...Neuer Code 1
...PostingDate@1470020 : Date;
LineAmount@1470009 : Decimal;
PostingDescription@1470021 : Text[50];
// Add the following lines.
CurrFactor@1360001 : Decimal;
VATCurrFactor@1360000 : Decimal;
// End of the added lines.
BEGIN
LetterHeader := LetterHeader2;
WITH SalesHeader DO BEGIN...Vorhandener Code 2
...SalesInvHeader."Posting Date" := PostingDate;
SalesInvHeader."Document Date" := PostingDate;
SalesInvHeader."VAT Date" := PostingDate;
// Delete the following lines.
SalesInvHeader."Currency Factor" := LetterHeader."Currency Factor";
SalesInvHeader."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
SalesInvHeader."Due Date" := LetterHeader."Advance Due Date";
SalesInvHeader."Pmt. Discount Date" := "Prepmt. Pmt. Discount Date";
SalesInvHeader."Payment Discount %" := "Prepmt. Payment Discount %";
...Neuer Code 2
...SalesInvHeader."Posting Date" := PostingDate;
SalesInvHeader."Document Date" := PostingDate;
SalesInvHeader."VAT Date" := PostingDate;
// Add the following lines.
GetPrepaymentCurrFactors("No.",CurrFactor,VATCurrFactor);
SalesInvHeader."Currency Factor" := CurrFactor;
SalesInvHeader."VAT Currency Factor" := VATCurrFactor;
// End of the added lines.
SalesInvHeader."Due Date" := LetterHeader."Advance Due Date";
SalesInvHeader."Pmt. Discount Date" := "Prepmt. Pmt. Discount Date";
SalesInvHeader."Payment Discount %" := "Prepmt. Payment Discount %";
...Vorhandenen Code 3
...SalesCrMemoHeader."Posting Date" := PostingDate;
SalesCrMemoHeader."VAT Date" := PostingDate;
SalesCrMemoHeader."Document Date" := PostingDate;
// Delete the following lines.
SalesCrMemoHeader."Currency Factor" :=
CurrExchRate.ExchangeRate(PostingDate,"Currency Code");
SalesCrMemoHeader."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
SalesCrMemoHeader."Due Date" := LetterHeader."Advance Due Date";
SalesCrMemoHeader.Correction := GLSetup."Mark Cr. Memos as Corrections";
SalesCrMemoHeader."Date Sent" := 0D;
...Neuer Code 3
...SalesCrMemoHeader."Posting Date" := PostingDate;
SalesCrMemoHeader."VAT Date" := PostingDate;
SalesCrMemoHeader."Document Date" := PostingDate;
// Add the following lines.
SalesCrMemoHeader."Currency Factor" := SalesInvHeaderBuf."Currency Factor";
SalesCrMemoHeader."VAT Currency Factor" := SalesInvHeaderBuf."VAT Currency Factor";
// End of the added lines.
SalesCrMemoHeader."Due Date" := LetterHeader."Advance Due Date";
SalesCrMemoHeader.Correction := GLSetup."Mark Cr. Memos as Corrections";
SalesCrMemoHeader."Date Sent" := 0D;
...Vorhandenen Code 4
...SalesInvHeader."Reversed By Cr. Memo No." := SalesCrMemoHeader."No.";
SalesInvHeader.MODIFY;
GenJnlLineDocType := GenJnlLine."Document Type"::"Credit Memo";
PostedDocTabNo := DATABASE::"Sales Cr.Memo Header";
Window.UPDATE(1,STRSUBSTNO(Text005,"Document Type","No.",SalesCrMemoHeader."No."));
...Neuer Code 4
...SalesInvHeader."Reversed By Cr. Memo No." := SalesCrMemoHeader."No.";
SalesInvHeader.MODIFY;
// Add the following lines.
CurrFactor := SalesCrMemoHeader."Currency Factor";
VATCurrFactor := SalesCrMemoHeader."VAT Currency Factor";
// End of the added lines.
GenJnlLineDocType := GenJnlLine."Document Type"::"Credit Memo";
PostedDocTabNo := DATABASE::"Sales Cr.Memo Header";
Window.UPDATE(1,STRSUBSTNO(Text005,"Document Type","No.",SalesCrMemoHeader."No."));
...Vorhandenen Code 5
...// Create Lines
LineCount := 0;
PrepmtInvBuffer.DELETEALL;
// Delete the following line.
BuildInvLineBuffer(LetterHeader,DocumentType,PrepmtInvBuffer,TempDocDim);
// End of the deleted line.
TempDimBuf.INIT;
IF PrepmtInvBuffer.FINDSET THEN
REPEAT
...Neuer Code 5
...// Create Lines
LineCount := 0;
PrepmtInvBuffer.DELETEALL;
// Add the following line.
BuildInvLineBuffer(LetterHeader,DocumentType,PrepmtInvBuffer,TempDocDim,VATCurrFactor);
// End of the added line.
TempDimBuf.INIT;
IF PrepmtInvBuffer.FINDSET THEN
REPEAT
...Vorhandenen Code 6
...GenJnlLine."Posting No. Series" := "Posting No. Series";
GenJnlLine."IC Partner Code" := "Bill-to IC Partner Code";
GenJnlLine."Group VAT ID" := "Group VAT ID"; // PS50595
// Delete the following lines.
GenJnlLine.VALIDATE("Currency Factor",LetterHeader."Currency Factor");
GenJnlLine.VALIDATE("VAT Currency Factor",LetterHeader."VAT Currency Factor");
// End of the deleted lines.
GenJnlLine."VAT Base Amt. to Report (LCY)" := PrepmtInvBuffer."VAT Base Amt. to Report (LCY)";
GenJnlLine."VAT Amount to Report (LCY)" := PrepmtInvBuffer."VAT Amount to Report (LCY)";
RunGenJnlPostLine(GenJnlLine,PrepmtInvBuffer."Dimension Entry No.");
...Ersetzungscode 6
...GenJnlLine."Posting No. Series" := "Posting No. Series";
GenJnlLine."IC Partner Code" := "Bill-to IC Partner Code";
GenJnlLine."Group VAT ID" := "Group VAT ID"; // PS50595
// Add the following lines.
GenJnlLine.VALIDATE("Currency Factor",CurrFactor);
GenJnlLine.VALIDATE("VAT Currency Factor",VATCurrFactor);
// End of the added lines.
GenJnlLine."VAT Base Amt. to Report (LCY)" := PrepmtInvBuffer."VAT Base Amt. to Report (LCY)";
GenJnlLine."VAT Amount to Report (LCY)" := PrepmtInvBuffer."VAT Amount to Report (LCY)";
RunGenJnlPostLine(GenJnlLine,PrepmtInvBuffer."Dimension Entry No.");
...Vorhandenen Code 7
...END;
LetterHeader2 := LetterHeader;
CLEAR(GenJnlPostLine);
Window.CLOSE;
EXIT(TRUE);
...Neuer Code 7
...END;
LetterHeader2 := LetterHeader;
// Add the following lines.
SetVATClause(SalesInvHeader,SalesInvLine);
FinalizeVATClause(SalesInvHeader,SalesInvLine);
// End of the added lines.
CLEAR(GenJnlPostLine);
Window.CLOSE;
EXIT(TRUE);
... -
Ändern Sie den Code in AddPrepmtSalesInvLine Funktion im Modul (26585) wie folgt:
Vorhandener Code 1...LOCAL PROCEDURE AddPrepmtSalesInvLine@1470033(LetterLine@1470002 : Record 26586;SalesInvHeader@1470001 : Record 112;AmountInclVAT@1470005 : Decimal;VATAmount@1470000 : Decimal;VAR LastLetterNo@1470006 : Code[20]) : Boolean;
VAR
LetterHeader@1360000 : Record 26585;
GenJnlLine@1360001 : Record 81;
SalesInvLine@1470003 : Record 113;
NextLineNo@1470004 : Integer;
...Neuer Code 1
...LOCAL PROCEDURE AddPrepmtSalesInvLine@1470033(LetterLine@1470002 : Record 26586;SalesInvHeader@1470001 : Record 112;AmountInclVAT@1470005 : Decimal;VATAmount@1470000 : Decimal;VAR LastLetterNo@1470006 : Code[20]) : Boolean;
VAR
// Delete the following line.
LetterHeader@1360000 : Record 26585;
// End of the deleted line.
GenJnlLine@1360001 : Record 81;
SalesInvLine@1470003 : Record 113;
NextLineNo@1470004 : Integer;
...Vorhandener Code 2
...SalesInvLine."VAT Base Amt. to Report (LCY)" := SalesInvLine."VAT Base Amount";
SalesInvLine."VAT Amount to Report (LCY)" := -VATAmount;
END ELSE BEGIN
// Delete the following lines.
LetterHeader.GET(LetterLine."Letter No.");
GenJnlLine."Currency Code" := LetterLine."Currency Code";
GenJnlLine."VAT Currency Factor" := LetterHeader."VAT Currency Factor";
// End of the deleted lines.
GenJnlLine."Posting Date" := SalesInvHeader."Posting Date";
GenJnlLine.CalcVATToReport(SalesInvLine."VAT Base Amount",-VATAmount);
SalesInvLine."VAT Base Amt. to Report (LCY)" := GenJnlLine."VAT Base Amt. to Report (LCY)";
...Neuer Code 2
...SalesInvLine."VAT Base Amt. to Report (LCY)" := SalesInvLine."VAT Base Amount";
SalesInvLine."VAT Amount to Report (LCY)" := -VATAmount;
END ELSE BEGIN
// Add the following lines.
GenJnlLine."Currency Code" := LetterLine."Currency Code";
GenJnlLine."VAT Currency Factor" := SalesInvHeader."VAT Currency Factor";
// End of the added lines.
GenJnlLine."Posting Date" := SalesInvHeader."Posting Date";
GenJnlLine.CalcVATToReport(SalesInvLine."VAT Base Amount",-VATAmount);
SalesInvLine."VAT Base Amt. to Report (LCY)" := GenJnlLine."VAT Base Amt. to Report (LCY)";
... -
Ändern Sie den Code in BuildInvLineBuffer Funktion im Modul (26585) wie folgt:
Vorhandener Code 1...LetterLine2.TABLECAPTION,LetterLine2."Letter No.",LetterLine2."Line No.",DimMgt.GetDimValuePostingErr);
END;
// Delete the following line.
LOCAL PROCEDURE BuildInvLineBuffer@1470020(LetterHeader@1470000 : Record 26585;DocumentType@1470005 : 'Invoice,Credit Memo';VAR PrepmtInvBuf@1470001 : Record 461;VAR TempDocDim@1470002 : Record 357);
// End of the deleted line.
VAR
LetterLine@1470003 : Record 26586;
PrepmtInvBuf2@1470004 : Record 461;
...Neuer Code 1
...LetterLine2.TABLECAPTION,LetterLine2."Letter No.",LetterLine2."Line No.",DimMgt.GetDimValuePostingErr);
END;
// Add the following line.
LOCAL PROCEDURE BuildInvLineBuffer@1470020(LetterHeader@1470000 : Record 26585;DocumentType@1470005 : 'Invoice,Credit Memo';VAR PrepmtInvBuf@1470001 : Record 461;VAR TempDocDim@1470002 : Record 357;VATCurrFactor@1360000 : Decimal);
// End of the added line.
VAR
LetterLine@1470003 : Record 26586;
PrepmtInvBuf2@1470004 : Record 461;
...Vorhandener Code 2
... LetterLine.SETRANGE("Letter No.",LetterHeader."No.");
IF LetterLine.FINDSET THEN
REPEAT
// Delete the following line.
FillInvLineBuffer(LetterLine,DocumentType,LetterHeader."VAT Currency Factor",PrepmtInvBuf2,TempDocDim);
// End of the deleted line.
IF PrepmtInvBuf2.Amount <> 0 THEN
PrepmtInvBuf.InsertInvLineBuffer(PrepmtInvBuf2);
UNTIL LetterLine.NEXT = 0;
...Neuer Code 2
... LetterLine.SETRANGE("Letter No.",LetterHeader."No.");
IF LetterLine.FINDSET THEN
REPEAT
// Add the following line.
FillInvLineBuffer(LetterLine,DocumentType,VATCurrFactor,PrepmtInvBuf2,TempDocDim);
// End of the added line.
IF PrepmtInvBuf2.Amount <> 0 THEN
PrepmtInvBuf.InsertInvLineBuffer(PrepmtInvBuf2);
UNTIL LetterLine.NEXT = 0;
... -
Fügen Sie die Funktionen in der Codeunit (26585) wie folgt:
... LOCAL PROCEDURE GetPrepaymentCurrFactors@1470049(SalesOrderNo@1470000 : Code[20];VAR CurrFactor@1360001 : Decimal;VAR VATCurrFactor@1360002 : Decimal);
VAR
LetterHeader@1470001 : Record 26585;
CustLedgEntry@1470002 : Record 21;
AdvanceLink@1470003 : Record 26590;
BEGIN
CurrFactor := 0;
VATCurrFactor := 0;
WITH AdvanceLink DO BEGIN
LetterHeader.SETRANGE("Order No.",SalesOrderNo);
IF LetterHeader.FINDLAST THEN BEGIN
SETCURRENTKEY("Document No.","Line No.","Entry Type");
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterHeader."No.");
IF FINDLAST THEN
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN
IF CustLedgEntry."Currency Code" <> '' THEN BEGIN
CurrFactor := CustLedgEntry."Original Currency Factor";
VATCurrFactor := CustLedgEntry."VAT Currency Factor";
END;
END;
END;
END;
LOCAL PROCEDURE SetVATClause@1470058(SalesInvHeader@1470001 : Record 112;SalesInvLine@1470002 : Record 113);
BEGIN
WITH VATClauseBuffer DO
IF GET(SalesInvLine."VAT Bus. Posting Group",SalesInvLine."VAT Prod. Posting Group") THEN BEGIN
"VAT Base" +=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer.Amount,
SalesInvHeader."Currency Factor");
"VAT Amount" +=
(CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer."Amount Incl. VAT",
SalesInvHeader."Currency Factor") -
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
SalesInvLine.Amount,
SalesInvHeader."Currency Factor"));
MODIFY;
END ELSE BEGIN
"VAT Bus. Posting Group" := SalesInvLine."VAT Bus. Posting Group";
"VAT Prod. Posting Group" := SalesInvLine."VAT Prod. Posting Group";
"VAT Base" :=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer.Amount,
SalesInvHeader."Currency Factor");
"VAT Amount" :=
CurrExchRate.ExchangeAmtFCYToLCY(SalesInvHeader."Posting Date",
SalesInvHeader."Currency Code",
PrepmtInvBuffer."Amount Incl. VAT",
SalesInvHeader."Currency Factor") -
"VAT Base";
INSERT;
END;
END;
LOCAL PROCEDURE FinalizeVATClause@1470064(SalesInvHeader@1470002 : Record 112;SalesInvLine@1470003 : Record 113);
VAR
TransferExtText@1470000 : Codeunit 378;
VATClauseSetup@1470001 : Record 26512;
BEGIN
IF VATClauseBuffer.FINDSET THEN
REPEAT
VATClauseSetup.SETRANGE("VAT Bus. Posting Group",VATClauseBuffer."VAT Bus. Posting Group");
VATClauseSetup.SETRANGE("VAT Prod. Posting Group",VATClauseBuffer."VAT Prod. Posting Group");
IF VATClauseSetup.FINDSET THEN
REPEAT
VATClauseSetup.TESTFIELD("Standard Text Code");
TransferExtText.VATCheckIfAnyExtText(SalesInvHeader,VATClauseSetup."Standard Text Code");
TransferExtText.InsertVATExtText(SalesInvLine,VATClauseBuffer);
UNTIL VATClauseSetup.NEXT = 0;
UNTIL VATClauseBuffer.NEXT = 0;
END;
...
Voraussetzungen
Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:
-
Ungarisch Version von Microsoft Dynamics NAV 2009 R2
Außerdem müssen Sie MSDNAV2009R2Prepaymts_Hungary und MSDYN_VATExchangeRateAdvancesHungarianNAV2009R2 installiert.
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.
