Sub DagitimFisiOlusturma()

	Dim Kernel As New NetOpenX.Kernel
	Dim Sirket As NetOpenX.Sirket
	Dim Maliyet As NetOpenX.DagFisOlus
	Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767)
	Set Maliyet = Kernel.yeniMaliyet(Sirket, mtDagitimFisiOlusturma)
	Maliyet.Fisno = "000000000000001"
	Maliyet.FisTarih = CDate("29/02/2016")
	Maliyet.DagitimTuru = dftMiktarsal
	Maliyet.ProjeKoduKontYapilsin = False
	Maliyet.BasIslemSiraNo = ""
	Maliyet.BitIslemSiraNo = ""
	Maliyet.Calistir

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

End Sub