Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml
===================================================================
diff -u -r1074 -r1133
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml	(.../DataMOrderBase.cls.xml)	(revision 1074)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml	(.../DataMOrderBase.cls.xml)	(revision 1133)
@@ -6,7 +6,7 @@
 niet afhankelijk zijn van de storage technologie, en dit laatste elders te implementeren.
 Vermits het nog niet duidelij is of dit 100% zal lukken staat de basisklasse ook in
 het DataM package.</Description>
-<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>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>Order,%RegisteredObject</Super>
@@ -23,14 +23,15 @@
 <Private>1</Private>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Public for easy access from iterators
+<Property name="HoofdingNode">
+<Type>zTryout.ARC.TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
 
-]]></Content>
-</UDLText>
-
 <Property name="Orderlijnen">
+<Description>
+Public for easy access from iterators.
+Array of DataMOrderlijn.</Description>
 <Type>%ArrayOfObjects</Type>
 </Property>
 
@@ -44,15 +45,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LeegOLijnNrNode">
+<Type>GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Nr:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Nr is het nieuwe nummer voor nieuwe orders en een bestaand nummer
 	// voor reeds gepersisteerde orders.
 	Set ..Nr = Nr
-	Set Orderlijnen = ##class(%ListOfObjects).%New()
-	Set ..LeegOLijn = 101
+	Set Orderlijnen = ##class(%ListOfObjects).%New() // TODO: dit moet toch een ArrayOfObjects zijn?
 	Quit 1
 ]]></Implementation>
 </Method>
@@ -77,17 +82,13 @@
 
 <Method name="GeefOrderDatum">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $P(..Hoofding, $$$D, 2)
+<Implementation><![CDATA[	Quit ..HoofdingNode.GeefPiece(2) // Was: $P(..Hoofding, $$$D, 2)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetOrderDatum">
 <FormalSpec>Datum:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Temp = ..Hoofding
-	Set $P(Temp, $$$D, 2) = Datum
-	Set ..Hoofding = Temp
-	Do ..HoofdingGewijzigd()
+<Implementation><![CDATA[	Do ..HoofdingNode.ZetPiece(2, Datum)
 ]]></Implementation>
 </Method>
 
@@ -110,8 +111,9 @@
 Voegt de orderlijn toe als een nieuwe orderlijn.  De bedoeling van deze 
 operatie is om lijnen die nog niet in een order zitten toe te voegen aan
 dit order.  De lijn mag nog geen nummer hebben, anders wordt een fout gegeven.  </Description>
-<FormalSpec>Lijn:Orderlijn</FormalSpec>
+<FormalSpec>Lijn:DataMOrderlijn</FormalSpec>
 <Implementation><![CDATA[
+	Write "VoegToeAlsNieuw - Lijn='", Lijn, "'", !
 	Set LijnNr = Lijn.GeefNr()
 	w "VTAN Nr=", LijnNr, " ", Lijn.ToString(), !
 	// Als er al een lijnnummer is, behoort de orderlijn al toe aan een order.
@@ -122,9 +124,9 @@
 		Quit:((BestaandeLijn '= "") && (BestaandeLijn = Lijn))
 		Quit 0	// TODO goede foutcodes, liefst exceptions
 	}
-	Do ..Orderlijnen.SetAt(Lijn, ..LeegOLijn)
-	Do Lijn.ZetNr(..LeegOLijn)
-	Set ..LeegOLijn = ..LeegOLijn + 1
+	Do Lijn.ZetNr(..GeefEnIncrementLeegOLijn())
+	Do ..Orderlijnen.SetAt(Lijn, Lijn.GeefNr())
+	Do ..OrderlijnToegevoegd(Lijn)
 ]]></Implementation>
 </Method>
 
@@ -153,45 +155,37 @@
 </UDLText>
 
 <Method name="GeefLeegOLijn">
+<Description>
+TBC: Deze is enkel public voor de iterator.</Description>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	// Voor iterators
-	Quit ..LeegOLijn
+<Implementation><![CDATA[	Quit ..LeegOLijnNrNode.GeefPiece(1)
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Template method, notificatie naar de specifieke storage technologie dat de hoofding 
-
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-// gewijzigd is.
-
-]]></Content>
-</UDLText>
-
-<Method name="HoofdingGewijzigd">
+<Method name="GeefEnIncrementLeegOLijn">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set VorigeWaarde = ..LeegOLijnNrNode.GeefPiece(1)
+	Do ..LeegOLijnNrNode.ZetPiece(1, 1 + VorigeWaarde)
+	Quit VorigeWaarde
+]]></Implementation>
 </Method>
 
 <UDLText name="T">
 <Content><![CDATA[
-// Template method, notificatie naar de specifieke storage technologie dat de hoofding 
+// ------------- VANAF HIER: Template methods, notificaties naar de specifieke storage technologie ivm wijzigingen ----
 
 ]]></Content>
 </UDLText>
 
-<UDLText name="T">
-<Content><![CDATA[
-// gewijzigd is.
-
-]]></Content>
-</UDLText>
-
 <Method name="AfleveradresGewijzigd">
+<Abstract>1</Abstract>
 </Method>
+
+<Method name="OrderlijnToegevoegd">
+<Abstract>1</Abstract>
+<FormalSpec>Lijn:DataMOrderlijn</FormalSpec>
+</Method>
 </Class>
 </Export>