%RegisteredObject %String Links",##class(TECH.Vector).%New(120,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(333,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(425,6,0),"BLUMS")) quit ..MaakKaderdeurProduct(KADKenmerken) ]]> %String Links",##class(TECH.Vector).%New(120,6,0),"BLUMK")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(333,6,0),"BLUMK")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(425,6,0),"BLUMK")) quit ..MaakKaderdeurProduct(KADKenmerken) ]]> %String Links",##class(TECH.Vector).%New(120,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(333,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(425,6,0),"BLUMS")) quit ..MaakKaderdeurProduct(KADKenmerken) ]]> %String Links",##class(TECH.Vector).%New(120,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(333,6,0),"BLUMS")) Do KADKenmerken.Beslag.Insert(##class(DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag).%New("Profiel->Links",##class(TECH.Vector).%New(425,6,0),"BLUMS")) #dim ProductID As %String = ..MaakKaderdeurProduct(KADKenmerken) #dim Product As DOM.PM.KADProduct.KADKaderdeur = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) #dim GADefKaderdeur As Prod.GADef.KaderDeur = Product.GeefGADefKaderdeur() Set KadBoring = ##class(Prod.GADef.emKadBoring).%New() Set KadBoring.XPos = 150 Set KadBoring.YPos = 10 Set KadBoring.BoorDiameter = 5 Set KadBoring.BoorDiepte = -1 Set KadBoring.BoringPlaats = "NietFreesbareBoringPlaats" Set KadBoring.BoringType = ##class(Prod.GADef.enu.ProfielKant).Onderkant() Do GADefKaderdeur.Boringen.SetAt(KadBoring, 1) Do GADefKaderdeur.%Save() quit ProductID ]]> KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken 1 %String