Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60107 -r71453
--- 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 71453)
@@ -12,414 +12,197 @@
 <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>
 </Method>
 
+<Method name="VulInStream">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,DevObj:%Library.Stream,Taal:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(..SvgBox))
+	
+	#dim KadVertaler As Prod.GADef.KadVertaler = ##class(Prod.GADef.KadVertaler).%New(Taal)
+	#dim Description As %String =KadVertaler.Vertaal("Vooraanzicht")_": "
+ 	Set Description = Description_KadVertaler.Vertaal("lblAfmeting_Hoogte_Kort")_":"_KaderdeurObject.Hoogte_" mm x "_KadVertaler.Vertaal("lblAfmeting_Breedte_Kort")_":"_KaderdeurObject.Breedte_" mm"
+ 	Set Description = Description_$S(KaderdeurObject.Toepassing.ItemID="GL":"", 1:"  "_KaderdeurObject.ProfAfw.ItemID)
+ 	Set Description = Description_$S(KaderdeurObject.Vulling.Vulling="":"", 1:"  "_KaderdeurObject.Vulling.Vulling.OmsGet(Taal))
+ 	#dim TextBox As TECH.Svg.Basis.Text = ..BasisElementFactory.MaakText(0, 0, ..GeefTekstVoorSvgDRAWTEXT(Description))
+ 	Set TextBox.ID = "DRAWTEXT"
+ 	
+ 	Do WRITE^XMLWRITE(DevObj, $$ObjToXML^vhLib(TextBox))
+]]></Implementation>
+</Method>
+
 <Method name="GenereerSvg">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set Breedte = KaderdeurObject.Breedte
-	Set Hoogte = KaderdeurObject.Hoogte
-	#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")
-  	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
-	  	Set KaderGroup = ..VulTweeRects(KaderdeurObject, Breedte, Hoogte)
-  	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
-	  	#dim ProfPlaats As %String = 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)
-		
-	} Else {
-		;Groep aanmaken met 3 rechthoeken
-		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte)
-	}
-	Do SvgBox.VoegToeElement(KaderGroup)
+	#dim Breedte As %Integer = KaderdeurObject.Breedte
+	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
+	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0, 0, Hoogte, Breedte, "http://www.w3.org/2000/svg", "http://www.w3.org/1999/xlink")
+	Set ..SvgBox.ViewBox = 0_" "_0_" "_Breedte_" "_Hoogte
+	Set ..SvgBox.ID = "groupDRAW"
+    ;Kader v/d kaderdeur
+	Do ..MaakKader(KaderdeurObject)
 	;Verbinders
-	;bij glas heb je geen verbinders
-	Do ##class(Tools.Wlip).%New(238).String("verbinders")
-	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 {
-		Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
-		Set VerbindersGroup = ..VulVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID,"All")
-		Do VerbindersGroup.VoegToeID("VerbindersGroep")
-		Do SvgBox.VoegToeElement(VerbindersGroup)
+	If (KaderdeurObject.Toepassing.ItemID ="GL") { 	
+  	} Else {
+	  	Do ..MaakVerbinders(KaderdeurObject)
 	}
 	;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)
-	} 
-	
+	Do ..MaakBeslag(KaderdeurObject)
 	;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)
+  	Do ..MaakBoringen(KaderdeurObject)
   	;Schuine hoeken
-  	Do ##class(Tools.Wlip).%New(238).String("schuine hoeken")
-  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
-  		Set SchuinehoekenGroep = ..SchuineHoeken(KaderdeurObject)
-  		Do SvgBox.VoegToeElement(SchuinehoekenGroep)
-  	}
-  	Set ..SvgBox = SvgBox
-  
+  	Do ..MaakSchuineHoeken(KaderdeurObject)
+  	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="WriteSvgToFile">
+<FormalSpec>SvgBox:TECH.Svg.Basis.SvgBox,Locatie:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim DoelLocatie As %String
+	
 	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 hoi"	
+		If (Locatie ="") {
+			Set DoelLocatie = "D:\CacheExport\2010v2\DEV1\test2.xml"
+		} Else {
+			Set DoelLocatie = Locatie	
+		}
+		#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+		Do FileWriter.Open(DoelLocatie)
+		Do FileWriter.WriteXML(SvgBox)
+		Do FileWriter.Close()	
 	} Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
-	Quit
 ]]></Implementation>
 </Method>
 
-<Method name="SchuineHoeken">
+<Method name="GeefTekstVoorSvgDRAWTEXT">
+<FormalSpec>InputTekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$FLATASCI^vhRtn1(InputTekst)
+]]></Implementation>
+</Method>
+
+<Method name="MaakKader">
 <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
+	#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)
+  	} 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))
+		} ElseIf (ProfPlaats = "PO") {
+			Set LosOffset = (Breedte\1) - ((Breedte - (2 * LosOffset))\1 + (LosOffset))
+		}
+		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 KaderGroup = ..KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
+	}
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, KaderGroup)
 ]]></Implementation>
 </Method>
 
-<Method name="LosProfiel">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
-<Private>1</Private>
+<Method name="MaakVerbinders">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</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)
+	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
+	Set VerbindersGroup = ..HoekverbinderToevoeger.VoegToeVerbinders(KaderdeurObject)
+	Do VerbindersGroup.VoegToeID("VerbindersGroep")
 	
-	#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
+	Do ..ElementToevoeger.VoegToeElement(..SvgBox, VerbindersGroup)
 ]]></Implementation>
 </Method>
 
-<Method name="VulDrieRects">
-<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
-<Private>1</Private>
+<Method name="MaakBeslag">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</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()
+	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)
 	}
-	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>
+<Method name="MaakBoringen">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</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
+	Set Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+  	Do Boringen.VoegToeBoringen(KaderdeurObject)
+	Do ..SvgBox.VoegToeElement(Boringen.Group)
 ]]></Implementation>
 </Method>
 
-<Method name="VulVerbinders">
-<FormalSpec>Breedte:%Integer,Hoogte:%Integer,HoekId:%Integer,ProfPlaats:%String</FormalSpec>
-<Private>1</Private>
+<Method name="MaakSchuineHoeken">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <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
+	#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)
+  	}
 ]]></Implementation>
 </Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<Data name="DomElementState">
-<Value name="1">
-<Value>Fill</Value>
-</Value>
-<Value name="2">
-<Value>Stroke</Value>
-</Value>
-<Value name="3">
-<Value>StrokeWidth</Value>
-</Value>
-<Value name="4">
-<Value>StrokeDashArray</Value>
-</Value>
-<Value name="5">
-<Value>Overflow</Value>
-</Value>
-<Value name="6">
-<Value>Opacity</Value>
-</Value>
-<Value name="7">
-<Value>Rects</Value>
-</Value>
-<Value name="8">
-<Value>Circles</Value>
-</Value>
-<Value name="9">
-<Value>Lines</Value>
-</Value>
-<Value name="10">
-<Value>Paths</Value>
-</Value>
-<Value name="11">
-<Value>Texts</Value>
-</Value>
-<Value name="12">
-<Value>CrossDiags</Value>
-</Value>
-<Value name="13">
-<Value>CrossVHs</Value>
-</Value>
-<Value name="14">
-<Value>TCrosss</Value>
-</Value>
-<Value name="15">
-<Value>Transform</Value>
-</Value>
-<Value name="16">
-<Value>X</Value>
-</Value>
-<Value name="17">
-<Value>Y</Value>
-</Value>
-<Value name="18">
-<Value>Height</Value>
-</Value>
-<Value name="19">
-<Value>Width</Value>
-</Value>
-<Value name="20">
-<Value>ID</Value>
-</Value>
-<Value name="21">
-<Value>Beslag</Value>
-</Value>
-<Value name="22">
-<Value>Boringen</Value>
-</Value>
-<Value name="23">
-<Value>Breedte</Value>
-</Value>
-<Value name="24">
-<Value>Hoogte</Value>
-</Value>
-<Value name="25">
-<Value>KADConversieUtils</Value>
-</Value>
-<Value name="26">
-<Value>KleurEnu</Value>
-</Value>
-</Data>
-</Storage>
 </Class>