Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r1074 -r1133
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1074)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1133)
@@ -1,62 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrder">
-<Import>zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM</Import>
+<Import>zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM,zTryout.ARC.TECH.Persistentie</Import>
 <IncludeCode>zTryout.FM.Util.Orders,%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DataMOrderBase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Bookkeeping
-
-]]></Content>
-</UDLText>
-
-<Property name="Persisted">
-<Type>%Boolean</Type>
-<InitialExpression>"0"</InitialExpression>
+<Property name="VolgendeOLUNrNode">
+<Type>GlobalNode</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HoofdingDirty">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="AfleveradresDirty">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="HoofdingCached">
-<Type>%Boolean</Type>
-<InitialExpression>"0"</InitialExpression>
-<Private>1</Private>
-</Property>
-
-<Property name="AfleveradresCached">
-<Type>%Boolean</Type>
-<InitialExpression>"0"</InitialExpression>
-<Private>1</Private>
-</Property>
-
-<Property name="OLU">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>Nr:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(Nr)
 	// Leeg afleveradres om te beginnen
-	Set ..Persisted = 0
-	Set ..HoofdingDirty = 1
-	Set ..AfleveradresDirty = 0		// Persisteer niets als er niets is
-	Set ..OLU = 1
 	Quit 1
 ]]></Implementation>
 </Method>
@@ -68,15 +29,8 @@
 	// kunnen we de Open laten falen
 	Set ..KlantNr=$P($G(^KO1(..Nr,"F")),"\")
 	Quit:(..KlantNr = "") 0
-	Set ..LeegOLijn = $G(^KOD(..KlantNr, "F", ..Nr, 0))
-	Set ..OLU = $G(^KOD(..KlantNr, "F", ..Nr, 4))
-	Quit:(..LeegOLijn = "") 0
 	Set Success = (..KlantNr '= "")
-	If (Success) { 
-		Set ..Persisted = 1
-		Set ..HoofdingDirty = 0
-		Set ..AfleveradresDirty = 0
-	}
+
 	Quit Success
 ]]></Implementation>
 </Method>
@@ -86,8 +40,8 @@
 <Implementation><![CDATA[
 	// TODO: return better error codes
 	Quit:(..KlantNr = "") 0
-	If (..HoofdingDirty) { Set ^KOD(..KlantNr, "F", ..Nr, 1) = ..Hoofding }
-	If (..AfleveradresDirty) { Set ^KOD(..KlantNr, "F", ..Nr, 3) = ..Afleveradres.AsString() }
+	Do ..HoofdingNode.Save()
+	Do ..Afleveradres.Save()
 	// TODO: second piece set hardcoded to zero
 	Set ^KO1(..Nr,"F") = ..KlantNr _ $$$D _ 0
 	// TODO: fix unique line number (node 4).  Is this multiplied by 100?
@@ -103,16 +57,17 @@
 			w "Save ol ", LijnNr, !
 			// Dirty lijnen krijgen hier een uniek nummer als ze er nog geen hebben
 			If (Lijn.GeefOLU() = "") {
-				Do Lijn.ZetOLU(..OLU * 100)
-				Set ..OLU = ..OLU + 1
+				Do Lijn.ZetOLU(..VolgendeOLUNrNode.GeefPiece(1) * 100)
+				Do ..VolgendeOLUNrNode.ZetPiece(1, (1 + ..VolgendeOLUNrNode.GeefPiece(1)))
 			}
 			Set ^KOD(..KlantNr, "F", ..Nr, LijnNr) = Lijn.AsString()
+			Do Lijn.GeefNode().Save()
 		}
 		Set Lijn=..Orderlijnen.GetNext(.key)
 	}
 	//Set ..LeegOLijn = MaxOLijn + 1
-	Set ^KOD(..KlantNr, "F", ..Nr, 0) = ..LeegOLijn
-	Set ^KOD(..KlantNr, "F", ..Nr, 4) = ..OLU
+	Do ..LeegOLijnNrNode.Save()
+	Do ..VolgendeOLUNrNode.Save()
 ]]></Implementation>
 </Method>
 
@@ -129,24 +84,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="HoofdingGewijzigd">
-<Implementation><![CDATA[
-	Set ..HoofdingDirty = 1
-	Set ..HoofdingCached = 1
-]]></Implementation>
-</Method>
-
-<Method name="AfleveradresGewijzigd">
-<Implementation><![CDATA[
-	Set ..AfleveradresDirty = 1
-	Set ..AfleveradresCached = 1
-]]></Implementation>
-</Method>
-
 <Method name="MaakProductlijn">
 <ReturnType>ProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMProductOrderlijn).%New("", "", ##this)
+	Set Lijn = ##class(DataMProductOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
 ]]></Implementation>
@@ -156,7 +97,7 @@
 <FormalSpec>Tekst:%String</FormalSpec>
 <ReturnType>TextOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMTextOrderlijn).%New("", "", ##this)
+	Set Lijn = ##class(DataMTextOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
 	Do Lijn.ZetTekst(Tekst)
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
@@ -166,7 +107,7 @@
 <Method name="MaakManueleLijn">
 <ReturnType>ManueleOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMManueleOrderlijn).%New("", "", ##this)
+	Set Lijn = ##class(DataMManueleOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
 ]]></Implementation>
@@ -181,26 +122,58 @@
 <Private>1</Private>
 <ReturnType>Adres</ReturnType>
 <Implementation><![CDATA[
-	If (..Persisted && ('..AfleveradresCached)) {
-			Set CustInfo = $G(^KOD(..KlantNr, "F", ..Nr, 3))
-			Quit:$L($TR(CustInfo,$$$D,""))<5 ""
-			Set r%Afleveradres = ##class(DataMAdres).%New(..KlantNr, CustInfo)
-			Set ..AfleveradresCached = 1
+	If (' $IsObject(r%Afleveradres)) {
+			Set CustInfoNode = ##class(GlobalPersistenceMgr).Instance().GeefNode("^KOD", "\", ..KlantNr, "F", ..Nr, 3)
+			// TODO: deze lijn omzetten: Quit:$L($TR(CustInfo,$$$D,""))<5 ""
+			Set r%Afleveradres = ##class(DataMAdres).%New(CustInfoNode)
 	}
 	Quit r%Afleveradres
 ]]></Implementation>
 </Method>
 
-<Method name="HoofdingGet">
+<Method name="HoofdingNodeGet">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>GlobalNode</ReturnType>
 <Implementation><![CDATA[
-	If (..Persisted && ('..HoofdingCached)) {
-			Set i%Hoofding = $G(^KOD(..KlantNr, "F", ..Nr, 1))
-			Set ..HoofdingCached = 1
+	If (' $IsObject(r%HoofdingNode)) {
+		Set r%HoofdingNode = ##class(GlobalPersistenceMgr).Instance().GeefNode("^KOD", "\", ..KlantNr, "F", ..Nr, 1)
 	}
-	Quit i%Hoofding
+	Quit r%HoofdingNode
 ]]></Implementation>
 </Method>
+
+<Method name="VolgendeOLUNrNodeGet">
+<Private>1</Private>
+<ReturnType>GlobalNode</ReturnType>
+<Implementation><![CDATA[
+	If (' $IsObject(r%VolgendeOLUNrNode)) {
+		Set r%VolgendeOLUNrNode = ##class(GlobalPersistenceMgr).Instance().GeefNode("^KOD", "\", ..KlantNr, "F", ..Nr, 4)
+		If ("" = r%VolgendeOLUNrNode.GeefPiece(1)) {
+			Do r%VolgendeOLUNrNode.ZetPiece(1,1)
+		}
+	}
+	Quit r%VolgendeOLUNrNode
+]]></Implementation>
+</Method>
+
+<Method name="LeegOLijnNrNodeGet">
+<Private>1</Private>
+<ReturnType>GlobalNode</ReturnType>
+<Implementation><![CDATA[
+	If (' $IsObject(r%LeegOLijnNrNode)) {
+		Set r%LeegOLijnNrNode = ##class(GlobalPersistenceMgr).Instance().GeefNode("^KOD", "\", ..KlantNr, "F", ..Nr, 0)
+		If ("" = r%LeegOLijnNrNode.GeefPiece(1)) {
+			Do r%LeegOLijnNrNode.ZetPiece(1,101)
+		}
+	}
+	Quit r%LeegOLijnNrNode
+]]></Implementation>
+</Method>
+
+<Method name="OrderlijnToegevoegd">
+<FormalSpec>Lijn:DataMOrderlijn</FormalSpec>
+<Implementation><![CDATA[	Do ##class(GlobalPersistenceMgr).Instance().MaakNodePersistent(Lijn.GeefNode(), "^KOD", ..KlantNr, "F", ..Nr, Lijn.GeefNr())
+]]></Implementation>
+</Method>
 </Class>
 </Export>