Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60226 -r60411
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60226)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60411)
@@ -12,14 +12,48 @@
 <Type>APPS.Halux.PPS.ALUFrees.KADConversie.Utils</Type>
 </Property>
 
+<Property name="ElementToevoeger">
+<Type>TECH.Svg.Basis.SvgBox.ElementToevoeger</Type>
+</Property>
+
+<Property name="BasisElementFactory">
+<Type>TECH.Svg.BasisElementFactory</Type>
+</Property>
+
+<Property name="KaderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LosProfielToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HoekverbinderToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SchuinehoekenToevoeger">
+<Type>APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>initvalue:%CacheString</FormalSpec>
+<FormalSpec>ElementToevoeger:TECH.Svg.Basis.SvgBox.ElementToevoeger,BasisElementFactory:TECH.Svg.BasisElementFactory,KaderToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger,LosProfielToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger,HoekverbinderToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger,SchuinehoekenToevoeger:APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..KADConversieUtils = ##class(APPS.Halux.PPS.ALUFrees.KADConversie.Utils).%New()
+	Set ..ElementToevoeger = $$$Inject(ElementToevoeger, ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New())
+	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
+	Set ..KaderToevoeger = $$$Inject(KaderToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New())
+	Set ..LosProfielToevoeger = $$$Inject(LosProfielToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New())
+	Set ..HoekverbinderToevoeger = $$$Inject(HoekverbinderToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New())
+	Set ..SchuinehoekenToevoeger = $$$Inject(SchuinehoekenToevoeger, ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -28,15 +62,14 @@
 <Method name="GenereerSvg">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
-	#Dim SvgBox As TECH.Svg.Basis.SvgBox =BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
+	#Dim SvgBox As TECH.Svg.Basis.SvgBox = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
    ;kader v/d kaderdeur
   	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
-  	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
-	  	Set KaderGroup = KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
+	  	Set KaderGroup = ..KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
 	  	#dim ProfPlaats As %String = "All"
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
@@ -46,39 +79,37 @@
 		} ElseIf (ProfPlaats = "PO") {
 			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		}
-		Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
-		Set LosProfielToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
-		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
-		Do KaderGroup.VoegToeElement(KaderdeurProfiel)
+		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
+		#Dim KaderdeurProfiel As TECH.Svg.Basis.Path = ..LosProfielToevoeger.LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
+		Do ..ElementToevoeger.VoegToeElement(KaderGroup, KaderdeurProfiel)
+		;KaderGroup.VoegToeElement(KaderdeurProfiel)
 	} Else {
 		Set ProfPlaats = "All"
-		Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
+		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
 	Do SvgBox.VoegToeElement(KaderGroup)
 	;Verbinders
-	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
   	} Else {
 		Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
+		Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
 		Do VerbindersGroup.VoegToeID("VerbindersGroep")
-		Do SvgBox.VoegToeElement(VerbindersGroup)
+		Do ..ElementToevoeger.VoegToeElement(SvgBox, VerbindersGroup)
 	}
 	;Beslag 
 	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") {
 		Set Beslag = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
 		Do Beslag.VoegToeBeslagen(KaderdeurObject)
-		Do SvgBox.VoegToeElement(Beslag.Group)
+		Do ..ElementToevoeger.VoegToeElement(SvgBox,Beslag.Group)
 	} 
 	;Boringen
   	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
   	Do Boringen.VoegToeBoringen(KaderdeurObject)
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
   	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
-  		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
-  		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
-  		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
+  		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = ..SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
+  		Do ..ElementToevoeger.VoegToeElement(SvgBox,SchuinehoekenGroep)
   	}
   	Set ..SvgBox = SvgBox
   	
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60226 -r60411
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60226)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60411)
@@ -12,6 +12,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="aTest: standaardgedrag uitvoeren van methodes volledig kaderdeurobject">
+<Implementation><![CDATA[
+	#dim Kaderdeur as Prod.GADef.KaderDeur = ##class(vhTest.Utils.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).StandaardKaderdeurMetBeslagEnBoring()
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(0,0,0,0)
+	#dim Group As TECH.Svg.Basis.Group = BasisElementFactory.MaakGroup()
+	
+	Set KaderToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
+	Set LosProfielToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger).%New()
+	Set HoekverbinderToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
+	Set SchuinehoekenToevoegerMock = ##class(vhTest.Mock.APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
+	Set BasisElementFactoryMock = ##class(vhTest.Mock.TECH.Svg.BasisElementFactory).%New()
+	Set ElementToevoegerMock =  ##class(vhTest.Mock.TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Set Svgkaderdeur = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur).%New(ElementToevoegerMock, BasisElementFactoryMock, KaderToevoegerMock, LosProfielToevoegerMock, HoekverbinderToevoegerMock, SchuinehoekenToevoegerMock)
+	
+	Do BasisElementFactoryMock.VerwachtMethodCall("MaakSvgBox",0,0,800,470).DanReturn(SvgBox)
+	Do KaderToevoegerMock.VerwachtMethodCall("VulDrieRects",Kaderdeur,470,800,0).DanReturn(Group)
+	Do HoekverbinderToevoegerMock.VerwachtMethodCall("VoegToeVerbinder","","All",2,470,800).DanReturn(Group)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",SvgBox,Group)
+	Do LosProfielToevoegerMock.VerwachtMethodCall("LosProfiel")
+	
+	
+	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
+	
+	Do KaderToevoegerMock.Verifieer()
+]]></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()