Netsis Şirketler Arası Dekont Aktarımı

Netsis Şirketler Arası Dekont Aktarımı

set sorgu9=netsiscore.NetLibDB.GetNewQuery

cumle9 = "SELECT DB_NAME() AS SIRKET"

sorgu9.RecSQL(cumle9)

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

IF VTADI="DENEME12" AND (SERI.TEXT="BN" OR SERI.TEXT="bn") THEN

Set Kernel = CreateObject("NetOpenX50.Kernel")

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

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

Set Dekont = Kernel.yeniDekont(Sirket)

'Set HDekont = Kernel.yeniDekont(HSirket)

' DekoMas = default(Dekomas)

'Set DekontOkunan = Dekont.OkunanCS

'DekoMas.YeniNumaraAl(seri.text)

'Set HDekont = HDekont.EvrakYeni

Set DMas = Kernel.yeniDekomas(HSirket)

DMas.YeniNumaraAl(seri.text)

If Dekont.kayitOku(4, " Dekont_No='"&dekontno.text&"' and Seri_no='"&seri.text&"' " ) Then

MsgBox "AktarIm Basliyor.."

Dekont.kayitOku (0)


Set HDekont=DMas.KalemEkle (3)


HDekont.Kod = Dekont.Kod

HDekont.C_M=Dekont.C_M

HDekont.B_A = Dekont.B_A

HDekont.Tutar = Dekont.Tutar

HDekont.Sube_Kodu = Dekont.Sube_Kodu

HDekont.Proje_Kodu=Dekont.Proje_Kodu

HDekont.Aciklama1=Dekont.Aciklama1




HDekont.DEPO_KODU = Dekont.DEPO_KODU

HDekont.Fisno = Dekont.Fisno

HDekont.Plasiyer = Dekont.Plasiyer

HDekont.ValorGun = Dekont.ValorGun

HDekont.ValorTrh = Dekont.ValorTrh

HDekont.Kdv_Oran= Dekont.Kdv_Oran

HDekont.Kdv_Dahil= Dekont.Kdv_Dahil

HDekont.DovTL = Dekont.DovTL

HDekont.DovTip = Dekont.DovTip

HDekont.DOVTUT = Dekont.DOVTUT

HDekont.Tarih = Dekont.Tarih

Set sorgu2 = Netsiscore.Netlibdb.GetNewQuery

cumle2 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "

sorgu2.recsql (cumle2)

Set sorgu = Netsiscore.Netlibdb.GetNewQuery

cumle = "select count(*) from TBLdekotra WHERE seri_no='"&seri.text&"' and dekont_no='"&dekontno.text&"'"

sorgu.recsql (cumle)

SAY = sorgu.Fields(0).AsInteger

for i=2 to SAY

Dekont.KayitOku(1)


Set HDekont=DMas.KalemEkle(3)


HDekont.Kod = Dekont.Kod

HDekont.C_M=Dekont.C_M

HDekont.B_A = Dekont.B_A

HDekont.Tutar = Dekont.Tutar

HDekont.Sube_Kodu = Dekont.Sube_Kodu

HDekont.Proje_Kodu=Dekont.Proje_Kodu

HDekont.Aciklama1=Dekont.Aciklama1

HDekont.Kdv_Oran= Dekont.Kdv_Oran

HDekont.Kdv_Dahil= Dekont.Kdv_Dahil

HDekont.DEPO_KODU = Dekont.DEPO_KODU

HDekont.Fisno = Dekont.Fisno

HDekont.Plasiyer = Dekont.Plasiyer

HDekont.ValorGun = Dekont.ValorGun

HDekont.ValorTrh = Dekont.ValorTrh

HDekont.DovTL = Dekont.DovTL

HDekont.DovTip = Dekont.DovTip

HDekont.DOVTUT = Dekont.DOVTUT

HDekont.Tarih = Dekont.Tarih


Set sorgu3 = Netsiscore.Netlibdb.GetNewQuery

cumle3 = "update GUNTAS13..TBLDEKONO SET DEKONT_NO='"&DEKONTNO.TEXT&"' WHERE SERI_NO='"&DEKONT.SERI_NO&"' "

sorgu3.recsql (cumle3)

sorgu3.close

set sorgu3= nothing

next
sorgu2.close

set sorgu2= nothing
sorgu.close

set sorgu= nothing

end if

Set HDekont = Nothing

'Set CekSenet = Nothing

Set Sirket = Nothing

'Set CekSenetOkunan = Nothing

Call Kernel.FreeNetsisLibrary

Set Kernel = Nothing

DMas.Tamamla()

MsgBox("Aktarim Tamamlandi ...")

END IF

sorgu9.close

set sorgu9 = Nothing