HESAPLAMA HATALARI

[BYSERTTAS]

selamlar
Lütfen Acemiliğimi Bağışlayın. Kendi çapımda bir şeyler yapmaya çalışıyorum. kopyala-yapıştır dosya ektedir.
Sayfa isimlerini değiştirmeden bir başka yarışmaya göre çalışma. fiyatları Damga vergilerinden gelen gelir. Yardımlarınızı istirham ediyorum.
Şöyleki:
Alttaki kod ile Damga Vergisi Hesaplatıyorum.
Damga Oranı Bir başka Sayfadan geliyor.
TextBox ta gelen veri doğru ancak hesaplarken hesaplıyor.
Dosya Üzerinde Düzeltmeler Yaparsanız Minnettar kalırım

 

[YUSUF44]

Dosyanızda çok fazla birbirine bağlantılı kod olduğundan damga vergisi hesabının nerede nasıl yapıldığını dolayısıyla da nerenin düzeltileceğini bulamadım. Tam olarak nerede ne değişince bu işlemin olması gerekiyor?

Not: Hâlâ dosyanızda özel veriler mevcut.

 

[RBozkurt]

KVKK problemleri doğar. Dosya kaldırılırsa daha sağlıklı.

 

[BYSERTTAS]

Dosyanızda çok fazla birbirine bağlantılı kod olduğundan damga vergisi hesabının nerede nasıl yapıldığını dolayısıyla da nerenin düzeltileceğini bulamadım. Tam olarak nerede ne değişince bu işlemin olması gerekiyor?

Not: Hâlâ dosyanızda özel veriler mevcut.

hocam fatura sayfası Arsiv olacak.firma sayfası personel bilgi olacak. Parametreler sayfası ayni kalacak. Bordro,bankalistesi ve disket sayfaları aynı kalacak G eri kalan sayfalar silinecek. Fatura giriş formunda personel bilgi formundan personel bilgisi alınacak parametreler sayfasından ek gösterge ve derecesine tam yevmiyesi gelecek . Tamyevmiyenin 1/3 ile toplam gün (yevmiye2) çarpılarak bürüt ücret elde edilecek. Bürüt ücret ile damga vergisi oranı çarpılarak kesilecek damga vergisi bulunacak.Bürüt tutar dan kesilecek damga vergisi düşülerek net ele geçen hesaplanacak. Bordro,bankalistesi,disket sayfalarına bilgiler aktarılacak.ve işlem bitince enson boş satira hesaplamaların genel toplamı atılacak. Yapmak istediğim bu. Projede değişiklik yapmasam da olur.

Sadece parametreler sayfasından damga vergisi oranı ile bürüt tutarı çarpıp sonucunu kesilecek damga vergisi olarak bir textbox a atarsaniz, birde hakediş- damga vergisi de net ele geçen olacak. Bukadarda yetiyor bana. Ayrıca uyariniz için tesekkur ederim.özel bilgileri dosyadan silerseniz sevinirim.

 

[YUSUF44]

@Korhan Ayhan üstadım, muhtemelen kullanıcı dosyayı silemiyordur, siz siler misiniz?

hocam fatura sayfası Arsiv olacak.firma sayfası personel bilgi olacak. Parametreler sayfası ayni kalacak. Bordro,bankalistesi ve disket sayfaları aynı kalacak G eri kalan sayfalar silinecek. Fatura giriş formunda personel bilgi formundan personel bilgisi alınacak parametreler sayfasından ek gösterge ve derecesine tam yevmiyesi gelecek . Tamyevmiyenin 1/3 ile toplam gün (yevmiye2) çarpılarak bürüt ücret elde edilecek. Bürüt ücret ile damga vergisi oranı çarpılarak kesilecek damga vergisi bulunacak.Bürüt tutar dan kesilecek damga vergisi düşülerek net ele geçen hesaplanacak. Bordro,bankalistesi,disket sayfalarına bilgiler aktarılacak.ve işlem bitince enson boş satira hesaplamaların genel toplamı atılacak. Yapmak istediğim bu. Projede değişiklik yapmasam da olur.

Sadece parametreler sayfasından damga vergisi oranı ile bürüt tutarı çarpıp sonucunu kesilecek damga vergisi olarak bir textbox a atarsaniz, birde hakediş- damga vergisi de net ele geçen olacak. Bukadarda yetiyor bana. Ayrıca uyariniz için tesekkur ederim.özel bilgileri dosyadan silerseniz sevinirim.

Ben dosyayı nasıl kullanacağınızı anlayamadım. Burda sorun damga vergisinin hesaplanması gördüğüm kadarıyla. Ancak ben hala dosyanızda damga vergisi nereden nasıl değiştiriliyor çözemedim. Dolayısıyla nasıl yapacağımı da bulamadım. Dosyanızda nerdeyse her şey birbirine bağlanmış. Bir silsile halinde, değişiklik yapıldığında bir sürü olay birbirini tetikliyor. Bunun hangi aşamasında damga vergisi hesabı yapılıyor bilemiyorum.

 

[YUSUF44]

Şimdi denedim, dosyanızda Kütüphane modülünde bulunan SayıKontrol kodlarındaki Variantları Double olarak değiştirince düzeldi. Ancak bu değişiklik dosyanızın başka yerlerinde nasıl etki eder bilemiyorum.

Public Function SayıKontrol(Değer As Double) As Double
If IsNumeric(Değer) = True Then
    SayıKontrol = CDbl(Değer)
Else
    SayıKontrol = CDbl(0)
End If
End Function

 

[Korhan Ayhan]

Dosyayı kaldırdım.

 

[YUSUF44]

Dosyayı kaldırdım.

Teşekkürler. Diğer başlıkta da yazdım, size zahmet.