Index: DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml
===================================================================
diff -u -r946 -r994
--- DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml	(.../DataMToeleveringLijn.cls.xml)	(revision 946)
+++ DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml	(.../DataMToeleveringLijn.cls.xml)	(revision 994)
@@ -1,11 +1,16 @@
 <?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-18 16:27:52">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-24 12:00:03">
 <Class name="DOM.LEV.impl.DataM.DataMToeleveringLijn">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.LEV.ToeleveringLijn</Super>
-<TimeChanged>62168,59352.782163</TimeChanged>
+<TimeChanged>62174,43289.171211</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Toelevering">
+<Type>DOM.LEV.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LijnInfo">
 <Type>%String</Type>
 <Private>1</Private>
@@ -17,20 +22,27 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LijnNr:%Integer,LijnInfo:%String</FormalSpec>
+<FormalSpec>Toelevering:DOM.LEV.Toelevering,LijnNr:%Integer,LijnInfo:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..Toelevering = Toelevering
 	Set ..LijnNr = LijnNr
 	Set ..LijnInfo = LijnInfo
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOrderlijn">
+<Method name="GeefToelevering">
+<ReturnType>DOM.LEV.Toelevering</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefToelevering()
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijn">
 <ReturnType>DOM.OV.Orderlijn</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefOrder().GeefOrderlijn($Piece(..LijnInfo,"\",28))
+<Implementation><![CDATA[	Quit ..GeefOrder().GeefOrderLijn($Piece(..LijnInfo,"\",28))
 ]]></Implementation>
 </Method>
 
@@ -40,9 +52,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverdag">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp($Piece(..LijnInfo,"\",25),"W")
+<Method name="GeefUniekLijnNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..LijnInfo,"\",15)
 ]]></Implementation>
 </Method>
 
@@ -52,5 +64,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="182365294"/>
+<Checksum value="71516942"/>
 </Export>