Sub StDovEnfCevir()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Maliyet As NetOpenX.StDovEnfCevir

Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Maliyet = Kernel.yeniMaliyet(Sirket, mtStokDovEnfCevir)

Maliyet.StokKodu = "KABLO"
'Maliyet.GrupKodu = "MALZ01"
'Maliyet.KOD1 = "KOD01" 
Maliyet.Tarih1 = CDate("01/01/2016")
Maliyet.Tarih2 = CDate("31/12/2016")
Maliyet.Calistir Set Maliyet = Nothing

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

End Sub