Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(revision 60050)
@@ -0,0 +1,176 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Beslagen">
+<Super>TECH.Svg.Basis.DomElement,TECH.RegisteredObject</Super>
+
+<Property name="Group">
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Method name="VoegToeBeslagen">
+<FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
+<Implementation><![CDATA[
+	
+	Do ..Group.VoegToeID("Beslagen")
+	#dim Beslagen As array of Prod.GADef.emKadBoring = KaderdeurObject.Beslag
+	#dim Key As %String = ""
+	#dim Beslag As Prod.GADef.emKadBeslag = Beslagen.GetNext(.Key)
+	While ($$$HasLength(Beslag)) {
+		Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
+		#dim Posities As array of Prod.GADef.emKadBeslagPos = Beslag.Positie
+		#dim KeyPositie As %String = ""
+		#dim Positie As Prod.GADef.emKadBeslagPos = Posities.GetNext(.KeyPositie)
+		Set blnCalcPrm=1
+		While ($$$HasLength(Positie)) {
+			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
+			If (blnCalcPrm)!(KeyPositie'?.N) {
+			Set ProfielPlaats = KaderdeurObject.ProfielPlaatsGet(Beslag, Key, KeyPositie)
+			Set ProfType = KaderdeurObject.ProfType
+			Set blnCalcPrm = $S(KeyPositie?.N:0,1:1)
+			}	
+			Set BeslagPositie = Posities.GetAt(KeyPositie)
+			Set Pos = BeslagPositie.LengtePos
+			Set AfBM = BeslagPositie.AfstandRand
+			Set:('AfBM) AfBM = 0
+			Set TYP = Beslag.Beslag.AfstandBoorMaat.GetAt("TYP")
+			Set:(TYP="") TYP="ON+"
+			Set BPosX = ..BepaalPositieX(TYP, ProfType, AfBM, ProfielPlaats)
+ 			Set BPosZ = ..BepaalPositieZ(TYP,ProfType,AfBM,ProfielPlaats)
+ 			Set BPosY=Pos
+ 			
+ 			
+ 			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BPosX="") ! (BPosY="") ! (BPosZ="") {
+				Set Beslag = Beslagen.GetNext(.Key)
+				Quit
+			}
+ 			Set tmpX=BPosX
+ 			Set tmpY=BPosY
+ 			If (ProfielPlaats="") {
+ 				Set ProfielPlaats = "PL"
+ 			}
+ 			If (ProfielPlaats="PB") {
+  				Set BPosX=tmpY
+  				Set BPosY=tmpX
+ 			}
+ 			ElseIf (ProfielPlaats="PR") {
+  				Set BPosX=KaderdeurObject.Breedte-tmpX
+ 			}
+ 			ElseIf (ProfielPlaats="PO") {
+  				Set BPosX=tmpY
+  				Set BPosY=KaderdeurObject.Hoogte-tmpX
+ 			}
+ 			If (BPosY<0) {
+	 			Set BPosY=KaderdeurObject.Hoogte+BPosY         ; Substract = add Negative Number
+ 			}
+ 			If (BPosX<0) {
+				Set BPosX=KaderdeurObject.Breedte+BPosX        ; Substract = add Negative Number
+			}
+			If (BPosZ<0) {
+	 			Set BPosZ=ProfType.Dikte+BPosZ            ; Substract = add Negative Number
+ 			}
+ 			Do ..MaakBeslag(Beslag, BPosX, BPosY, BPosZ, ProfielPlaats)
+			Set Positie = Posities.GetNext(.KeyPositie)
+		}
+		Set Beslag = Beslagen.GetNext(.Key)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakBeslag">
+<FormalSpec>Beslag:Prod.GADef.emKadBeslag,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer,ProfielPlaats:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	#dim Boringen As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.Boringen).%New()
+  	Do Boringen.VoegToeBeslagBoringen(Beslag.Beslag, ProfielPlaats, BPosX, BPosY, BPosZ)
+  
+  	Do ..Group.VoegToeElement(Boringen.Group)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPositieX">
+<FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (TYP="ON+") {
+		Set BPosX=AfBM
+	}
+	ElseIf (TYP="ON-") {
+		Set BPosX=ProfType.Breedte-AfBM
+	}
+	ElseIf (TYP="IN+") {
+		Set BPosX=ProfType.Breedte 
+	}
+ 	ElseIf (TYP="IN-") {
+	 	Set BPosX=ProfType.Breedte
+ 	}
+ 	ElseIf (TYP="BO+") {
+	 	Set BPosX=AfBM
+ 	}
+ 	ElseIf (TYP="BO-") {
+	 	Set BPosX=ProfType.Breedte-AfBM
+ 	}
+ 	ElseIf (TYP="EX+") {
+	 	Set BPosX=0
+ 	}
+ 	ElseIf (TYP="EX-") {
+	 	Set BPosX=0
+ 	}Else {
+	 	Quit
+ 	}
+	Quit BPosX
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPositieZ">
+<FormalSpec>TYP:%String,ProfType:Res.PI.ProfType,AfBM:%Integer,ProfielPlaats:%String</FormalSpec>
+<Implementation><![CDATA[
+	If ($E(TYP,1,2)="ON") {
+	 	Set BPosZ=0
+ 	}
+	ElseIf (TYP="IN+")!(TYP="EX+") {
+		Set BPosZ=AfBM
+	}
+ 	ElseIf (TYP="IN-")!(TYP="EX-") {
+	 	Set BPosZ=ProfType.Dikte-AfBM
+ 	}ElseIf ($E(TYP,1,2)="BO") {
+	 	Set BPosX=ProfType.Breedte
+ 	}
+ 	Else {
+	 	Quit
+ 	}
+ 
+ 	Quit BPosZ
+]]></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>Group</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60049 -r60050
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60049)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60050)
@@ -77,7 +77,7 @@
 <Method name="VoegToeBeslagBoringen">
 <FormalSpec>Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	
+	;
 	Do ..Group.VoegToeID("Boringen")
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	#dim Boring As Prod.GADef.emKadBoring = ##class(Prod.GADef.emKadBoring).%New()
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 0)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(revision 60050)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm">
+<Super>TECH.Svg.Basis.DomElement</Super>
+
+<Property name="SvgBox">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%New</METHOD> method to 
+provide notification that a new instance of an object is being created.
+
+<P>If this method returns an error then the object will not be created.
+<p>It is passed the arguments provided in the %New call.
+When customizing this method, override the arguments with whatever variables and types you expect to receive from %New().
+For example, if you're going to call %New, passing 2 arguments, %OnNew's signature could be:
+<p>Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]></Description>
+<Type>TECH.Svg.Basis.SvgBox</Type>
+<Parameter name="XMLNAME" value="svg"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	If (VmlId = "KAD") {
+		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="KadFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	;Do ##class(Tools.Wlip).%New(238).String(Breedte)
+	;Do ##class(Tools.Wlip).%New(238).String(MidX)
+	;Do ##class(Tools.Wlip).%New(238).String(MidY)
+	Set BasisElementFactory = ##class(TECH.Svg.BasisElementFactory).%New()
+	Set FreesB=16
+	Set FreesL=14
+	
+	If (Rotation = 0) {
+		Set Rect = BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
+	}
+	If (Rotation = 90) {
+		Set Rect = BasisElementFactory.MaakRechthoek(Breedte , Lengte, FreesB,FreesL)
+	}
+	If (Rotation = 180) {
+		Set Rect = BasisElementFactory.MaakRechthoek(0 , (Lengte - FreesL)/2, FreesB, FreesL)
+	}
+	If (Rotation = 270) {
+		Set Rect = BasisElementFactory.MaakRechthoek(Breedte, Lengte , FreesB, FreesL)
+	}
+	Do ..SvgBox.VoegToeElement(Rect)
+]]></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>SvgBox</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>