Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml
===================================================================
diff -u -r60634 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 60634)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/LosProfielToevoeger.cls.xml	(.../LosProfielToevoeger.cls.xml)	(revision 61337)
@@ -22,7 +22,6 @@
 	Set ..BasisElementFactory = $$$Inject(BasisElementFactory, ##class(TECH.Svg.BasisElementFactory).%New())
 	Set ..CoordinatesService = $$$Inject(CoordinatesService, ##class(TECH.Svg.Services.CoordinatesService).%New())
 	Quit $$$OK
-	w "hoi subversion"
 ]]></Implementation>
 </Method>
 
@@ -41,6 +40,7 @@
 	#dim LeftBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(0, Lengte)
 	#dim RightBottomOuter As TECH.Svg.Basis.Path.Coordinates = ..BasisElementFactory.MaakCoordinaat(Breedte, Lengte)
 	#dim CoordinatesList As %ListOfObject
+	
 	If (ProfPlaats="PL") {
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(LeftTopInner, LeftTopOuter, LeftBottomOuter, LeftBottomInner)
 	}
@@ -53,10 +53,11 @@
 		If (ProfPlaats="PO") {
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanCoordinaten(RightBottomInner, RightBottomOuter, LeftBottomOuter, LeftBottomInner)
 	}
+	
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList)
-		Do Path.SetFill("#F0F0F0")
-		Do Path.SetStroke("black",2)
-		Do Path.SetOpacity(0.5)
+	Do Path.SetFill("#F0F0F0")
+	Do Path.SetStroke("black",2)
+	Do Path.SetOpacity(0.5)
 	Quit Path
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60842 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60842)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 61337)
@@ -62,11 +62,10 @@
 <Method name="GenereerSvg">
 <FormalSpec>KaderdeurObject:Prod.GADef.KaderDeur</FormalSpec>
 <Implementation><![CDATA[
-	
 	#dim Breedte As %Integer = KaderdeurObject.Breedte
 	#dim Hoogte As %Integer = KaderdeurObject.Hoogte
 	Set ..SvgBox  = ..BasisElementFactory.MaakSvgBox(0,0,Hoogte,Breedte)
-   ;kader v/d kaderdeur
+    ;Kader v/d kaderdeur
 	Do ..MaakKader(KaderdeurObject)
 	;Verbinders
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 	
@@ -172,8 +171,7 @@
 		#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
 		Do FileWriter.Open(DoelLocatie)
 		Do FileWriter.WriteXML(SvgBox)
-		Do FileWriter.Close()
-		w "het bestand is weggeschreven"	
+		Do FileWriter.Close()	
 	} Catch {
 		#dim Exception As TECH.ExceptionHandler = ##class(TECH.ExceptionHandler).Catch()
 	}
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml
===================================================================
diff -u -r60408 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 60408)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/SchuineHoekenToevoeger.cls.xml	(.../SchuineHoekenToevoeger.cls.xml)	(revision 61337)
@@ -26,18 +26,23 @@
 	#dim SchuineHoekenOffset As %Integer = ProfielBreedte
 	Set SchuineHoekGroup = ##class(TECH.Svg.Basis.Group).%New()
 	Do SchuineHoekGroup.VoegToeID("schuine hoeken")
+	
 	#dim LeftTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0,0,SchuineHoekenOffset\1,SchuineHoekenOffset\1)
 	Do LeftTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftTopLine)
+	
 	#dim RightTopLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte,0,KaderBreedte-(SchuineHoekenOffset\1),SchuineHoekenOffset\1)
 	Do RightTopLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightTopLine)
+	
 	#dim LeftBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(0,KaderHoogte\1,SchuineHoekenOffset\1,KaderHoogte-(SchuineHoekenOffset\1))
 	Do LeftBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(LeftBottomLine)
+	
 	#dim RightBottomLine As TECH.Svg.Basis.Line = ..BasisElementFactory.MaakLijn(KaderBreedte\1,KaderHoogte\1,KaderBreedte-(SchuineHoekenOffset\1), KaderHoogte -(SchuineHoekenOffset\1))
 	Do RightBottomLine.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
 	Do SchuineHoekGroup.VoegToeElement(RightBottomLine)
+	
 	Quit SchuineHoekGroup
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml
===================================================================
diff -u -r60844 -r61337
--- vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 60844)
+++ vhUnitTest/APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/GenereerSvg.cls.xml	(.../GenereerSvg.cls.xml)	(revision 61337)
@@ -30,7 +30,6 @@
 	Do BasisElementFactoryMock.VerwachtMethodCall("MaakSvgBox",0,0,800,470).DanReturn(SvgBox)
 	Do KaderToevoegerMock.VerwachtMethodCall("VulDrieRects",Kaderdeur,470,800,0).DanReturn(Group)
 	Do HoekverbinderToevoegerMock.VerwachtMethodCall("VoegToeVerbinder","","All",2,470,800).DanReturn(Group)
-	;Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
 	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",..Matches.Object(SvgBox),..Matches.Object(Group))
 	Do ElementToevoegerMock.VerwachtMethodCall("VoegToeElement",$$$ElkeWaarde,$$$ElkeWaarde)
 	Do SchuinehoekenToevoegerMock.VerwachtMethodCall("SchuineHoeken",50,470,800)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml
===================================================================
diff -u -r60452 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 60452)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/KaderToevoeger.cls.xml	(.../KaderToevoeger.cls.xml)	(revision 61337)
@@ -28,13 +28,15 @@
 	#dim BorderS As %String
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
 	Do KaderGroup.VoegToeID("kader")
+	
 	;Outer Rectangle
 	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte\1,Hoogte\1)
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, .KaderOffset, .BorderS, .FillS)
 	#dim KDMiddle As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Set KaderOffset = KaderdeurObject.ProfType.Breedte
 	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+KaderOffset\1),(0+KaderOffset\1),(Breedte-(2*KaderOffset)\1),(Hoogte-(2*KaderOffset)))
 	Do KaderdeurObject.ProfType.XMLVectorTussenRand(KaderdeurObject.Vulling.Vulling, KaderOffset, BorderS, FillS)
+	
 	;als het geen losprofiel is vul je kleuren in, anders zet je alles in stippelijn. 
 	If (LosProfiel = 0){
 		Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).Grijs())
@@ -52,6 +54,7 @@
 		Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 		Do KDInner.SetFill()
 	}
+	
 	Do KaderGroup.VoegToeElement(KDOuter)
 	Do KaderGroup.VoegToeElement(KDMiddle)
 	Do KaderGroup.VoegToeElement(KDInner)
@@ -67,12 +70,14 @@
 	Set KaderGroup =##class(TECH.Svg.Basis.Group).%New()
   	Do KaderGroup.VoegToeID("kader")
 	#dim GlasOffset As %Integer = KaderdeurObject.AfstandRandVoorVulling()
+	
 	#dim KDOuter As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek(0,0,Breedte,Hoogte)
 	Do KDOuter.SetFill(##class(TECH.Svg.enu.Kleur).DonkerGroen())
 	Do KDOuter.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart(),,"2")
 	#dim KDInner As TECH.Svg.Basis.Rect = ..BasisElementFactory.MaakRechthoek((0+GlasOffset\1),(0+GlasOffset\1),Breedte-(2*GlasOffset),Hoogte-(2*GlasOffset))
 	Do KDInner.SetFill(##class(TECH.Svg.enu.Kleur).LichtGroen())
 	Do KDInner.SetStroke(##class(TECH.Svg.enu.Kleur).Zwart())
+  	
   	Do KaderGroup.VoegToeElement(KDOuter)
   	Do KaderGroup.VoegToeElement(KDInner)
  
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60385 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60385)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61337)
@@ -51,6 +51,7 @@
 <ReturnType>TECH.Svg.Basis.SvgBox</ReturnType>
 <Implementation><![CDATA[
 	#dim CoordinatesList As %ListOfObjects
+	
 	If (Rotation = 0) {
 		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte-Offset,Lengte-(Diameter\2),Diameter,Diameter,Offset,P2,Offset,P1)
 	}ElseIf (Rotation = 90) {
@@ -59,10 +60,11 @@
 		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Breedte-Offset,Lengte-(Diameter\2),Diameter,Diameter,OffsetOpposite,P1,OffsetOpposite,P2)
 	}ElseIf (Rotation = 270) {
 		Set CoordinatesList =  ..CoordinatesService.MaakCoordinatenLijstVanPunten(Lengte-(Diameter\2), Breedte-Offset,Diameter,Diameter,P2,OffsetOpposite,P1,OffsetOpposite)
-		
 	}
+	
 	#dim Path As TECH.Svg.Basis.Path = ..BasisElementFactory.MaakPath(CoordinatesList,1)
 	Do ..SvgBox.VoegToeElement(Path)
+	
 	Quit ..SvgBox
 ]]></Implementation>
 </Method>
@@ -103,6 +105,7 @@
 	#dim FreesB As %Integer =16
 	#dim FreesL As %Integer =14
 	#dim Rect As TECH.Svg.Basis.Rect
+	
 	If (Rotation = 0) {
 		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte, FreesB, FreesL)
 	}
@@ -115,6 +118,7 @@
 	If (Rotation = 270) {
 		Set Rect = ..BasisElementFactory.MaakRechthoek(Breedte, Lengte , FreesB, FreesL)
 	}
+	
 	Do ElementToevoeger.VoegToeElement(..SvgBox,Rect)
 	Quit ..SvgBox
 ]]></Implementation>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60452 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60452)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61337)
@@ -86,11 +86,9 @@
 				Do ..ElementToevoeger.VoegToeElement(..Group,PuntBoring)
 			}
 			Else {
-		
 				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos,10,10,Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group,RugBoring)
 			}	
-		
 			If (BoorType = "Z"), (Boring.BoorDiepte < 0) {
 				Set DoorBoring =  ..BoringElementFactory.MaakDoorBoring(XPos,YPos,10,10,Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group,DoorBoring)
@@ -104,7 +102,6 @@
 <Method name="VoegToeBeslagBoringen">
 <FormalSpec>Beslag:Res.PI.Beslag,ProfielPlaats:%String,BPosX:%Integer,BPosY:%Integer,BPosZ:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	
 	#dim Boringen As list of Prod.GADef.emKadBoring = Beslag.Boringen
 	Set Boring = ##class(Prod.GADef.emKadBoring).%New()
 	Set BoringenIterator = ##class(TECH.ListIterator).%New(Boringen)
@@ -115,8 +112,10 @@
 	#dim TijdelijkeHoogte As %Integer = Beslag.ConstructAfm.GetAt("VRZH")
 	#dim Hoogte As %Integer = $S(ProfielPlaats="PB"!(ProfielPlaats="PO"):TijdelijkeBreedte, 1:TijdelijkeHoogte)
 	#dim Breedte As %Integer = $S(ProfielPlaats="PB"!(ProfielPlaats="PO"):TijdelijkeHoogte, 1:TijdelijkeBreedte)
+	
 	Set:(BPosX<0) BPosX= Breedte - BPosX
 	Set:(BPosY<0) BPosY= Hoogte - BPosY
+	
 	If (ProfielPlaats = "PL") {
 		#dim OffsetX As %Integer = TijdelijkeOffsetX
 		#dim OffsetY As %Integer = TijdelijkeOffsetY
@@ -158,6 +157,7 @@
 		#dim PuntBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring
 		#dim SpecialeBoring As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
+		
 		If ($L(Boring.VmlID) > 2) {
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation))
 		}
@@ -201,6 +201,7 @@
 		}	
 	
 	}
+	
 	Do ..ElementToevoeger.VoegToeElement(SvgBox,Rechthoek)
 	Do SvgBox.VoegToeID("beslag")
 	Do ..Group.VoegToeElement(SvgBox)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r60406 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 60406)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61337)
@@ -34,7 +34,6 @@
 <FormalSpec>ProductiewijzeID:%String,ProfPlaats:%String,HoekId:%Integer,Breedte:%Integer,Hoogte:%Integer</FormalSpec>
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
-	
 	If (ProductiewijzeID = "LPR") {
 		Quit ..VulVerbinders(Breedte, Hoogte, HoekId, ProfPlaats)
 	} Else {
@@ -53,6 +52,7 @@
 	#dim YCirkel As %Integer 
 	#dim LengteVerbinder As %Integer 
 	#dim StartVerbinder =1
+	
 	if (HoekId=2) {
 		Set BreedteVerbinder = 61
 		Set XCirkel =39
@@ -66,11 +66,13 @@
 		Set YCirkel = 6 
 		Set CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 	}
+	
 	set VerbinderGroup =##class(TECH.Svg.Basis.Group).%New()
 	#dim VerbinderLinksBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links boven")
 	#dim VerbinderRechtsBoven As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts boven","translate("_Breedte_" 0) rotate(90)")
 	#dim VerbinderLinksOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder links onder","translate(0 "_Hoogte_") rotate(270)")
 	#dim VerbinderRechtsOnder As APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Hoekverbinder = ..HoekverbinderMaker.MaakHoekverbinder(CoordinatesList,XCirkel,YCirkel,"Verbinder rechts onder","translate("_Breedte_" "_Hoogte_") rotate(180)")
+	
 	;benedenprofiel
 	If (ProfPlaats="PO"){ 
 		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksOnder.Group)
@@ -97,6 +99,7 @@
 		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderRechtsBoven.Group)
 		Do ..ElementToevoeger.VoegToeElement(VerbinderGroup, VerbinderLinksBoven.Group)
 	}
+	
 	Quit VerbinderGroup
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60386 -r61337
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60386)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 61337)
@@ -39,11 +39,13 @@
 			#dim BeslagPositieX As %Integer
 			#dim BeslagPositieZ As %Integer
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
+			
 			If (blnCalcPrm)!$$$Not(KeyPositie?.N) {
 				#dim ProfielPlaats As %String = KaderdeurObject.ProfielPlaatsGet(Beslag, Key, KeyPositie)
 				#dim ProfType As Res.PI.ProfType = KaderdeurObject.ProfType
 				Set blnCalcPrm = $S(KeyPositie?.N:0,1:1)
 			}	
+			
 			#dim  BeslagPositie As Prod.GADef.emKadBeslagPos= Posities.GetAt(KeyPositie)
 			#dim LengtePositie As %Integer = BeslagPositie.LengtePos
 			#dim AfBM As %Integer = BeslagPositie.AfstandRand
@@ -82,10 +84,12 @@
 				If (BeslagPositieZ<0) {
 		 			Set BeslagPositieZ=ProfType.Dikte+BeslagPositieZ            ; Substract = add Negative Number
 	 			}
+	 			
 	 			Do ..MaakBeslag(Beslag, BeslagPositieX, BeslagPositieY, BeslagPositieZ, ProfielPlaats)
 				Set Positie = Posities.GetNext(.KeyPositie)
 			}
 		}
+		
 		Set Beslag = Beslagen.GetNext(.Key)
 	}
 ]]></Implementation>
@@ -97,8 +101,8 @@
 <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, BeslagPositieX, BeslagPositieY, BeslagPositieZ)
-  
   	Do ..Group.VoegToeElement(Boringen.Group)
 ]]></Implementation>
 </Method>
@@ -108,6 +112,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BeslagPositieX As %Integer
+	
 	If (TYP="ON+") {
 		Set BeslagPositieX=AfBM
 	}
@@ -136,6 +141,7 @@
  	}Else {
 	 	Quit
  	}
+ 	
 	Quit BeslagPositieX
 ]]></Implementation>
 </Method>
@@ -145,6 +151,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BeslagPositieZ As %Integer
+	
 	If ($E(TYP,1,2)="ON") {
 	 	Set BeslagPositieZ=0
  	}