Skip to main content

AccessTr.neT


Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler

Kasa Hareketleri İçin Yapılan Uygulamadaki Düzenlemeler

#1
sayın atoz112 ve ozanakkaya hocalarımın yardım ettiğin kasa defteri uygulaması ekleme yapıyor kendilerine teşekkür ederim.

şimdide bu konuyu açmamdaki amaç aşağıdadır. dosya ektedir .

ben şimdi örneğimi ekledim alt tarafa şimdi daha iyi anlaşılır bir şekilde kendi uygulamamın bire bir aynısı .

hocam birkaç sıkıntı var.
 Ödeme türü 100 tl nakit seçildikten sonra kasaya 100 tl nakit geçti ama bu sefer nakitten müşteri vazgeçti kredi kartı çekelim dedi kasa defterine yani pesinsatislara hem kredi kartı hem nakit ekleme yapıyor kasa tutmuyor. yani hem nakit hem kredi kartı eklenmiş oluyor. ve diyelimki ödeme türüne kredi kartı seçerken seçer seçmezyanlılşlıkla klavyede 3 rakamına basıp enterladık ve 3 rakamını sildik bu sefer bir kez daha kredi kartı bölümüne alınan tutarı giriyor. 
ödeme türü güncelleştiğinde bölümüne mi kod yazmamız lazım 

ve
müşteri tablosundaki adı_soyadı pesinsatislardaki açıklama bölümüne eklenmiyor. bu yüzden en son siteye eklediğim örneğimi daha ayrıntılı paylaştım.
 teşekkürler 
.rar en son bitişe yakın1.rar (Dosya Boyutu: 51,6 KB | İndirme Sayısı: 13)
Cevapla
#2
Merhaba,

pesinsatislar tablosuna odeme_sira alanı ekledim. Aynı kayıt var ise günceller, yok ise yeni kayıt olarak ekler.
.rar örnek adı.rar (Dosya Boyutu: 57,33 KB | İndirme Sayısı: 9)
Cevapla
#3
harikasınız hocam... 


müşteri 60 tl vermişti ALINAN kısmına girdik kasaya attı ama müşteri dediki 60 tl yokmuş cebimde 50TL al dedi ALINAN kısmından 60 tl yi 50 TL yaptık ama pesinsatislardaki kasadaki 60 tl kalıyor otomatikmen alınandaki güncellendiğinde 50 TL olarak kasada değişmesi sağlıklı olcak.

ayrıyetten şuan pesinsatislar tablosunda AÇIKLAMA kısmına Müşteri No Ekleniyor. Ayrıyetten Hangi Müşteriyse MÜŞTERİ tablosundaki Adı_Soyadı da pesinsatislar tablosundaki açıklama kısmına yazılsın istiyorum .
Cevapla
#4
İnceleyip olumlu/olumsuz bildirimde bulununuz.
.rar kasa_hareket_2.rar (Dosya Boyutu: 58,71 KB | İndirme Sayısı: 21)
Cevapla
#5
sayın ozanakkaya;

hocam 
şuan sizin eklediklerinizi değiştiriyorum . kasa defterinden de değişiyor çok güzel 
ama ALINAN kısmına yeni eklediğimde böyle bir hata veriyor . 
Alınan kısmına 100 tl yazıyorum ve ödeme türünü Nakit seçtiğimde bu hata çıkıyor . 

[Resim: do.php?imgf=149209792284411.png]
Son Düzenleme: 13/04/2017, 18:44, Düzenleyen: uMits.
Cevapla
#6
Merhaba,

" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "

şeklindeki kodu aşağıdaki ile değiştiriniz.

'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "'


Kodun tamamı:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If DCount("*", "pesinsatislar", "[odeme_sira]=" & Me.SIRA) <> 0 Then

         
       DoCmd.SetWarnings False
       
       Select Case Me.Açılan_Kutu18
       Case "NAKİT"
           DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = " & Me.ALINAN & ",  KREDİKARTI = 0, AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"
       Exit Sub
       Case "KREDİ K."
           DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = 0, KREDİKARTI = " & Me.ALINAN & ", AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"
       Exit Sub
       End Select
       DoCmd.SetWarnings True

   Exit Sub

Else

   DoCmd.SetWarnings False

   Select Case Me.Açılan_Kutu18
   Case "NAKİT"
       DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[GİREN]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"
   Exit Sub
   Case "KREDİ K."
       DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[KREDİKARTI]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"
   Exit Sub
   End Select

DoCmd.SetWarnings True
End If
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task