Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r61921 -r62696
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 61921)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 62696)
@@ -72,16 +72,20 @@
 				#dim Rotation As %Integer = $S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 				Set ZijBoring = ..BoringElementFactory.MaakZijBoring(XPos, YPos, 10, 10, Rotation)
 				Do ..ElementToevoeger.VoegToeElement(..Group, ZijBoring)
-			}ElseIf(Boring.IsSpecialeBoring()) {
+			}
+			ElseIf(Boring.IsSpecialeBoring()){
 				Set SpecialeBoring = ..BoringElementFactory.MaakSpecialeBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, SpecialeBoring)
-			}ElseIf (Boring.BoorDiepte < 0) {
+			}
+			ElseIf (Boring.BoorDiepte < 0) {
 				Set DoorBoring = ..BoringElementFactory.MaakDoorBoring(XPos, YPos, Straal, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, DoorBoring)
-			}ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0) {
+			}
+			ElseIf(Boring.BoorDiameter < 0)||(Boring.BoorDiepte=0){
 				Set PuntBoring =  ..BoringElementFactory.MaakPuntBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, PuntBoring)
-			}Else {
+			}
+			Else {
 				Set RugBoring =  ..BoringElementFactory.MaakRugBoring(XPos, YPos, 10, 10, Kleur)
 				Do ..ElementToevoeger.VoegToeElement(..Group, RugBoring)
 			}	
@@ -115,7 +119,8 @@
 	If (ProfielPlaats = "PL") {
 		#dim OffsetX As %Integer = TijdelijkeOffsetX
 		#dim OffsetY As %Integer = TijdelijkeOffsetY
-	}ElseIf (ProfielPlaats = "PR") {
+	}
+	ElseIf (ProfielPlaats = "PR") {
 		Set OffsetX = Breedte- TijdelijkeOffsetX
 		Set OffsetY = TijdelijkeOffsetY
 	}ElseIf (ProfielPlaats = "PB") {
@@ -154,6 +159,7 @@
 		Set BoorType = $S((Boring.BoringType="EX")!(Boring.BoringType="IN"):"Z", 1:Boring.BoringType)
 		
 		If ($L(Boring.VmlID) > 2) {
+			Do ##class(Tools.Wlip).%New(238).String(XPos_" "_YPos)
 			#Dim SvgBoxTest As TECH.Svg.Basis.SvgBox = ..BeslagBoringSpecialevorm.MaakBoringSpecialeVorm(Boring.VmlID, Breedte, Lengte, Rotation, YPos, XPos)
 			Do ..ElementToevoeger.VoegToeElement(SvgBox, SvgBoxTest)
 		}
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml
===================================================================
diff -u -r61921 -r62696
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 61921)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Hoekverbinder/HoekverbinderMaker.cls.xml	(.../HoekverbinderMaker.cls.xml)	(revision 62696)
@@ -81,7 +81,7 @@
 		Set ..XCirkel = 39
 		Set ..YCirkel = 19 
 	}
-	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, LengteVerbinder, BreedteVerbinder, StartVerbinder, BreedteVerbinder)
+	Set ..CoordinatesList = ..CoordinatesService.MaakCoordinatenLijstVanPunten(StartVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,LengteVerbinder,BreedteVerbinder,StartVerbinder,BreedteVerbinder)
 ]]></Implementation>
 </Method>
 
Index: zTryout/JWI/SAXParser/Test2.cls.xml
===================================================================
diff -u -r61921 -r62696
--- zTryout/JWI/SAXParser/Test2.cls.xml	(.../Test2.cls.xml)	(revision 61921)
+++ zTryout/JWI/SAXParser/Test2.cls.xml	(.../Test2.cls.xml)	(revision 62696)
@@ -48,19 +48,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ReadStream">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>stream:%GlobalCharacterStream</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-    set handler=..%New()
-
-    set status=##class(%XML.SAX.Parser).ParseStream(stream,handler)
-
-    quit status
-]]></Implementation>
-</Method>
-
 <Method name="ResetDto">
 <Implementation><![CDATA[	Set ..Dto = ##class(zTryout.JWI.SAXParser.PerfionDTO).%New()
 ]]></Implementation>
Index: vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml
===================================================================
diff -u -r61921 -r62696
--- vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 61921)
+++ vhTest/Utils/Res/Perfion/Synchroniser/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 62696)
@@ -11,6 +11,7 @@
 	
 	for i=1:1:AantalPerfionVertalingenObjecten
 	{
+		Do ##class(Tools.Wlip).%New(238).String(i)
 		Set PerfionVertaling = ##class(Res.Perfion.Synchroniser.VertalingDTO).%New()
 		Set PerfionVertaling.VertalingsType = "TestType"
 		Set PerfionVertaling.VertalingsGroep = "TestGroep"
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r61923 -r62696
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 61923)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 62696)
@@ -35,6 +35,7 @@
 <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(XPos, YPos, Rotation)	
 	}ElseIf (VmlId ="SD30") {
@@ -61,6 +62,7 @@
 <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>
@@ -75,6 +77,7 @@
 	
 	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)
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml
===================================================================
diff -u -r61921 -r62696
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 61921)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur/HoekverbinderToevoeger.cls.xml	(.../HoekverbinderToevoeger.cls.xml)	(revision 62696)
@@ -35,6 +35,7 @@
 <ReturnType>TECH.Svg.Basis.Group</ReturnType>
 <Implementation><![CDATA[
 	Set ..VerbinderGroup = ##class(TECH.Svg.Basis.Group).%New()
+
 	Do ..HoekverbinderMaker.ZetVerbinderParameters(KaderdeurObject)
 	
 	#dim ProductiewijzeID As %String = KaderdeurObject.ProductieWijzeGetObjectId()