Skip to main content

AccessTr.neT


KDV Oranının değiştirilmesi

KDV Oranının değiştirilmesi

#1
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
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
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.
Cevapla
#3
Ş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...
NZ Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DSum ve Sum Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
DLookup Fonksiyonunun (İşlevinin) Ayrıntılı Anlatımı İçin Tıklayın...
Cevapla
#4
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
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
bunu bir kontrol et
.rar MarvelKimya-celoyce.rar (Dosya Boyutu: 435,19 KB | İndirme Sayısı: 39)
Cevapla
#6
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.
kerem, 30-04-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 01/06/2009, 23:11, Düzenleyen: kerem.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task