Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60351 -r60386
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60351)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60386)
@@ -66,9 +66,6 @@
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	}
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	Do ##class(Tools.Wlip).%New(238).ObjToText(CoordinatesList)
-	Do ##class(Tools.Wlip).%New(238).String(Breedte)
-	Do ##class(Tools.Wlip).%New(238).String(Hoogte)
 	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
 	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
 	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60226 -r60386
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60386)
@@ -40,9 +40,9 @@
 			#dim BeslagPositieZ As %Integer
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
 			If (blnCalcPrm)!$$$Not(KeyPositie?.N) {
-			#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)
+				#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)
 			}	
 			#dim  BeslagPositie As Prod.GADef.emKadBeslagPos= Posities.GetAt(KeyPositie)
 			#dim LengtePositie As %Integer = BeslagPositie.LengtePos