Sub KurKaydet()
    Dim Kernel As New NetOpenX.Kernel
    Dim Sirket As NetOpenX.Sirket
    Dim Kur As NetOpenX.Kur    
    Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
    Set Kur = Kernel.yeniKur(Sirket)
    Kur.Sira = 1
    Kur.Tarih = Date
    Kur.DOV_ALIS = 9000
    Kur.DOV_SATIS = 9000
    Call Kur.kayitYeni
    
    Set Sirket = Nothing
    Set Doviz = Nothing
    Call Kernel.FreeNetsisLibrary
    Set Kernel = Nothing
End Sub

Sub KurOku()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Kur As NetOpenX.Kur

Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Kur = Kernel.yeniKur(Sirket)
Call Kur.kayitOku(otAc)
Call Kur.kayitOku(otIlk)
'MsgBox Kur.DOV_ALIS & "--" & Kur.DOV_SATIS & "--" & Kur.TARIH & "--" & Kur.Sira
Call Kur.kayitOku(otSonraki)
'MsgBox Kur.DOV_ALIS & "--" & Kur.DOV_SATIS & "--" & Kur.TARIH & "--" & Kur.Sira
Call Kur.kayitOku(otOnceki)
'MsgBox Kur.DOV_ALIS & "--" & Kur.DOV_SATIS & "--" & Kur.TARIH & "--" & Kur.Sira
Call Kur.kayitOku(otSon)
'MsgBox Kur.DOV_ALIS & "--" & Kur.DOV_SATIS & "--" & Kur.TARIH & "--" & Kur.Sira

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

End Sub