ERP Nedir? | Türkiye'nin ERP Forum Platformu Ana Sayfa
Forum Anasayfa Forum Anasayfa > ERP Temel Paketler > ERP Banka Modülü
  Aktif Konular Aktif Konular RSS - TCMB banka sube bilgilerini güncelleyin.
  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.


TCMB banka sube bilgilerini güncelleyin.

 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
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 Konu: TCMB banka sube bilgilerini güncelleyin.
    Gönderim Zamanı: 11 Aralık 2009 Saat 14:13
 
Scripti Notdefteri ile açip 7. satirdaki bilgeleri kendinize göre uyarlayip çalistiriniz.
 
 
 
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
abastas Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 20 Kasım 2008
Konum: Ankara
Durum: Aktif Değil
Puanlar: 8
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı abastas Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 13 Mart 2010 Saat 07:30
Merhaba sanirim link ölmüs
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ı: 15 Mart 2010 Saat 08:11
yenilendi.
http://rapidshare.com/files/363519528/TCMB_BANKA_UPDATE.vbs.html
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
jung Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 01 Haziran 2007
Konum: Kocaeli
Durum: Aktif Değil
Puanlar: 13
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı jung Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 08 Nisan 2011 Saat 14:55
merhabalar linki terrar yeniler misiniz?
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ı: 08 Nisan 2011 Saat 17:14

Not defterine açip vbs uzantili kaydedin.



Dim Data(3)


Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")


'---------------------Buradaki server ,database ,uid(user), pwd bilgilerini kendinize göre degistiriniz.----------------------------
connstr = "driver={sql server}; server=server; database=DB; uid=sa; pwd=sapass;"
conn.Open connstr
 
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load ("http://eft.tcmb.gov.tr/bankasubelistesi/cif.xml")


strQuery = "/csv_data_records/record"
Set colItem = xmlDoc.SelectNodes(strQuery)


nTot = colItem.Length - 1
              
For nCnt = 0 To nTot
                           
    Set oXMLNode = colItem.NextNode()
                   
    '"Kayit NO: " & oXMLNode.Attributes.getNamedItem("num").Text
    
    i = 0
    
    For Each Nodes In oXMLNode.ChildNodes
        Data(i) = Nodes.Text
        i = i + 1
    Next
    
    
    If Data(1)="" Then 'Sube Kodu Bos ise TBLTCMBANASABIT insert/update
    
    query = "SELECT BANKAKODU FROM TBLTCMBANASABIT WHERE BANKAKODU='" & Data(0) & "'"     
       BankaKodu = ""
       rs.Open query, conn
       While Not rs.EOF
         BankaKodu = rs.Fields(0).Value
         rs.MoveNext
       end  
       rs.Close
       
       If BankaKodu = "" Then 'BankaKodu bos ise TBLTCMBANASABIT insert
          cmdquery = "INSERT INTO TBLTCMBANASABIT (BANKAKODU,BANKAADI,YURTDISI,ONLINEDESTEK) " & _
        "VALUES('" & Data(0) & "','" & Replace(Data(2),"'","''") & "','H','H')" 
       conn.Execute(cmdquery)    
        Else 'BankaKodu dolu ise TBLTCMBANASABIT update   
          cmdquery = "UPDATE TBLTCMBANASABIT SET BANKAADI='" & Replace(Data(2),"'","''") & "' WHERE BANKAKODU='" & Data(0) & "'"
         conn.Execute(cmdquery)
       End If
     
     
  Else 'Sube Kodu dolu ise TBLTCMBSUBESABIT insert/update


    query = "SELECT SUBEKODU FROM TBLTCMBSUBESABIT WHERE BANKAKODU='" & Data(0) & "' AND SUBEKODU='" & Data(1) & "'"     
       SubeKodu = ""
       rs.Open query, conn
       
       While Not rs.EOF
         SubeKodu = rs.Fields(0).Value
         rs.MoveNext
       end  
       rs.Close
       
       If SubeKodu = "" Then 'Sube Kodu dolu ise TBLTCMBSUBESABIT insert
          cmdquery = "INSERT INTO TBLTCMBSUBESABIT (BANKAKODU,SUBEKODU,SUBEADI,ULKEKODU,SEHIRKODU,DURUM) " & _
        "VALUES('" & Data(0) & "','" & Data(1) & "','" & Replace(Data(2),"'","''") & "','TR'," & Data(3) & ",0)" 
       conn.Execute(cmdquery)    
        Else 'Sube Kodu dolu ise TBLTCMBSUBESABIT update   
          cmdquery = "UPDATE TBLTCMBSUBESABIT SET SUBEADI='" & Replace(Data(2),"'","''") & "' WHERE BANKAKODU='" & Data(0) & "' AND SUBEKODU='" & Data(1) & "'"     
         conn.Execute(cmdquery)
       End If     
       
    End If
       
Next


Set colItem = Nothing
Set xmlDoc = Nothing
Set rs = Nothing
Set conn = Nothing



Düzenleyen Conari - 18 Şubat 2014 Saat 15:51
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
jung Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 01 Haziran 2007
Konum: Kocaeli
Durum: Aktif Değil
Puanlar: 13
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı jung Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 11 Nisan 2011 Saat 10:48
tesekkürler
subeler bayaa çogalmis :)
Yukarı Dön
freespirit Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 06 Kasım 2013
Konum: Yzmir
Durum: Aktif Değil
Puanlar: 1
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı freespirit Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 06 Kasım 2013 Saat 10:55
Tcmb xml adresini ve biçimini de?i?tirdi sanyrym.


adresini de?i?tirip çaly?tyrmayy denedim ama olmady.

Yeni xml'ye uygun güncelleyebilir misiniz?
Yukarı Dön
Gorke07 Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 14 Kasım 2013
Konum: izmir
Durum: Aktif Değil
Puanlar: 8
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Gorke07 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 14 Şubat 2014 Saat 15:52
Evet Eskiden Çaly?yyordu. ?imdi bende denedim çaly?tyramadym.
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ı: 17 Şubat 2014 Saat 16:05
http://s3.dosya.tc/server18/UNzEqL/TCMBexcel.rar.html

XML yapysy de?i?ti?i için excele alyp oradan aktardym.
bir kaçtane ana banka var yeni, onlary manuel açarsynyz.
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
Gorke07 Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 14 Kasım 2013
Konum: izmir
Durum: Aktif Değil
Puanlar: 8
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Gorke07 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 24 Şubat 2014 Saat 08:22
Merhaba, aktar butonuna tykladyktan sonra a?a?ydaki hata çykyyor. Acaba sorun bende mi ?2 pcde denedim ayny.


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

Kayıt Tarihi: 06 Nisan 2007
Konum: izmir
Durum: Aktif Değil
Puanlar: 1181
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı mbaykan Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 24 Şubat 2014 Saat 09:54
anlady?ym kadaryyla ?ubelere TCMBAnaSabit tablosunda olmayan bir kayyt girmeye çaly?yyorsunuz.
önce TCMBANASABIT tablosuna bu bankanyn kaydedilmesi gerekir.
Mehmet Baykan
Yukarı Dön
Gorke07 Açılır Kutu İzle
Yeni Üye
Yeni Üye
Simge

Kayıt Tarihi: 14 Kasım 2013
Konum: izmir
Durum: Aktif Değil
Puanlar: 8
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Gorke07 Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 24 Şubat 2014 Saat 10:05
Anladym, Bi kontrol ediyim. Te?ekkür ederim
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ı: 24 Şubat 2014 Saat 16:38
3-4 tane Ana banka vardy.
Onlary manuel açmanyz gerekti?ini söylemi?tim,
E?er çok eskiden beri güncellemediyseniz o zaman ba?kalary da vardyr sizde.
Netsisden vazgeçemiyorum. Beni engelliyor..
Yukarı Dön
sercanakgok Açılır Kutu İzle
Üye
Üye
Simge

Kayıt Tarihi: 30 Nisan 2016
Konum: izmir
Durum: Aktif Değil
Puanlar: 10
Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı sercanakgok Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 09 Ağustos 2016 Saat 07:58
Conari üstad su güncelleme dosyasini tekrar yükleyebilir misin.


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ı: 09 Ağustos 2016 Saat 15:44
Olmayan Ana kodlari tanimlamayi unutmayin,
 
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,629 Saniyede Yüklendi.