Excel'e Çek Listesi Alma.
Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2139
Tarih: 22 Kasım 2024 Saat 07:40
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com
Konu: Excel'e Çek Listesi Alma.
Mesajı Yazan: unalh
Konu: Excel'e Çek Listesi Alma.
Mesaj Tarihi: 02 Haziran 2010 Saat 13:26
|
S.a Arkadaslar
Çek dökümü ile ilgili excel'e asagidaki gibi bir liste almam gerekiyor bu konuda bana yardimci olabilirmisiniz.
'With conn
' .Provider = "sqloledb" ' .CommandTimeout = 120 ' .ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value ' & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & ' Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE" ' .Open
' .DefaultDatabase = Sheet5.ComboBox1.Text ' End With --------------------- SC_VERENK ' Çeki verenin kodu SC_SONDUR ' Çekin sondurumu
SC_YERI ' Çekin yeri ' Islem tipi açiklamasi
|
Cevaplar:
Mesajı Yazan: unalh
Mesaj Tarihi: 03 Haziran 2010 Saat 08:40
| ? |
Mesajı Yazan: Conari
Mesaj Tarihi: 03 Haziran 2010 Saat 12:03
|
Iyi de burada sadece baglanti var. ------------- Netsisden vazgeçemiyorum. Beni engelliyor.. |
Mesajı Yazan: taner
Mesaj Tarihi: 03 Haziran 2010 Saat 14:49
|
ne yapmak istedigini tam yazarsan yardimci olalim ------------- netsis ayna gibidir kim uyarlıyorsa o kadar cevap verir |
Mesajı Yazan: unalh
Mesaj Tarihi: 04 Haziran 2010 Saat 14:46
|
Yapmak istedigim excel sayfasina;
Çek raporu almak rapor basliklari asagidaki gibi olmali
Çeki verenin kodu --- Müsteri kodlari olacak -- gibi
Çekin sondurumu --- Beklemede - Ciro -Tahsil --- gibi
Çekin yeri --- Ciro - Tahsil - Teminet - Portföy - Iade -- gibi
Islem tipi açiklamasi --- Iade edildi - Portföye giris --- gibi
member_profile.asp?PF=24&FID=42 - NeTSiSFoReVeR arkadasin yaptigi raportör programinda çek raporu var fakat benim yapmak istedigim sadece yukardaki basliklar altinda olan verilerin ekrana gelmesi bunu nasil yapabiliriz.
|
Mesajı Yazan: unalh
Mesaj Tarihi: 07 Haziran 2010 Saat 09:01
|
Mesajı Yazan: taner
Mesaj Tarihi: 07 Haziran 2010 Saat 14:40
|
excel ile sql baglantisini yaptiktan sonra tblmcek tablosunu özet raporla excele al aradigin basliklardan olmayan olursa çekle ilgili diger tbl view ile birlestir o view 'i özet raporla alabilirsin ------------- netsis ayna gibidir kim uyarlıyorsa o kadar cevap verir |
Mesajı Yazan: unalh
Mesaj Tarihi: 07 Haziran 2010 Saat 16:44
|
Çeki verenin kodu --- Müsteri kodlari olacak -- gibi
Çekin sondurumu --- Beklemede - Ciro -Tahsil --- gibi
Çekin yeri --- Ciro - Tahsil - Teminet - Portföy - Iade -- gibi
Islem tipi açiklamasi --- Iade edildi - Portföye giris --- gibi
O sekilde yapiyorum problem yok benim istedigim yukaridaki kisitlari kullanarak
asagidaki kodlarla yapmak.
Private Sub CommandButton3_Click()
Dim SqlText As String Dim conn, rs As Object Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") With conn .Provider = "sqloledb" .CommandTimeout = 120 .ConnectionString = "Data Source=" & Vt_Baglan.s_adi.Value & ";USER ID=" & Vt_Baglan.vt_kullanicisi.Value & ";PASSWORD=" & Vt_Baglan.vt_sifre.Value & ";AUTO TRANSLATE=FALSE" .Open .DefaultDatabase = Vt_Baglan.s_kodu.Text End With progress SqlText = "SELECT A.SC_NO,A.VADETRH,A.SC_VERENK," SqlText = SqlText + " B.CARI_ISIM,A.SC_ABORCLU," SqlText = SqlText + " A.YERI,A.CEKSERI,A.SC_VERILENK,(CASE WHEN SC_YERI='T' THEN C.ACIKLAMA ELSE (SELECT D.CARI_ISIM FROM TBLCASABIT D WHERE D.CARI_KOD=A.SC_VERILENK) END),A.RAPOR_KODU," SqlText = SqlText + " A.TUTAR,A.CEK_SUBE" SqlText = SqlText + " FROM TBLMCEK A WITH (NOLOCK) JOIN TBLCASABIT B WITH (NOLOCK) ON (A.SC_VERENK=B.CARI_KOD)" SqlText = SqlText + " LEFT OUTER JOIN TBLBNKHESSABIT C WITH (NOLOCK) ON (A.SC_VERILENK=C.NETHESKODU)" SqlText = SqlText + " WHERE A.VADETRH BETWEEN '" + Format$(Vt_Baglan.vd_baslangic, "yyyy-mm-dd") + "' AND '" + Format$(Vt_Baglan.vd_bitis, "yyyy-mm-dd") + "'" SqlText = SqlText + " AND A.SC_SONDUR='" & Vt_Baglan.Durumu_a.Value & "'" SqlText = SqlText + " AND A.SC_YERI='" & Vt_Baglan.Yeri_a.Value & "'" SqlText = SqlText + " ORDER BY A.VADETRH ASC" rs.Open SqlText, conn, adOpenStatic, adLockReadOnly Sayfa7.Range("B11:M10000").ClearContents Sayfa7.Activate i = 10 Do While Not rs.EOF Sayfa7.Cells(i, 2).Value = rs(0) Sayfa7.Cells(i, 3).Value = rs(1) Sayfa7.Cells(i, 4).Value = rs(2) Sayfa7.Cells(i, 5).Value = rs(3) Sayfa7.Cells(i, 6).Value = rs(4) Sayfa7.Cells(i, 7).Value = rs(5) Sayfa7.Cells(i, 8).Value = rs(6) Sayfa7.Cells(i, 9).Value = rs(7) Sayfa7.Cells(i, 10).Value = rs(8) Sayfa7.Cells(i, 11).Value = rs(9) Sayfa7.Cells(i, 12).Value = rs(10) Sayfa7.Cells(i, 13).Value = rs(11) rs.MoveNext i = i + 1 Loop rs.Close conn.Close Set rs = Nothing Set conn = Nothing ProgressBar1.Value = 0 'UserForm1.Show End Sub |
Mesajı Yazan: Conari
Mesaj Tarihi: 07 Haziran 2010 Saat 17:05
|
excelinizi yükleyin. ------------- Netsisden vazgeçemiyorum. Beni engelliyor.. |
Mesajı Yazan: unalh
Mesaj Tarihi: 07 Haziran 2010 Saat 17:50
| http://www.upload.gen.tr/d.php/s12/u9g426n0/__EK_TAK__P3.xls.html - http://www.upload.gen.tr/d.php/s12/u9g426n0/__EK_TAK__P3.xls.html Birde bu dosyada çikis tarihini baz aldirarak nasil veri çekebiliriz ? |
Mesajı Yazan: Conari
Mesaj Tarihi: 07 Haziran 2010 Saat 17:58
|
bu kadarini yaptiktan sonra geri zor olmasa gerek.
neyse yarin inceleriz. ------------- Netsisden vazgeçemiyorum. Beni engelliyor.. |
Mesajı Yazan: unalh
Mesaj Tarihi: 11 Haziran 2010 Saat 11:58
|
|
Mesajı Yazan: Conari
Mesaj Tarihi: 11 Haziran 2010 Saat 12:37
|
http://www.upload.gen.tr/d.php/s12/cmxtrarr/__EK_TAK__P3.rar.html - http://www.upload.gen.tr/d.php/s12/cmxtrarr/__EK_TAK__P3.rar.html
maskeleri benim yaptigim gibi yap. ------------- Netsisden vazgeçemiyorum. Beni engelliyor.. |