Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml
===================================================================
diff -u -r60114 -r60137
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60137)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test toevoegen van los profiel">
+<Method name="Test toevoegen van links los profiel">
 <Implementation><![CDATA[
 	
 	Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
@@ -15,6 +15,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test toevoegen van rechts los profiel">
+<Implementation><![CDATA[
+	
+	Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
+	Set Path = ##class(TECH.Svg.Basis.Path).%New()
+	
+	Set Path = LosProfielToevoeger.LosProfiel(350,450,5,"PR")
+	
+	Do ..AssertSvg(Path,"<path fill=""#F0F0F0"" stroke=""black"" stroke-width=""2"" stroke-dasharray=""none"" opacity="".5"" d=""M345 5 L350 0 L350 450 L345 445z""></path>")
+]]></Implementation>
+</Method>
+
+<Method name="Test toevoegen van onder los profiel">
+<Implementation><![CDATA[
+	
+	Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
+	Set Path = ##class(TECH.Svg.Basis.Path).%New()
+	
+	Set Path = LosProfielToevoeger.LosProfiel(350,450,5,"PO")
+	
+	Do ..AssertSvg(Path,"<path fill=""#F0F0F0"" stroke=""black"" stroke-width=""2"" stroke-dasharray=""none"" opacity="".5"" d=""M345 445 L350 450 L0 450 L5 445z""></path>")
+]]></Implementation>
+</Method>
+
+<Method name="Test toevoegen van boven los profiel">
+<Implementation><![CDATA[
+	
+	Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
+	Set Path = ##class(TECH.Svg.Basis.Path).%New()
+	
+	Set Path = LosProfielToevoeger.LosProfiel(350,450,5,"PB")
+	
+	Do ..AssertSvg(Path,"<path fill=""#F0F0F0"" stroke=""black"" stroke-width=""2"" stroke-dasharray=""none"" opacity="".5"" d=""M5 5 L0 0 L350 0 L345 5z""></path>")
+]]></Implementation>
+</Method>
+
 <Method name="AssertSvg">
 <FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60114 -r60137
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60114)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60137)
@@ -6,8 +6,6 @@
 <Method name="Test: standaardgedrag met toegevoegde svg&apos;s: boringen en beslagen">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Kaderdeur)
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	Do $$$AssertEquals(Svgkaderdeur.SvgBox.SvgBox.Count(),2)
@@ -17,8 +15,6 @@
 <Method name="Test: standaardgedrag met toegevoegde groepen: kader, verbindersgroep en schuine hoeken">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Kaderdeur)
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.Count(),3)
@@ -28,8 +24,6 @@
 <Method name="Test: standaardgedrag van toevoeging kaders">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Kaderdeur)
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(1).Rects.Count(),3)
@@ -39,8 +33,6 @@
 <Method name="Test: standaardgedrag van toevoeging verbinders">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Kaderdeur)
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(2).Groups.Count(),4)
@@ -50,8 +42,6 @@
 <Method name="Test: standaardgedrag van toevoeging schuine hoeken">
 <Implementation><![CDATA[
 	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
-	Do ##class(Tools.Wlip).%New(238).String("hoi")
-	Do ##class(Tools.Wlip).%New(238).ObjToXML(Kaderdeur)
 	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New()
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	Do $$$AssertEquals(Svgkaderdeur.SvgBox.Group.GetAt(3).Lines.Count(),4)
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u -r60130 -r60137
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60130)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60137)
@@ -15,6 +15,45 @@
 	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
 ]]></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()
+	Set ProfPlaats = "PR"
+	Set ProductiewijzeID= ""
+	Set HoekId=2
+	Set Breedte = 350
+	Set Hoogte = 450 
+	Set VerbindersGroup = 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()
+	Set ProfPlaats = "PL"
+	Set ProductiewijzeID= "LPR"
+	Set HoekId=2
+	Set Breedte = 350
+	Set Hoogte = 450 
+	Set VerbindersGroup = 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[
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
+	Set ProfPlaats = "PR"
+	Set ProductiewijzeID= "LPR"
+	Set HoekId=2
+	Set Breedte = 350
+	Set Hoogte = 450 
+	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),2)
+]]></Implementation>
+</Method>
 </Class>