Sub BakiyeGetir()

Dim Kernel As New NetOpenX.Kernel
Dim Sirket As NetOpenX.Sirket
Dim StokPH As New NetOpenX.StokPH

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

StokPH.Stok_Kodu = "15010003"
Call Sirket.Bakiye_Getir(StokPH)
'MsgBox StokPH.Top_Cikis_Mik
'MsgBox StokPH.Top_Giris_Mik
'MsgBox StokPH.Mus_Top_Siparis
'MsgBox StokPH.Mus_Top_Teslim

Set Sirket = Nothing
Call Kernel.FreeNetsisLibrary
Set Kernel = Nothing
End Sub