NDI: NetopenX50 Kullanarak Stok Kartı Açmak!!!

Set Krnl = CreateObject("netopenx50.kernel")
Set Srkt = Krnl.yeniSirket(vtMSSQL, "SIRKETADI", "TEMELSET", "", "NETSIS", "NET1", 0)
Set Stok = Krnl.yeniStok(Srkt)
Set StokTemel = Stok.TemelBilgi
Set StokEk = Stok.EkBilgi
StokTemel.ISLETME_KODU = 0
StokTemel.Sube_Kodu = 0
StokTemel.Stok_Kodu = "STOK KODU GİRİNİZ..."
StokTemel.Stok_Adi  = "STOK ADI GİRİNİZ..."
StokTemel.Pay_1 = 1
StokTemel.Payda_1 = 1
StokTemel.Pay2 = 1
StokTemel.Payda2 = 1
StokTemel.GRUP_KODU="YM" Mliyet Muhasebesi için kullnılıyor.. maliyet muhasebesi tanımlarınıda otomatik olarak yaptırabilirsiniz
StokTemel.KDV_ORANI = "18"
StokTemel.ALIS_KDV_KODU = "18"
StokTemel.OLCU_BR1="AD"
StokTemel.DEPO_KODU="3"
StokEk.Stok_Kodu = "STOK_KODU GİRİNİZ..."
StokEk.TUR = "Y"
StokEk.MGRUP = "stok kodu maliyet tanımlamaları için"'
StokEk.KAYITYAPANKUL = kullanıcı değişkenini giriniz
Call Stok.kayitYeni

Yorum Yaz
Arkadaşların Burada !
Arkadaşların Burada !