Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60226 -r60268
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60268)
@@ -3,21 +3,24 @@
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
 <Method name="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,LosProfiel:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim KaderOffset As %Integer
 	#dim FillS As %String
 	#dim BorderS As %String
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
 	;Outer Rectangle
-	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-	#dim KDMiddle As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Set KaderOffset = KaderdeurObject.ProfType.Breedte
-	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
@@ -47,14 +50,15 @@
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Hoogte)
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	#dim KDOuter As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	Do ##class(Tools.Wlip).%New(238).String("outer aangemaakt")
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-	#dim KDInner As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
+	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
   	Do KaderGroup.VoegToeElement(KDOuter)
@@ -63,6 +67,18 @@
   	Quit KaderGroup
 ]]></Implementation>
 </Method>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml
===================================================================
diff -u -r60226 -r60268
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger/VulTweeRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60268)
@@ -14,6 +14,23 @@
 	Do $$$AssertEquals(KaderGroep.Rects.Count(),2)
 ]]></Implementation>
 </Method>
+
+<Method name="Test uitvoeren methodes kader met  2 rects">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450
+	#dim Rect as TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,10,10)
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 0,0,350,450).DanReturn(Rect)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 3,3,344,444).DanReturn(Rect)
+	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New(BasisElementFactoryMock)
+	
+	Do KaderToevoeger.VulTweeRects(Kaderdeur, Breedte, Hoogte)
+	
+	Do BasisElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60226 -r60268
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60268)
@@ -1,36 +1,57 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger">
-<Super>%RegisteredObject</Super>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Property name="CoordinatesService">
+<Type>TECH.Svg.Services.CoordinatesService</Type>
+</Property>
+
+<Method name="%OnNew">
+<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="LosProfiel">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesService = ##class(TECH.Svg.Services.CoordinatesService).%New()
-	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
-	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
-	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
-	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+
+	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
+	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
+	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
+	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
 	
-	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0,0)
-	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte,0)
-	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0, Lengte)
-	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
+	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0,0)
+	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte,0)
+	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0, Lengte)
+	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
 	#dim CoordinatesList As %ListOfObject
 	If (ProfPlaats="PL") {
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
 	}
 		If (ProfPlaats="PB") {
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, RightTopOuter, RightTopInner)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, RightTopOuter, RightTopInner)
 	}
 		If (ProfPlaats="PR") {
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightTopInner, RightTopOuter, RightBottomOuter, RightBottomInner)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightTopInner, RightTopOuter, RightBottomOuter, RightBottomInner)
 	}
 		If (ProfPlaats="PO") {
-		Set CoordinatesList = CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
+		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
 	}
-	#dim Path As TECH.Svg.Basis.Path = BasisElementFactory.MaakPath(CoordinatesList)
+	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList)
 		Do Path.SetFill("#F0F0F0")
 		Do Path.SetStroke("black",2)
 		Do Path.SetOpacity(0.5)
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml
===================================================================
diff -u -r60226 -r60268
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60268)
@@ -16,6 +16,26 @@
 	Do $$$AssertEquals(SchuineHoekenGroep.Lines.Count(), 4)
 ]]></Implementation>
 </Method>
+
+<Method name="Test methodes aanmaken van 4 lijnen voor schuine hoeken">
+<Implementation><![CDATA[
+	#dim SchuineHoekenOffset As %Integer =5
+	#dim KaderBreedte As %Integer = 350 
+	#dim KaderHoogte As %Integer = 450 
+	
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set Line = ##class(TECH.Svg.BasisElementFactory).%New().MaakLijn(0,0,0,0)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn", 0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1).DanReturn(Line)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn",KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1).DanReturn(Line)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn", 0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1)).DanReturn(Line)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakLijn", KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1)).DanReturn(Line)
+	Set SchuineHoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New(BasisElementFactoryMock)
+	
+	Do SchuineHoekenToevoeger.SchuineHoeken(SchuineHoekenOffset, KaderBreedte, KaderHoogte)
+	
+	Do BasisElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u -r60226 -r60268
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60268)
@@ -1,25 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BasisElementFactory:TECH.Svg.BasisElementFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="SchuineHoeken">
 <FormalSpec>ProfielBreedte:%Integer,KaderBreedte:%Integer,KaderHoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#dim SchuineHoekenOffset As %Integer = ProfielBreedte
 	Set SchuineHoekGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
-	#dim LeftTopLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
+	#dim LeftTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
 	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
-	#dim RightTopLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
+	#dim RightTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
 	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
-	#dim LeftBottomLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
+	#dim LeftBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
 	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
-	#dim RightBottomLine As TECH.Svg.Basis.Line = BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
+	#dim RightBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
 	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
 	Quit SchuineHoekGroup
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml
===================================================================
diff -u -r60226 -r60268
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60226)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/VulDrieRects/Test.cls.xml	(.../Test.cls.xml)	(revision 60268)
@@ -14,6 +14,24 @@
 	Do $$$AssertEquals(KaderGroep.Rects.Count(),3)
 ]]></Implementation>
 </Method>
+
+<Method name="Test uitvoeren methodes kader met 3 rects">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeur()
+	#dim Breedte As %Integer = 350
+	#dim Hoogte As %Integer = 450
+	#dim Rect as TECH.Svg.Basis.Rect = ##class(TECH.Svg.BasisElementFactory).%New().MaakRechthoek(0,0,10,10)
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 0,0,350,450).DanReturn(Rect)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 50,50,250,350).DanReturn(Rect)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakRechthoek", 8,8,334,434).DanReturn(Rect)
+	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New(BasisElementFactoryMock)
+	
+	Do KaderToevoeger.VulDrieRects(Kaderdeur, Breedte, Hoogte)
+	
+	Do BasisElementFactoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml
===================================================================
diff -u -r60137 -r60268
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60137)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger/Test.cls.xml	(.../Test.cls.xml)	(revision 60268)
@@ -15,6 +15,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test toevoegen van uitvoeren los profiel methodes">
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim Breedte As %Integer = 350 
+	#dim Lengte As %Integer = 450 
+	#dim LosOffset As %Integer = 15
+	#dim ProfPlaats As %String = "PL" 
+	#dim LeftTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
+	#dim LeftBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
+	#dim LeftTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0,0)
+	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(0, Lengte)
+	#dim RightTopInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
+	#dim RightBottomInner As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+	#dim RightTopOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte,0)
+	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
+	
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", LosOffset,LosOffset).DanReturn(LeftTopInner)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", LosOffset,Lengte-LosOffset).DanReturn(LeftBottomInner)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", 0,0).DanReturn(LeftTopOuter)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", 0, Lengte).DanReturn(LeftBottomOuter)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", Breedte - LosOffset,LosOffset).DanReturn(RightTopInner)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", Breedte-LosOffset, Lengte-LosOffset).DanReturn(RightBottomInner)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", Breedte,0).DanReturn(RightTopOuter)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakCoordinaat", Breedte, Lengte).DanReturn(RightBottomOuter)
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set CoordinatesServiceMock = ##class(vhTest.Mock.TECH.Svg.Services.CoordinatesService).%New()
+	Do CoordinatesServiceMock.VerwachtMethodCall("MaakCoordinatenLijstVanCoordinaten",LeftTopInner,LeftTopOuter, LeftBottomOuter, LeftBottomInner).DanReturn(CoordinatesList)
+	#dim Path as TECH.Svg.Basis.Path = ##class(TECH.Svg.BasisElementFactory).%New().MaakPath(CoordinatesList,0)
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakPath", CoordinatesList).DanReturn(Path)
+	Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New(BasisElementFactoryMock, CoordinatesServiceMock)
+	
+	Do LosProfielToevoeger.LosProfiel(Breedte, Lengte, LosOffset, ProfPlaats)
+	
+	Do BasisElementFactoryMock.Verifieer()
+	Do CoordinatesServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test toevoegen van rechts los profiel">
 <Implementation><![CDATA[
 	
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60222 -r60268
--- 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 60268)
@@ -1,7 +1,7 @@
 <?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>
 
 <Method name="VoegToeVerbinder">
 <FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>