'_________________________________________________________________________________
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
|