Netsis Şirketler arası Çek aktarımı

Netsis Şirketler arası Çek aktarımı

set sorgu9=netsiscore.NetLibDB.GetNewQuery

cumle9 = "SELECT DB_NAME() AS SIRKET"

sorgu9.RecSQL(cumle9)

VTADI = sorgu9.fieldbyname("SIRKET").AsString

IF NETSISCORE.NetLibSession.AktifProgramNo=3 AND PROJE_KODU.TEXT="K" THEN

Set Kernel = CreateObject("NetOpenX50.Kernel")

Set Sirket = Kernel.yeniSirket(vtMSSQL, "DENEME13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)

Set HSirket = Kernel.yeniSirket(vtMSSQL, "GUNTAS13", "TEMELSET", "", "NETSIS", "NET1", NetsisCore.NetLibSession.LogicalSegmentValue)

Set CekSenetAna = Kernel.yeniCekSenAna(Sirket, csMCEK)

Set HCekSenetAna = Kernel.yeniCekSenAna(HSirket, csMCEK)

Set CekSenetOkunan = CekSenetAna.OkunanCS

Set HCekSenet = HCekSenetAna.EvrakYeni

If CekSenetAna.kayitOku(4, " sc_alb_no='"&sc_alb_no.text&"' " ) Then

MsgBox "kayit açildi"

CekSenetAna.kayitOku (0)

HCekSenet.SC_NO=CekSenetOkunan.SC_NO

HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO

HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH

HCekSenet.VADETRH=CekSenetOkunan.VADETRH

HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH

HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH

HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK

HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU

HCekSenet.AS_C=CekSenetOkunan.AS_C

HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK

HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM

HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO

HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR

HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI

HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU

HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO

HCekSenet.YERI=CekSenetOkunan.YERI

HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA

HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER

HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI

HCekSenet.Tutar=CekSenetOkunan.Tutar

HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu

Hceksenet.Dovtip=CekSenetOkunan.Dovtip

Hceksenet.Dovtut=CekSenetOkunan.Dovtut

Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE

Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL

Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery

cumle2 = "update GUNTAS13..TBLMCEKNO SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "

sorgu2.recsql (cumle2)

HCekSenetAna.EvraklariKaydet (ektCekSenAlma)

Set sorgu = Netsiscore.Netlibdb.GetNewQuery

cumle = "select count(*) from TBLMCEK WHERE sc_alb_no='"&sc_alb_no.text&"'"

sorgu.recsql (cumle)

SAY = sorgu.Fields(0).AsInteger

for i=2 to SAY

CekSenetAna.KayitOku(1)

HCekSenet.SC_NO=CekSenetOkunan.SC_NO

HCekSenet.GIRIS_BORDRO=CekSenetOkunan.GIRIS_BORDRO

HCekSenet.SC_GIRTRH=CekSenetOkunan.SC_GIRTRH

HCekSenet.VADETRH=CekSenetOkunan.VADETRH

HCekSenet.SC_CIKTRH=CekSenetOkunan.SC_CIKTRH

HCekSenet.SC_ODETRH=CekSenetOkunan.SC_ODETRH

HCekSenet.SC_VERENK=CekSenetOkunan.SC_VERENK

HCekSenet.SC_ABORCLU=CekSenetOkunan.SC_ABORCLU

HCekSenet.AS_C=CekSenetOkunan.AS_C

HCekSenet.SC_VERILENK=CekSenetOkunan.SC_VERILENK

HCekSenet.SC_VERYCM=CekSenetOkunan.SC_VERYCM

HCekSenet.SC_BANKNO=CekSenetOkunan.SC_BANKNO

HCekSenet.SC_SONDUR=CekSenetOkunan.SC_SONDUR

HCekSenet.SC_YERI=CekSenetOkunan.SC_YERI

HCekSenet.RAPOR_KODU=CekSenetOkunan.RAPOR_KODU

HCekSenet.SC_VERB_NO=CekSenetOkunan.SC_VERB_NO

HCekSenet.YERI=CekSenetOkunan.YERI

HCekSenet.C_NUMARA=CekSenetOkunan.C_NUMARA

HCekSenet.GIRILDIGIYER=CekSenetOkunan.GIRILDIGIYER

HCekSenet.CEKSERI=CekSenetOkunan.CEKSERI

HCekSenet.Tutar=CekSenetOkunan.Tutar

HCekSenet.Proje_Kodu=CekSenetOkunan.Proje_Kodu

Hceksenet.Dovtip=CekSenetOkunan.Dovtip

Hceksenet.Dovtut=CekSenetOkunan.Dovtut

Hceksenet.CEK_SUBE=CekSenetOkunan.CEK_SUBE

Hceksenet.CEK_IL=CekSenetOkunan.CEK_IL

Hceksenet.CEK_ILCE=CekSenetOkunan.CEK_ILCE
Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery

cumle3 = "update GUNTAS13..TBLMCEKno SET SUBE_KODU=0, SERI=LEFT('"&CekSenetOkunan.SC_NO&"',1),SIRA_NO='"&CekSenetOkunan.SC_NO&"',ALB_NO='"&SC_ALB_NO.TEXT&"' "

sorgu3.recsql (cumle3)

sorgu3.close

set sorgu3= nothing

HCekSenetAna.EvraklariKaydet (ektCekSenAlma)
next
sorgu2.close

set sorgu2= nothing

sorgu.close

set sorgu= nothing

end if

Set HCekSenet = Nothing

'Set CekSenet = Nothing

Set Sirket = Nothing

Set CekSenetOkunan = Nothing

Call Kernel.FreeNetsisLibrary

Set Kernel = Nothing

END IF

sorgu9.close

set sorgu9 = Nothing