Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(revision 60114)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test toevoegen van 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,"PL")
+	
+	Do ..AssertSvg(Path,"<path fill=""#F0F0F0"" stroke=""black"" stroke-width=""2"" stroke-dasharray=""none"" opacity="".5"" d=""M5 5 L0 0 L0 450 L5 445z""></path>")
+]]></Implementation>
+</Method>
+
+<Method name="AssertSvg">
+<FormalSpec>SvgObject:TECH.Svg.Basis.DomElement,VerwachteXml:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Do $$$AssertEquals(##class(TECH.StringUtils).Replace($$ObjToXML^vhLib(SvgObject), $$$CRLF,""), VerwachteXml)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger/Test.cls.xml	(revision 60114)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: aanmaken groepen hoekverbinders verbindingen standaardkaderdeur">
+<Implementation><![CDATA[
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
+	Set ProfPlaats = "PL"
+	Set ProductiewijzeID= ""
+	Set HoekId=2
+	Set Breedte = 350
+	Set Hoogte = 450
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(ProductiewijzeID , ProfPlaats , HoekId , Breedte, Hoogte)
+	Do $$$AssertEquals(VerbindersGroup.Groups.Count(),4)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(revision 60114)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test aanmaken van 4 lijnen voor schuine hoeken">
+<Implementation><![CDATA[
+	Set ProfielBreedte=5
+	Set KaderBreedte = 350 
+	Set KaderHoogte = 450 
+	Set SchuineHoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
+	Set SchuineHoekenGroep = ##class(TECH.Svg.Basis.Group).%New()
+	
+	Set SchuineHoekenGroep = SchuineHoekenToevoeger.SchuineHoeken(ProfielBreedte, KaderBreedte, KaderHoogte)
+	
+	Do $$$AssertEquals(SchuineHoekenGroep.Lines.Count(), 4)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(revision 60114)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.VulDrieRects.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test aanmaken 3 rects voor kader">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	Set Breedte = 350
+	Set Hoogte = 450
+	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
+	#dim KaderGroep = ##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroep = KaderToevoeger.VulDrieRects(Kaderdeur, Breedte, Hoogte)
+	Do $$$AssertEquals(KaderGroep.Rects.Count(),3)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/Test.cls.xml	(revision 60114)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test aanmaken objecten voor hoekverbinder">
+<Implementation><![CDATA[
+	
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set StartVerbinder =1
+	Set BreedteVerbinder = 61
+	Set LengteVerbinder = 41
+	Set XCirkel =39
+	Set YCirkel = 19 
+	Set LeftTopBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+	Set RightTopBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+	Set RightInnerBottomBreed = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+	Set InnerBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+	Set LeftInnerBottomBreed = BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+	Set LeftBottomBreed = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
+	Do CoordinatesList.Insert(LeftTopBreed)
+	Do CoordinatesList.Insert(RightTopBreed)
+	Do CoordinatesList.Insert(RightInnerBottomBreed)
+	Do CoordinatesList.Insert(InnerBreed)
+	Do CoordinatesList.Insert(LeftInnerBottomBreed)
+	Do CoordinatesList.Insert(LeftBottomBreed)
+	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,0,0,"Verbinder links boven")
+	
+	Do $$$AssertEquals(VerbinderLinksBoven.Group.Circles.Count(),2)
+	Do $$$AssertEquals(VerbinderLinksBoven.Group.Paths.Count(),1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(revision 60114)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.GenereerSvg">
+<Super>vhUnitTest.TestCase</Super>
+
+<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)
+]]></Implementation>
+</Method>
+
+<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)
+]]></Implementation>
+</Method>
+
+<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)
+]]></Implementation>
+</Method>
+
+<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)
+]]></Implementation>
+</Method>
+
+<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)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(revision 60114)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger.VulTweeRects.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test aanmaken 2 rects voor kader">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	Set Breedte = 350
+	Set Hoogte = 450
+	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
+	#dim KaderGroep = ##class(TECH.Svg.Basis.Group).%New()
+	Set KaderGroep = KaderToevoeger.VulTweeRects(Kaderdeur, Breedte, Hoogte)
+	Do $$$AssertEquals(KaderGroep.Rects.Count(),2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>