Index: DOM/OV/impl/DataM/DataMOrderlijn.cls.xml
===================================================================
diff -u -r734 -r946
--- DOM/OV/impl/DataM/DataMOrderlijn.cls.xml	(.../DataMOrderlijn.cls.xml)	(revision 734)
+++ DOM/OV/impl/DataM/DataMOrderlijn.cls.xml	(.../DataMOrderlijn.cls.xml)	(revision 946)
@@ -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-01-27 17:00:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-21 14:43:54">
 <Class name="DOM.OV.impl.DataM.DataMOrderlijn">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.OV.Orderlijn</Super>
-<TimeChanged>62108,54314.793418</TimeChanged>
+<TimeChanged>62171,53116.815688</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="Order">
+<Type>DOM.OV.Order</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LijnInfo">
 <Type>%String</Type>
 <Private>1</Private>
@@ -16,18 +21,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Toelevering">
+<Type>DOM.LEV.Toelevering</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LijnNr:%Integer,LijnInfo:%String</FormalSpec>
+<FormalSpec>Order:DOM.OV.Order,LijnNr:%Integer,LijnInfo:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..LijnNr = LijnNr
 	Set ..LijnInfo = LijnInfo
+	Set ..Order = Order
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOrder">
+<ReturnType>DOM.OV.Order</ReturnType>
+<Implementation><![CDATA[	Quit ..Order
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijnNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..LijnNr
@@ -42,6 +59,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToelevering">
+<ReturnType>DOM.LEV.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	If (..Toelevering = "")
+	{
+		Set ToeleveringNr = $Piece(..LijnInfo,"\",27)
+		If (ToeleveringNr '= "")
+		{
+			Set ..Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNr)
+		}
+	}
+	Quit ..Toelevering
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringLijn">
+<ReturnType>DOM.LEV.ToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Set LijnNr = $Piece(..LijnInfo,"\",28)
+	Set ToeleveringLijn = ""
+	If (LijnNr '= "")
+	{
+		Set ToeleveringLijn = ..GeefToelevering().GeefToeleveringLijn(LijnNr)
+	}
+	Quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
 <Method name="GeefType">
 <ReturnType>DOM.OV.enu.OrderlijnType</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..LijnInfo,"\",17)
@@ -59,6 +104,16 @@
 <Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
+
+<Method name="IsInReservatie">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set OrderNr = ..GeefOrder().GeefOrderNr()
+	set OLUNr = ..GeefOLU()
+	set Result = $data(^ORDW("IO",OrderNr,OLUNr))
+	quit Result
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2020428613"/>
+<Checksum value="495637399"/>
 </Export>