Bu makale Microsoft Dynamics NAV'a Macarca (hu) dil yerel ayar için geçerlidir.
Belirtiler
Düzeltme 2664466 Macarca sürümünde Microsoft Dynamics NAV 2009 R2 uygulamak varsayalım. Deftere nakledilen bir faturanın fatura istatistiklerini hesaplamak, katma değer vergisi (KDV) tutarı yanlış yuvarlanır.
2664466 düzeltmesi hakkında daha fazla bilgi için Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
2664466 , yabancı para birimi cinsinden Macarca Microsoft Dynamics NAV 5.0 Service Pack 1 sürümüne bir faturayı deftere naklettiğinizde KDV tutarı yanlış
Çözüm
Düzeltme bilgileri
Artık Microsoft tarafından desteklenen bir düzeltme sağlanmaktadır. Ancak bunun yalnızca bu makalede anlatılan sorunu düzeltmesi amaçlanmıştır. Yalnızca bu özel sorunla karşılaşmış olan sistemlere uygulayın. Bu düzeltme ek sınama uygulanabilir. Bu nedenle, bu sorundan ciddi bir şekilde etkilenmiyorsanız, Microsoft Dynamics NAV 2009 sonraki hizmet paketini veya, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV sürümü için beklemek öneririz.
Not: Özel durumlarda, destek aramaları teknik destek uzmanı Microsoft Dynamics ve ilgili ürünlere yönelik iptal edilebilir çözeceğini giderleri belirleyen belirli bir güncelleştirmenin sorununuzu. Ek destek sorularına ve söz konusu güncelleştirme için geçerli olmayan sorunlara normal destek ücretleri uygulanır.
Yükleme bilgileri
Microsoft, programlama örneklerini yalnızca gösterim amacıyla zımni veya açık garanti olmadan sağlar. Bu, satılabilirlik veya belirli bir amaca uygunluk açısından zımni garantileri içerir ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini, yordamları oluşturmak ve yordamlardan hata ayıklamak için kullanılan araçları bildiğinizi varsayar. Microsoft destek mühendisleri belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir. Ancak, işlevsellik sağlamak veya yordamlar, belirli gereksinimlerinizi karşılayacak şekilde geliştirmek amacıyla bu örnekleri değiştirmezler.
Not: Bu düzeltmeyi yüklemeden önce tüm Microsoft Dynamics NAV istemci kullanıcıların sistem kaydedildiğini doğrulayın. Bu, Microsoft Dynamics NAV uygulama sunucusu (NAS) hizmetleri içerir. Bu düzeltmeyi uyguladığınızda yalnızca istemci kullanıcının oturum açmış olması gerekir.
Bu düzeltmeyi uygulamak için bir geliştirici lisansı olması gerekir.
Kullanıcı hesabının Windows oturumu açma penceresini veya veritabanı oturumu açma penceresi "Süper" rol kimliği atanması öneririz Kullanıcı hesabı "Süper" rol Kimliği atanamaz, kullanıcı hesabı aşağıdaki izinlere sahip olduğunu doğrulamanız gerekir:
-
Nesnenin, değiştirme değişiklik yapma izni.
-
Sistem nesne kimliği 9015 ve Sistem nesnesi kimliği 5210 nesne için Execute izni
nesne.
Not: Veri onarım gerçekleştirmek zorunda sürece veri depoları haklarına sahip olmanız gerekmez.
Kod değişiklikleri
Not: Her zaman, uygulamadan önce test kodu denetimli bir ortamda üretim bilgisayarlarınıza düzeltmeler giderir.
Bu sorunu gidermek için şu adımları izleyin:
-
Kodu Satış Satırı tablosundaki (37) alanları aşağıdaki gibi değiştirin:
Varolan kodu 1...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Değiştirme kodu 1
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Varolan kodu 2
...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Değiştirme kodu 2
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
UpdateVATAmounts işlevi Satış Satırı tablosundaki (37) kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
UpdateVATOnLines işlevi Satış Satırı tablosundaki (37) kodu aşağıdaki gibi değiştirin:
Varolan kodu..."VAT Base Amount" := NewVATBaseAmount;
// Delete the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
..."VAT Base Amount" := NewVATBaseAmount;
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
CalcVATAmountLines işlevi Satış Satırı tablosundaki (37) kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
...
// Add the following line.
CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
CalcVATToReportkodu değiştirmeSatış Satırı tablosundaki (37) işlevi aşağıdaki gibi:
Varolan kodu 1...
// Delete the following line.
PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
// End of the deleted line.
BEGIN
...Değiştirme kodu 1
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
VAR
AmountLCY@1360006 : Decimal;
AmtInclVATLCY@1360007 : Decimal;
// End of the added lines.
BEGIN
...Varolan kodu 2
...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND(VATAmount / SalesHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := VATAmount;
// End of the deleted lines.
END;
...Değiştirme kodu 2
...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY;
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := AmtInclVAT - VATBaseAmount;
// End of the added lines.
END;
... -
(39) Satınalma Satırı tablosundaki alanların kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Değiştirme kodu 1
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Varolan kodu 2
...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Değiştirme kodu 2
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Satınalma Satırı tablosundaki (39) UpdateVATAmounts işlev kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Kod değiştirme
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Satınalma Satırı tablosundaki (39) UpdateVATOnLines işlev kodu aşağıdaki gibi değiştirin:
Varolan kodu...END;
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Kod değiştirme
...END;
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Satınalma Satırı tablosundaki (39) CalcVATAmountLines kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.
CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
...Kod değiştirme
...
// Add the following line.
CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
... -
Satınalma Satırı tablosundaki (39) CalcVATToReport işlev kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...
// Delete the following lines.
PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
VAR
NonDeductableVATAmount@1360006 : Decimal;
BEGIN
NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
// End of the deleted lines.
IF PurchHeader."Currency Code" <> '' THEN BEGIN
...Değiştirme kodu 1
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
VAR
NonDeductableVATAmount@1360006 : Decimal;
AmountLCY@1360008 : Decimal;
AmtInclVATLCY@1360009 : Decimal;
BEGIN
NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
// End of the added lines.
IF PurchHeader."Currency Code" <> '' THEN BEGIN
...Varolan kodu 2
...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
// End of the deleted lines.
END
...Değiştirme kodu 2
...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
// End of the added lines.
END
... -
(5902) Servis Satırı tablosundaki alanların kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Değiştirme kodu 1
...
// Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Varolan kodu 2
...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Değiştirme kodu 2
...
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
UpdateVATAmounts işlevi (5902) Servis Satırı tablosundaki kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
...
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
CalcVATAmountLines işlevi (5902) Servis Satırı tablosundaki kodu aşağıdaki gibi değiştirin:
Varolan kodu...
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
...
// Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
UpdateVATOnLines işlevi (5902) Servis Satırı tablosundaki kodu aşağıdaki gibi değiştirin:
Varolan kodu..."VAT Base Amount" := NewVATBaseAmount;
// Delete the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
// End of the deleted line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
...Kod değiştirme
..."VAT Base Amount" := NewVATBaseAmount;
// Add the following line.
CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
// End of the added line.
"VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
... -
CalcVATToReport işlevi (5902) Servis Satırı tablosundaki kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...
// Delete the following line.
PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
// End of the deleted line.
BEGIN
...Değiştirme kodu 1
...
// Add the following lines.
PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
VAR
AmountLCY@1360005 : Decimal;
AmtInclVATLCY@1360006 : Decimal;
// End of the added lines.
BEGIN
...Varolan kodu 2
...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
// Delete the following lines.
VATAmountToReport :=
ROUND(VATAmount / ServHeader."VAT Currency Factor");
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := VATAmount;
// End of the deleted lines.
END;
...Değiştirme kodu 2
...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
// Add the following lines.
AmountLCY :=
ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
AmtInclVATLCY :=
ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
VATAmountToReport :=
AmtInclVATLCY - AmountLCY;
END ELSE BEGIN
VATBaseAmountToReport := VATBaseAmount;
VATAmountToReport := AmtInclVAT - VATBaseAmount;
// End of the added lines.
END;
... -
Satış sonrası kod (80) DivideAmount işlevinde kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
// Delete the following lines.
VAR
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...Değiştirme kodu 1
...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
BEGIN
...Varolan kodu 2
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
CalcVATToReport(SalesHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Değiştirme kodu 2
...END;
// Add the following line.
CalcRoundedVATToReport(SalesLine,SalesHeader);
// End of the added line.
... -
Bir işlevi, satış sonrası kod (80) aşağıdaki gibi oluşturun:
LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
TotalVATBaseAmtLCY@1360005 : Decimal;
TotalVATAmountLCY@1360004 : Decimal;
BEGIN
WITH SalesLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(SalesHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END; -
Satınalma. DivideAmount işlev kodu değiştirmek-posta kod (90) aşağıdaki gibi:
Varolan kodu 1...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
// Delete the following lines.
VAR
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...Değiştirme kodu 1
...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
BEGIN
...Varolan kodu 2
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
PurchLine.CalcVATToReport(PurchHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Değiştirme kodu 2
...END;
// Add the following line.
CalcRoundedVATToReport(PurchLine,PurchHeader);
// End of the added line.
... -
Bir işlev oluşturun satınalma.-posta kod (90) aşağıdaki gibi:
LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
TotalVATBaseAmtLCY@1360005 : Decimal;
TotalVATAmountLCY@1360004 : Decimal;
BEGIN
WITH PurchLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(PurchHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END; -
(5986) tutarların Serv Ynt. kod DivideAmount işlevinde kodu aşağıdaki gibi değiştirin:
Varolan kodu 1...ChargeableQty@1006 : Decimal;
// Delete the following lines.
TotalVATBaseAmtLCY@1360001 : Decimal;
TotalVATAmountLCY@1360000 : Decimal;
// End of the deleted lines.
BEGIN
...Değiştirme kodu 1
...ChargeableQty@1006 : Decimal;
BEGIN
...Varolan kodu 2
...END;
// Delete the following lines.
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
CalcVATToReport(ServiceHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
// End of the deleted lines.
...Değiştirme kodu 2
...END;
// Add the following line.
CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
// End of the added line.
... -
Bir işlevde oluşturma aşağıdaki gibi (5986) tutarların Serv Ynt. kod içinde:
LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
TotalVATBaseAmtLCY@1360006 : Decimal;
TotalVATAmountLCY@1360005 : Decimal;
BEGIN
WITH ServiceLine DO BEGIN
TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
"VAT Base Amount";
TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
"Amount Including VAT";
CalcVATToReport(ServHeader,
TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
TempVATAmountLineRemainder."Calc VAT Amount to Report",
TotalVATBaseAmtLCY,TotalVATAmountLCY);
"VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
"VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
END;
END;
Önkoşullar
Bu düzeltmeyi uygulamak için Microsoft Dynamics NAV 2009 R2 Macarca sürümünün olması gerekir.
Kaldırma bilgileri
Bu düzeltmeyi kaldıramazsınız.
Durum
Microsoft bu sorunun "Aşağıdakilere Uygulanır" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.
Not: Bu, doğrudan Microsoft destek kuruluşu bünyesinde oluşturulan bir "HIZLI YAYIN" makalesidir. Burada yer alan bilgiler, oluşan sorunlara yanıt olarak olduğu gibi sağlanmıştır. Makale hızla kullanıma sunulduğu için materyallerde yazım hataları olabilir ve materyaller bildirilmeksizin herhangi bir zamanda revize edilebilir. Kullanım koşullarıdiğer konular için bkz.
