Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60210 -r60222
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60210)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60222)
@@ -18,14 +18,19 @@
 <Method name="VulVerbinders">
 <FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
+	#dim BreedteVerbinder As %Integer
+	#dim XCirkel As %Integer 
+	#dim YCirkel As %Integer 
+	#dim LengteVerbinder As %Integer 
+	#dim StartVerbinder =1
 	if (HoekId=2) {
 		Set BreedteVerbinder = 61
-		Set LengteVerbinder = 41
 		Set XCirkel =39
+		Set LengteVerbinder = 41
 		Set YCirkel = 19 
 		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	} ElseIf (HoekId=1){
@@ -48,31 +53,31 @@
 	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
 	;benedenprofiel
-	If (ProfPlaats="PO"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+	If (ProfPlaats="PO"){ 
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	;bovenprofiel
 	If (ProfPlaats="PB"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	;linkse profiel
 	If (ProfPlaats="PL"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
 	}
 	;rechtse profiel
 	If (ProfPlaats="PR"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	
 	If (ProfPlaats="All") {
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	
 	Quit VerbinderGroup