Sub DovizKaydet()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Doviz As NetOpenX.Doviz
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Doviz = Kernel.yeniDoviz(Sirket)

Call Doviz.NetsisTransaction(ttBAslat)
Doviz.BIRIM = 3
Doviz.ISIM = "ER"
Doviz.NETSISSIRA = 9
Call Doviz.kayitYeni
Call Doviz.NetsisTransaction(ttBitir)

Set Sirket = Nothing
Set Doviz = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub

Sub DovizOku()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Doviz As NetOpenX.Doviz 
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Doviz = Kernel.yeniDoviz(Sirket)

Call Doviz.kayitOku(otAc)
'MsgBox "acıldı"
Call Doviz.kayitOku(otIlk)
'MsgBox Doviz.Sira & "--" & Doviz.BIRIM & "--" & Doviz.ISIM
Call Doviz.kayitOku(otSonraki)
'MsgBox Doviz.Sira & "--" & Doviz.BIRIM & "--" & Doviz.ISIM
Call Doviz.kayitOku(otOnceki)
'MsgBox Doviz.Sira & "--" & Doviz.BIRIM & "--" & Doviz.ISIM
Call Doviz.kayitOku(otSon)
'MsgBox Doviz.Sira & "--" & Doviz.BIRIM & "--" & Doviz.ISIM

Set Sirket = Nothing
Set Doviz = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub

Dim Kernel 
Dim Sirket 
Dim Doviz 

Set Kernel = createobject("NetOpenX.Kernel")
Set Sirket = Kernel.yeniSirket(vtMSSQL, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 0)
Set Doviz = Kernel.yeniDoviz(Sirket)
    
Call Doviz.DovizKurGuncelle(Date)
    
Set Sirket = Nothing
Set Doviz = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing