Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml
===================================================================
diff -u -r1074 -r1133
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml	(.../DataMOrderlijnBase.cls.xml)	(revision 1074)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml	(.../DataMOrderlijnBase.cls.xml)	(revision 1133)
@@ -1,14 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderlijnBase">
-<Import>zTryout.ARC.DOM.OV</Import>
+<Import>zTryout.ARC.DOM.OV,zTryout.ARC.TECH.Persistentie</Import>
 <IncludeCode>zTryout.FM.Util.Orders,%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>Orderlijn,%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="LineInfo">
-<Type>%String</Type>
+<Property name="LijnNode">
+<Type>GlobalNode</Type>
 <Private>1</Private>
 </Property>
 
@@ -30,14 +30,14 @@
 </UDLText>
 
 <Method name="%OnNew">
-<FormalSpec>Nr:%Integer,lineinfo:%String,Order:Order</FormalSpec>
+<FormalSpec>Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..LineInfo = lineinfo
 	Set ..Nr = Nr
 	Set ..Order = Order
+	Set ..LijnNode = LijnNode
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -66,13 +66,13 @@
 <Method name="GetField">
 <FormalSpec>nr:%Integer</FormalSpec>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[	Quit $P(..LineInfo,$$$D,nr)
+<Implementation><![CDATA[	Quit ..LijnNode.GeefPiece(nr)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetField">
 <FormalSpec>Nr:%Integer,Value:%CacheString</FormalSpec>
-<Implementation><![CDATA[	Set $P(..LineInfo,$$$D, Nr) = Value
+<Implementation><![CDATA[	Do ..LijnNode.ZetPiece(Nr, Value)
 ]]></Implementation>
 </Method>
 
@@ -108,10 +108,16 @@
 <Description>
 Utility method for Order</Description>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..LineInfo
+<Implementation><![CDATA[	Quit ..LijnNode.GeefDelimitedString()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefNode">
+<ReturnType>GlobalNode</ReturnType>
+<Implementation><![CDATA[	Quit ..LijnNode
+]]></Implementation>
+</Method>
+
 <Method name="OrderlijnGewijzigd">
 <Private>1</Private>
 </Method>