Index: DOM/OV/impl/DataM/DataMBonAbstract.cls.xml
===================================================================
diff -u -r734 -r903
--- DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 734)
+++ DOM/OV/impl/DataM/DataMBonAbstract.cls.xml	(.../DataMBonAbstract.cls.xml)	(revision 903)
@@ -1,16 +1,35 @@
 <?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-07 19:30:24">
 <Class name="DOM.OV.impl.DataM.DataMBonAbstract">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.OV.Bon,%RegisteredObject</Super>
-<TimeChanged>62108,57227.297496</TimeChanged>
+<TimeChanged>62157,70295.403308</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="BonNummer">
 <Type>%Integer</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="NodeHoofding">
+<Description>
+Node 1 in KUL, KFA, en KFAP</Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NodeAdres">
+<Description>
+Node 3 in KUL, KFA, en KFAP</Description>
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Adres">
+<Type>DataMAdres</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>BonNummer:%Integer</FormalSpec>
 <Private>1</Private>
@@ -28,11 +47,45 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLeveringsDatum">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit $$INTDATE^vhDTyp($P(..NodeHoofding,"\",2),"DK")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeveringsAdres">
+<ReturnType>DataMAdres</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DataMAdres).CreateFromDelimitedString(..NodeAdres)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTransportKey">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $P(..NodeHoofding,"\",8)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDataLijn">
 <Abstract>1</Abstract>
 <FormalSpec>Nummer:%Integer</FormalSpec>
 <Private>1</Private>
 </Method>
+
+<Method name="NodeHoofdingGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:i%NodeHoofding="" i%NodeHoofding=..GeefDataLijn(1)
+	Quit i%NodeHoofding
+]]></Implementation>
+</Method>
+
+<Method name="NodeAdresGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:i%NodeAdres="" i%NodeAdres=..GeefDataLijn(3)
+	Quit i%NodeAdres
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1036043028"/>
+<Checksum value="2739298667"/>
 </Export>