KDV Oranının değiştirilmesi
Tarih
01/06/2009 13:59
Konu Sahibi
kerem
Yorumlar
39
Okunma
6221
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



kerem
Aktif Üye
Kullanici Avatari
Aktif Üye
74
30/04/2009
0
Belirtilmemiş
Ofis 2003
10/12/2011,19:55
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


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.063
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
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


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Şu linkte daha önce verilmişti:
http://www.accesstr.net/konu-liste-kutus...55#pid5155

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


kerem
Aktif Üye
Kullanici Avatari
Aktif Üye
74
30/04/2009
0
Belirtilmemiş
Ofis 2003
10/12/2011,19:55
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


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,10:44
bunu bir kontrol et


Ek Dosyalar
.rar   MarvelKimya-celoyce.rar (Dosya Boyutu: 435,19 KB / İndirme Sayısı: 34)
Cevapla


kerem
Aktif Üye
Kullanici Avatari
Aktif Üye
74
30/04/2009
0
Belirtilmemiş
Ofis 2003
10/12/2011,19:55
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.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya