AccessTr.neT

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

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.

Şu linkte daha önce verilmişti:
https://accesstr.net/konu-liste-kutusuna...55#pid5155

Hangisi daha güncel, hangisi daha yeni onu bilemiyorum ama... Siz bakarsınız artık...

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

bunu bir kontrol et

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.