Index: APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossFactory.cls.xml
===================================================================
diff -u -r60343 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 60343)
+++ APPS/Halux/PPS/ALUFrees/Svg/BasisElement/CrossFactory.cls.xml	(.../CrossFactory.cls.xml)	(revision 61908)
@@ -21,11 +21,11 @@
 
 <Method name="MaakCrossDiag">
 <FormalSpec>Width:%Integer,Height:%Integer=1,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
-<ReturnType>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag</ReturnType>
+<ReturnType>TECH.Svg.Tooling.CrossDiag</ReturnType>
 <Implementation><![CDATA[
 	Set CrossDiag =  ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New()
-	Set CrossDiag.TopLine = ..BasisElementFactory.MaakLijn(0,0,Width,Height)
-	Set CrossDiag.BottomLine = ..BasisElementFactory.MaakLijn(0,Height,Width,0)
+	Set CrossDiag.TopLine = ..BasisElementFactory.MaakLijn(0, 0, Width, Height)
+	Set CrossDiag.BottomLine = ..BasisElementFactory.MaakLijn(0, Height, Width, 0)
 	Do CrossDiag.TopLine.SetStroke(kleur)
 	Do CrossDiag.BottomLine.SetStroke(kleur)
 	Quit CrossDiag
@@ -34,11 +34,11 @@
 
 <Method name="MaakCrossVH">
 <FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
-<ReturnType>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH</ReturnType>
+<ReturnType>TECH.Svg.Tooling.CrossVH</ReturnType>
 <Implementation><![CDATA[
 	Set CrossVH = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH).%New()
-	Set CrossVH.HorizontalLine = ..BasisElementFactory.MaakLijn(0,Height/2,Width,Height/2)
-	Set CrossVH.VerticalLine = ..BasisElementFactory.MaakLijn(Width/2,0,Width/2,Height)
+	Set CrossVH.HorizontalLine = ..BasisElementFactory.MaakLijn(0, Height/2, Width, Height/2)
+	Set CrossVH.VerticalLine = ..BasisElementFactory.MaakLijn(Width/2, 0, Width/2, Height)
 	Do CrossVH.HorizontalLine.SetStroke(kleur)
 	Do CrossVH.VerticalLine.SetStroke(kleur)
 	Quit CrossVH
@@ -47,10 +47,10 @@
 
 <Method name="MaakTCross">
 <FormalSpec>Width:%Integer,Height:%Integer,kleur:TECH.Svg.enu.Kleur=##class(TECH.Svg.enu.Kleur).Zwart()</FormalSpec>
-<ReturnType>APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross</ReturnType>
+<ReturnType>TECH.Svg.Tooling.TCross</ReturnType>
 <Implementation><![CDATA[
 	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New()
-	Set TCross.HorizontalLine = ..BasisElementFactory.MaakLijn(0,0, Width, 0)
+	Set TCross.HorizontalLine = ..BasisElementFactory.MaakLijn(0, 0, Width, 0)
 	Do TCross.HorizontalLine.SetStroke(kleur)
 	Set TCross.VerticalLine = ..BasisElementFactory.MaakLijn(Width/2, 0, Width/2, Height)
 	Do TCross.VerticalLine.SetStroke(kleur)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r61337 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 61337)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 61908)
@@ -50,39 +50,39 @@
 			#dim LengtePositie As %Integer = BeslagPositie.LengtePos
 			#dim AfBM As %Integer = BeslagPositie.AfstandRand
 			Set:($$$Not(AfBM)) AfBM = 0
-			#dim TYP As %String= 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 BeslagPositieZ = ..BepaalPositieZ(TYP, ProfType, AfBM, ProfielPlaats)
  			#dim BeslagPositieY As %Integer = LengtePositie
  			
- 			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BeslagPositieX="") ! (BeslagPositieY="") ! (BeslagPositieZ="") {
+ 			If (ProfielPlaats = "FOUT") ! (KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BeslagPositieX="") ! (BeslagPositieY="") ! (BeslagPositieZ="") {
 				Set Positie = Posities.GetNext(.KeyPositie)
 			} else {
 	 			#dim tmpX As %Integer = BeslagPositieX
-	 			#dim tmpY As %Integer =BeslagPositieY
+	 			#dim tmpY As %Integer = BeslagPositieY
 	 			If (ProfielPlaats="") {
 	 				Set ProfielPlaats = "PL"
 	 			}
 	 			If (ProfielPlaats="PB") {
-	  				Set BeslagPositieX=tmpY
-	  				Set BeslagPositieY=tmpX
+	  				Set BeslagPositieX = tmpY
+	  				Set BeslagPositieY = tmpX
 	 			}
 	 			ElseIf (ProfielPlaats="PR") {
-	  				Set BeslagPositieX = KaderdeurObject.Breedte-tmpX
+	  				Set BeslagPositieX = KaderdeurObject.Breedte - tmpX
 	 			}
 	 			ElseIf (ProfielPlaats="PO") {
 	  				Set BeslagPositieX = tmpY
-	  				Set BeslagPositieY = KaderdeurObject.Hoogte-tmpX
+	  				Set BeslagPositieY = KaderdeurObject.Hoogte - tmpX
 	 			}
 	 			If (BeslagPositieY<0) {
-		 			Set BeslagPositieY=KaderdeurObject.Hoogte+BeslagPositieY         ; Substract = add Negative Number
+		 			Set BeslagPositieY = KaderdeurObject.Hoogte + BeslagPositieY        ; Substract = add Negative Number
 	 			}
 	 			If (BeslagPositieX<0) {
-					Set BeslagPositieX=KaderdeurObject.Breedte+BeslagPositieX        ; Substract = add Negative Number
+					Set BeslagPositieX = KaderdeurObject.Breedte + BeslagPositieX       ; Substract = add Negative Number
 				}
 				If (BeslagPositieZ<0) {
-		 			Set BeslagPositieZ=ProfType.Dikte+BeslagPositieZ            ; Substract = add Negative Number
+		 			Set BeslagPositieZ = ProfType.Dikte + BeslagPositieZ            	; Substract = add Negative Number
 	 			}
 	 			
 	 			Do ..MaakBeslag(Beslag, BeslagPositieX, BeslagPositieY, BeslagPositieZ, ProfielPlaats)
@@ -114,30 +114,30 @@
 	#dim BeslagPositieX As %Integer
 	
 	If (TYP="ON+") {
-		Set BeslagPositieX=AfBM
+		Set BeslagPositieX = AfBM
 	}
 	ElseIf (TYP="ON-") {
-		Set BeslagPositieX=ProfType.Breedte-AfBM
+		Set BeslagPositieX = ProfType.Breedte - AfBM
 	}
 	ElseIf (TYP="IN+") {
-		Set BeslagPositieX=ProfType.Breedte 
+		Set BeslagPositieX = ProfType.Breedte 
 	}
  	ElseIf (TYP="IN-") {
-	 	Set BeslagPositieX=ProfType.Breedte
+	 	Set BeslagPositieX = ProfType.Breedte
  	}
  	ElseIf (TYP="BO+") {
-	 	Set BeslagPositieX=AfBM
+	 	Set BeslagPositieX = AfBM
  	}
  	ElseIf (TYP="BO-") {
-	 	Set BeslagPositieX=ProfType.Breedte-AfBM
+	 	Set BeslagPositieX = ProfType.Breedte -AfBM
  	}
  	ElseIf (TYP="EX+") {
-	 	Set BeslagPositieX=0
+	 	Set BeslagPositieX = 0
  	}
  	ElseIf (TYP="EX-") {
-	 	Set BeslagPositieX=0
- 	}ElseIf ($E(TYP,1,2)="BO") {
-	 	Set BeslagPositieX=ProfType.Breedte
+	 	Set BeslagPositieX = 0
+ 	}ElseIf ($E(TYP,1,2) = "BO") {
+	 	Set BeslagPositieX = ProfType.Breedte
  	}Else {
 	 	Quit
  	}
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r61337 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 61337)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 61908)
@@ -30,13 +30,13 @@
 <ReturnType>TECH.Svg.Basis.Path</ReturnType>
 <Implementation><![CDATA[
 
-	#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)
+	#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)
 	
-	#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 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
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r61643 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61643)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61908)
@@ -26,15 +26,15 @@
 	#dim KaderOffset As %Integer
 	#dim FillS As %String
 	#dim BorderS As %String
-	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
 	
 	;Outer Rectangle
-	#dim KDOuter As TECH.Svg.Basis.Rect = ..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)
-	#dim KDMiddle As TECH.Svg.Basis.Rect = ..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
-	#dim KDInner As TECH.Svg.Basis.Rect = ..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. 
@@ -47,11 +47,11 @@
 		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	}Else {
-		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDOuter.SetFill()
-		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDMiddle.SetFill()
-		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
 		Do KDInner.SetFill()
 	}
 	
@@ -71,10 +71,10 @@
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
 	
-	#dim KDOuter As TECH.Svg.Basis.Rect = ..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")
-	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
+	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(), , "2")
+	#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())
   	
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61902 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61902)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61908)
@@ -70,28 +70,28 @@
 			#dim BoorType As %String = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 			If (BoorType="Z") {
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
-				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos,YPos,10,10,Rotation)
-				Do ..ElementToevoeger.VoegToeElement(..Group,ZijBoring)
+				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos, YPos, 10, 10, Rotation)
+				Do ..ElementToevoeger.VoegToeElement(..Group, ZijBoring)
 			}
 			ElseIf(Boring.IsSpecialeBoring()){
-				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos,YPos,10,10,Kleur)
-				Do ..ElementToevoeger.VoegToeElement(..Group,SpecialeBoring)
+				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos, YPos, 10, 10, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(..Group, SpecialeBoring)
 			}
 			ElseIf (Boring.BoorDiepte < 0) {
-				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
-				Do ..ElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(..Group, DoorBoring)
 			}
 			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
-				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos,YPos,10,10,Kleur)
-				Do ..ElementToevoeger.VoegToeElement(..Group,PuntBoring)
+				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(..Group, PuntBoring)
 			}
 			Else {
-				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10,Kleur)
-				Do ..ElementToevoeger.VoegToeElement(..Group,RugBoring)
+				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos, 10, 10, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(..Group, RugBoring)
 			}	
 			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
-				Set DoorBoring =  ..BoringElementFactory.MaakDoorBoring(XPos,YPos,10,10,Kleur)
-				Do ..ElementToevoeger.VoegToeElement(..Group,DoorBoring)
+				Set DoorBoring =  ..BoringElementFactory.MaakDoorBoring(XPos, YPos, 10, 10, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(..Group, DoorBoring)
 			}
 			Set Boring = Boringen.GetNext(.Key)
 		}
@@ -131,8 +131,8 @@
 		Set OffsetY = Hoogte - TijdelijkeOffsetX
 	}
 	
-	#Dim SvgBox As TECH.Svg.Basis.SvgBox = ..BasisElementFactory.MaakSvgBox(BPosX - OffsetX, BPosY - OffsetY,Hoogte,Breedte)
-	#Dim Rechthoek As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte, Hoogte)
+	#Dim SvgBox As TECH.Svg.Basis.SvgBox = ..BasisElementFactory.MaakSvgBox(BPosX - OffsetX, BPosY - OffsetY, Hoogte, Breedte)
+	#Dim Rechthoek As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0, 0, Breedte, Hoogte)
 	Do Rechthoek.SetStroke(##class(TECH.Svg.enu.Kleur).Blauw())
 	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Geen())
 
@@ -165,45 +165,45 @@
 		ElseIf (BoorType="Z") {
 			Set GrootteBoring = 14
 			Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
-			Set ZijBoring =  ..BoringElementFactory.MaakZijBoring(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
+			Set ZijBoring =  ..BoringElementFactory.MaakZijBoring(XPos, YPos, GrootteBoring, GrootteBoring, Rotation, Kleur)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox,ZijBoring)
 		}
 		ElseIf(Boring.IsSpecialeBoring()){
 			Set GrootteBoring = 10
 			if (YPos < 0) {
-			Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
+			Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos), ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur)
 			} Else {
-				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
+				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(##class(TECH.Math).Abs(XPos), YPos, GrootteBoring, GrootteBoring, Kleur)
 			}
-			Do ..ElementToevoeger.VoegToeElement(SvgBox,SpecialeBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox, SpecialeBoring)
 		}
 		ElseIf (Boring.BoorDiepte < 0) {
 			Set GrootteBoring = 10
-			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,GrootteBoring/2, Kleur)
-			Do ..ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)
+			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, GrootteBoring/2, Kleur)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox, DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter < 0) || (Boring.BoorDiepte=0){
 			Set GrootteBoring = 10
 			if (YPos < 0) {
-				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
+				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur)
 			} Else {
-				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
+				Set PuntBoring = ..BoringElementFactory.MaakPuntBoring(XPos, ##class(TECH.Math).Abs(YPos), GrootteBoring, GrootteBoring, Kleur)
 			}
-			Do ..ElementToevoeger.VoegToeElement(SvgBox,PuntBoring)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox, PuntBoring)
 		}
 		Else {
 			#dim Straal As %Integer = GrootteBoring/2
 			If (GrootteBoring<10) {
-				Set RugBoring = ..BoringElementFactory.MaakPuntBoring(XPos, YPos,10,10, Kleur)
-				Do ..ElementToevoeger.VoegToeElement(SvgBox,RugBoring)
+				Set RugBoring = ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur)
+				Do ..ElementToevoeger.VoegToeElement(SvgBox, RugBoring)
 			}
-			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos,YPos,Straal, Kleur)
-			Do ..ElementToevoeger.VoegToeElement(SvgBox,DoorBoring)	
+			Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur)
+			Do ..ElementToevoeger.VoegToeElement(SvgBox, DoorBoring)	
 		}	
 	
 	}
 	
-	Do ..ElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
+	Do ..ElementToevoeger.VoegToeElement(SvgBox, Rechthoek)
 	Do SvgBox.VoegToeID("beslag")
 	Do ..Group.VoegToeElement(SvgBox)
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r61598 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61598)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61908)
@@ -87,25 +87,25 @@
 
 <Method name="MaakHoekverbinderLinksBoven">
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder links boven","translate(0 0) rotate(0)")
+<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder links boven", "translate(0 0) rotate(0)")
 ]]></Implementation>
 </Method>
 
 <Method name="MaakHoekverbinderRechtsBoven">
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder rechts boven","translate("_..Breedte_" 0) rotate(90)")
+<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder rechts boven", "translate("_..Breedte_" 0) rotate(90)")
 ]]></Implementation>
 </Method>
 
 <Method name="MaakHoekverbinderLinksOnder">
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder links onder","translate(0 "_..Hoogte_") rotate(270)")
+<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder links onder", "translate(0 "_..Hoogte_") rotate(270)")
 ]]></Implementation>
 </Method>
 
 <Method name="MaakHoekverbinderRechtsOnder">
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
-<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder rechts onder","translate("_..Breedte_" "_..Hoogte_") rotate(180)")
+<Implementation><![CDATA[	Quit ..MaakHoekverbinder("Verbinder rechts onder", "translate("_..Breedte_" "_..Hoogte_") rotate(180)")
 ]]></Implementation>
 </Method>
 
@@ -116,7 +116,7 @@
 <Implementation><![CDATA[
 	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 
-	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(..CoordinatesList,1)
+	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(..CoordinatesList, 1)
 	Do Path.SetFill("#A0A0A0")
 	Do Path.SetOpacity(0.5)
 
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r61901 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61901)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61908)
@@ -72,7 +72,7 @@
  	Set Description = Description_KadVertaler.Vertaal("lblAfmeting_Hoogte_Kort")_":"_KaderdeurObject.Hoogte_" mm x "_KadVertaler.Vertaal("lblAfmeting_Breedte_Kort")_":"_KaderdeurObject.Breedte_" mm"
  	Set Description = Description_$S(KaderdeurObject.Toepassing.ItemID="GL":"", 1:"  "_KaderdeurObject.ProfAfw.ItemID)
  	Set Description = Description_$S(KaderdeurObject.Vulling.Vulling="":"", 1:"  "_KaderdeurObject.Vulling.Vulling.OmsGet(Taal))
- 	#dim TextBox As TECH.Svg.Basis.Text = ..BasisElementFactory.MaakText(0,0,Description)
+ 	#dim TextBox As TECH.Svg.Basis.Text = ..BasisElementFactory.MaakText(0, 0, Description)
  	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(TextBox))
 ]]></Implementation>
 </Method>
@@ -82,7 +82,7 @@
 <Implementation><![CDATA[
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
-	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte, "http://www.w3.org/2000/svg", "http://www.w3.org/1999/xlink")
+	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0, 0, Hoogte, Breedte, "http://www.w3.org/2000/svg", "http://www.w3.org/1999/xlink")
     ;Kader v/d kaderdeur
 	Do ..MaakKader(KaderdeurObject)
 	;Verbinders
@@ -136,12 +136,12 @@
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
 		If (ProfPlaats = "PR") {
-			Set LosOffset = (Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
+			Set LosOffset = (Breedte\1) - ((Breedte - (2*LosOffset)) \ 1 + (LosOffset))
 		} ElseIf (ProfPlaats = "PO") {
-			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
+			Set LosOffset = (Breedte\1) - ((Breedte - (2*LosOffset))\1 + (LosOffset))
 		}
 		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
-		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = ..LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
+		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = ..LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset, ProfPlaats)
 		Do ..ElementToevoeger.VoegToeElement(KaderGroup, KaderdeurProfiel)
 		;KaderGroup.VoegToeElement(KaderdeurProfiel)
 	} Else {
@@ -191,7 +191,7 @@
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
 	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
   		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = ..SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
-  		Do ..ElementToevoeger.VoegToeElement(..SvgBox,SchuinehoekenGroep)
+  		Do ..ElementToevoeger.VoegToeElement(..SvgBox, SchuinehoekenGroep)
   	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u -r61337 -r61908
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 61337)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 61908)
@@ -27,19 +27,19 @@
 	Set SchuineHoekGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
 	
-	#dim LeftTopLine As TECH.Svg.Basis.Line = ..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)
 	
-	#dim RightTopLine As TECH.Svg.Basis.Line = ..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)
 	
-	#dim LeftBottomLine As TECH.Svg.Basis.Line = ..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)
 	
-	#dim RightBottomLine As TECH.Svg.Basis.Line = ..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)