Index: APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml
===================================================================
diff -u -r31666 -r43708
--- APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 31666)
+++ APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 43708)
@@ -5,7 +5,9 @@
 
 <Method name="Verwijder">
 <FormalSpec>Data:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
-<Implementation><![CDATA[	Do Data.%DeleteId(Data.Barcode)
+<Implementation><![CDATA[
+	set Factory = ##class(APPS.Halux.Machine.BodemSlicing.data.BodemSlicingDataFactory).%New()
+	do Factory.VerwijderData(Data.Barcode)
 ]]></Implementation>
 </Method>
 </Class>