Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml
===================================================================
diff -u -r60121 -r60125
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60121)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/Beslagen.cls.xml	(.../Beslagen.cls.xml)	(revision 60125)
@@ -24,7 +24,6 @@
 		#dim KeyPositie As %String = ""
 		#dim Positie As Prod.GADef.emKadBeslagPos = Posities.GetNext(.KeyPositie)
 		Set blnCalcPrm=1
-		Do ##class(Tools.Wlip).%New(238).ObjToText(Beslag)
 		While ($$$HasLength(Positie)) {
 			#dim BeslagObject As Res.PI.Beslag = Beslag.Beslag
 			If (blnCalcPrm)!(KeyPositie'?.N) {
@@ -42,10 +41,7 @@
  			Set BPosZ = ..BepaalPositieZ(TYP,ProfType,AfBM,ProfielPlaats)
  			Set BPosY=Pos
  			
- 			
  			If (ProfielPlaats = "FOUT") ! ( KaderdeurObject.NietOpProfiel(ProfielPlaats)) ! (BPosX="") ! (BPosY="") ! (BPosZ="") {
-				
-				Do ##class(Tools.Wlip).%New(238).String("foute profielplaats")
 				Quit
 			}
  			Set tmpX=BPosX
@@ -73,13 +69,10 @@
 			If (BPosZ<0) {
 	 			Set BPosZ=ProfType.Dikte+BPosZ            ; Substract = add Negative Number
  			}
- 			Do ##class(Tools.Wlip).%New(238).String("profielplaats")
  			Do ..MaakBeslag(Beslag, BPosX, BPosY, BPosZ, ProfielPlaats)
 			Set Positie = Posities.GetNext(.KeyPositie)
-			Do ##class(Tools.Wlip).%New(238).String("volgende positie")
 		}
 		Set Beslag = Beslagen.GetNext(.Key)
-		Do ##class(Tools.Wlip).%New(238).String("volgende beslag")
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/ALUFrees/KADConversie/Utils.cls.xml
===================================================================
diff -u -r29059 -r60125
--- APPS/Halux/PPS/ALUFrees/KADConversie/Utils.cls.xml	(.../Utils.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/ALUFrees/KADConversie/Utils.cls.xml	(.../Utils.cls.xml)	(revision 60125)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.ALUFrees.KADConversie.Utils">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="GeefProfielID">
 <ClassMethod>1</ClassMethod>
Index: APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml
===================================================================
diff -u -r60121 -r60125
--- APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60121)
+++ APPS/Halux/PPS/ALUFrees/Svg/KaderdeurElement/Beslag/BeslagBoringSpecialeVorm.cls.xml	(.../BeslagBoringSpecialeVorm.cls.xml)	(revision 60125)
@@ -77,6 +77,7 @@
 		Do CoordinatesList.Insert(BasisElementFactory.MaakCoordinaat(P1,OffsetOpposite))
 		Set Path = BasisElementFactory.MaakPath(CoordinatesList,1)
 	}
+	Do ..SvgBox.VoegToeElement(Path)
 ]]></Implementation>
 </Method>