Sub ProjeIslem()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Proje As NetOpenX.Proje
 
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Proje = Kernel.yeniProje(Sirket)
Proje.Proje_Kodu = "002"
Proje.Proje_Aciklama = "Demo Projesi Açýldý"
Proje.kayitYeni

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

End Sub

Sub ProjeOku()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Proje As NetOpenX.Proje
 
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Proje = Kernel.yeniProje(Sirket)
Proje.kayitOku (otAc)
Proje.kayitOku (otIlk)
MsgBox (Proje.Proje_Kodu) Set Proje = Nothing

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

End Sub