Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61903 -r61905
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61903)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61905)
@@ -37,17 +37,19 @@
 	If (VmlId = "KAD") {
 		Do ..KadFreesRect(Breedte, Lengte, Rotation)	
 	}ElseIf (VmlId ="SD30"){
-		Do ..SD30FREES(Breedte, Lengte,Rotation)
+		Do ..SD30FREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="SD35"){
-		Do ..SD35FREES(Breedte, Lengte,Rotation)
+		Do ..SD35FREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="REGULA_SM"){
-		Do ..SD35FREES(Breedte, Lengte,Rotation)
+		Do ..SD35FREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="KADBM"){
-		Do ..KADBMFREES(Breedte, Lengte,Rotation)
+		Do ..KADBMFREES(Breedte, Lengte, Rotation)
 	}ElseIf (VmlId ="KADHS"){
-		Do ..KadHSFreesRect(Breedte, Lengte,Rotation, YPos)
+		Do ..KadHSFreesRect(Breedte, Lengte, Rotation, YPos)
 	}ElseIf (VmlId ="KAD120"){
-		Do ..KadHSFreesRect(Breedte, Lengte,Rotation)
+		Do ..KadHSFreesRect(Breedte, Lengte, Rotation)
+	}ElseIf (VmlId ="KADFER"){
+		Do ..KadFreesRect(Breedte, Lengte, Rotation, 16 ,22)
 	}
 	Quit ..SvgBox
 ]]></Implementation>
@@ -60,13 +62,13 @@
 	#dim CoordinatesList As %ListOfObjects
 	
 	If (Rotation = 0) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte,Lengte-(Breedte/2),0,Lengte/2,Breedte,(Breedte/2))
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte, Lengte-(Breedte/2), 0, Lengte/2, Breedte, (Breedte/2))
 	}ElseIf (Rotation = 90) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, Breedte,Lengte/2,0,Lengte-(Breedte/2),Breedte)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, Breedte,Lengte/2, 0, Lengte-(Breedte/2), Breedte)
 	}ElseIf (Rotation = 180) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(0,Lengte-(Breedte/2),Breedte,Lengte/2,0,(Breedte\2))
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(0, Lengte-(Breedte/2), Breedte,Lengte/2, 0, (Breedte\2))
 	}ElseIf (Rotation = 270) {
-		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, 0,Lengte/2,Breedte,Lengte-(Breedte/2),0)
+		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte/2, 0, Lengte/2, Breedte, Lengte-(Breedte/2), 0)
 	}
 	
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPathHalveCirkel(CoordinatesList)
@@ -88,7 +90,7 @@
 	#dim P1 As %Integer = 0.28
 	#dim P2 As %Integer = 34.72
 	
-	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
+	Do ..SDxFREES(Diameter, MiddleOffset, Offset, OffsetOpposite, P1, P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
 </Method>
 
@@ -102,7 +104,7 @@
 	#dim P1 As %Integer = 0.28
 	#dim P2 As %Integer = 29.72
 	
-	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
+	Do ..SDxFREES(Diameter, MiddleOffset, Offset, OffsetOpposite, P1, P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
 </Method>
 
@@ -116,7 +118,7 @@
 	#dim P1 As %Integer = 1.69
 	#dim P2 As %Integer = 33.31
 	
-	Do ..SDxFREES(Diameter,MiddleOffset,Offset,OffsetOpposite,P1,P2, Rotation, Breedte, Lengte)
+	Do ..SDxFREES(Diameter, MiddleOffset, Offset, OffsetOpposite, P1, P2, Rotation, Breedte, Lengte)
 ]]></Implementation>
 </Method>
 
@@ -139,16 +141,16 @@
 		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte-FreesB, Lengte-FreesL, FreesB, FreesL)
 	}
 	If (Rotation = 90) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte , Lengte, FreesB,FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
 	}
 	If (Rotation = 180) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , Lengte - FreesL, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0, Lengte - FreesL, FreesB, FreesL)
 	}
 	If (Rotation = 270) {
-		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0 , Breedte - FreesL, FreesB, FreesL)
+		Set Rechthoek = ..BasisElementFactory.MaakRechthoek(0, Breedte - FreesL, FreesB, FreesL)
 	}
 	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Blauw())
-	Do ElementToevoeger.VoegToeElement(..SvgBox,Rechthoek)
+	Do ElementToevoeger.VoegToeElement(..SvgBox, Rechthoek)
 ]]></Implementation>
 </Method>
 </Class>