Index: DOM/LEV/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r903 -r946
--- DOM/LEV/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 903)
+++ DOM/LEV/impl/DataM/DataMToelevering.cls.xml	(.../DataMToelevering.cls.xml)	(revision 946)
@@ -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-02-22 10:26:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-16 15:14:48">
 <Class name="DOM.LEV.impl.DataM.DataMToelevering">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.LEV.Toelevering</Super>
-<TimeChanged>62144,37637.432429</TimeChanged>
+<TimeChanged>62166,54968.125343</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ToeleveringNummer">
@@ -27,9 +27,17 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ToeleveringNummer = ToeleveringNummer
-	Set ..LeverancierNummer = $Piece($Get(^KTO1(ToeleveringNummer)),"\")
-	Quit $$$OK
+	Set Status = $$$OK
+	If ($Data(^KTO1(ToeleveringNummer)))
+	{
+		Set ..ToeleveringNummer = ToeleveringNummer
+		Set ..LeverancierNummer = $Piece($Get(^KTO1(ToeleveringNummer)),"\")
+	}
+	Else
+	{
+		Set Status = 0
+	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -51,9 +59,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringLijn">
+<FormalSpec>LijnNr:%Integer</FormalSpec>
+<ReturnType>DOM.LEV.ToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Set Lijn = $G(^KTO(..GeefLeverancierNummer(),..GeefToeNr(),LijnNr))
+	Set ToeleveringLijn = ""
+	If (Lijn '= "")
+	{
+		Set ToeleveringLijn = ##class(DOM.LEV.impl.DataM.DataMToeleveringLijnFactory).Create(LijnNr,Lijn)
+	}
+	Quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefOrder">
 <ReturnType>DOM.OV.Order</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder($Piece(..Data,"\",7))
+<Implementation><![CDATA[
+	Set OrderNr = $Piece(..Data,"\",7)
+	Set Order = ""
+	If (OrderNr '= "") Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderNr)
+	Quit Order
 ]]></Implementation>
 </Method>
 
@@ -81,5 +107,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1110469363"/>
+<Checksum value="1689526626"/>
 </Export>