Index: APPS/Halux/common/Batch.cls.xml
===================================================================
diff -u -r1073 -r1133
--- APPS/Halux/common/Batch.cls.xml	(.../Batch.cls.xml)	(revision 1073)
+++ APPS/Halux/common/Batch.cls.xml	(.../Batch.cls.xml)	(revision 1133)
@@ -1,8 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.Halux.common.Batch">
-<Abstract>1</Abstract>
+<ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
+<Super>%AbstractDefinition</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefBatchID">
@@ -55,6 +56,39 @@
 <ReturnType>%Boolean</ReturnType>
 </Method>
 
+<Method name="%OnDelete">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>oid:%ObjectIdentity</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Batch = ..%Open(oid)
+	If ($IsObject(Batch))
+	{
+		Do ..RaiseBatchRemovedEvent(Batch.%Id())
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RaiseBatchRemovedEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedData).%New(BatchID)
+	Set Event = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$ERROR($$$GeneralError,"Abstracte klasse")
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux.common.BatchD</DataLocation>