Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml
===================================================================
diff -u -r60134 -r60138
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Boringen.cls.xml	(.../Boringen.cls.xml)	(revision 60138)
@@ -115,15 +115,13 @@
 		Set OffsetX =TijdelijkeOffsetY
 		Set OffsetY = Hoogte - TijdelijkeOffsetX
 	}
-
 	
 	#Dim SvgBox As TECH.Svg.Basis.SvgBox = BasisElementFactory.MaakSvgBox(BPosX - OffsetX, BPosY - OffsetY,Hoogte,Breedte)
 	#Dim Rechthoek As TECH.Svg.Basis.Rect = BasisElementFactory.MaakRechthoek(0,0,Breedte, Hoogte)
 	Do Rechthoek.SetStroke(##class(TECH.Svg.enu.Kleur).Blauw())
 	Do Rechthoek.SetFill(##class(TECH.Svg.enu.Kleur).Geen())
 
 	While (BoringenIterator.HasNext()) {
-		
 		Set Boring = BoringenIterator.Next()
 		Set tmpX=Boring.XPos
  		Set tmpY=Boring.YPos
@@ -138,59 +136,45 @@
  		Set strColor="blue"
 		Set BoorType = Boring.BoringType
 		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("1")
-	
 			Set BeslagBoringSpecialeVorm = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Beslag.BeslagBoringSpecialeVorm).%New(Boring.VmlID, Breedte, Lengte, Rotation)
 			Do ..Group.VoegToeElement(BeslagBoringSpecialeVorm)
 		}
 		ElseIf (BoorType="Z") {
-			Do ##class(Tools.Wlip).%New(238).String("2")
 			Set GrootteBoring = 14
 			Set Rotation=$S(ProfielPlaats="PL":0, ProfielPlaats="PB":90, ProfielPlaats="PR":180, ProfielPlaats="PO":270, 1:0)
 			Set ZijBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.ZijBoring).%New(XPos,YPos,GrootteBoring,GrootteBoring,Rotation, Kleur)
 			Do SvgBox.VoegToeElement(ZijBoring)
 		}
 		ElseIf(Boring.IsSpecialeBoring()){
-			Do ##class(Tools.Wlip).%New(238).String("3")
 			Set GrootteBoring = 10
 			if (YPos < 0) {
 			Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
 			} Else {
 				Set SpecialeBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.SpecialeBoring).%New(##class(TECH.Math).Abs(XPos),YPos,GrootteBoring,GrootteBoring, Kleur)
 			}
-			
-			
 			Do SvgBox.VoegToeElement(SpecialeBoring)
 		}
 		ElseIf (Boring.BoorDiepte < 0) {
-			Do ##class(Tools.Wlip).%New(238).String("4")
 			Set GrootteBoring = 10
 			Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
 			Do SvgBox.VoegToeElement(DoorBoring)
 		}
 		ElseIf(Boring.BoorDiameter<0) || (Boring.BoorDiepte=0){
-			Do ##class(Tools.Wlip).%New(238).String("5")
 			Set GrootteBoring = 10
 			if (YPos < 0) {
 				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos,##class(TECH.Math).Abs(YPos),GrootteBoring,GrootteBoring, Kleur)
 			} Else {
 				Set PuntBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.PuntBoring).%New(XPos, ##class(TECH.Math).Abs(YPos) ,GrootteBoring,GrootteBoring, Kleur)
-				
 			}
-			
 			Do SvgBox.VoegToeElement(PuntBoring)
 		}
 		Else {
-			Do ##class(Tools.Wlip).%New(238).String("6")
 			If (GrootteBoring<10) {
 				Set RugBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.RugBoring).%New(XPos, YPos,10,10, Kleur)
-				
 				Do ..Group.VoegToeElement(RugBoring)
 			}Else {
-			
 				Set Straal = GrootteBoring\2
 				Set DoorBoring = ##class(APPS.Halux.PPS.ALUFrees.Svg.KaderdeurElement.Boring.DoorBoring).%New(XPos,YPos,GrootteBoring/2, Kleur)
 				Do SvgBox.VoegToeElement(DoorBoring)	
Index: APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml
===================================================================
diff -u -r60134 -r60138
--- APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/Kaderdeur.cls.xml	(.../Kaderdeur.cls.xml)	(revision 60138)
@@ -55,7 +55,6 @@
 		Set KaderGroup = KaderToevoeger.VulDrieRects(KaderdeurObject, Breedte, Hoogte)
 	}
 	Do SvgBox.VoegToeElement(KaderGroup)
-	Do ##class(Tools.Wlip).%New(238).String("kaders toegevoegd")
 	;Verbinders
 	Set HoekverbinderToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.HoekverbinderToevoeger).%New()
 	If (KaderdeurObject.Toepassing.ItemID ="GL") { 
@@ -76,7 +75,6 @@
   	Do Boringen.VoegToeBoringen(KaderdeurObject)
 	Do SvgBox.VoegToeElement(Boringen.Group)
   	;Schuine hoeken
-  	Do ##class(Tools.Wlip).%New(238).String("schuine hoeken")
   	If (KaderdeurObject.Toepassing.ItemID'="GL")&&(KaderdeurObject.ProductieWijzeGetObjectId()'="LPR") { 
   		Set SchuinehoekenToevoeger = ##class(APPS.Halux.PPS.ALUFrees.Svg.Kaderdeur.SchuineHoekenToevoeger).%New()
   		Set SchuinehoekenGroep = SchuinehoekenToevoeger.SchuineHoeken(KaderdeurObject.ProfType.Breedte, Breedte, Hoogte)
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60134 -r60138
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60134)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60138)
@@ -27,7 +27,6 @@
 	
 	Do ..Group.VoegToeID("Beslagen")
 	#dim Beslagen As array of Prod.GADef.emKadBoring = KaderdeurObject.Beslag
-	Do ##class(Tools.Wlip).%New(238).ObjToText(Beslagen)
 	#dim Key As %String = ""
 	#dim Beslag As Prod.GADef.emKadBeslag = Beslagen.GetNext(.Key)
 	
Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r55496 -r60138
--- Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 55496)
+++ Prod/GADef/KaderDeur.cls.xml	(.../KaderDeur.cls.xml)	(revision 60138)
@@ -2597,7 +2597,7 @@
  . Do WRITE^XMLWRITE(DevObj,NL)
 
  Set Offset1=..AfstandRandVoorVulling()
- 
+ ; inner rect
  Set Param1="style='left:"_(0+Offset1\1)_"; top:"_(0+Offset1\1)_"; width:"_(%this.Breedte-(2*Offset1)\1)_"; height:"_(%this.Hoogte-(2*Offset1)\1)_";'"
  Set Param2="fillcolor=""rgb(224,255,224)"""     ; _$S($L(%this.Vulling.Vulling):"rgb(224,255,224)",1:"white")_""""
  Do TAGONLY^XMLWRITE(DevObj,"v:RECT", "ID=""KDGlas""", "CLASS=""clsHidePrint""", Param1, Param2)