Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60411 -r60630
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60411)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60630)
@@ -65,17 +65,42 @@
 	
 	#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)
+	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
    ;kader v/d kaderdeur
-  	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Do ..MaakKader(KaderdeurObject)
+	;Verbinders
+	If (KaderdeurObject.Toepassing.ItemID ="GL") { 	
+  	} Else {
+	  	Do ..MaakVerbinders(KaderdeurObject)
+	}
+	;Beslag 
+	Do ..MaakBeslag(KaderdeurObject)
+	;Boringen
+  	Do ..MaakBoringen(KaderdeurObject)
+  	;Schuine hoeken
+  	Do ..MaakSchuineHoeken(KaderdeurObject)
+
+  	;schrijf svg tag naar file 
+  	Do ..WriteFile(..SvgBox)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="MaakKader">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<ReturnType>TECH.Svg.Basis.Group</ReturnType>
+<Implementation><![CDATA[
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	#dim ProfPlaats As %String
+	Set KaderGroup = ##class(TECH.Svg.Basis.Group).%New()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
 	  	Set KaderGroup = ..KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
-	  	#dim ProfPlaats As %String = "All"
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
 	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
 		If (ProfPlaats = "PR") {
-			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
+			Set LosOffset = (Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		} ElseIf (ProfPlaats = "PO") {
 			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		}
@@ -84,51 +109,74 @@
 		Do ..ElementToevoeger.VoegToeElement(KaderGroup, KaderdeurProfiel)
 		;KaderGroup.VoegToeElement(KaderdeurProfiel)
 	} Else {
-		Set ProfPlaats = "All"
 		Set KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
-	Do SvgBox.VoegToeElement(KaderGroup)
-	;Verbinders
-	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)
-		Do VerbindersGroup.VoegToeID("VerbindersGroep")
-		Do ..ElementToevoeger.VoegToeElement(SvgBox, VerbindersGroup)
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, KaderGroup)
+]]></Implementation>
+</Method>
+
+<Method name="MaakVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProfPlaats As %String
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	If (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
+	} Else {
+		Set ProfPlaats = "All"
 	}
-	;Beslag 
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
+	Do VerbindersGroup.VoegToeID("VerbindersGroep")
+	
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, VerbindersGroup)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBeslag">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
 	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") {
 		Set Beslag = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
 		Do Beslag.VoegToeBeslagen(KaderdeurObject)
-		Do ..ElementToevoeger.VoegToeElement(SvgBox,Beslag.Group)
-	} 
-	;Boringen
-  	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+		Do ..ElementToevoeger.VoegToeElement(..SvgBox,Beslag.Group)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakBoringen">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	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") { 
+	Do ..SvgBox.VoegToeElement(Boringen.Group)
+]]></Implementation>
+</Method>
+
+<Method name="MaakSchuineHoeken">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
+<Implementation><![CDATA[
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	If $$$Not(KaderdeurObject.Toepassing.ItemID = "GL") && $$$Not(KaderdeurObject.ProductieWijzeGetObjectId() = "LPR") { 
   		#dim SchuinehoekenGroep As TECH.Svg.Basis.Group = ..SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
-  		Do ..ElementToevoeger.VoegToeElement(SvgBox,SchuinehoekenGroep)
+  		Do ..ElementToevoeger.VoegToeElement(..SvgBox,SchuinehoekenGroep)
   	}
-  	Set ..SvgBox = SvgBox
-  	
-  	;schrijf svg tag naar file
-  	Do ..WriteFile(SvgBox)
-	Quit
 ]]></Implementation>
 </Method>
 
 <Method name="WriteFile">
 <FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox</FormalSpec>
 <Implementation><![CDATA[
 	Try {
-	#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
-	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
-	Do FileWriter.Open(DoelLocatie)
-	Do FileWriter.WriteXML(SvgBox)
-	Do FileWriter.Close()
-	w "het bestand is weggeschreven"	
+		#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
+		#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+		Do FileWriter.Open(DoelLocatie)
+		Do FileWriter.WriteXML(SvgBox)
+		Do FileWriter.Close()
+		w "het bestand is weggeschreven"	
 	} Catch {
 		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60411 -r60630
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60411)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60630)
@@ -12,7 +12,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: standaardgedrag uitvoeren van methodes volledig kaderdeurobject">
+<Method name="Test: 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()
@@ -30,12 +30,18 @@
 	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 ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",..Matches.Object(SvgBox),..Matches.Object(Group))
+	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
+	Do SchuinehoekenToevoegerMock.VerwachtMethodCall("SchuineHoeken",50,470,800)
 	
 	
 	Do Svgkaderdeur.GenereerSvg(Kaderdeur)
 	
+	Do BasisElementFactoryMock.Verifieer()
+	Do ElementToevoegerMock.Verifieer()
+	Do SchuinehoekenToevoegerMock.Verifieer()
+	Do HoekverbinderToevoegerMock.Verifieer()
 	Do KaderToevoegerMock.Verifieer()
 ]]></Implementation>
 </Method>