Sub MustahsilKaydet()
    Dim kernel As New NetOpenX50.kernel
    Dim Sirket As Sirket
    Dim Mustahsil As Mustahsil
    Dim MustahsilUst As MustahsilUst
    Dim MustahsilKalem As MustahsilKalem
On Error GoTo Hata:
    Set Sirket = kernel.yeniSirket(vtMSSQL, "vt adi", "vt kull adi", vt kull sifre", netsis kull adi", "netsis kull sifre", "sube kodu")
    Set Mustahsil = kernel.yeniMustahsil(Sirket, "00001")
    
    Set MustahsilUst = Mustahsil.Ust
    MustahsilUst.FATIRS_NO = "NETOP0000000228"
    MustahsilUst.Proje_Kodu = "033"
    MustahsilUst.Kasa_Kodu = "00"    MustahsilUst.Bagkur = "10"
    MustahsilUst.I_Yedek8 = 2 //bağkur muafiyeti yapılsın
        
    Set MustahsilKalem = Mustahsil.KalemEkle("000")
    MustahsilKalem.ProjeKodu = "033"
    MustahsilKalem.DEPO_KODU = 1
    MustahsilKalem.STra_GCMIK = 1
    MustahsilKalem.STra_BF = 900
    
    Mustahsil.Sakla
    Set MustahsilKalem  = Nothing
    Set MustahsilUst = Nothing
    Set Mustahsil = Nothing
    Set Sirket = Nothing
    kernel.FreeNetsisLibrary
    Set kernel = Nothing
    Exit Sub
Hata:
    MsgBox Err.Description
End Sub