Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60046 -r60107
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60046)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60107)
@@ -3,26 +3,11 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur">
 <Super>TECH.RegisteredObject,TECH.Svg.Basis.DomElement</Super>
 
-<Property name="Beslag">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagLijst</Type>
-<Collection>array</Collection>
+<Property name="SvgBox">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
 </Property>
 
-<Property name="Boringen">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen</Type>
-<Collection>array</Collection>
-</Property>
-
-<Property name="Breedte">
-<Type>%Library.Float</Type>
-<Parameter name="SCALE" value="1"/>
-</Property>
-
-<Property name="Hoogte">
-<Type>%Library.Float</Type>
-<Parameter name="SCALE" value="1"/>
-</Property>
-
 <Property name="KADConversieUtils">
 <Type>APPS.Halux.PPS.ALUFrees.KADConversie.Utils</Type>
 </Property>
@@ -49,6 +34,7 @@
 	#Dim SvgBox As TECH.Svg.Basis.SvgBox =BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
    ;kader v/d kaderdeur
   	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+  	Do ##class(Tools.Wlip).%New(238).String("kader")
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
 	  	Set KaderGroup = ..VulTweeRects(KaderdeurObject, Breedte, Hoogte)
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
@@ -73,7 +59,7 @@
 	Do SvgBox.VoegToeElement(KaderGroup)
 	;Verbinders
 	;bij glas heb je geen verbinders
-	
+	Do ##class(Tools.Wlip).%New(238).String("verbinders")
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
   	
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
@@ -88,20 +74,26 @@
 		Do SvgBox.VoegToeElement(VerbindersGroup)
 	}
 	;Beslag 
+	Do ##class(Tools.Wlip).%New(238).String("beslag")
 	If (KaderdeurObject.Toepassing.ItemID'="GL") {
 		#dim Beslag As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
 		Do Beslag.VoegToeBeslagen(KaderdeurObject)
 		Do SvgBox.VoegToeElement(Beslag.Group)
 	} 
+	
 	;Boringen
+	Do ##class(Tools.Wlip).%New(238).String("boringen")
   	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
   	Do Boringen.VoegToeBoringen(KaderdeurObject)
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
+  	Do ##class(Tools.Wlip).%New(238).String("schuine hoeken")
   	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
   		Set SchuinehoekenGroep = ..SchuineHoeken(KaderdeurObject)
   		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
   	}
+  	Set ..SvgBox = SvgBox
+  
 	Try {
 	#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60050 -r60107
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60050)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60107)
@@ -17,8 +17,8 @@
 	#dim Beslagen As array of Prod.GADef.emKadBoring = KaderdeurObject.Beslag
 	#dim Key As %String = ""
 	#dim Beslag As Prod.GADef.emKadBeslag = Beslagen.GetNext(.Key)
+	Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
 	While ($$$HasLength(Beslag)) {
-		Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
 		#dim Posities As array of Prod.GADef.emKadBeslagPos = Beslag.Positie
 		#dim KeyPositie As %String = ""
 		#dim Positie As Prod.GADef.emKadBeslagPos = Posities.GetNext(.KeyPositie)