Index: vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61909 -r61915
--- vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61909)
+++ vhTest/Mock/APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61915)
@@ -22,21 +22,21 @@
 </Method>
 
 <Method name="KadFreesRect">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("KadFreesRect",Breedte,Lengte,Rotation,FreesB,FreesL)
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14,XPos:%Integer=0</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KadFreesRect",Breedte,Lengte,Rotation,FreesB,FreesL,XPos)
 ]]></Implementation>
 </Method>
 
 <Method name="KadHSFreesRect">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("KadHSFreesRect",Breedte,Lengte,Rotation,YPos)
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer,XPos:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("KadHSFreesRect",Breedte,Lengte,Rotation,YPos,XPos)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakBoringSpecialeVorm">
-<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0</FormalSpec>
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0,XPos:%Integer=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBoringSpecialeVorm",VmlId,Breedte,Lengte,Rotation,YPos)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBoringSpecialeVorm",VmlId,Breedte,Lengte,Rotation,YPos,XPos)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61909 -r61915
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61909)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61915)
@@ -31,13 +31,13 @@
 </Method>
 
 <Method name="MaakBoringSpecialeVorm">
-<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0</FormalSpec>
+<FormalSpec>VmlId:%String,Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer=0,XPos:%Integer=0</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	Set ..SvgBox = ##class(TECH.Svg.Basis.SvgBox).%New()
-	
+	Do ##class(Tools.Wlip).%New(238).String(VmlId_" "_Breedte_" "_Lengte)
 	If (VmlId = "KAD") {
-		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
+		Do ..KadFreesRect(Breedte, YPos, Rotation)	
 	}ElseIf (VmlId ="SD30") {
 		Do ..SD30FREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="SD35") {
@@ -47,9 +47,9 @@
 	}ElseIf (VmlId ="KADBM") {
 		Do ..KADBMFREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="KADHS") {
-		Do ..KadHSFreesRect(Breedte, Lengte, Rotation, YPos)
+		Do ..KadHSFreesRect(Breedte, Lengte, Rotation, YPos, XPos)
 	}ElseIf (VmlId ="KAD120") {
-		Do ..KadHSFreesRect(Breedte, Lengte, Rotation)
+		Do ..KadHSFreesRect(Breedte, Lengte, Rotation, YPos, XPos)
 	}ElseIf (VmlId ="KADFER") {
 		Do ..KadFreesRect(Breedte, Lengte, Rotation, 16 , 22)
 	}
@@ -58,6 +58,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="KadHSFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer,XPos:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Do ##class(Tools.Wlip).%New(238).String(Breedte_" en "_XPos)
+	Do ..KadFreesRect(Breedte, YPos, Rotation, 2, 46, XPos)
+	Do ..KadFreesRect(Breedte, YPos, Rotation, 16, 22, XPos)
+]]></Implementation>
+</Method>
+
+<Method name="KadFreesRect">
+<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14,XPos:%Integer=0</FormalSpec>
+<Implementation><![CDATA[
+	Set FreesL = FreesL\2*2
+	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
+	Do ##class(Tools.Wlip).%New(238).String(Breedte_" "_Lengte_" "_FreesB_" "_FreesL_" "_Rotation)
+	#dim Rechthoek As TECH.Svg.Basis.Rect
+	If (Rotation = 0) {
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte - (FreesL/2), FreesB, FreesL)
+	}
+	If (Rotation = 90) {
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(XPos - (FreesL/2), Breedte-FreesB, FreesL, FreesB)
+	}
+	If (Rotation = 180) {
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0, Lengte - (FreesL/2), FreesB, FreesL)
+	}
+	If (Rotation = 270) {
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(XPos - (FreesL/2) ,0, FreesL, FreesB)
+	}
+	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
+	
+	Do ElementToevoeger.VoegToeElement(..SvgBox, Rechthoek)
+]]></Implementation>
+</Method>
+
 <Method name="SDxFREES">
 <FormalSpec>Diameter:%Integer,MiddleOffset:%Integer,Offset:%Integer,OffsetOpposite:%Integer,P1:%Integer,P2:%Integer,Rotation:%Integer,Breedte:%Integer,Lengte:%Integer</FormalSpec>
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
@@ -124,40 +159,6 @@
 	Do ..SDxFREES(Diameter, MiddleOffset, Offset, OffsetOpposite, P1, P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
 </Method>
-
-<Method name="KadHSFreesRect">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,YPos:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	
-	Do ..KadFreesRect(Breedte, 23 + YPos, Rotation, 2, 46)
-	Do ..KadFreesRect(Breedte, 11 + YPos, Rotation, 16, 22)
-]]></Implementation>
-</Method>
-
-<Method name="KadFreesRect">
-<FormalSpec>Breedte:%Integer,Lengte:%Integer,Rotation:%Integer,FreesB:%Integer=16,FreesL:%Integer=14</FormalSpec>
-<Implementation><![CDATA[
-	Set ElementToevoeger = ##class(TECH.Svg.Basis.SvgBox.ElementToevoeger).%New()
-	
-	#dim Rechthoek As TECH.Svg.Basis.Rect
-	If (Rotation = 0) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte-FreesL, FreesB, FreesL)
-	}
-	If (Rotation = 90) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
-	}
-	If (Rotation = 180) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0, Lengte - FreesL, FreesB, FreesL)
-	}
-	If (Rotation = 270) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0, Breedte - FreesL, FreesB, FreesL)
-	}
-	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
-	
-	Do ElementToevoeger.VoegToeElement(..SvgBox, Rechthoek)
-]]></Implementation>
-</Method>
 </Class>