+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: KDV Oranının değiştirilmesi (/konu-kdv-oraninin-degistirilmesi.html)
KDV Oranının değiştirilmesi - kerem - 01/06/2009
Arkadaşlar elime yeni geçen marvelkimya adında bir tane müşteri takip programı var. Program çok güzel. KDV yi %18 olarak kabul ediyor. Değiştiremiyoruz. %8, %1 veya sıfır KDV olarak değiştirmemize izin vermiyor. KDV oranının kendimz beirlersek çok iyi olur sebebine gelince sattığımız mallarda %18, %8 %1 oaln mallar var bazen ikinci el mallardan KDV almiyoruz. Program üzerinde bu şekilde bir düzenleme yaparsanız çok iyi olur. Saygılar.
Kullanıcı Adı : ali
Şifre : 123
Cvp: KDV Oranının değiştirilmesi - ozanakkaya - 01/06/2009
uygulamayı yanlış hatılamıyorsam "gocebe" yapmıştı. Örneği shift tuşuna basarak açarsan gerekli düzenlemeleri yapabilirsin. Ama uygulamada Vba şifresi var.
Cvp: KDV Oranının değiştirilmesi - tdsharun - 01/06/2009
Şu linkte daha önce verilmişti:
https://accesstr.net/konu-liste-kutusuna-tc-no-yazdikca-goorunsun.html?pid=5155#pid5155
Hangisi daha güncel, hangisi daha yeni onu bilemiyorum ama... Siz bakarsınız artık...
Cvp: KDV Oranının değiştirilmesi - kerem - 01/06/2009
Arkadaşlar aşağıdaki %18 olan KDV oranlarını değiştirmeme rağmen. KDV yi %18 olarak hesapliyor. Örneğin %1 yapiyorum ne yapiyorsam %18 ile çarpiyor. Başka hangi kodları değiştirmem lazım lütfen yardım edin
VBA şifresi olmayan prgramı ekliyiyorum saygılar.
Form-FRMSATIS
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = Dlookup ("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub
Private Sub Liste52_DblClick(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.KOD = Me.Liste52.Column(0)
Me.YAPILANISLEM = Me.Liste52.Column(1)
Me.ADEDI.Value = "1"
Me.SATAN.Value = "Mustafa SÖNMEZ"
Me.DEPO = Me.Liste52.Column(2)
Me.SATISFIYATI = Me.Liste52.Column(3)
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Liste25.Requery
End Sub
Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub
Form-HIZLISATIS
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = Dlookup ("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL"
End Sub
Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = Dlookup ("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = Dlookup ("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * 18 / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL"
End Sub
Cvp: KDV Oranının değiştirilmesi - C*e*l*o*y*c*e - 01/06/2009
bunu bir kontrol et
Cvp: KDV Oranının değiştirilmesi - kerem - 01/06/2009
hocam yukarıda belirtiğim oranları değiştirmem gerkiyormu değiştirmeden denedim. Değişen birşey yok gine KDV yi %18 olarak hesapliyor. KDV oranı 0 yazmamıza rağmen toplam tutara %18 kadar KDV ekliyor.