Index: zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml
===================================================================
diff -u -r1222 -r1641
--- zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml	(.../HalffabImportTBX.cls.xml)	(revision 1222)
+++ zTryout/WV/PM/Maatwerk/HF/HalffabImportTBX.cls.xml	(.../HalffabImportTBX.cls.xml)	(revision 1641)
@@ -24,8 +24,20 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF.Halffab WHERE Familie = Lade")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set ID = ResultSet.Data("ID")
+		Set Object = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%OpenId(ID)
+		If (Object.%ClassName(1) [ "TBX")
+		{
+			Do Object.%DeleteId(Object.%Id())
+		}
+	}	
 	
-	Quit ##super(##class(DOM.PM.enu.Familie).Lade())
+	Quit $$$OK
 ]]></Implementation>
 </Method>