BIR KAÇ YILIN CARI HAREKET DÖKÜMÜNÜ GÖRMEK

Sirketleri nasil tuttugunuza bagli devir yapiyorsaniz her vt de bir yil olur. bu da yila bagli VT sayisini artirir buda baglantiyi artirir.

Netsisden vazgeçemiyorum. Beni engelliyor..

extend bilyormusunuz?

gerçi extend ile de ayni anda bir den fazla sirkete baglanmada problem var.

SQL bilginiz varmidir?

excel in kendi ODBC sürücüleri ile baglanarak verileri çekebilirsiniz.

Netsisden vazgeçemiyorum. Beni engelliyor..

Bu sekilde tek sirkete baglanmaniz yeterli olur.

Her sirket için bir union daha eklemelisiniz.

SELECT BELGE_NO, TARIH, ACIKLAMA,CARI_KOD, VADE_TARIHI, BORC, ALACAK

from VT1.dbo.tblcahar where VT1.dbo.TBLCAHAR.CARI_KOD='X'

union all

SELECT BELGE_NO, TARIH, ACIKLAMA,CARI_KOD, VADE_TARIHI, BORC,ALACAK

from VT2.dbo.tblcahar where VT2.dbo.TBLCAHAR.CARI_KOD='X'

Netsisden vazgeçemiyorum. Beni engelliyor..

her veritabanini sorguya eklememiz gerekiyor dolayisi ile bu sekilde bir sey yapamayiz. ancak ilk olarak bütün sirketlerdeki veriyi baska bir tabloya aktarip oradan daha sonra yil kisiti ile getirebiliriz.

Netsisden vazgeçemiyorum. Beni engelliyor..

arkadasim
çalismak istegin excel dosyasini bana örnek olmasi açisindan yollarsan
sadece sütun basliklari olsun yeter
sana yardimci olmaya çalisirim

ugury70@gmail.com

-NETSIS bağımlılık yapıyormuş doğru mu?
-yoooo ben hergün kullanıyorum bişey olmuyo

Excel tablonuzda SIRKET(metin),CARIKOD(metin),BYIL(sayi),SYIL(sayi) olarak isimlendirilmis 4 hücre oldugunu kabul ediyoruz sayfaniza ekleyeceginiz Form butonuna "Rapor" makrosunu iliskilendirseniz.

Sub Rapor()

'
Dim server, user, paswd
Dim cari, byil, syil, sirket, SQL, ConStr, sirket1
server = "<server_adi>"
user = "<kullanci|sa>"
paswd = "<sifre>"

byil = Range("BYIL").Value
syil = Range("SYIL").Value
sirket = Range("SIRKET").Value
sirket1 = Left(sirket, Len(sirket) - 4) + LTrim(CStr(byil))
cari = Range("CARIKOD").Value
ConStr = "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" + user + ";Password=" + paswd + ";Initial Catalog=" + sirket + ";Data Source=" + server + ";Use Procedure for Prepare=1;"
ConStr = ConStr + "Auto Translate=False;Packet Size=4096;Workstation ID=MYCOMP;Use Encryption for Data=False;Tag with column collation when possible=False"
    SQL = ""
    For i = byil To syil
    sirket = Left(sirket, Len(sirket) - 4) + LTrim(CStr(i))
    SQL = SQL + "select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM " + sirket + "..TBLCAHAR (NOLOCK) WHERE CARI_KOD='" + cari + "' AND NOT (HAREKET_TURU='A' AND ACIKLAMA LIKE 'DEV%') UNION ALL "
    Next i
    SQL = SQL + "select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM " + sirket1 + "..TBLCAHAR (NOLOCK) WHERE CARI_KOD='" + cari + "' AND HAREKET_TURU='A' AND ACIKLAMA LIKE 'DEV%' ORDER BY TARIH"
    Range("A5").Select
    With Selection.QueryTable
        .Connection = ConStr
        .CommandType = xlCmdSql
        .CommandText = SQL
        .Refresh BackgroundQuery:=False
    End With
End Sub

2 konu eksik
1.si en son sütuna BAKIYE'yi eklemedim eklenmeli bu disveri'nin tablo özelliklerinde bitisik sütunlardaki formülleri DOLDUR diyerek
2.si disveri al'in kendisi. ben su SQL satiri ile bunu önce tabloma aldiktan sonra bu makroyu yazdim
select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM TBLCAHAR (NOLOCK) WHERE CARI_KOD='xxxxx' AND HAREKET_TURU<>'A'

Düzenleyen mbaykan - 23 Aralık 2009 Saat 15:13

Mehmet Baykan

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
patates Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Haziran 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı patates Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: BIR KAÇ YILIN CARI HAREKET DÖKÜMÜNÜ GÖRMEK Gönderim Zamanı: 18 Haziran 2009 Saat 10:34
	Arkadaslar merhaba, Söyle bi sey yapabilirmiyiz, excel' de bi hücreye bi Cari kod girdigimiz zaman o cari' ye ait bütün yillarin hareketlerini (2000-2001-2002...2009) listeleyebilirmiyiz. Illa excel' de olmasi gerekmiyor, o cari' ye ait hareketleri görelim yeter, tabi bütün yillar iiçin yada yil seçebilirmiyiz yani 2001-2003 arasi gibi.

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 18 Haziran 2009 Saat 11:23
	Sirketleri nasil tuttugunuza bagli devir yapiyorsaniz her vt de bir yil olur. bu da yila bagli VT sayisini artirir buda baglantiyi artirir.
	Netsisden vazgeçemiyorum. Beni engelliyor..

patates Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Haziran 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı patates Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 18 Haziran 2009 Saat 14:16
	Sayin Conari, devir yapiyorum baglantinin artmasi bu isi imkanziz yapmiyorsa nasil yapildigini anlatabilirmisin. Tesekkürler.

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 18 Haziran 2009 Saat 16:56
	extend bilyormusunuz? gerçi extend ile de ayni anda bir den fazla sirkete baglanmada problem var. SQL bilginiz varmidir? excel in kendi ODBC sürücüleri ile baglanarak verileri çekebilirsiniz.
	Netsisden vazgeçemiyorum. Beni engelliyor..

patates Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Haziran 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı patates Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Haziran 2009 Saat 08:25
	evet extend biliyorum, ben ayni anda birden fazla sirkete baglanmada bi sorun yasamadim. SQL' de yabanci degilim biraz bilgim var. her iki yöntemide ayrinti vererek anlatabilirsen çok sevinirim.

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Haziran 2009 Saat 09:17
	Bu sekilde tek sirkete baglanmaniz yeterli olur. Her sirket için bir union daha eklemelisiniz. SELECT BELGE_NO, TARIH, ACIKLAMA,CARI_KOD, VADE_TARIHI, BORC, ALACAK from VT1.dbo.tblcahar where VT1.dbo.TBLCAHAR.CARI_KOD='X' union all SELECT BELGE_NO, TARIH, ACIKLAMA,CARI_KOD, VADE_TARIHI, BORC,ALACAK from VT2.dbo.tblcahar where VT2.dbo.TBLCAHAR.CARI_KOD='X'
	Netsisden vazgeçemiyorum. Beni engelliyor..

patates Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Haziran 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı patates Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Haziran 2009 Saat 12:01
	Bu sekilde istedigimiz yillari alabiliyoruz ama daha pratik olmasi için mesala excel' e baslangiç yili ve bitis yili diye iki sütun basligi açsak ve oraya mesala 2000-2006 yillarini girsek ve sorgu çalistir desek bu SQL deki veriyi bu sekilde excel' de görebilirmiyiz bu heralde extend' de olabilir extend' dede bi çözüm oldugundan bahsetmistiniz. ilginiz için tesekkür ederim.

Conari Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 04 Mayıs 2007 Konum: YSTANBUL Durum: Aktif Değil Puanlar: 3513	Mesaj Seçenekleri Yanıt Yaz Alıntı Conari Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 19 Haziran 2009 Saat 17:52
	her veritabanini sorguya eklememiz gerekiyor dolayisi ile bu sekilde bir sey yapamayiz. ancak ilk olarak bütün sirketlerdeki veriyi baska bir tabloya aktarip oradan daha sonra yil kisiti ile getirebiliriz.
	Netsisden vazgeçemiyorum. Beni engelliyor..

patates Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 18 Haziran 2009 Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı patates Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 23 Haziran 2009 Saat 08:16
	demek olmuyor, ilgin alakan için tesekkürler.

ugurlu70 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 23 Aralık 2009 Konum: Aksaray Durum: Aktif Değil Puanlar: 0	Mesaj Seçenekleri Yanıt Yaz Alıntı ugurlu70 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 23 Aralık 2009 Saat 11:37
	arkadasim çalismak istegin excel dosyasini bana örnek olmasi açisindan yollarsan sadece sütun basliklari olsun yeter sana yardimci olmaya çalisirim ugury70@gmail.com
	-NETSIS bağımlılık yapıyormuş doğru mu? -yoooo ben hergün kullanıyorum bişey olmuyo

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 23 Aralık 2009 Saat 13:34
	veritabani isimleriniz SIRKET20XX veya SIRKETXX seklinde ise bunu raporlayacak bir makro yazabilirim cari hareket dökümünde, hangi sütunlari istiyorsunuz (tarih, vade tarihi, aciklama, borc,alacak,bakiye, hareket türü, belge no disinda)? Not:Bu raporda önceki yildan devirleri yani 'A' tipli hareketleri almayacagiz. Ilgili yildan gelecek
	Mehmet Baykan

mbaykan Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kidemli Üye Kayıt Tarihi: 06 Nisan 2007 Konum: izmir Durum: Aktif Değil Puanlar: 1181	Mesaj Seçenekleri Yanıt Yaz Alıntı mbaykan Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 23 Aralık 2009 Saat 14:31
	Excel tablonuzda SIRKET(metin),CARIKOD(metin),BYIL(sayi),SYIL(sayi) olarak isimlendirilmis 4 hücre oldugunu kabul ediyoruz sayfaniza ekleyeceginiz Form butonuna "Rapor" makrosunu iliskilendirseniz. Sub Rapor() ' Dim server, user, paswd Dim cari, byil, syil, sirket, SQL, ConStr, sirket1 server = "<server_adi>" user = "<kullanci\|sa>" paswd = "<sifre>" byil = Range("BYIL").Value syil = Range("SYIL").Value sirket = Range("SIRKET").Value sirket1 = Left(sirket, Len(sirket) - 4) + LTrim(CStr(byil)) cari = Range("CARIKOD").Value ConStr = "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" + user + ";Password=" + paswd + ";Initial Catalog=" + sirket + ";Data Source=" + server + ";Use Procedure for Prepare=1;" ConStr = ConStr + "Auto Translate=False;Packet Size=4096;Workstation ID=MYCOMP;Use Encryption for Data=False;Tag with column collation when possible=False" SQL = "" For i = byil To syil sirket = Left(sirket, Len(sirket) - 4) + LTrim(CStr(i)) SQL = SQL + "select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM " + sirket + "..TBLCAHAR (NOLOCK) WHERE CARI_KOD='" + cari + "' AND NOT (HAREKET_TURU='A' AND ACIKLAMA LIKE 'DEV%') UNION ALL " Next i SQL = SQL + "select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM " + sirket1 + "..TBLCAHAR (NOLOCK) WHERE CARI_KOD='" + cari + "' AND HAREKET_TURU='A' AND ACIKLAMA LIKE 'DEV%' ORDER BY TARIH" Range("A5").Select With Selection.QueryTable .Connection = ConStr .CommandType = xlCmdSql .CommandText = SQL .Refresh BackgroundQuery:=False End With End Sub 2 konu eksik 1.si en son sütuna BAKIYE'yi eklemedim eklenmeli bu disveri'nin tablo özelliklerinde bitisik sütunlardaki formülleri DOLDUR diyerek 2.si disveri al'in kendisi. ben su SQL satiri ile bunu önce tabloma aldiktan sonra bu makroyu yazdim select TARIH,HAREKET_TURU TUR,BELGE_NO,VADE_TARIHI,ACIKLAMA,BORC,ALACAK FROM TBLCAHAR (NOLOCK) WHERE CARI_KOD='xxxxx' AND HAREKET_TURU<>'A' Düzenleyen mbaykan - 23 Aralık 2009 Saat 15:13
	Mehmet Baykan