ERP Nedir? | Türkiye'nin ERP Forum Platformu : BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : Excel tablonuzda SIRKET(metin)...

Wed, 23 Dec 2009 14:31:19 +0000

Yazar: mbaykan
Konu: 1628
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 = ""
user = ""
paswd = ""

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

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : veritabani isimleriniz SIRKET20XX...

Wed, 23 Dec 2009 13:34:48 +0000

Yazar: mbaykan
Konu: 1628
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

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : arkadasim çalismak istegin excel...

Wed, 23 Dec 2009 11:37:14 +0000

Yazar: ugurlu70
Konu: 1628
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

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : demek olmuyor, ilgin alakan için...

Tue, 23 Jun 2009 08:16:55 +0000

Yazar: patates
Konu: 1628
G�nderim Zaman�: 23 Haziran 2009 Saat 08:16

demek olmuyor, ilgin alakan i�in tesekk�rler.

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : her veritabanini sorguya eklememiz...

Fri, 19 Jun 2009 17:52:43 +0000

Yazar: Conari
Konu: 1628
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.

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : Bu sekilde istedigimiz yillari...

Fri, 19 Jun 2009 12:01:54 +0000

Yazar: patates
Konu: 1628
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.

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : Bu sekilde tek sirkete baglanmaniz...

Fri, 19 Jun 2009 09:17:21 +0000

Yazar: Conari
Konu: 1628
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'

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : evet extend biliyorum, ben ayni...

Fri, 19 Jun 2009 08:25:19 +0000

Yazar: patates
Konu: 1628
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.

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : extend bilyormusunuz? gerçi extend...

Thu, 18 Jun 2009 16:56:47 +0000

Yazar: Conari
Konu: 1628
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.

BIR KA� YILIN CARI HAREKET D�K�M�N� G�RMEK : Sayin Conari, devir yapiyorum...

Thu, 18 Jun 2009 14:16:20 +0000

Yazar: patates
Konu: 1628
G�nderim Zaman�: 18 Haziran 2009 Saat 14:16

Sayin Conari, devir yapiyorum baglantinin artmasi bu isi imkanziz yapmiyorsa nasil yapildigini anlatabilirmisin.

Tesekk�rler.