Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60222 -r60404
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60222)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60404)
@@ -1,8 +1,35 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Property name="CoordinatesService">
+<Type>TECH.Svg.Services.CoordinatesService</Type>
+</Property>
+
+<Property name="HoekverbinderMaker">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</Type>
+</Property>
+
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CoordinatesService:TECH.Svg.Services.CoordinatesService,ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,HoekverbinderMaker:APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
+	Set ..HoekverbinderMaker = $$$Inject(HoekverbinderMaker, ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New())
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeVerbinder">
 <FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
@@ -18,9 +45,6 @@
 <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()
 	#dim BreedteVerbinder As %Integer
 	#dim XCirkel As %Integer 
@@ -32,54 +56,45 @@
 		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)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	} ElseIf (HoekId=1){
 		Set BreedteVerbinder = 43
 		Set LengteVerbinder = 17
 		Set XCirkel = 23
 		Set YCirkel = 6 
-		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)
 	}
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
-	
-	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
-	
-	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
-	
-	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)")
+	#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)")
+	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
 	;benedenprofiel
 	If (ProfPlaats="PO"){ 
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
 	;bovenprofiel
 	If (ProfPlaats="PB"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
 	;linkse profiel
 	If (ProfPlaats="PL"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
 	}
 	;rechtse profiel
 	If (ProfPlaats="PR"){
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
+		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
 	}
-	
 	If (ProfPlaats="All") {
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ElementToevoeger.VoegToeElement(VerbinderGroup, 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
 ]]></Implementation>
 </Method>