ERP Nedir? | Türkiye'nin ERP Forum Platformu : NetopenX - Borc Cek Kaydi http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Sun, 07 Jun 2026 02:17:31 +0000 Wed, 27 Mar 2013 14:47:13 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=3400 <![CDATA[ERP Nedir? | Türkiye'nin ERP Forum Platformu]]> http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ <![CDATA[NetopenX - Borc Cek Kaydi : Banka parametrelerinde &#034;Banka...]]> http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18672.html#18672 Yazar: Rafet
Konu: 3400
Gönderim Zamanı: 27 Mart 2013 Saat 14:47

Banka parametrelerinde "Banka Entegre" tikli.
Borç Çekleri "Banka Kodu Girisi" tikli.

FAkat halen ayni hatayi veriyor.

Borc Ceklerini Netsisten islerkende bir sikinti yok.

Her sey normal.
Fakat netopenx40 ile atmaya kalktigimda yukar daki hatayi aliyorum.

netopenx40 Kernel Versiyonu 4.0.14.1506
BCEK Modul versiyonu 4.0.14.206
Banka modul versiyonu 4.0.14.1325

Versiyonlardada bir sikinti yok uyumlu olmalilar.
Fakat nedense hala kaydi yaparken sikintilli.


Geçici bir çözüm uyguladim.
Borc Cekinde Banka parametsesini her kayitta kaldiriyorum. Banka kodunudogrulama geregi dymuyor ayni hatayi almiyor.
Fakat bu seferde banka cek takip hbanka hesap koduna cek kaydini atmiyor.
Cek e bordro tamamlama yapinca atiyor.
Bordro tamamlamada asili kalmasi içinde kayit attim.
Netsise giriste bordro tamamlama yapildiginda
Kayitlarda hiç bir sorun gözükmüyor.

Tesekkrüler. 




'_________________________________________________________________________________

Set cnt = New ADODB.Connection

Set rst = New ADODB.Recordset

strConn = bag

cnt.ConnectionString = strConn



stSQL = " UPDATE TBLBCEKPAR  SET BANKA_KOD='H' WHERE ISLETME_KODU='1' "

cnt.Open

rst.Open stSQL, cnt, 1, 1

cnt.Close

'_________________________________________________________________________________





Dim Kernel As New NetOpenX40.Kernel

Dim Sirket As NetOpenX40.Sirket

Dim CekSenetAna As NetOpenX40.CekSenetAna

Dim CekSenet As NetOpenX40.CekSenet



On Error GoTo Hata

Set Sirket = Kernel.yeniSirket(vtMSSQL, bag_db, "TEMELSET", "", "TKM", "stst273", subek)

Set CekSenetAna = Kernel.yeniCekSenAna(Sirket, TCekSenType.csBCEK)



'Call CekSenetAna.NetsisTransaction(ttBaslat)

Set CekSenet = CekSenetAna.EvrakYeni



'CekSenet.AS_C

'CekSenet.C_NUMARA

'CekSenet.CEK_IL

'CekSenet.CEK_ILCE

'CekSenet.CEK_SUBE

'CekSenet.CEKSERI

'CekSenet.CIKIS_BORDRO

'CekSenet.DOVTIP

'CekSenet.DOVTUT

'CekSenet.DuzeltmeTarihi

'CekSenet.DuzeltmeYapanKul

'CekSenet.Firmadovtip

'CekSenet.Firmadovtut

'CekSenet.GIRILDIGIYER

'CekSenet.GIRIS_BORDRO

'CekSenet.Handle

'CekSenet.KasaKodu

'CekSenet.KayitTarihi

'CekSenet.KayitYapanKul

'CekSenet.Kernel

'CekSenet.KURFARKI

'CekSenet.Name

'CekSenet.OnayNum

'CekSenet.OnayTipi

'CekSenet.Plasiyer_Kodu

'CekSenet.PLASIYER_TARIH

'CekSenet.Proje_Kodu

'CekSenet.RAP_KOD

'CekSenet.RAPOR_KODU

'CekSenet.SC_ABORCLU

'CekSenet.SC_ALB_NO

'CekSenet.SC_BANKNO

'CekSenet.SC_CIKTRH

'CekSenet.SC_GIRTRH

'CekSenet.SC_NO

'CekSenet.SC_ODETRH

'CekSenet.SC_SONDUR

'CekSenet.SC_VERB_NO

'CekSenet.SC_VERENK

'CekSenet.SC_VERILENK

'CekSenet.SC_VERYCM

'CekSenet.SC_YERI

'CekSenet.Sube_Kodu

'CekSenet.Tutar

'CekSenet.Update_Kodu

'CekSenet.VADETRH

'CekSenet.VONAYNUM

'CekSenet.VONAYTIPI

'CekSenet.Yedek1

'CekSenet.Yedek10

'CekSenet.Yedek2

'CekSenet.Yedek3

'CekSenet.Yedek4

'CekSenet.Yedek5

'CekSenet.Yedek6

'CekSenet.Yedek7

'CekSenet.Yedek8

'CekSenet.Yedek9

'CekSenet.YERI



t = r + 1

While Cells(t, k_bkodu) <> ""



  BO_No = Cells(t, k_no)

  BO_BankaK = Cells(t, k_bkodu)

  BO_BankaAdi = Cells(t, k_badi)

  BO_Vade = Cells(t, k_vade)

  BO_Tutar = Cells(t, k_tutar)

  BO_DovTutar = Cells(t, k_tutardov)

  BO_DovTip = Cells(t, k_dovtip)

  BO_Banka = Cells(t, k_banka)

  BO_HesapNo = Cells(t, k_hesap)

  BO_CekNo = Cells(t, k_cekno)

  BO_Rkod1 = Cells(t, k_rkod1)

  BO_Rkod2 = Cells(t, k_rkod2)

  BO_Aciklama = Cells(t, k_aciklama)



CekSenet.Plasiyer_Kodu = calisank

CekSenet.SC_CIKTRH = Tarih



'CekSenet.SC_VERENK = carikodu 'BO_BankaK ??????????****

CekSenet.SC_VERYCM = "E"

CekSenet.SC_VERENK = BO_BankaK

CekSenet.SC_VERILENK = carikodu

CekSenet.Tutar = BO_Tutar

CekSenet.VADETRH = CDate(BO_Vade)

CekSenet.SC_ODETRH = CDate(BO_Vade)



CekSenet.AS_C = "C" '"A"sil/"C"iro Çek

'CekSenet.OnayTipi = "A"

'CekSenet.VONAYTIPI = "A"

'CekSenet.SC_VERYCM = "E"

CekSenet.SC_YERI = "C"

'CekSenet.DOVTUT = BO_DovTutar

'CekSenet.DOVTIP = BO_DovTip



CekSenet.C_NUMARA = BO_HesapNo

CekSenet.CEKSERI = BO_CekNo

CekSenet.YERI = BO_Banka



CekSenet.RAPOR_KODU = Mid(BO_Rkod1, 1, 1)

CekSenet.RAP_KOD = Mid(BO_Rkod2, 1, 15)



'CekSenet.Yedek7 = "Null"

'CekSenet.Yedek8 = "Null"

'CekSenet.Yedek9 = "Null"



t = t + 1

Wend



A = 1

    

CekSenetAna.EvraklariKaydet (TCekSenetEvrakKaydetmeTipi.ektCekSenVerme)

Cells(t - 1, c) = CekSenet.SC_NO



'_________________________________________________________________________

stSQL = " UPDATE TBLBCEKPAR  SET BANKA_KOD='E' WHERE ISLETME_KODU='1' "

cnt.Open

rst.Open stSQL, cnt, 1, 1



Set rst = Nothing

Set cnt = Nothing

Application.UseSystemSeparators = True

'_________________________________________________________________________



'Call CekSenetAna.NetsisTransaction(ttBitir)

Set Sirket = Nothing

Set CekSenet = Nothing

Call Kernel.FreeNetsisLibrary

Set Kernel = Nothing



A = MsgBox(Prompt:="BORDRO TAMAMLAMA YAPMAYI UNUTMAYINIZ " & Chr(10) & "  EGER YAPMAZSANIZ CEK TAKIP BANKA HESAP HAREKETLERINE KAYIT ATMAZ.", Title:="UYARI!!!")



    Exit Sub

Hata:

    MsgBox Err.Description

    


]]> Wed, 27 Mar 2013 14:47:13 +0000 http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18672.html#18672 <![CDATA[NetopenX - Borc Cek Kaydi : parametrelerde banka kodu girisi...]]> http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18668.html#18668 Yazar: micromak
Konu: 3400
Gönderim Zamanı: 24 Mart 2013 Saat 00:07

parametrelerde banka kodu girisi parametresi isaretldir.
banka entegremi isaretli degildir.o yüzden cariye bakar banka entegre isaretli ise bankaya bakar]]> Sun, 24 Mar 2013 00:07:30 +0000 http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18668.html#18668 <![CDATA[NetopenX - Borc Cek Kaydi : Bankalar entegre mi?çek parameterelerinde...]]> http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18662.html#18662 Yazar: rhan
Konu: 3400
Gönderim Zamanı: 23 Mart 2013 Saat 19:30

Bankalar entegre mi?
çek parameterelerinde veren kodu aransin isaretli mi ?
]]> Sat, 23 Mar 2013 19:30:55 +0000 http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18662.html#18662 <![CDATA[NetopenX - Borc Cek Kaydi : Hala bakiyorum çözemedim sorunu....]]> http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18661.html#18661 Yazar: Rafet
Konu: 3400
Gönderim Zamanı: 23 Mart 2013 Saat 18:49

Hala bakiyorum çözemedim sorunu.

Borc ceki kaydederken netopenx neden veren kodunu cariden bakiyor , netopenx kaydi yaparken neden netsisteki gibi davran miyor.

Anlamis degilim. ]]> Sat, 23 Mar 2013 18:49:43 +0000 http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18661.html#18661 <![CDATA[NetopenX - Borc Cek Kaydi : Netsis Borc Çek kaydi yaparken...]]> http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18660.html#18660 Yazar: Rafet
Konu: 3400
Gönderim Zamanı: 23 Mart 2013 Saat 16:25

Netsis Borc Çek kaydi yaparken
hata aliyorum. 
Veren , CASABIT tablosunda tanimsiz


Fakat veren kodu banka olmasi lazim ve banka kodu .
Cari koddan neden bakip hata veriyor anlam veremedim.
Veren koduna cari kodu atadigim zaman kaydi yapiyor.
Kaydi Netsisten kontrol ettigimde banka kodu yerinde belirttigim cari kodu yer aliyor.
Kayit bor ceki banka kodu yerinde cari kodu var.
Ilerlenken hata de veriyor.
Sorun nerde ola bilir. 


Dim Kernel As New NetOpenX40.Kernel

Dim Sirket As NetOpenX40.Sirket

Dim CekSenetAna As NetOpenX40.CekSenetAna

Dim CekSenet As NetOpenX40.CekSenet



On Error GoTo Hata

Set Sirket = Kernel.yeniSirket(vtMSSQL, database , "TEMELSET", "", "NETSIS", "NET1", subek)

Set CekSenetAna = Kernel.yeniCekSenAna(Sirket, csBCEK)



Set CekSenet = CekSenetAna.EvrakYeni



t = r + 1

While Cells(t, k_bkodu) <> ""



CekSenet.SC_VERYCM = True

CekSenet.SC_YERI = "C"

CekSenet.SC_VERENK = BO_BankaK

CekSenet.SC_VERILENK = carikodu

CekSenet.Tutar = BO_Tutar

CekSenet.VADETRH = CDate(BO_Vade)

CekSenet.AS_C = "A" '"A"sil/"C"iro Çek

CekSenet.Plasiyer_Kodu = calisank

CekSenet.SC_CIKTRH = Tarih



t = t + 1

Wend

    

CekSenetAna.EvraklariKaydet (ektCekSenVerme)



Set Sirket = Nothing

Set CekSenet = Nothing

Call Kernel.FreeNetsisLibrary

Set Kernel = Nothing



    Exit Sub

Hata:

    MsgBox Err.Description

]]> Sat, 23 Mar 2013 16:25:32 +0000 http://www.erpne.org/netopenx-borc-cek-kaydi_topic3400_post18660.html#18660