24/11/2022, 14:16
24/11/2022, 22:54
Örneğinizde Frm_Carisec formunuz yok, stok tablonuzdaki fiyatlar kdv dahil mi hariç mi bilgi yok.
24/11/2022, 23:07
Formun büyük olmadın diye kasıtlı yükledim yarın kapsamlı yüklerim bu arada fiyatlar KDV dahil
24/11/2022, 23:36
Kasıtlı yüklemediniz de cari kodlarınız, ad soyad fiyatlar buradan açlışıyor, fonksiyonlarınız yordamlarınız eksik eklediğiniz örnekte. Zaten olmayan vaktimizde yardımcı olmaya çalışıyoruz tüm uzman arkadaşlar yetişebildiğimiz kadar bir yandan orası hata burası hata uğraşmak zorunda kalıyoruz. İşlevsel örneğinizi yükleyin inceleyelim aksi halinde sizin bileceğiniz iş benim uğraşabilecek zamanım yok kodda şurada hata verdi dur eklenmemiş bypass et, yok şöyle revize et istenen yere gelelim de sonuç almaya bakalım diyerek.
25/11/2022, 09:10
özel bir kastım yoktu sizi meşgul etmek gibi kullandığım dosya boyutu sizin yüklem sınırının çok üstünde içinden alıp yükledim şimdi eksikleri ilave ederek yüklüyorum zahmetleriniz için teşekkür ederim.
26/11/2022, 12:26
KDV Checkbox'ının güncelleştirme sonrasında olayına yazdığınız kodlarınız hatalı aşağıdaki gibi değiştirin.
KDV dahili tıklarsanız satış fiyatını kdvli fiyata, indirilmiş kdv hesaplayarak bulunan fiyatı kdvsiz fiyata işler. KDV hariç derseniz satış fiyatını kdvsiz fiyata, hesaplanan kdv eklenmiş fiyatı kdvli fiyata işler. Buradan hareketle form alt bilgisine işlediğiniz kdv bilgilerini revize edersiniz.
If Me.ckdahil = -1 Then
Me.kdvdahil.Caption = "Kdv Dahil"
Me.Tbl_Faturadetay_alt_formu!Kdvsiz_Fiyat = (Tbl_Faturadetay_alt_formu!Satis_Fiyati * 100) / (Tbl_Faturadetay_alt_formu!Kdv_Orani + 100)
Me.Tbl_Faturadetay_alt_formu!Kdvli_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati
Me.xiskonto.Visible = True
Me.Dahil_Genel_Toplam.Visible = True
Me.Dahil_Iskonto_Toplami.Visible = True
Me.Dahil_Kdvli__Tutar.Visible = True
Me.Dahil_Kdv_Toplami.Visible = True
Me.Dahil_Kdvli_Aratoplam.Visible = True
Me.Dahil_Genel_Toplam.Visible = True
Me.Haric_Genel_Toplam.Visible = False
Me.Haric_Iskonto_Toplam.Visible = False
Me.Haric_Kdv_Toplami.Visible = False
Me.Haric_Kdvli_Aratoplam.Visible = False
Me.Haric_Kdvli_Tutar.Visible = False
Me.Dahil_Genel_Toplam.Requery
Me.Dahil_Iskonto_Toplami.Requery
Me.Dahil_Kdv_Toplami.Requery
Me.Dahil_Kdvli__Tutar.Requery
Me.Dahil_Kdvli_Aratoplam.Requery
Me.Haric_Genel_Toplam.Requery
Me.Haric_Iskonto_Toplam.Requery
Me.Haric_Kdv_Toplami.Requery
Me.Haric_Kdvli_Aratoplam.Requery
Me.Haric_Kdvli_Tutar.Requery
Else
Me.kdvdahil.Caption = "Kdv Hariç"
Me.Tbl_Faturadetay_alt_formu!Kdvsiz_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati
Me.Tbl_Faturadetay_alt_formu!Kdvli_Fiyat = Tbl_Faturadetay_alt_formu!Satis_Fiyati + (Tbl_Faturadetay_alt_formu!Satis_Fiyati * (Tbl_Faturadetay_alt_formu!Kdv_Orani / 100))
Me.xiskonto.Visible = True
Me.Haric_Genel_Toplam.Visible = True
Me.Haric_Iskonto_Toplam.Visible = True
Me.Haric_Kdv_Toplami.Visible = True
Me.Haric_Kdvli_Aratoplam.Visible = True
Me.Haric_Kdvli_Tutar.Visible = True
Me.Dahil_Iskonto_Toplami.Visible = False
Me.Dahil_Kdvli__Tutar.Visible = False
Me.Dahil_Kdv_Toplami.Visible = False
Me.Dahil_Kdvli_Aratoplam.Visible = False
Me.Dahil_Genel_Toplam.Visible = False
Me.Dahil_Genel_Toplam.Requery
Me.Dahil_Iskonto_Toplami.Requery
Me.Dahil_Kdv_Toplami.Requery
Me.Dahil_Kdvli__Tutar.Requery
Me.Dahil_Kdvli_Aratoplam.Requery
Me.Haric_Genel_Toplam.Requery
Me.Haric_Iskonto_Toplam.Requery
Me.Haric_Kdv_Toplami.Requery
Me.Haric_Kdvli_Aratoplam.Requery
Me.Haric_Kdvli_Tutar.Requery
End IfKDV dahili tıklarsanız satış fiyatını kdvli fiyata, indirilmiş kdv hesaplayarak bulunan fiyatı kdvsiz fiyata işler. KDV hariç derseniz satış fiyatını kdvsiz fiyata, hesaplanan kdv eklenmiş fiyatı kdvli fiyata işler. Buradan hareketle form alt bilgisine işlediğiniz kdv bilgilerini revize edersiniz.