Index: APPS/Halux/PPS/TAORProductie/impl/BodemSlicingVerwerker/ExterneDataService.cls.xml
===================================================================
diff -u -r31621 -r31666
--- APPS/Halux/PPS/TAORProductie/impl/BodemSlicingVerwerker/ExterneDataService.cls.xml	(.../ExterneDataService.cls.xml)	(revision 31621)
+++ APPS/Halux/PPS/TAORProductie/impl/BodemSlicingVerwerker/ExterneDataService.cls.xml	(.../ExterneDataService.cls.xml)	(revision 31666)
@@ -28,7 +28,13 @@
 
 <Method name="Creeer">
 <FormalSpec>BodemSlicingData:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
-<Implementation><![CDATA[	Do ..DataBewaarder.Bewaar(BodemSlicingData)
+<Implementation><![CDATA[
+	set Factory = ##class(APPS.Halux.Machine.BodemSlicing.data.BodemSlicingDataFactory).%New()
+	
+	#dim PersistableBodemSlicingData As APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData = Factory.MaakData()
+	set PersistableBodemSlicingData = $$ConstructClone^vhLib.Class(BodemSlicingData,$classname(PersistableBodemSlicingData))
+	
+	Do ..DataBewaarder.Bewaar(PersistableBodemSlicingData)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml
===================================================================
diff -u -r31622 -r31666
--- APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 31622)
+++ APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 31666)
@@ -5,7 +5,7 @@
 
 <Method name="Verwijder">
 <FormalSpec>Data:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
-<Implementation><![CDATA[	Do Data.%DeleteId(Data.ID)
+<Implementation><![CDATA[	Do Data.%DeleteId(Data.Barcode)
 ]]></Implementation>
 </Method>
 </Class>