Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml
===================================================================
diff -u -r59712 -r59846
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 59712)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/ZijBoring.cls.xml	(.../ZijBoring.cls.xml)	(revision 59846)
@@ -13,16 +13,19 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer</FormalSpec>
+<FormalSpec>MidX:%Integer,MidY:%Integer,Width:%Integer,Height:%Integer,Rotation:%Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
-	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New( Width, Height)
+	Set Group = ##class(TECH.Svg.Basis.Group).%New()
+	Set TCross = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross).%New(Width, Height)
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
-	DO ..SvgBox.VoegToeElement(TCross)
+	Do Group.VoegToeTransform("rotate("_Rotation_" "_(Width/2)_" "_(Height/2)_")")
+	Do Group.VoegToeElement(TCross)
+	DO ..SvgBox.VoegToeElement(Group)
 	DO ..SvgBox.VoegToeID("zijboring")
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml
===================================================================
diff -u -r59712 -r59846
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 59712)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Boring/RugBoring.cls.xml	(.../RugBoring.cls.xml)	(revision 59846)
@@ -21,7 +21,7 @@
 <Implementation><![CDATA[
 	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
 	#Dim CrossDiag as APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag = ##class(APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag).%New(Width,Height)
-	Set Circle = BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/10))
+	Set Circle = BasisElementFactory.MaakCirkel(Width/2,Height/2,(Width/2.2))
 	Set ..SvgBox = BasisElementFactory.MaakSvgBox((MidX-(Width/2)),(MidY-(Height/2)), Width, Height)
 	DO ..SvgBox.VoegToeElement(CrossDiag)
 	DO ..SvgBox.VoegToeElement(Circle)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r59512 -r59846
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 59512)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 59846)
@@ -1,55 +1,70 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen">
-<Super>TECH.Svg.Basis.DomElement</Super>
+<Super>TECH.Svg.Basis.DomElement,TECH.RegisteredObject</Super>
 
-<Property name="DoorBoringen">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="doorboring"/>
+<Property name="Group">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
 
-<Property name="PuntBoringen">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="puntboring"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
-</Property>
-
-<Property name="RugBoringen">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="rugboring"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
-</Property>
-
-<Property name="ZijBoringen">
-<Type>APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring</Type>
-<Collection>list</Collection>
-<Parameter name="XMLNAME" value="zijboring"/>
-<Parameter name="XMLPROJECTION" value="ELEMENT"/>
-</Property>
-
-<Method name="VoegToeBoring">
-<FormalSpec>Boring:TECH.Svg.Basis.DomElement</FormalSpec>
+<Method name="VoegToeBoringen">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring")
-	{
-	do ..DoorBoringen.Insert(Boring)
+	Do ..Group.VoegToeID("Boringen")
+	#dim Boringen As array of Prod.GADef.emKadBoring = KaderdeurObject.Boringen
+	#dim Key As %String = ""
+	#dim Boring As Prod.GADef.emKadBoring = Boringen.GetNext(.Key)
+	#dim Circle As TECH.Svg.Basis.Circle
+	;#dim TCross As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.TCross
+	;#dim CrossDiag As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossDiag
+	;#dim CrossVH As APPS.Halux.PPS.ALUFrees.Svg.BasisElement.CrossVH
+	#dim ZijBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring
+	#dim DoorBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring
+	#dim RugBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring
+	#dim PuntBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
+	#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
+	
+	
+	While ($$$HasLength(Boring)) {
+		#dim ProfielPlaats As %String = KaderdeurObject.ProfielPlaatsGet(Boring)
+		#dim XPos As %Integer = Boring.XPos
+		#dim YPos As %Integer = Boring.YPos
+		#dim Straal As %Integer = Boring.BoorDiameter/2
+		Set BoorType=$S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
+		If (BoorType="Z") {
+			Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
+			Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,10,10,Rotation)
+			Do ..Group.VoegToeElement(ZijBoring)
+		}
+		ElseIf(Boring.IsSpecialeBoring()){
+			Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(XPos,YPos,10,10)
+			Do ..Group.VoegToeElement(SpecialeBoring)
+		}
+		ElseIf (Boring.BoorDiepte < 0) {
+			Set Circle= ##class(TECH.Svg.BasisElementFactory).%New().MaakCirkel(XPos,YPos,Straal)
+			Do Circle.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+			Do ..Group.VoegToeElement(Circle)
+		}
+		ElseIf(Boring.BoorDiameter<0)||(Boring.BoorDiepte=0){
+			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10)
+			Do ..Group.VoegToeElement(DoorBoring)
+			
+		}
+		Else {
+		
+			Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10)
+			Do RugBoring.SetFill(##class(TECH.Svg.enu.Kleur).Zwart())
+			Do ..Group.VoegToeElement(RugBoring)
+		}	
+		
+		If (BoorType = "Z"), (Boring.BoorDiepte<0) {
+			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,10,10)
+			Do ..Group.VoegToeElement(DoorBoring)
+		}
+		Set Boring = Boringen.GetNext(.Key)
 	}
-	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring")
-	{
-	do ..PuntBoringen.Insert(Boring)
-	}
-	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring")
-	{
-	do ..RugBoringen.Insert(Boring)
-	}
-	if Boring.%IsA("APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring")
-	{
-	do ..ZijBoringen.Insert(Boring)
-	}
 ]]></Implementation>
 </Method>
 
@@ -86,6 +101,9 @@
 <Value name="10">
 <Value>ZijBoringen</Value>
 </Value>
+<Value name="11">
+<Value>Group</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r59774 -r59846
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59774)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 59846)
@@ -54,7 +54,7 @@
 	;Set ..KaderdeurObject = KaderdeurObject
 	Set Breedte = KaderdeurObject.Breedte
 	Set Hoogte = KaderdeurObject.Hoogte
-	Set 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()
@@ -81,22 +81,32 @@
 	Do SvgBox.VoegToeElement(KaderGroup)
 	;Verbinders
 	;bij glas heb je geen verbinders
-	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
 	
-	If (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
+  	
+  	} ElseIf (KaderdeurObject.ProductieWijzeGetObjectId()="LPR") {
+	  	Set VerbindersGroup =##class(TECH.Svg.Basis.Group).%New()
 		Set VerbindersGroup = ..VulTweeVerbinders(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 = ..VulVierVerbinders(Breedte, Hoogte,KaderdeurObject.ProfType.Hoek.ItemID)
+		Do VerbindersGroup.VoegToeID("VerbindersGroep")
+		Do SvgBox.VoegToeElement(VerbindersGroup)
 	}
-	Do VerbindersGroup.VoegToeID("VerbindersGroep")
-	Do SvgBox.VoegToeElement(VerbindersGroup)
 	;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
-  	If (KaderdeurObject.Toepassing.ItemID = "GL") {
-  		#dim KaderVerbinder = KaderdeurObject.ProfType.Hoek
-  	}
+  	#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
-  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") {
+  	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
   		Do SvgBox.VoegToeElement(..SchuineHoeken(KaderdeurObject))
   	}
 	Try {
@@ -119,10 +129,22 @@
 	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)))
+	#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>