Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen/Test.cls.xml
===================================================================
diff -u -r60211 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen/Test.cls.xml	(.../Test.cls.xml)	(revision 60211)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
@@ -6,11 +6,9 @@
 <Method name="Test toevoegen van Boringen aan groep beslag">
 <Implementation><![CDATA[
 	Set Beslag = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
-	Set Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
+	#dim Kaderdeur As APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	
 	Do Beslag.VoegToeBeslagen(Kaderdeur)
-	
-	Do $$$AssertEquals(Beslag.Group.SvgBox.Count(),1)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml
===================================================================
diff -u -r60134 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 60226)
@@ -19,14 +19,15 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set Group = ##class(TECH.Svg.Basis.Group).%New()
 	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New(Width, Height, kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	Do Group.VoegToeTransform("rotate("_Rotation_" "_(Width/2)_" "_(Height/2)_")")
 	Do Group.VoegToeElement(TCross)
-	DO ..SvgBox.VoegToeElement(Group)
-	DO ..SvgBox.VoegToeID("zijboring")
+	Do ElementToevoeger.VoegToeElement(..SvgBox,Group)
+	Do ..SvgBox.VoegToeID("zijboring")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml
===================================================================
diff -u -r60114 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
@@ -6,8 +6,8 @@
 <Method name="Test aanmaken 3 rects voor kader">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
-	Set Breedte = 350
-	Set Hoogte = 450
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450
 	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
 	#dim KaderGroep = ##class(TECH.Svg.Basis.Group).%New()
 	Set KaderGroep = KaderToevoeger.VulDrieRects(Kaderdeur, Breedte, Hoogte)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u -r60197 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60197)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60226)
@@ -7,19 +7,19 @@
 <FormalSpec>ProfielBreedte:%Integer,KaderBreedte:%Integer,KaderHoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set SchuineHoekenOffset = ProfielBreedte
+	#dim SchuineHoekenOffset As %Integer = ProfielBreedte
 	Set SchuineHoekGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
-	Set LeftTopLine = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
+	#dim LeftTopLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
 	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
-	Set RightTopLine = BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
+	#dim RightTopLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
 	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
-	Set LeftBottomLine = BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
+	#dim LeftBottomLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
 	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
-	Set RightBottomLine = BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
+	#dim RightBottomLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
 	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
 	Quit SchuineHoekGroup
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml
===================================================================
diff -u -r60134 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/PuntBoring.cls.xml	(.../PuntBoring.cls.xml)	(revision 60226)
@@ -19,11 +19,12 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height,Kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	DO ..SvgBox.VoegToeElement(CrossDiag)
-	DO ..SvgBox.VoegToeID("puntboring")
+	Do ElementToevoeger.VoegToeElement(..SvgBox,CrossDiag)
+	Do ..SvgBox.VoegToeID("puntboring")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/SpecialeBoring.cls.xml	(.../SpecialeBoring.cls.xml)	(revision 60226)
@@ -19,10 +19,11 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New(Width,Height, kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	DO ..SvgBox.VoegToeElement(CrossVH)
+	DO ElementToevoeger.VoegToeElement(..SvgBox, CrossVH)
 	DO ..SvgBox.VoegToeID("specialeBoring")
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r60134 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 60226)
@@ -25,24 +25,23 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	;Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set ..BasisElementFactory =##class(TECH.Svg.BasisElementFactory).%New()
 	Set CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height, Kleur)
-	Set Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
+	#dim Circle As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
 	Do Circle.SetFill(Kleur)
 	Set ..SvgBox = ..BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	DO ..SvgBox.VoegToeElement(CrossDiag)
-	DO ..SvgBox.VoegToeElement(Circle)
-	DO ..SvgBox.VoegToeID("rugboring")
+	Do ElementToevoeger.VoegToeElement(..SvgBox,CrossDiag)
+	Do ElementToevoeger.VoegToeElement(..SvgBox,Circle)
+	Do ..SvgBox.VoegToeID("rugboring")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="XMLExport">
 <FormalSpec><![CDATA[top:%String,format:%String,namespaces:%XML.Namespaces,attrs,createId:%String,typeAttr:%String,&oreflist,&idlist,initialIndent:%String,local:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
+<Implementation><![CDATA[	Quit ..SvgBox.XMLExport("svg", .format, .namespaces, .attrs, .createId, "", .oreflist, .idlist, .initialIndent, .local )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60210 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60210)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60226)
@@ -68,12 +68,12 @@
 <Method name="SD30FREES">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set Diameter = 30
-	Set MiddleOffset = 2.9
-	Set Offset = (Diameter/2) - MiddleOffset
-	Set OffsetOpposite = (Diameter/2) + MiddleOffset
-	Set P1 = 0.28
-	Set P2 = 29.72
+	#dim Diameter As %Integer = 30
+	#dim MiddleOffset As %Integer = 2.9
+	#dim Offset As %Integer = (Diameter/2) - MiddleOffset
+	#dim OffsetOpposite As %Integer = (Diameter/2) + MiddleOffset
+	#dim P1 As %Integer = 0.28
+	#dim P2 As %Integer = 29.72
 	
 	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
@@ -82,12 +82,12 @@
 <Method name="SD35FREES">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set Diameter = 30
-	Set MiddleOffset = 7.5
-	Set Offset = (Diameter/2) - MiddleOffset
-	Set OffsetOpposite = (Diameter/2) + MiddleOffset
-	Set P1 = 1.69
-	Set P2 = 33.31
+	#dim Diameter As %Integer = 30
+	#dim MiddleOffset As %Integer = 7.5
+	#dim Offset As %Integer = (Diameter/2) - MiddleOffset
+	#dim OffsetOpposite As %Integer = (Diameter/2) + MiddleOffset
+	#dim P1 As %Integer = 1.69
+	#dim P2 As %Integer = 33.31
 	
 	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
@@ -97,8 +97,9 @@
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set FreesB=16
-	Set FreesL=14
+	#dim FreesB As %Integer =16
+	#dim FreesL As %Integer =14
+	#dim Rect As TECH.Svg.Basis.Rect
 	
 	If (Rotation = 0) {
 		Set Rect = BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60226)
@@ -34,29 +34,31 @@
 		#dim Posities As array of Prod.GADef.emKadBeslagPos = Beslag.Positie
 		#dim KeyPositie As %String = ""
 		#dim Positie As Prod.GADef.emKadBeslagPos = Posities.GetNext(.KeyPositie)
-		Set blnCalcPrm=1
+		#dim blnCalcPrm As %Integer = 1
 		While ($$$HasLength(Positie)) {
+			#dim BeslagPositieX As %Integer
+			#dim BeslagPositieZ As %Integer
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
 			If (blnCalcPrm)!$$$Not(KeyPositie?.N) {
-			Set ProfielPlaats = KaderdeurObject.ProfielPlaatsGet(Beslag, Key, KeyPositie)
-			Set ProfType = KaderdeurObject.ProfType
+			#dim ProfielPlaats As %String = KaderdeurObject.ProfielPlaatsGet(Beslag, Key, KeyPositie)
+			#dim ProfType As Res.PI.ProfType = KaderdeurObject.ProfType
 			Set blnCalcPrm = $S(KeyPositie?.N:0,1:1)
 			}	
-			Set BeslagPositie = Posities.GetAt(KeyPositie)
-			Set LengtePositie = BeslagPositie.LengtePos
-			Set AfBM = BeslagPositie.AfstandRand
+			#dim  BeslagPositie As Prod.GADef.emKadBeslagPos= Posities.GetAt(KeyPositie)
+			#dim LengtePositie As %Integer = BeslagPositie.LengtePos
+			#dim AfBM As %Integer = BeslagPositie.AfstandRand
 			Set:($$$Not(AfBM)) AfBM = 0
-			Set TYP = Beslag.Beslag.AfstandBoorMaat.GetAt("TYP")
+			#dim TYP As %String= Beslag.Beslag.AfstandBoorMaat.GetAt("TYP")
 			Set:(TYP="") TYP="ON+"
 			Set BeslagPositieX = ..BepaalPositieX(TYP, ProfType, AfBM, ProfielPlaats)
  			Set BeslagPositieZ = ..BepaalPositieZ(TYP,ProfType,AfBM,ProfielPlaats)
- 			Set BeslagPositieY=LengtePositie
+ 			#dim BeslagPositieY As %Integer = LengtePositie
  			
  			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BeslagPositieX="") ! (BeslagPositieY="") ! (BeslagPositieZ="") {
 				Set Positie = Posities.GetNext(.KeyPositie)
 			} else {
-	 			Set tmpX=BeslagPositieX
-	 			Set tmpY=BeslagPositieY
+	 			#dim tmpX As %Integer = BeslagPositieX
+	 			#dim tmpY As %Integer =BeslagPositieY
 	 			If (ProfielPlaats="") {
 	 				Set ProfielPlaats = "PL"
 	 			}
@@ -105,6 +107,7 @@
 <FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim BeslagPositieX As %Integer
 	If (TYP="ON+") {
 		Set BeslagPositieX=AfBM
 	}
@@ -128,6 +131,8 @@
  	}
  	ElseIf (TYP="EX-") {
 	 	Set BeslagPositieX=0
+ 	}ElseIf ($E(TYP,1,2)="BO") {
+	 	Set BeslagPositieX=ProfType.Breedte
  	}Else {
 	 	Quit
  	}
@@ -139,6 +144,7 @@
 <FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim BeslagPositieZ As %Integer
 	If ($E(TYP,1,2)="ON") {
 	 	Set BeslagPositieZ=0
  	}
@@ -147,8 +153,6 @@
 	}
  	ElseIf (TYP="IN-")!(TYP="EX-") {
 	 	Set BeslagPositieZ=ProfType.Dikte-AfBM
- 	}ElseIf ($E(TYP,1,2)="BO") {
-	 	Set BeslagPositieX=ProfType.Breedte
  	}
  	Else {
 	 	Quit
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60226)
@@ -13,11 +13,11 @@
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
 	;Outer Rectangle
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
+	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-	Set KDMiddle = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDMiddle As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Set KaderOffset = KaderdeurObject.ProfType.Breedte
-	Set KDInner = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
@@ -51,10 +51,10 @@
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-	Set KDInner = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
+	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
   	Do KaderGroup.VoegToeElement(KDOuter)
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60137 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60137)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60226)
@@ -17,7 +17,7 @@
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
-	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.Count(),3)
+	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Groups.Count(),3)
 ]]></Implementation>
 </Method>
 
@@ -26,7 +26,7 @@
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
-	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(1).Rects.Count(),3)
+	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Groups.GetAt(1).Rects.Count(),3)
 ]]></Implementation>
 </Method>
 
@@ -35,7 +35,7 @@
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
-	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(2).Groups.Count(),4)
+	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Groups.GetAt(2).Groups.Count(),4)
 ]]></Implementation>
 </Method>
 
@@ -44,7 +44,7 @@
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
-	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(3).Lines.Count(),4)
+	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Groups.GetAt(3).Lines.Count(),4)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml
===================================================================
diff -u -r60114 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
@@ -6,8 +6,8 @@
 <Method name="Test aanmaken 2 rects voor kader">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
-	Set Breedte = 350
-	Set Hoogte = 450
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450
 	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
 	#dim KaderGroep = ##class(TECH.Svg.Basis.Group).%New()
 	Set KaderGroep = KaderToevoeger.VulTweeRects(Kaderdeur, Breedte, Hoogte)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/DoorBoring.cls.xml	(.../DoorBoring.cls.xml)	(revision 60226)
@@ -19,12 +19,13 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Circle = BasisElementFactory.MaakCirkel( Straal,Straal,Straal)
+	#dim Circle As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel( Straal,Straal,Straal)
 	Do Circle.SetFill(Kleur)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox(PosX-Straal,PosY-Straal, Straal*2, Straal*2)
-	DO ..SvgBox.VoegToeElement(Circle)
-	DO ..SvgBox.VoegToeID("doorboring")
+	Do ElementToevoeger.VoegToeElement(..SvgBox,Circle)
+	Do ..SvgBox.VoegToeID("doorboring")
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder.cls.xml	(.../Hoekverbinder.cls.xml)	(revision 60226)
@@ -24,6 +24,7 @@
 <Method name="MaakHoekverbinder">
 <FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer,ID:%String,Transform:%String="translate(0 0) rotate(0)"</FormalSpec>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,1)
 	Set Circle1 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(XCirkel,YCirkel,3)
 	Set Circle2 = ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(YCirkel,XCirkel,3)
@@ -32,9 +33,9 @@
 	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
 	
-	Do ..Group.VoegToeElement(Circle1)
-	Do ..Group.VoegToeElement(Circle2)
-	Do ..Group.VoegToeElement(Path)
+	Do ElementToevoeger.VoegToeElement(..Group, Circle1)
+	Do ElementToevoeger.VoegToeElement(..Group, Circle2)
+	Do ElementToevoeger.VoegToeElement(..Group, Path)
 	Do ..Group.VoegToeTransform(Transform)
 	Do ..Group.VoegToeID(ID)
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60197 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60197)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60226)
@@ -8,32 +8,29 @@
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
-	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
-	Set RightTopInner = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
-	Set LeftBottomInner = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
-	Set RightBottomInner =BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
+	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
+	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
+	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
 	
-	Set LeftTopOuter = BasisElementFactory.MaakCoordinaat(0,0)
-	Set RightTopOuter = BasisElementFactory.MaakCoordinaat(Breedte,0)
-	Set LeftBottomOuter = BasisElementFactory.MaakCoordinaat(0, Lengte)
-	Set RightBottomOuter = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
-	
+	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0,0)
+	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte,0)
+	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0, Lengte)
+	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
+	#dim CoordinatesList As %ListOfObject
 	If (ProfPlaats="PL") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PB") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, RightTopOuter, RightTopInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PR") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightTopInner, RightTopOuter, RightBottomOuter, RightBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 		If (ProfPlaats="PO") {
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(CoordinatesList)
 		Do Path.SetFill("#F0F0F0")
 		Do Path.SetStroke("black",2)
 		Do Path.SetOpacity(0.5)
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml
===================================================================
diff -u -r60191 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 60191)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/Zijboring/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
@@ -14,7 +14,7 @@
 <Method name="Test invulling objecten DoorBoring">
 <Implementation><![CDATA[
 		Set Zijboring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(15,15,5,5)
-		Do $$$AssertEquals(Zijboring.SvgBox.Group.GetAt(1).TCrosss.Count(),1)
+		Do $$$AssertEquals(Zijboring.SvgBox.Groups.GetAt(1).TCrosss.Count(),1)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60209 -r60226
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60209)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60226)
@@ -29,15 +29,15 @@
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Breedte = KaderdeurObject.Breedte
-	Set Hoogte = KaderdeurObject.Hoogte
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
 	#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()
   	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
 	  	Set KaderGroup = KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
-	  	Set ProfPlaats = "All"
+	  	#dim ProfPlaats As %String = "All"
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
@@ -77,7 +77,7 @@
   	;Schuine hoeken
   	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
   		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
-  		Set SchuinehoekenGroep = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
+  		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
   		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
   	}
   	Set ..SvgBox = SvgBox
@@ -92,14 +92,14 @@
 <FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-	Set DoelLocatie = "D:\CacheExport\2010v2\DEV1\test2.xml"
-	Set FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 	Do FileWriter.Open(DoelLocatie)
 	Do FileWriter.WriteXML(SvgBox)
 	Do FileWriter.Close()
 	w "het bestand is weggeschreven"	
 	} Catch {
-		Set Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml
===================================================================
diff -u -r60114 -r60226
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
@@ -5,9 +5,9 @@
 
 <Method name="Test aanmaken van 4 lijnen voor schuine hoeken">
 <Implementation><![CDATA[
-	Set ProfielBreedte=5
-	Set KaderBreedte = 350 
-	Set KaderHoogte = 450 
+	#dim ProfielBreedte As %Integer =5
+	#dim KaderBreedte As %Integer = 350 
+	#dim KaderHoogte As %Integer = 450 
 	Set SchuineHoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
 	Set SchuineHoekenGroep = ##class(TECH.Svg.Basis.Group).%New()