Index: APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml
===================================================================
diff -u -r31619 -r31622
--- APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 31619)
+++ APPS/Halux/Machine/BodemSlicing/impl/DataVerwijderaar.cls.xml	(.../DataVerwijderaar.cls.xml)	(revision 31622)
@@ -2,6 +2,12 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Machine.BodemSlicing.impl.DataVerwijderaar">
 <Super>TECH.RegisteredObject</Super>
+
+<Method name="Verwijder">
+<FormalSpec>Data:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
+<Implementation><![CDATA[	Do Data.%DeleteId(Data.ID)
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 31622 refers to a dead (removed) revision in file `APPS/Halux/Machine/BodemSlicing/impl/BodemSlicingDataBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml
===================================================================
diff -u -r31619 -r31622
--- APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml	(.../DataBewaarder.cls.xml)	(revision 31619)
+++ APPS/Halux/Machine/BodemSlicing/impl/DataBewaarder.cls.xml	(.../DataBewaarder.cls.xml)	(revision 31622)
@@ -2,6 +2,16 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Machine.BodemSlicing.impl.DataBewaarder">
 <Super>TECH.RegisteredObject</Super>
+
+<Method name="Bewaar">
+<FormalSpec>Data:APPS.Halux.Machine.BodemSlicing.data.BodemSlicingData</FormalSpec>
+<Implementation><![CDATA[
+	#dim SaveStatus As %Status = Data.%Save()
+	if $$$ISERR(SaveStatus) { 
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Save failed",SaveStatus))
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/BodemSlicing/ExporteerData.cls.xml
===================================================================
diff -u -r31621 -r31622
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/BodemSlicing/ExporteerData.cls.xml	(.../ExporteerData.cls.xml)	(revision 31621)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/BodemSlicing/ExporteerData.cls.xml	(.../ExporteerData.cls.xml)	(revision 31622)
@@ -4,17 +4,17 @@
 <Super>APPS.Halux.PPS.impl.UitvoeringInfoDeelVerwerker</Super>
 
 <Property name="BodemSlicingDataBepaler">
-<Type>APPS.Halux.Machine.BodemSlicing.impl.BodemSlicingDataBepaler</Type>
+<Type>APPS.Halux.Machine.BodemSlicing.impl.DataBepaler</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="BodemSlicingExterneDataService">
-<Type>APPS.Halux.PPS.TAORProductie.impl.BodemSlicingVerwerker.BodemSlicingExterneDataService</Type>
+<Type>APPS.Halux.PPS.TAORProductie.impl.BodemSlicingVerwerker.ExterneDataService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BodemSlicingExterneDataService:APPS.Halux.PPS.TAORProductie.impl.BodemSlicingVerwerker.BodemSlicingExterneDataService,BodemSlicingDataBepaler:APPS.Halux.Machine.BodemSlicing.impl.BodemSlicingDataBepaler</FormalSpec>
+<FormalSpec>BodemSlicingExterneDataService:APPS.Halux.PPS.TAORProductie.impl.BodemSlicingVerwerker.ExterneDataService,BodemSlicingDataBepaler:APPS.Halux.Machine.BodemSlicing.impl.DataBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,13 +28,14 @@
 <Method name="VerzamelData">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
-	#dim BodemSlicingData As APPS.Halux.Machine.BodemSlicing.Data = ..BodemSlicingDataBepaler.Converteer(UitvoeringInfo)
+	#dim BodemSlicingData As APPS.Halux.Machine.BodemSlicing.Data = ..BodemSlicingDataBepaler.Bepaal(UitvoeringInfo)
 	do ..BodemSlicingExterneDataService.Creeer(BodemSlicingData)
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUit">
 <FormalSpec>ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/Halux/Machine/BodemSlicing/impl/BodemSlicingDataBepaler.cls.xml
===================================================================
diff -u -r31621 -r31622
--- APPS/Halux/Machine/BodemSlicing/impl/BodemSlicingDataBepaler.cls.xml	(.../BodemSlicingDataBepaler.cls.xml)	(revision 31621)
+++ APPS/Halux/Machine/BodemSlicing/impl/BodemSlicingDataBepaler.cls.xml	(.../DataBepaler.cls.xml)	(revision 31622)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.Machine.BodemSlicing.impl.BodemSlicingDataBepaler">
+<Class name="APPS.Halux.Machine.BodemSlicing.impl.DataBepaler">
 <Super>TECH.RegisteredObject</Super>
 </Class>