ERP Nedir? | Türkiye'nin ERP Forum Platformu Ana Sayfa
Forum Anasayfa Forum Anasayfa > ERP Genel > ERP ve Excel
  Aktif Konular Aktif Konular RSS - Excel'e Çek Listesi Alma.
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

ERP Nedir? Enterprise Resource Planning nasıl çalışır? İş süreçleri ile ilgili tüm soru ve cevapları ERPNe.org'da.

Ülkemizde hızla gelişmekte olan ERP yazılım sektörümüzün, Yerli ve Yabancı ERP işlemlerinin tanıtımı ve kullanıcılarının buluşma noktası olması hedefiyle kurulan sitemize hoş geldiniz.

Ülkemizdeki Ne.org konseptinde bir ilk olarak yayın hayatına başlayan ERPNe.org, Kurumsal Kaynak Planlaması yazılımlarını kullananların bilgi kaynağı/Portal olmak amacı ile kurulmuştur.

Genellikle yurt dışında büyük üreticiler tarafından geliştirilen SQL, Delphi, ASP, CSharp gibi teknolojilerin anlatıldığı sitelerin kullandıkları (WhatisSQL, WhatisASP) (Ülkemizde Netsis Nedir, Mikro Nedir, SAP Nedir yada Logo Nedir gibi kullanıcı sorularına) Ne ve nedir konseptinde yeni bir açılım olmasını da hedefleyen ERPNe.ORG' un, ülkemizin uluslararası ERP sektörü içinde hak ettiği yeri almasında ve ERP ürünlerini kullananların bir araya gelerek Yerli ERP'nin gelişmesine katkı sağlayacakları önemli bir kilometre taşı olacağı düşüncesindeyiz.


Excel'e Çek Listesi Alma.

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Excel'e Çek Listesi Alma.
    Gönderim Zamanı: 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
 
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 03 Haziran 2010 Saat 08:40
?
Yukarı Dön
Conari Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

Kayıt Tarihi: 04 Mayıs 2007
Konum: YSTANBUL
Durum: Aktif Değil
Puanlar: 3513
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Conari Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 03 Haziran 2010 Saat 12:03
Iyi de burada sadece baglanti var.
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
taner Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 05 Temmuz 2007
Durum: Aktif Değil
Puanlar: 4
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı taner Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 03 Haziran 2010 Saat 14:49
ne yapmak istedigini tam yazarsan yardimci olalim
netsis ayna gibidir kim uyarlıyorsa o kadar cevap verir
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
 
NeTSiSFoReVeR  arkadasin yaptigi raportör programinda çek raporu var fakat benim yapmak istedigim sadece yukardaki basliklar altinda olan verilerin ekrana gelmesi bunu nasil yapabiliriz.

 
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07 Haziran 2010 Saat 09:01
Question
Yukarı Dön
taner Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 05 Temmuz 2007
Durum: Aktif Değil
Puanlar: 4
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı taner Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 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
 
Yukarı Dön
Conari Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

Kayıt Tarihi: 04 Mayıs 2007
Konum: YSTANBUL
Durum: Aktif Değil
Puanlar: 3513
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Conari Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07 Haziran 2010 Saat 17:05
excelinizi yükleyin.
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07 Haziran 2010 Saat 17:50
http://www.upload.gen.tr/d.php/s12/u9g426n0/__EK_TAK__P3.xls.html
Birde bu dosyada çikis tarihini baz aldirarak nasil veri çekebiliriz ?

Düzenleyen unalh - 07 Haziran 2010 Saat 17:52
Yukarı Dön
Conari Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

Kayıt Tarihi: 04 Mayıs 2007
Konum: YSTANBUL
Durum: Aktif Değil
Puanlar: 3513
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Conari Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 07 Haziran 2010 Saat 17:58
bu kadarini yaptiktan sonra geri zor olmasa gerek.
neyse yarin inceleriz.
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
unalh Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 08 Ekim 2009
Durum: Aktif Değil
Puanlar: 0
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı unalh Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Haziran 2010 Saat 11:58
Question
Yukarı Dön
Conari Açılır Kutu İzle
Kidemli Üye
Kidemli Üye
Simge

Kayıt Tarihi: 04 Mayıs 2007
Konum: YSTANBUL
Durum: Aktif Değil
Puanlar: 3513
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Conari Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Haziran 2010 Saat 12:37
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
 Yanıt Yaz Yanıt Yaz
  Konu Paylaş   

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 11.10
Copyright ©2001-2017 Web Wiz Ltd.

Bu Sayfa 0,531 Saniyede Yüklendi.