LOD içerisinde aşağıdaki örneği kullanarak LObjects ile Hızlı Üretim Fişi aktarımı yapabilirsiniz.
UnityApp=OleObject("UnityObjects.UnityApplication")
res=UnityApp.Login("LOGO","",1)
warn(res)
UnityApp.ProdApp=OleObject("UnityObjects.ProductionApplication")
ProdApp.RefList=OleObject("UnityObjects.QuickProdSlipRefLists")
PackDate(27,08,2015,dval)
PackTime(17,58,45,tval)
QProd = ProdApp.QuickProdFicheProc(logRef, urtFlt, RefList,dval,tval,0,0)
if QProd = true then
warn("Hızlı üretim fişi oluşmuştur.")
UnityApp.Disconnect()
ProdApp.RefList = null
UnityApp.ProdApp = null
UnityApp = null
quilt.CollectGarbage()
else
Warn("Hata Mesajı : " + ProdApp.GetLastError() + " - " + ProdApp.GetLastErrorString())
end if
Cevap vermek için giriş yapmanız gerekmektedir.
Soru sormak için lütfen oturum açınız.
LOD içerisinde Logo Objects kullanarak Hızlı üretim fişi oluşturmak
27/08/15 18:42   Tiger/Logo Object Designer (LOD)Tiger Ent. 2.33 versiyonu için geliştirmekte olduğumuz bir proje içerisinde Hızlı Üretim Fişi oluşturmamız gerekiyor. Bunun için sizden temin ettiğim dökümanlardaki bilgiler doğrultusunda aşağıdaki işlemi yapıyorum ancak hata almaktayım. LOD içerisinde LO kütüphanesi kullanarak bu işlemi nasıl yapabilirim ?
Set ProdApp = UnityApp.NewProductionApplication
Set svLnObj = ProdApp.NewQPSlipRefLists
If not ProdApp.QuickProdFicheProc(8, 5, svLnObj) then
ShowMessage(ProdApp.GetLastErrorString)
End if
LOD QuickProdFicheProc Hızlı Üretim Fişi