Index: DOM/AKP/event/LeverancierAangemaaktEvent.cls.xml
===================================================================
diff -u -r29059 -r35325
--- DOM/AKP/event/LeverancierAangemaaktEvent.cls.xml	(.../LeverancierAangemaaktEvent.cls.xml)	(revision 29059)
+++ DOM/AKP/event/LeverancierAangemaaktEvent.cls.xml	(.../LeverancierAangemaaktEvent.cls.xml)	(revision 35325)
@@ -5,15 +5,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.AKP.event.LeverancierCRUDEvent</Super>
 
-<Method name="%OnNew">
-<FormalSpec>Data:DOM.AKP.event.LeverancierEventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##super(Data)
-	Set ..Type = "MaakLeverancierEvent"
-	Quit $$$OK
+<Method name="Type">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "MaakLeverancierEvent"
 ]]></Implementation>
 </Method>