Sub DepTransMuhasebelestir()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim Maliyet As NetOpenX.DepTransMuh
Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 32767) 
Set Maliyet = Kernel.yeniMaliyet(Sirket, mtDepTransMuhasebelestir)
Maliyet.AyKodu = "03"
Maliyet.YilKodu = "2003"
Maliyet.MuhtelifTipHarDahEt = True
Maliyet.EntBilMerkezdeOlus = True
Maliyet.FarkTransferMuhKodu = "101-02-0001"
Maliyet.CikisHesapTipi = hsAlHes
Maliyet.MuhTipi = mhDetayli
Maliyet.Calistir

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

End Sub