Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml
===================================================================
diff -u -r60351 -r61598
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml	(.../Test.cls.xml)	(revision 60351)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker/Test.cls.xml	(.../Test.cls.xml)	(revision 61598)
@@ -6,80 +6,133 @@
 <Method name="Test aanmaken objecten voor hoekverbinder links boven">
 <Implementation><![CDATA[
 	
-	#dim XCirkel As %Integer = 39
-	#dim YCirkel As %Integer = 19 
-	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringLosProfiel()
 	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
+	
+	Do HoekverbinderMaker.ZetVerbinderParameters(Kaderdeur)
+
 	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
-	Set VerbinderLinksBoven = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	Set VerbinderLinksBoven = HoekverbinderMaker.MaakHoekverbinderLinksBoven()
 	
 	Do $$$AssertEquals(VerbinderLinksBoven.Group.Circles.Count(),2)
 	Do $$$AssertEquals(VerbinderLinksBoven.Group.Paths.Count(),1)
 ]]></Implementation>
 </Method>
 
-<Method name="Test uitvoeren methodes voor hoekverbinder links boven">
+<Method name="Test uitvoeren methodes voor aanmaken van hoekverbinder links boven">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
 	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
-	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim XCirkel As %Integer = 39
-	#dim YCirkel As %Integer = 19 
-	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
-	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(CoordinatesList,1)
-	#dim Cirkel As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(5,5,3)
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",CoordinatesList,1).DanReturn(Path)
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel)
-	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel)
-	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock)
-
-	Do HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()	
+	;#dim Coordinateslist As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Coordinateslist As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(1,1,61,1,61,1,61,41,41,41,41,61,1,61)
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(Coordinateslist)
+	#dim Cirkel1 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(39,19,3)
+	#dim Cirkel2 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(19,39,3)
 	
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",1,1,61,1,61,1,61,41,41,41,41,61,1,61).DanReturn(Coordinateslist)
+	Do ##class(Tools.Wlip).%New(238).String(Coordinateslist)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",Coordinateslist,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel1)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel2)
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock, CoordinatesServiceMock)
+
+	Do HoekverbinderMaker.ZetVerbinderParameters(Kaderdeur)
+	Do HoekverbinderMaker.MaakHoekverbinderLinksBoven()
+
+	Do CoordinatesServiceMock.Verifieer()
 	Do BasisElementFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test aanmaken objecten voor hoekverbinder links onder">
+<Method name="Test uitvoeren methodes voor aanmaken van hoekverbinder rechts boven">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
 	
-	#dim XCirkel As %Integer = 39
-	#dim YCirkel As %Integer = 19 
-	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
-	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
-	Set VerbinderLinksOnder = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_450_") rotate(270)")
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()	
+	;#dim Coordinateslist As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Coordinateslist As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(1,1,61,1,61,1,61,41,41,41,41,61,1,61)
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(Coordinateslist)
+	#dim Cirkel1 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(39,19,3)
+	#dim Cirkel2 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(19,39,3)
 	
-	Do $$$AssertEquals(VerbinderLinksOnder.Group.Circles.Count(),2)
-	Do $$$AssertEquals(VerbinderLinksOnder.Group.Paths.Count(),1)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",1,1,61,1,61,1,61,41,41,41,41,61,1,61).DanReturn(Coordinateslist)
+	Do ##class(Tools.Wlip).%New(238).String(Coordinateslist)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",Coordinateslist,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel1)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel2)
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock, CoordinatesServiceMock)
+
+	Do HoekverbinderMaker.ZetVerbinderParameters(Kaderdeur)
+	Do HoekverbinderMaker.MaakHoekverbinderRechtsBoven()
+
+	Do CoordinatesServiceMock.Verifieer()
+	Do BasisElementFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test aanmaken objecten voor hoekverbinder rechts onder">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
 	
-	#dim XCirkel As %Integer = 39
-	#dim YCirkel As %Integer = 19 
-	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
-	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
-	Set VerbinderRechtsOnder = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_350_" "_450_") rotate(180)")
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()	
+	;#dim Coordinateslist As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Coordinateslist As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(1,1,61,1,61,1,61,41,41,41,41,61,1,61)
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(Coordinateslist)
+	#dim Cirkel1 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(39,19,3)
+	#dim Cirkel2 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(19,39,3)
 	
-	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Circles.Count(),2)
-	Do $$$AssertEquals(VerbinderRechtsOnder.Group.Paths.Count(),1)
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",1,1,61,1,61,1,61,41,41,41,41,61,1,61).DanReturn(Coordinateslist)
+	Do ##class(Tools.Wlip).%New(238).String(Coordinateslist)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",Coordinateslist,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel1)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel2)
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock, CoordinatesServiceMock)
+
+	Do HoekverbinderMaker.ZetVerbinderParameters(Kaderdeur)
+	Do HoekverbinderMaker.MaakHoekverbinderRechtsOnder()
+
+	Do CoordinatesServiceMock.Verifieer()
+	Do BasisElementFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test aanmaken objecten voor hoekverbinder rechts boven">
+<Method name="Test aanmaken objecten voor hoekverbinder links onder">
 <Implementation><![CDATA[
 	
-	#dim XCirkel As %Integer = 39
-	#dim YCirkel As %Integer = 19 
-	#dim CoordinatesList As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
-	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder
-	Set VerbinderRechtsBoven = HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_350_" 0) rotate(90)")
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
 	
-	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Circles.Count(),2)
-	Do $$$AssertEquals(VerbinderRechtsBoven.Group.Paths.Count(),1)
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set BasisElementFactory	= ##class(TECH.Svg.BasisElementFactory).%New()	
+	;#dim Coordinateslist As %ListOfObjects = ##class(vhTest.Utils.TECH.Svg.Basis.Path.Coordinates.CoordinatesList).CoordinatesListHoekverbinderBreed()
+	#dim Coordinateslist As %ListOfObjects = CoordinatesService.MaakCoordinatenLijstVanPunten(1,1,61,1,61,1,61,41,41,41,41,61,1,61)
+	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(Coordinateslist)
+	#dim Cirkel1 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(39,19,3)
+	#dim Cirkel2 As TECH.Svg.Basis.Circle = BasisElementFactory.MaakCirkel(19,39,3)
+	
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten",1,1,61,1,61,1,61,41,41,41,41,61,1,61).DanReturn(Coordinateslist)
+	Do ##class(Tools.Wlip).%New(238).String(Coordinateslist)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath",Coordinateslist,1).DanReturn(Path)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",39,19,3).DanReturn(Cirkel1)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCirkel",19,39,3).DanReturn(Cirkel2)
+	Set HoekverbinderMaker = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New(BasisElementFactoryMock, CoordinatesServiceMock)
+
+	Do HoekverbinderMaker.ZetVerbinderParameters(Kaderdeur)
+	Do HoekverbinderMaker.MaakHoekverbinderRechtsOnder()
+
+	Do CoordinatesServiceMock.Verifieer()
+	Do BasisElementFactoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r61338 -r61598
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 61338)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 61598)
@@ -3,231 +3,135 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
+<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	#dim ProfPlaats As %String = "PL"
-	#dim ProductiewijzeID As %String = ""
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
-	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringLosProfiel()
+	
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
+	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met links profiel">
+<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met los links profiel">
 <Implementation><![CDATA[
 	
-	#dim ProfPlaats As %String = "PL"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringLosProfiel()
+	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
-	Set HoekverbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderLinksOnder =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
 	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven").DanReturn(HoekverbinderLinksBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)").DanReturn(HoekverbinderLinksOnder)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)")
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderLinksBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderLinksOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("ZetVerbinderParameters", Kaderdeur)
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set ElementToevoegerMock = ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksOnder.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksBoven.Group)
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,ElementToevoegerMock, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , ..Matches.Object(VerbinderGroup) ).ExactAantalKeer(2)
+
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(ElementToevoegerMock, HoekverbinderMakerMock)
 	
-	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do ElementToevoegerMock.Verifieer()
-	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met rechts profiel">
+<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met los rechts profiel">
 <Implementation><![CDATA[
 	
-	#dim ProfPlaats As %String = "PR"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringRechtsLosProfiel()
+	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
-	Set HoekverbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderRechtsOnder =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
 	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)").DanReturn(HoekverbinderRechtsBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)").DanReturn(HoekverbinderRechtsOnder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("ZetVerbinderParameters", Kaderdeur)
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set ElementToevoegerMock = ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsBoven.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsOnder.Group)
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,ElementToevoegerMock, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , ..Matches.Object(VerbinderGroup) ).ExactAantalKeer(2)
+
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(ElementToevoegerMock, HoekverbinderMakerMock)
 	
-	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do ElementToevoegerMock.Verifieer()
-	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met boven profiel">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringBovenLosProfiel()
+	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	#dim ProfPlaats As %String = "PB"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
-	Set HoekverbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderLinksBoven =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
 	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven").DanReturn(HoekverbinderLinksBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)").DanReturn(HoekverbinderRechtsBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)")
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderLinksBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("ZetVerbinderParameters", Kaderdeur)
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set ElementToevoegerMock = ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsBoven.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksBoven.Group)
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,ElementToevoegerMock, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , ..Matches.Object(VerbinderGroup) ).ExactAantalKeer(2)
+
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(ElementToevoegerMock, HoekverbinderMakerMock)
 	
-	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do ElementToevoegerMock.Verifieer()
-	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met onder profiel">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringOnderLosProfiel()
+	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	#dim ProfPlaats As %String = "PO"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
-	Set HoekverbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderLinksOnder =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
 	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)")
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)").DanReturn(HoekverbinderLinksOnder)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)").DanReturn(HoekverbinderRechtsOnder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("ZetVerbinderParameters", Kaderdeur)
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set ElementToevoegerMock = ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsOnder.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksOnder.Group)
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,ElementToevoegerMock, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , ..Matches.Object(VerbinderGroup) ).ExactAantalKeer(2)
+
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(ElementToevoegerMock, HoekverbinderMakerMock)
 	
-	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do ElementToevoegerMock.Verifieer()
-	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met alle verbinders">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
 	
-	
-	#dim ProductiewijzeID As %String = ""
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
-	Set CoordinatesList = ##class(TECH.Svg.Services.CoordinatesService).%New().MaakCoordinatenLijstVanPunten(1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61)
-	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanPunten", 1, 1, 61, 1, 61, 1, 61, 41, 41, 41, 41, 61, 1, 61).DanReturn(CoordinatesList)
-	Set HoekverbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderLinksOnder =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
-	Set HoekverbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links boven")
-	Set HoekverbinderLinksBoven =  ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New().MaakHoekverbinder(CoordinatesList, 39, 19, "Verbinder links onder", "translate(0 450) rotate (270)")
-
 	Set HoekverbinderMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.HoekverbinderMaker).%New()
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links boven").DanReturn(HoekverbinderLinksBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts boven", "translate(350 0) rotate(90)").DanReturn(HoekverbinderRechtsBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)").DanReturn(HoekverbinderLinksOnder)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)").DanReturn(HoekverbinderRechtsOnder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderRechtsBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderLinksOnder").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinderLinksBoven").DanReturn(Hoekverbinder)
+	Do HoekverbinderMakerMock.VerwachtMethodCall("ZetVerbinderParameters", Kaderdeur)
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Set ElementToevoegerMock = ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsOnder.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksOnder.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderLinksBoven.Group)
-	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , HoekverbinderRechtsBoven.Group)
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,ElementToevoegerMock, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement", ..Matches.Object(VerbinderGroup) , ..Matches.Object(VerbinderGroup) ).ExactAantalKeer(4)
+
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(ElementToevoegerMock, HoekverbinderMakerMock)
 	
-	Do HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , "" , HoekId , Breedte, Hoogte)
+	Do HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do ElementToevoegerMock.Verifieer()
-	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met rechts profiel">
-<Implementation><![CDATA[
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	#dim ProfPlaats As %String = "PR"
-	#dim ProductiewijzeID As %String = ""
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
-	
-	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
-]]></Implementation>
-</Method>
-
-<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los links profiel">
-<Implementation><![CDATA[
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	#dim ProfPlaats As %String = "PL"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
-	
-	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
-]]></Implementation>
-</Method>
-
 <Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
 <Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoringRechtsLosProfiel()
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
-	#dim ProfPlaats As %String = "PR"
-	#dim ProductiewijzeID As %String = "LPR"
-	#dim HoekId As %Integer = 2
-	#dim Breedte As %Integer = 350
-	#dim Hoogte As %Integer = 450 
-	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	#dim VerbindersGroup As TECH.Svg.Basis.Group = HoekverbinderToevoeger.VoegToeVerbinders(Kaderdeur)
 	
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r61353 -r61598
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61353)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61598)
@@ -3,10 +3,6 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
 <Super>TECH.Mockable</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>
@@ -15,93 +11,74 @@
 <Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
 </Property>
 
+<Property name="VerbinderGroup">
+<Type>TECH.Svg.Basis.Group</Type>
+<Private>1</Private>
+</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>
+<FormalSpec>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>
+<Method name="VoegToeVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <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()
 	If (ProductiewijzeID = "LPR") {
-		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, ProfPlaats)
+	  	#dim ProfPlaats As %String = KaderdeurObject.Onderdelen.GetNext("")
+		Do ..VulVerbinders(ProfPlaats)
 	} Else {
-		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, "All")
+		Do ..VulVerbinders("All")
 	}
+
+	Quit ..VerbinderGroup
 ]]></Implementation>
 </Method>
 
 <Method name="VulVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
+<FormalSpec>ProfPlaats:%String</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	#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 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){
-		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)
+	If (ProfPlaats = "All") {
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
 	}
-	
-	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	#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"){ 
-	    ;Set VerbindersArray = ..HoekverbinderMaker.MaakHoekverbinder("LO","RO")
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+	ElseIf (ProfPlaats = "PO") {   ; Profiel Onder 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().Group)
 	}
-	;bovenprofiel
-	If (ProfPlaats="PB"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
+	ElseIf (ProfPlaats = "PB") {   ; Profiel Boven 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
 	}
-	;linkse profiel
-	If (ProfPlaats="PL"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
+	ElseIf (ProfPlaats = "PL") {   ; Profiel Links 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderLinksOnder().Group)
 	}
-	;rechtse profiel
-	If (ProfPlaats="PR"){
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
-		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsOnder.Group)
+	ElseIf (ProfPlaats = "PR") {   ; Profiel Rechts 
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsBoven().Group)
+		Do ..ElementToevoeger.VoegToeElement(..VerbinderGroup, ..HoekverbinderMaker.MaakHoekverbinderRechtsOnder().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)
-	}
 	
-	Quit VerbinderGroup
+	Quit ..VerbinderGroup
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r60452 -r61598
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 60452)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61598)
@@ -5,39 +5,133 @@
 
 <Property name="BasisElementFactory">
 <Type>TECH.Svg.BasisElementFactory</Type>
+<Private>1</Private>
 </Property>
 
+<Property name="KaderdeurObject">
+<Type>Prod.GADef.KaderDeur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CoordinatesService">
+<Type>TECH.Svg.Services.CoordinatesService</Type>
+</Property>
+
+<Property name="CoordinatesList">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Breedte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="XCirkel">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="YCirkel">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory,CoordinatesService:TECH.Svg.Services.CoordinatesService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="ZetVerbinderParameters">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	Set ..KaderdeurObject = KaderdeurObject
+	Set ..Breedte = KaderdeurObject.Breedte
+	Set ..Hoogte = KaderdeurObject.Hoogte
+
+	#dim BreedteVerbinder As %Integer
+	#dim LengteVerbinder As %Integer 
+	#dim StartVerbinder As %Integer
+
+	#dim HoekId = ..KaderdeurObject.ProfType.Hoek.ItemID
+	If (HoekId = 1) {    ; bij Breed profiel 
+		Set StartVerbinder = 1
+		Set BreedteVerbinder = 43
+		Set LengteVerbinder = 17
+		Set ..XCirkel = 23
+		Set ..YCirkel = 6 
+	} 
+	ElseIf (HoekId = 2) {   ; bij smal profiel 
+		Set StartVerbinder = 1
+		Set BreedteVerbinder = 61
+		Set LengteVerbinder = 41
+		Set ..XCirkel = 39
+		Set ..YCirkel = 19 
+	}
+	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
+]]></Implementation>
+</Method>
+
+<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>
+</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>
+</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>
+</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>
+</Method>
+
 <Method name="MaakHoekverbinder">
-<FormalSpec>CoordinatesList:%ListOfObjects,XCirkel:%Integer,YCirkel:%Integer,ID:%String,Transform:%String="translate(0 0) rotate(0)"</FormalSpec>
+<FormalSpec>GroepID:%String,Transform:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder</ReturnType>
 <Implementation><![CDATA[
 	Set Hoekverbinder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList,1)
-	#dim Circle1 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(XCirkel,YCirkel,3)
-	#dim Circle2 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(YCirkel,XCirkel,3)
+
+	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(..CoordinatesList,1)
 	Do Path.SetFill("#A0A0A0")
 	Do Path.SetOpacity(0.5)
-	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+
+	#dim Circle1 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(..XCirkel, ..YCirkel, 3)
+	#dim Circle2 As TECH.Svg.Basis.Circle = ..BasisElementFactory.MaakCirkel(..YCirkel, ..XCirkel, 3)
+	Do Circle1.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGrijs())
+	Do Circle2.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGrijs())
 	
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
 	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Circle1)
 	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Circle2)
 	Do ElementToevoeger.VoegToeElement(Hoekverbinder.Group, Path)
 	Do Hoekverbinder.Group.VoegToeTransform(Transform)
-	Do Hoekverbinder.Group.VoegToeID(ID)
+	Do Hoekverbinder.Group.VoegToeID(GroepID)
+
 	Quit Hoekverbinder
 ]]></Implementation>
 </Method>