Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(revision 60122)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VulDrieRects">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%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
+	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
+	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
+	Set KDMiddle = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
+	Set KaderOffset = KaderdeurObject.ProfType.Breedte
+	Set KDInner = 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 (Los = 0){
+		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
+		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
+		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	}Else {
+		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDOuter.SetFill()
+		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDMiddle.SetFill()
+		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+		Do KDInner.SetFill()
+	}
+	Do KaderGroup.VoegToeElement(KDOuter)
+	Do KaderGroup.VoegToeElement(KDMiddle)
+	Do KaderGroup.VoegToeElement(KDInner)
+		
+	Quit KaderGroup
+]]></Implementation>
+</Method>
+
+<Method name="VulTweeRects">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+  	Do KaderGroup.VoegToeID("kader")
+	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
+	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
+	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
+	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
+	Set KDInner = 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)
+  	Do KaderGroup.VoegToeElement(KDInner)
+ 
+  	Quit KaderGroup
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(revision 60122)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.LosProfielToevoeger">
+<Super>%RegisteredObject</Super>
+
+<Method name="LosProfiel">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
+	Set RightTopInner = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
+	Set LeftBottomInner = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
+	Set RightBottomInner =BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
+	
+	Set LeftTopOuter = BasisElementFactory.MaakCoordinaat(0,0)
+	Set RightTopOuter = BasisElementFactory.MaakCoordinaat(Breedte,0)
+	Set LeftBottomOuter = BasisElementFactory.MaakCoordinaat(0, Lengte)
+	Set RightBottomOuter = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
+	
+	#dim CoordinatesList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	If (ProfPlaats="PL") {
+		Do CoordinatesList.Insert(LeftTopInner)
+		Do CoordinatesList.Insert(LeftTopOuter)
+		Do CoordinatesList.Insert(LeftBottomOuter)
+		Do CoordinatesList.Insert(LeftBottomInner)
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
+	}
+		If (ProfPlaats="PB") {
+		Do CoordinatesList.Insert(LeftTopInner)
+		Do CoordinatesList.Insert(LeftTopOuter)
+		Do CoordinatesList.Insert(RightTopOuter)
+		Do CoordinatesList.Insert(RightTopInner)
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
+	}
+		If (ProfPlaats="PR") {
+		Do CoordinatesList.Insert(RightTopInner)
+		Do CoordinatesList.Insert(RightTopOuter)
+		Do CoordinatesList.Insert(RightBottomOuter)
+		Do CoordinatesList.Insert(RightBottomInner)
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
+	}
+		If (ProfPlaats="PO") {
+		Do CoordinatesList.Insert(RightBottomInner)
+		Do CoordinatesList.Insert(RightBottomOuter)
+		Do CoordinatesList.Insert(LeftBottomOuter)
+		Do CoordinatesList.Insert(LeftBottomInner)
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
+	}
+		Do Path.SetFill("#F0F0F0")
+		Do Path.SetStroke("black",2)
+		Do Path.SetOpacity(0.5)
+	Quit Path
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(revision 60122)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger">
+<Super>%RegisteredObject</Super>
+
+<Method name="SchuineHoeken">
+<FormalSpec>ProfielBreedte,KaderBreedte,KaderHoogte</FormalSpec>
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set SchuineHoekenOffset = ProfielBreedte
+	Set SchuineHoekGroup =##class(TECH.Svg.Basis.Group).%New()
+	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
+	#dim LeftTopLine As TECH.Svg.Basis.Line
+	#dim RightTopLine As TECH.Svg.Basis.Line
+	#dim LeftBottomLine As TECH.Svg.Basis.Line
+	#dim RightBottomLine As TECH.Svg.Basis.Line
+	Set LeftTopLine = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
+	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
+	Set RightTopLine =BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
+	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
+	Set LeftBottomLine = BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
+	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
+	Set RightBottomLine = 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
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(revision 60122)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger">
+<Super>%RegisteredObject</Super>
+
+<Method name="VoegToeVerbinder">
+<FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	
+	If (ProductiewijzeID = "LPR") {
+		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, ProfPlaats)
+	} Else {
+		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, "All")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VulVerbinders">
+<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set CoordinatesList = ##class(%ListOfObjects).%New()
+	Set StartVerbinder =1
+	if (HoekId=2) {
+		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)
+	
+	} ElseIf (HoekId=1){
+		Set BreedteVerbinder = 43
+		Set LengteVerbinder = 17
+		Set XCirkel = 23
+		Set YCirkel = 6 
+		Set LeftTopSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
+		Set RightTopSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
+		Set RightInnerBottomSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
+		Set InnerSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
+		Set LeftInnerBottomSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
+		Set LeftBottomSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
+		Do CoordinatesList.Insert(LeftTopSmal)
+		Do CoordinatesList.Insert(RightTopSmal)
+		Do CoordinatesList.Insert(RightInnerBottomSmal)
+		Do CoordinatesList.Insert(InnerSmal)
+		Do CoordinatesList.Insert(LeftInnerBottomSmal)
+		Do CoordinatesList.Insert(LeftBottomSmal)
+	}
+	#dim VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
+	
+	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
+	
+	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
+	
+	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
+	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
+	;benedenprofiel
+	If (ProfPlaats="PO"){
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+	}
+	;bovenprofiel
+	If (ProfPlaats="PB"){
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+	}
+	;linkse profiel
+	If (ProfPlaats="PL"){
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+	}
+	;rechtse profiel
+	If (ProfPlaats="PR"){
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+	}
+	
+	If (ProfPlaats="All") {
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
+		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
+	}
+	
+	Quit VerbinderGroup
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60107 -r60122
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60107)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60122)
@@ -34,66 +34,64 @@
 	#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()
-  	Do ##class(Tools.Wlip).%New(238).String("kader")
+  	Set KaderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.KaderToevoeger).%New()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
-	  	Set KaderGroup = ..VulTweeRects(KaderdeurObject, Breedte, Hoogte)
+	  	Set KaderGroup = KaderToevoeger.VulTweeRects(KaderdeurObject, Breedte, Hoogte)
+	  	Set ProfPlaats = "All"
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
-	  	#dim ProfPlaats As %String = KaderdeurObject.Onderdelen.GetNext("")
+	  	Set ProfPlaats  = KaderdeurObject.Onderdelen.GetNext("")
 	  	#dim LosOffset As %Integer = KaderdeurObject.ProfType.Breedte
 		If (ProfPlaats = "PR") {
 			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		} ElseIf (ProfPlaats = "PO") {
 			Set LosOffset =(Breedte\1)-((Breedte-(2*LosOffset))\1+(LosOffset))
 		}
-
-		;Groep aanmaken met 3 rechthoeken
-		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte, 1)
-		;Path aanmaken v/h profiel en toevoegen aan de kadergroep
-		#Dim KDProf As TECH.Svg.Basis.Path = ..LosProfiel(Breedte, Hoogte, LosOffset,ProfPlaats)
-		Do KaderGroup.VoegToeElement(KDProf)
-		
+		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)
 	} Else {
-		;Groep aanmaken met 3 rechthoeken
-		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte)
+		Set ProfPlaats = "All"
+		Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
 	Do SvgBox.VoegToeElement(KaderGroup)
 	;Verbinders
-	;bij glas heb je geen verbinders
-	Do ##class(Tools.Wlip).%New(238).String("verbinders")
+	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
-  	
-  	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
-	  	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,ProfPlaats)
-		Do VerbindersGroup.VoegToeID("VerbindersGroep")
-		Do SvgBox.VoegToeElement(VerbindersGroup)
-	} Else {
+  	} Else {
 		Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,"All")
+		Set VerbindersGroup = HoekverbinderToevoeger.VoegToeVerbinder(KaderdeurObject.ProductieWijzeGetObjectId(), ProfPlaats ,KaderdeurObject.ProfType.Hoek.ItemID, Breedte, Hoogte)
 		Do VerbindersGroup.VoegToeID("VerbindersGroep")
 		Do SvgBox.VoegToeElement(VerbindersGroup)
 	}
 	;Beslag 
-	Do ##class(Tools.Wlip).%New(238).String("beslag")
 	If (KaderdeurObject.Toepassing.ItemID'="GL") {
 		#dim Beslag As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen).%New()
 		Do Beslag.VoegToeBeslagen(KaderdeurObject)
 		Do SvgBox.VoegToeElement(Beslag.Group)
 	} 
-	
 	;Boringen
-	Do ##class(Tools.Wlip).%New(238).String("boringen")
   	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
   	Do Boringen.VoegToeBoringen(KaderdeurObject)
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
   	Do ##class(Tools.Wlip).%New(238).String("schuine hoeken")
   	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
-  		Set SchuinehoekenGroep = ..SchuineHoeken(KaderdeurObject)
+  		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
+  		Set SchuinehoekenGroep = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
   		Do SvgBox.VoegToeElement(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()
@@ -104,239 +102,9 @@
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 	}
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="SchuineHoeken">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set SchuineHoekenOffset = KaderdeurObject.ProfType.Breedte
-	Set SchuineHoekGroup =##class(TECH.Svg.Basis.Group).%New()
-	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
-	#dim LeftTopLine As TECH.Svg.Basis.Line
-	#dim RightTopLine As TECH.Svg.Basis.Line
-	#dim LeftBottomLine As TECH.Svg.Basis.Line
-	#dim RightBottomLine As TECH.Svg.Basis.Line
-	Set LeftTopLine = BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
-	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
-	Set RightTopLine =BasisElementFactory.MaakLijn(KaderdeurObject.Breedte,0,KaderdeurObject.Breedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
-	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
-	Set LeftBottomLine = BasisElementFactory.MaakLijn(0,KaderdeurObject.Hoogte\1,SchuineHoekenOffset\1,KaderdeurObject.Hoogte-(SchuineHoekenOffset\1))
-	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
-	Set RightBottomLine = BasisElementFactory.MaakLijn(KaderdeurObject.Breedte\1,KaderdeurObject.Hoogte\1,KaderdeurObject.Breedte-(SchuineHoekenOffset\1), KaderdeurObject.Hoogte -(SchuineHoekenOffset\1))
-	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
-	Quit SchuineHoekGroup
-]]></Implementation>
-</Method>
-
-<Method name="LosProfiel">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set LeftTopInner  = BasisElementFactory.MaakCoordinaat(LosOffset,LosOffset)
-	Set RightTopInner = BasisElementFactory.MaakCoordinaat(Breedte - LosOffset,LosOffset)
-	Set LeftBottomInner = BasisElementFactory.MaakCoordinaat(LosOffset,Lengte-LosOffset)
-	Set RightBottomInner =BasisElementFactory.MaakCoordinaat(Breedte-LosOffset, Lengte-LosOffset)
-	
-	Set LeftTopOuter = BasisElementFactory.MaakCoordinaat(0,0)
-	Set RightTopOuter = BasisElementFactory.MaakCoordinaat(Breedte,0)
-	Set LeftBottomOuter = BasisElementFactory.MaakCoordinaat(0, Lengte)
-	Set RightBottomOuter = BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
-	
-	#dim CoordinatesList As %ListOfObjects = ##class(%ListOfObjects).%New()
-	
-	If (ProfPlaats="PL") {
-		Do CoordinatesList.Insert(LeftTopInner)
-		Do CoordinatesList.Insert(LeftTopOuter)
-		Do CoordinatesList.Insert(LeftBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
-	}
-		If (ProfPlaats="PB") {
-		Do CoordinatesList.Insert(LeftTopInner)
-		Do CoordinatesList.Insert(LeftTopOuter)
-		Do CoordinatesList.Insert(RightTopOuter)
-		Do CoordinatesList.Insert(RightTopInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
-	}
-		If (ProfPlaats="PR") {
-		Do CoordinatesList.Insert(RightTopInner)
-		Do CoordinatesList.Insert(RightTopOuter)
-		Do CoordinatesList.Insert(RightBottomOuter)
-		Do CoordinatesList.Insert(RightBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
-	}
-		If (ProfPlaats="PO") {
-		Do CoordinatesList.Insert(RightBottomInner)
-		Do CoordinatesList.Insert(RightBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomOuter)
-		Do CoordinatesList.Insert(LeftBottomInner)
-		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
-	}
-		Do Path.SetFill("#F0F0F0")
-		Do Path.SetStroke("black",2)
-		Do Path.SetOpacity(0.5)
-	Quit Path
-]]></Implementation>
-</Method>
-
-<Method name="VulDrieRects">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
-<Private>1</Private>
-<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
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
-	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-	Set KDMiddle = BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
-	Set KaderOffset = KaderdeurObject.ProfType.Breedte
-	Set KDInner = 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 (Los = 0){
-		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
-		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-		Do KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-		Do KDMiddle.SetStrokeDashArray($S(BorderS="LD":"2",BorderS="D":"1",1:"none"))
-		Do KDInner.SetFill($S($$$HasLength(KaderdeurObject.Vulling.Vulling):##class(TECH.Svg.enu.Kleur).LichtGroen(),1:##class(TECH.Svg.enu.Kleur).Wit()))
-		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
-	}Else {
-		Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-		Do KDOuter.SetFill()
-		Do KDMiddle.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-		Do KDMiddle.SetFill()
-		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-		Do KDInner.SetFill()
-	}
-	Do KaderGroup.VoegToeElement(KDOuter)
-	Do KaderGroup.VoegToeElement(KDMiddle)
-	Do KaderGroup.VoegToeElement(KDInner)
-		
-	Quit KaderGroup
-]]></Implementation>
-</Method>
-
-<Method name="VulTweeRects">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
-  	Do KaderGroup.VoegToeID("kader")
-	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	Set KDOuter = BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
-	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
-	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
-	Set KDInner = 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)
-  	Do KaderGroup.VoegToeElement(KDInner)
- 
-  	Quit KaderGroup
-]]></Implementation>
-</Method>
-
-<Method name="VulVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set CoordinatesList = ##class(%ListOfObjects).%New()
-	Set StartVerbinder =1
-	if (HoekId=2) {
-		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)
-	
-	} ElseIf (HoekId=1){
-		Set BreedteVerbinder = 43
-		Set LengteVerbinder = 17
-		Set XCirkel = 23
-		Set YCirkel = 6 
-		Set LeftTopSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,StartVerbinder)
-		Set RightTopSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,StartVerbinder)
-		Set RightInnerBottomSmal = BasisElementFactory.MaakCoordinaat(BreedteVerbinder,LengteVerbinder)
-		Set InnerSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,LengteVerbinder)
-		Set LeftInnerBottomSmal= BasisElementFactory.MaakCoordinaat(LengteVerbinder,BreedteVerbinder)
-		Set LeftBottomSmal = BasisElementFactory.MaakCoordinaat(StartVerbinder,BreedteVerbinder)
-		Do CoordinatesList.Insert(LeftTopSmal)
-		Do CoordinatesList.Insert(RightTopSmal)
-		Do CoordinatesList.Insert(RightInnerBottomSmal)
-		Do CoordinatesList.Insert(InnerSmal)
-		Do CoordinatesList.Insert(LeftInnerBottomSmal)
-		Do CoordinatesList.Insert(LeftBottomSmal)
-	}
-	#dim VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
-	Set VerbinderLinksBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
-	
-	Set VerbinderRechtsBoven = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsBoven.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
-	
-	Set VerbinderLinksOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderLinksOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
-	
-	Set VerbinderRechtsOnder = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder).%New()
-	Do VerbinderRechtsOnder.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
-	;benedenprofiel
-	If (ProfPlaats="PO"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-	}
-	;bovenprofiel
-	If (ProfPlaats="PB"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-	}
-	;linkse profiel
-	If (ProfPlaats="PL"){
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-	}
-	;rechtse profiel
-	If (ProfPlaats="PR"){
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-	}
-	
-	If (ProfPlaats="All") {
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsOnder.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderRechtsBoven.Group)
-		Do VerbinderGroup.VoegToeElement(VerbinderLinksBoven.Group)
-	}
-	
-	Quit VerbinderGroup
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="DomElementState">