Sub StokMaliyet()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Maliyet As NetOpenX.StokMaliyet 
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
Set Maliyet = Kernel.yeniMaliyet(Sirket, mtStokMaliyet)
Maliyet.YillikIslemYapilacak = True
'Maliyet.SubelerDahil = True
MsgBox (Maliyet.MaliyetTipi)
Maliyet.DonguSayisi = 2
Maliyet.TurKisitlamasi = tkHepsi
Maliyet.Calistir

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

End Sub