Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61639 -r61902
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61639)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61902)
@@ -159,8 +159,7 @@
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
-			w !,Boring.VmlID_" "_Breedte_" "_Lengte_" "_Rotation
-			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation)
+			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest)
 		}
 		ElseIf (BoorType="Z") {