Bu makale, İspanyolca (es) dil yerel ayar için Microsoft Dynamics NAV için geçerlidir.
Belirtiler
Microsoft Dynamics NAV'ın İspanyolca sürümündeki KDV Gönderme Kurulumu iletişim kutusunda AB Hizmeti onay kutusunun seçili olduğunu varsayalım. 349 bildirim dosyasını oluşturana kadar, dışarı aktaran dosyanın miktarı yanlış olur.
Bu sorun aşağıdaki ürünlerde ortaya çıkar:
-
Microsoft Dynamics NAV 2009 Service Pack 1'in (SP1) İspanyolca sürümü
-
Microsoft Dynamics NAV 5.0 Service Pack 1'in (SP1) İspanyolca sürümü
Çözüm
Düzeltme bilgileri
Desteklenen bir düzeltme artık Microsoft tarafından kullanılabilir. Bununla birlikte, yalnızca bu makalede açıklanan sorunu düzeltmeniz amaçlanmıştır. Yalnızca bu sorunla karşılaşan sistemlere uygulayabilirsiniz. Bu düzeltme ek testlerden yararlanabilir. Bu nedenle, bu sorundan ciddi bir etkileniyorsanız, bu düzeltmeyi içeren bir sonraki Microsoft Dynamics NAV 2009 hizmet paketini veya sonraki Microsoft Dynamics NAV sürümünü beklemenizi öneririz.
Not Özel durumlarda, Microsoft Dynamics için Teknik Destek Uzmanı ve ilgili ürünler belirli bir güncelleştirmenin sorununuzu çözecek olduğunu belirlerse, normalde destek aramaları için ortaya konulan ücretler iptal edilir. Her zamanki destek maliyetleri, söz konusu güncelleştirme için uygun olan ek destek soruları ve sorunları için geçerlidir.
Yükleme bilgileri
Microsoft, açık veya zımni garanti olmaksızın yalnızca çizim için programlama örnekleri sağlar. Bu, satıcılık veya belirli bir amaca uygunluk ile ilgili zımni garantileri içerir, ancak bunlarla sınırlı değildir. Bu makalede, burada gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak için kullanılan araçlara aşina olduğunuz varsayıldı. Microsoft destek mühendisleri belirli bir yordamın işlevselliğini açıklamaya yardımcı olabilir, ancak bu örneklerde değişiklik olmaz ve sizin özel gereksinimlerinizi karşılayacak ek işlevler sağlamak veya yordamlar oluşturmak için bu örnekleri değiştirmezler.
Not Bu düzeltmeyi yüklemeden önce, tüm Microsoft Navision istemci kullanıcılarının sistemde oturumu kapatmış olduğunu doğrulayın. Bu, Microsoft Navision Application Services (NAS) istemci kullanıcılarını içerir. Bu düzeltmeyi uyguladıktan sonra oturum açan tek istemci kullanıcısı siz olmalıdır.
Bu düzeltmeyi uygulamak için bir geliştirici lisansınız olmalıdır.
Windows Oturum Açma penceresinde veya Veritabanı Oturum Açma penceresindeki kullanıcı hesabına "SUPER" rol kimliği atanmalarını öneririz. Kullanıcı hesabına "SUPER" rol kimliği atanamazsa, kullanıcı hesabına aşağıdaki izinlerin olduğunu doğrulamanız gerekir:
-
Değiştirecek nesne üzerinde Değiştirme izni.
-
System Object ID 5210 nesnesi ve System Object ID 9015 nesnesi için Yürütme izni.
Not Veri onarımı yapmak zorunda olmadığınız sürece veri depoları üzerinde haklara sahip olmak zorunda değildir.
Kod değişiklikleri
Not Düzeltmeleri üretim bilgisayarlarına uygulamadan önce her zaman denetimli ortamdaki kod düzeltmelerini test edersiniz.
Bu sorunu gidermek için aşağıdaki adımları izleyin:
-
349 Bildirim Raporunun (88) Veri Öğesi Numarası 5 Bölümlerindeki kodu şu şekilde değiştirin: Var olan
kod 1BEGIN
REPEAT
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Değişim kodu 1
BEGIN
REPEAT
//Add the follwing lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Var olan kod 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Delete the following lines.
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Değişim kodu 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Add the following lines.
IF VATInvSales."Transaction No." <> LastTransactionNo THEN BEGIN
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
END;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Var olan kod 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvSales.Base;
UNTIL VATInvSales.NEXT = 0;
END;Değişim kodu 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvSales.Base;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0;
END;Var olan kod 4
UNTIL VATInvSales.NEXT = 0;
END;
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Değişim kodu 4
UNTIL VATInvSales.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);Var olan kod 5
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvSales.Base;
END ELSEDeğişim kodu 5
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvSales."Transaction No." <> LastTransactionNo THEN
NormalAmount := NormalAmount + AmountToIncludein349;
END ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvSales.Base;
END ELSEVar olan kod 6
END;
// NormalAmount := NormalAmount + VATInvSales.Base;
UNTIL VATInvSales.NEXT = 0;
END;Değişim kodu 6
END;
// NormalAmount := NormalAmount + VATInvSales.Base;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0;
END;Var olan kod 7
END;
//Delete the following line.
VATInvSales.RESET;
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);Değişim kodu 7
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvSales.RESET;
VATInvSales.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);Var olan kod 8
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
AmountEUService := AmountEUService + AmountToIncludein349
ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvSales.Base;
END ELSEDeğişim kodu 8
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvSales."Transaction No." <> LastTransactionNo THEN
AmountEUService := AmountEUService + AmountToIncludein349;
END ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvSales.Base;
END ELSEVar olan kod 9
END;
END;
UNTIL VATInvSales.NEXT = 0;Değişim kodu 9
END;
END;
//Add the following line.
LastTransactionNo := VATInvSales."Transaction No.";
UNTIL VATInvSales.NEXT = 0; -
349 Bildirim Raporunun (88) Veri Öğesi Numarası 6 Bölümlerindeki kodu şu şekilde değiştirin: Var olan
kod 1BEGIN
REPEAT
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Değişim kodu 1
BEGIN
REPEAT
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Var olan kod 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Delete the following lines.
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Değişim kodu 2
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN BEGIN
//Add the following lines.
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN BEGIN
OpTriang := 'X';
AmountOpTri := AmountOpTri + AmountToIncludein349;
END;
//End of the lines.
END ELSE BEGIN
OpTriang := 'X';Var olan kod 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvPurch.Base;
UNTIL VATInvPurch.NEXT = 0;
END;Değişim kodu 3
// OpTriang := 'X';
// AmountOpTri := AmountOpTri + VATInvPurch.Base;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0;
END;Var olan kod 4
UNTIL VATInvPurch.NEXT = 0;
END;
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Değişim kodu 4
UNTIL VATInvPurch.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);Var olan kod 5
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSEDeğişim kodu 5
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
NormalAmount := NormalAmount + AmountToIncludein349;
END ELSE
//End of the lines.
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSEVar olan kod 6
END;
// NormalAmount := NormalAmount + VATInvPurch.Base;
UNTIL VATInvPurch.NEXT = 0;
END;Değişim kodu 6
END;
// NormalAmount := NormalAmount + VATInvPurch.Base;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0;
END;Var olan kod 7
UNTIL VATInvPurch.NEXT = 0;
END;
//Delete the following line.
VATInvPurch.RESET;
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);Değişim kodu 7
UNTIL VATInvPurch.NEXT = 0;
END;
//Add the following lines.
LastTransactionNo := 0;
VATInvPurch.RESET;
VATInvPurch.SETCURRENTKEY("Transaction No.");
//End of the lines.
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);Var olan kod 8
THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Delete the following lines.
IF AmountToIncludein349 <> 0 THEN
AmountEUService := AmountEUService + AmountToIncludein349
ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvPurch.Base;
END ELSEDeğişim kodu 8
THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
//Add the following lines.
IF AmountToIncludein349 <> 0 THEN BEGIN
IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
AmountEUService := AmountEUService + AmountToIncludein349;
END ELSE
//End of the lines.
AmountEUService := AmountEUService + VATInvPurch.Base;
END ELSEVar olan kod 9
END;
END;
UNTIL VATInvPurch.NEXT = 0;Değişim kodu 9
END;
END;
//Add the following line.
LastTransactionNo := VATInvPurch."Transaction No.";
UNTIL VATInvPurch.NEXT = 0; -
Make 349 Bildirim raporuna (88) yeni bir genel değişken ekleyin ve ardından değişkeni aşağıdaki gibi belirtin:
-
Ad: LastTransactionNo@1100072
-
DataType: Tamsayı
-
Ön koşullar
Bu düzeltmeyi uygulamak için aşağıdaki ürünlerden birinin yüklü olması gerekir:
-
Microsoft Dynamics NAV 2009 Service Pack 1'in (SP1) İspanyolca sürümü
-
Microsoft Dynamics NAV 5.0 Service Pack 1'in (SP1) İspanyolca sürümü
Bu düzeltmeyi uygulamak için İspanyolca 349 raporunun yüklü olması gerekir.
Daha fazla bilgi için şu Microsoft web sitesini ziyaret edin: İspanyolca 349 Raporu Ayrıca, bu düzeltmeyi uygulamak için
KDV 2010 paketi yüklenmiş olmalıdır.
Daha fazla bilgi için aşağıdaki Microsoft web sitesini ziyaret edin: KDV
2010 için Microsoft Dynamics NAV Desteği
Kaldırma bilgileri
Bu düzeltmeyi kaldıramazsanız.
Durum
Microsoft bu sorunun "Uygulandığı öğe" bölümünde listelenen Microsoft ürünlerinde bulunduğunu onaylamıştır.
Not Bu, doğrudan Microsoft destek kuruluşundan oluşturulmuş bir "HIZLI YATIR" makalesidir. Ortaya çıkan sorunlar için burada sağlanan bilgiler olduğu gibi sağlanır. Kullanılabilir hale gelen hızın bir sonucu olarak, malzemeler yazım hataları içerebilir ve herhangi bir zamanda uyarılmadan düzeltilmiş olabilir. Diğer dikkate alınacak noktalar için Kullanım Koşulları'ne bakın.
