Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59706 -r59713
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59706)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59713)
@@ -50,16 +50,14 @@
 <Method name="GenereerSvg">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	;Set ..KaderdeurObject = KaderdeurObject
-	#dim Breedte As %Integer = KaderdeurObject.Breedte
-	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
-	#dim SvgBox As TECH.Svg.Basis.SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New(0,0,Hoogte,Breedte)
- 	; #Dim KadVertaler As Prod.GADef.KadVertaler=##class(Prod.GADef.KadVertaler).%New("N")
-  	; Do ##class(Tools.Wlip).%New(133).ObjToXML(KaderdeurObject.ProductieWijze)
-  	Do ##class(Tools.Wlip).%New(133).String("uit")
+	Set Breedte = KaderdeurObject.Breedte
+	Set Hoogte = KaderdeurObject.Hoogte
+	Set SvgBox =BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
   	
    ;kader v/d kaderdeur
-  	#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
+  	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
 	  	Set KaderGroup = ..VulTweeRects(KaderdeurObject, Breedte, Hoogte)
   	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
@@ -86,10 +84,18 @@
 		Set KaderGroup = ..VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
 	Do SvgBox.VoegToeElement(KaderGroup)
+	
+	;Beslag 
+	;Boringen
   	If (KaderdeurObject.Toepassing.ItemID = "GL") {
   		#dim KaderVerbinder = KaderdeurObject.ProfType.Hoek
+  		Set VKeys=$LB("LB","RB","RO","LO")
   	}
-  	
+  	;Schuine hoeken
+  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") {
+  		Do SvgBox.VoegToeElement(..SchuineHoeken(KaderdeurObject))
+  	}
+  	w KaderdeurObject.ProfType.Hoek
 	Try {
 	#dim DoelLocatie As %String = "D:\CacheExport\2010v2\DEV1\test2.xml"
 	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
@@ -104,49 +110,64 @@
 ]]></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.VoegToeElement(BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1))
+	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(KaderdeurObject.Breedte,0,KaderdeurObject.Breedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1))
+	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(0,KaderdeurObject.Hoogte\1,SchuineHoekenOffset\1,KaderdeurObject.Hoogte-(SchuineHoekenOffset\1)))
+	Do SchuineHoekGroup.VoegToeElement(BasisElementFactory.MaakLijn(KaderdeurObject.Breedte\1,KaderdeurObject.Hoogte\1,KaderdeurObject.Breedte-(SchuineHoekenOffset\1), KaderdeurObject.Hoogte -(SchuineHoekenOffset\1)))
+	Quit SchuineHoekGroup
+]]></Implementation>
+</Method>
+
 <Method name="LosProfiel">
 <FormalSpec>Breedte:%Integer,Lengte:%Integer,LosOffset:%Integer,ProfPlaats:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim LeftTopInner as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(LosOffset,LosOffset)
-	#dim RightTopInner as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(Breedte - LosOffset,LosOffset)
-	#dim LeftBottomInner as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(LosOffset,Lengte-LosOffset)
-	#dim RightBottomInner as TECH.Svg.Basis.Path.Coordinates =##class(TECH.Svg.Basis.Path.Coordinates).%New(Breedte-LosOffset, Lengte-LosOffset)
+	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)
 	
-	#dim LeftTopOuter as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(0,0)
-	#dim RightTopOuter as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(Breedte,0)
-	#dim LeftBottomOuter as TECH.Svg.Basis.Path.Coordinates = ##class(TECH.Svg.Basis.Path.Coordinates).%New(0, Lengte)
-	#dim RightBottomOuter as TECH.Svg.Basis.Path.Coordinates =##class(TECH.Svg.Basis.Path.Coordinates).%New(Breedte, Lengte)
+	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()
-	#dim Path As TECH.Svg.Basis.Path
 	
+	
 	If (ProfPlaats="PL") {
 		Do CoordinatesList.Insert(LeftTopInner)
 		Do CoordinatesList.Insert(LeftTopOuter)
 		Do CoordinatesList.Insert(LeftBottomOuter)
 		Do CoordinatesList.Insert(LeftBottomInner)
-		Set Path = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList)
+		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 = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList)
+		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 = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList)
+		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 = ##class(TECH.Svg.Basis.Path).%New(CoordinatesList)
+		Set Path = BasisElementFactory.MaakPath(CoordinatesList)
 	}
 	
 		Do Path.SetFill("#F0F0F0")
@@ -159,53 +180,58 @@
 <Method name="VulDrieRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer,Los:%Boolean=0</FormalSpec>
 <Implementation><![CDATA[
-		#dim KaderOffset As %Integer
-		#dim FillS As %String
-		#dim BorderS As %String
-		#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
-		Do KaderGroup.VoegToeID("kader")
-		;Outer Rectangle
-		Set KDOuter = ##class(TECH.Svg.Basis.Rect).%New(0,0,Breedte\1,Hoogte\1)
-		Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
-		Set KDMiddle = ##class(TECH.Svg.Basis.Rect).%New((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
-		Set KaderOffset = KaderdeurObject.ProfType.Breedte
-		Set KDInner = ##class(TECH.Svg.Basis.Rect).%New((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){
+	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 KDMiddle.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 		Do KDMiddle.SetOpacity($S(FillS="T":0, FillS="S":1, 1:FillS))
 		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).LichtGrijs(),1:##class(TECH.Svg.enu.Kleur).Wit()))
-		}Else {
-			Do KDOuter.SetStroke("black",,"2")
-			Do KDOuter.SetFill()
-			Do KDMiddle.SetStroke("black",,"2")
-			Do KDMiddle.SetFill()
-			Do KDInner.SetStroke("black",,"2")
-			Do KDInner.SetFill()
-		}
-		Do KaderGroup.VoegToeElement(KDOuter)
-		Do KaderGroup.VoegToeElement(KDMiddle)
-		Do KaderGroup.VoegToeElement(KDInner)
+	}Else {
+		Do KDOuter.SetStroke("black",,"2")
+		Do KDOuter.SetFill()
+		Do KDMiddle.SetStroke("black",,"2")
+		Do KDMiddle.SetFill()
+		Do KDInner.SetStroke("black",,"2")
+		Do KDInner.SetFill()
+	}
+	Do KaderGroup.VoegToeElement(KDOuter)
+	Do KaderGroup.VoegToeElement(KDMiddle)
+	Do KaderGroup.VoegToeElement(KDInner)
 		
-		Quit KaderGroup
+	Quit KaderGroup
 ]]></Implementation>
 </Method>
 
 <Method name="VulTweeRects">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <Implementation><![CDATA[
-		#dim KaderGroup =##class(TECH.Svg.Basis.Group).%New()
-  		Do KaderGroup.VoegToeID("kader")
-	  	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
-	  	Set KDOuter = ##class(TECH.Svg.Basis.Rect).%New(0,0,Breedte,Hoogte)
-	  	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
-	  	Set KDInner =##class(TECH.Svg.Basis.Rect).%New(0,0,Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
-	  	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
-  		Do KaderGroup.VoegToeElement(KDOuter)
-  		Do KaderGroup.VoegToeElement(KDInner)
+	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).Geen())
+	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>