Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r62696 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 62696)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 62697)
@@ -72,20 +72,16 @@
 				#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)
-			}
-			ElseIf(Boring.IsSpecialeBoring()){
+			}ElseIf(Boring.IsSpecialeBoring()) {
 				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, SpecialeBoring)
-			}
-			ElseIf (Boring.BoorDiepte < 0) {
+			}ElseIf (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, DoorBoring)
-			}
-			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
+			}ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0) {
 				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, PuntBoring)
-			}
-			Else {
+			}Else {
 				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, RugBoring)
 			}	
@@ -119,8 +115,7 @@
 	If (ProfielPlaats = "PL") {
 		#dim OffsetX As %Integer = TijdelijkeOffsetX
 		#dim OffsetY As %Integer = TijdelijkeOffsetY
-	}
-	ElseIf (ProfielPlaats = "PR") {
+	}ElseIf (ProfielPlaats = "PR") {
 		Set OffsetX = Breedte- TijdelijkeOffsetX
 		Set OffsetY = TijdelijkeOffsetY
 	}ElseIf (ProfielPlaats = "PB") {
@@ -159,7 +154,6 @@
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
-			Do ##class(Tools.Wlip).%New(238).String(XPos_" "_YPos)
 			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos, XPos)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest)
 		}
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r62696 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 62696)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 62697)
@@ -35,7 +35,6 @@
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()
-	Do ##class(Tools.Wlip).%New(238).String(VmlId_" "_Breedte_" "_Lengte)
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(XPos, YPos, Rotation)	
 	}ElseIf (VmlId ="SD30") {
@@ -62,7 +61,6 @@
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer,XPos:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ##class(Tools.Wlip).%New(238).String(Breedte_" en "_XPos)
 	Do ..KadFreesRect(Breedte, YPos, Rotation, 2, 46, XPos)
 	Do ..KadFreesRect(Breedte, YPos, Rotation, 16, 22, XPos)
 ]]></Implementation>
@@ -77,7 +75,6 @@
 	
 	Set FreesL = FreesL\2*2
 	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Lengte_" "_FreesB_" "_FreesL_" "_Rotation)
 	#dim Rechthoek As TECH.Svg.Basis.Rect
 	If (Rotation = 0) {
 		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte - (FreesL/2), FreesB, FreesL)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r62696 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 62696)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 62697)
@@ -35,7 +35,6 @@
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
 	Set ..VerbinderGroup = ##class(TECH.Svg.Basis.Group).%New()
-
 	Do ..HoekverbinderMaker.ZetVerbinderParameters(KaderdeurObject)
 	
 	#dim ProductiewijzeID As %String = KaderdeurObject.ProductieWijzeGetObjectId()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r62696 -r62697
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 62696)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 62697)
@@ -81,7 +81,7 @@
 		Set ..XCirkel = 39
 		Set ..YCirkel = 19 
 	}
-	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder)
 ]]></Implementation>
 </Method>