Index: DOM/LEV/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/LEV/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 946)
+++ DOM/LEV/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 994)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-16 15:14:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-06 08:50:43">
 <Class name="DOM.LEV.impl.DataM.DataMToelevering">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.LEV.Toelevering</Super>
-<TimeChanged>62166,54968.125343</TimeChanged>
+<TimeChanged>62187,31849.581921</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ToeleveringNummer">
@@ -35,7 +35,7 @@
 	}
 	Else
 	{
-		Set Status = 0
+		Set Status = $$$ERROR($$$GeneralError,"Toelevering niet aanwezig in het systeem")
 	}
 	Quit Status
 ]]></Implementation>
@@ -47,6 +47,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAanmaakDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..Data,"\",2)
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..ToeleveringNummer
@@ -67,7 +73,7 @@
 	Set ToeleveringLijn = ""
 	If (Lijn '= "")
 	{
-		Set ToeleveringLijn = ##class(DOM.LEV.impl.DataM.DataMToeleveringLijnFactory).Create(LijnNr,Lijn)
+		Set ToeleveringLijn = ##class(DOM.LEV.impl.DataM.DataMToeleveringLijnFactory).Create(##this,LijnNr,Lijn)
 	}
 	Quit ToeleveringLijn
 ]]></Implementation>
@@ -90,7 +96,7 @@
 </Method>
 
 <Method name="GeefTypeToeleveringLijnIterator">
-<FormalSpec>Type:DOM.OV.enu.OrderlijnType</FormalSpec>
+<FormalSpec>Type:DOM.LEV.enu.ToeleveringLijnType</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.LEV.impl.DataM.DataMTypeToeleveringLijnIterator).%New(##this,..LeverancierNummer,Type)
 ]]></Implementation>
@@ -107,5 +113,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1689526626"/>
+<Checksum value="3953205767"/>
 </Export>