Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r60351 -r60403
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60351)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60403)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
+<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met links profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PL"
@@ -33,24 +33,166 @@
 	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)").DanReturn(HoekverbinderLinksBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder links onder", "translate(0 450) rotate(270)").DanReturn(HoekverbinderLinksBoven)
-	Do HoekverbinderMakerMock.VerwachtMethodCall("MaakHoekverbinder",CoordinatesList,39,19,"Verbinder rechts onder","translate(350 450) rotate(180)").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)")
 	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 HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New(CoordinatesServiceMock,, HoekverbinderMakerMock)
+	Do ElementToevoegerMock.Verifieer()
+	Do CoordinatesServiceMock.Verifieer()
+	Do HoekverbinderMakerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met 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 
+	
+	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)
+	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 HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
 	
+	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 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)")
+	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 HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	
+	Do ElementToevoegerMock.Verifieer()
 	Do CoordinatesServiceMock.Verifieer()
 	Do HoekverbinderMakerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met rechts profiel">
+<Method name="Test: aanmaken objecten van hoekverbinders verbindingen kaderdeur met onder profiel">
 <Implementation><![CDATA[
+	
+	#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)
+	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 HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	
+	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 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)
+	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 HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , "" , HoekId , Breedte, Hoogte)
+	
+	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 = ""
@@ -62,7 +204,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met los 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"
@@ -75,7 +217,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
+<Method name="Test: aanmaken groepen hoekverbinders verbindingen kaderdeur met los rechts profiel">
 <Implementation><![CDATA[
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	#dim ProfPlaats As %String = "PR"
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60386 -r60403
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60386)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60403)
@@ -82,6 +82,7 @@
 	}
 	;linkse profiel
 	If (ProfPlaats="PL"){
+		Do ##class(Tools.Wlip).%New(238).String("toch het juiste profiel")
 		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
 	}