NetopenX - Borc Cek Kaydi

Veren , CASABIT tablosunda tanimsiz

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

'_________________________________________________________________________________

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