Sub MaliyetMuhasabesi()

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

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

Maliyet.AyKodu = 3
Maliyet.YilKodu = 2004
Maliyet.HazirlikYapilacak = True
Maliyet.MahsupOlusturulacak = True
Maliyet.PaylastirmaHasTutar = 1
Maliyet.GenelSafhaSayisi = 2
Maliyet.Calistir
 
Set Maliyet = Nothing
Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing

End Sub