Cari Hesap Genel Bakiye

**AhmetBastan** · 04.04.2007, 19:06:27

Sevgili Arkadaşlar
vb 6.0 kullanarak datareport ta aşağıdaki gibi bir cari hesap bakiyesi aldım.

KOD UNVAN btoplam atoplam bbakıye abakıye
00001 MEHMET 10,00 0,00 10,00 -10,00
00002 AHMET 52,00 10,00 42,00 -42,00
00003 HASAN 10,00 64,00 -54,00 54,00
00004 MURAT 38,00 15,00 23,00 -23,00
00005 KADİR 58,00 0,00 58,00 -58,00

168,00 89,00 79,00 -79,00

CARIHAREKET adosu içinde olan veriler yukaridaki şeklinde çıkıyor
eğer sonuçlar içinde EKSİ değerler olmazsa yani yazamassa
benim istediğim olacak. Form da kullandığım formül ise şöyle

Private Sub Command7_Click()
With DataEnvironment1.rsCmdRAPOR
If .State <> adStateClosed Then
.Close
End If
.Source = "select KyCKOD,KyCUNVAN ,sum(KyCBTUTAR)as btoplam,sum(KyCATUTAR) as atoplam,sum(KyCBTUTAR-KyCATUTAR) as bbakıye,sum(KyCATUTAR-KyCBTUTAR) as abakıye from CARIHAREKET group by KyCKOD,KyCUNVAN"
.Open
End With
DataReport1.Show
End Sub

EKSİ değerler olmamalı. Bu formül de mi yoksa mantıkta mı hata var bulamadım.Cevap veren arkadaşlara şimdiden teşekkürler
Not:Yukarıda …CARIHAREKET where bbakıye>0 ….. formule ekledim ama
Çok az paremetre 1 hatası verdi
Yardım edebilecek bir var mı acaba.Teşekkürler
ahmetbastanoglu@hotmail.com

**ProLive** · 04.04.2007, 19:15:18

Şu an Vb yüklü değil. Yarın yüklerim inceleriz. Vb kitabı da var bende. Ondan da resim eklerim

04.04.2007, 19:06:27	#1
AhmetBastan Mesajlar: 1	Cari Hesap Genel Bakiye Sevgili Arkadaşlar vb 6.0 kullanarak datareport ta aşağıdaki gibi bir cari hesap bakiyesi aldım. KOD UNVAN btoplam atoplam bbakıye abakıye 00001 MEHMET 10,00 0,00 10,00 -10,00 00002 AHMET 52,00 10,00 42,00 -42,00 00003 HASAN 10,00 64,00 -54,00 54,00 00004 MURAT 38,00 15,00 23,00 -23,00 00005 KADİR 58,00 0,00 58,00 -58,00 168,00 89,00 79,00 -79,00 CARIHAREKET adosu içinde olan veriler yukaridaki şeklinde çıkıyor eğer sonuçlar içinde EKSİ değerler olmazsa yani yazamassa benim istediğim olacak. Form da kullandığım formül ise şöyle Private Sub Command7_Click() With DataEnvironment1.rsCmdRAPOR If .State <> adStateClosed Then .Close End If .Source = "select KyCKOD,KyCUNVAN ,sum(KyCBTUTAR)as btoplam,sum(KyCATUTAR) as atoplam,sum(KyCBTUTAR-KyCATUTAR) as bbakıye,sum(KyCATUTAR-KyCBTUTAR) as abakıye from CARIHAREKET group by KyCKOD,KyCUNVAN" .Open End With DataReport1.Show End Sub EKSİ değerler olmamalı. Bu formül de mi yoksa mantıkta mı hata var bulamadım.Cevap veren arkadaşlara şimdiden teşekkürler Not:Yukarıda …CARIHAREKET where bbakıye>0 ….. formule ekledim ama Çok az paremetre 1 hatası verdi Yardım edebilecek bir var mı acaba.Teşekkürler ahmetbastanoglu@hotmail.com

İlginizi Çekebilecek Benzer İçerikli Konular
googlenin hesap makinasını hiç kulllanıyormusunuz? (duygusuzlady / İnternet Genel)
E.B.S. Cari 1.0.7 (DovDoviC / Programlar)
E.B.S.Cari 1.0.7 (15 Günlük Deneme) (ademsahin / Programlar)

04.04.2007, 19:15:18	#2
ProLive Mesajlar: 2,094	Şu an Vb yüklü değil. Yarın yüklerim inceleriz. Vb kitabı da var bende. Ondan da resim eklerim

Konuda Toplam 0 Kullanıcı, 1 Ziyaretçi Bulunmaktadır

Cari Hesap Genel Bakiye

Program katagorisindeki Programlama bölümünde açılan Cari Hesap Genel Bakiye adlı konudan; Sevgili Arkadaşlar vb 6.0 kullanarak datareport ta aşağıdaki gibi bir cari hesap bakiyesi aldım. KOD UNVAN btoplam atoplam bbakıye abakıye ...