Sub AmbarFisiMuhasebelestirme()

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

	Set Sirket = Kernel.yeniSirket(vtOracle, "ENTERPRISE8", "TEMELSET", "", "NETSIS", "", 0)
	Set Maliyet = Kernel.yeniMaliyet(Sirket, mtAmbFisMuhasebelestir)
	Maliyet.Ay = "01"
	Maliyet.Yil = "2003"
	Maliyet.Aciklama = "NetOpenX"
	Maliyet.GrupKod1 = ""
	Maliyet.GrupKod2 = ""
	Maliyet.SubelerDahil = True
	Maliyet.HesapTipi = hsAlHes
	Maliyet.AmbFisNoKirilimliAktar = True
	Maliyet.Calistir

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

End Sub

			Kernel kernel = new Kernel();
            Sirket sirket = default(Sirket);
            AmbarFisMuh maliyet = default(AmbarFisMuh);
            try
            {
               sirket = kernel.yeniSirket(TVTTipi.vtMSSQL,"vt adi",
            		"vt kull adi","vt kull sifre","netsis kull adi","netsis sifre",0);
                maliyet = kernel.yeniMaliyet(sirket, mtAmbFisMuhasebelestir);
                maliyet.Ay = "01";
                maliyet.Yil = "2003";
                maliyet.Aciklama = "NetOpenX";
                maliyet.GrupKod1 = "";
                maliyet.GrupKod2 = "";
                maliyet.SubelerDahil = true;
                maliyet.HesapTipi = hsAlHes;
                maliyet.AmbFisNoKirilimliAktar = true;
                maliyet.Calistir();
            }
            finally
            {
                Marshal.ReleaseComObject(maliyet);
                Marshal.ReleaseComObject(sirket);
                kernel.FreeNetsisLibrary();
                Marshal.ReleaseComObject(kernel);
            }