Index: zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml	(.../OrderlineFactory.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/OrderlineFactory.cls.xml	(.../OrderlineFactory.cls.xml)	(revision 1408)
@@ -9,14 +9,13 @@
 
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>olijn:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<FormalSpec>olijn:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <ReturnType>Orderlijn</ReturnType>
 <Implementation><![CDATA[
-		Set Type = $P(lineinfo,$$$D,17)
-		if (Type = $$$LinetypeProduct) Quit ##class(DataMProductOrderlijn).%New(olijn, lineinfo, Order, LijnNode)
-		if (Type = $$$LinetypeManual) Quit ##class(DataMManueleOrderlijn).%New(olijn, lineinfo, Order, LijnNode)
-		if (Type [ $$$LinetypeText) Quit ##class(DataMTextOrderlijn).%New(olijn, lineinfo, Order, LijnNode)
-		//Quit ##class(Orderlijn).%New(olijn, lineinfo, Order)
+		Set Type = LijnNode.GeefPiece(17)
+		if (Type = $$$LinetypeProduct) Quit ##class(DataMProductOrderlijn).%New(olijn,Order, LijnNode)
+		if (Type = $$$LinetypeManual) Quit ##class(DataMManueleOrderlijn).%New(olijn, Order, LijnNode)
+		if (Type [ $$$LinetypeText) Quit ##class(DataMTextOrderlijn).%New(olijn, Order, LijnNode)
 		Quit ""
 ]]></Implementation>
 </Method>
FishEye: Tag 1221 refers to a dead (removed) revision in file `zTryout/ARC/TECH/DataMContext.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderLineIterator.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderLineIterator.cls.xml	(.../DataMOrderLineIterator.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderLineIterator.cls.xml	(.../DataMOrderLineIterator.cls.xml)	(revision 1408)
@@ -91,7 +91,7 @@
 	// Return the in-memory object if present
 	if (obj '= "") { Quit obj }
 	// Otherwise return a new object
-	Quit ##class(OrderlineFactory).Create(olijn, result, ..Order, LijnNodeTeGeven)
+	Quit ##class(OrderlineFactory).Create(olijn, ..Order, LijnNodeTeGeven)
 ]]></Implementation>
 </Method>
 
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml	(.../DataMOrderlijn.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijn.cls.xml	(.../DataMOrderlijn.cls.xml)	(revision 1408)
@@ -1,33 +1,54 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderlijn">
+<Import>zTryout.ARC.DOM.OV,zTryout.ARC.TECH.Persistentie</Import>
 <IncludeCode>zTryout.FM.Util.Orders,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DataMOrderlijnBase</Super>
+<Super>Orderlijn,%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Dirty">
-<Type>%Boolean</Type>
+<Property name="LijnNode">
+<Type>GlobalNode</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Nr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Order">
+<Type>Order</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Nr:%Integer,Info:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..Dirty = 0
-	Quit ##super(Nr, Info, Order, LijnNode)
+	Set ..Nr = Nr
+	Set ..Order = Order
+	Set ..LijnNode = LijnNode
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
-<Method name="IsDirty">
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..Dirty
+<Method name="GeefNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Nr
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<Description>
+Human readable representation</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Orderline: Nr=" _ ..Nr _ ", Type=" _ ..GetType() _ " , OLU=" _ ..GetField(15)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 // -------------- ECHTE PUBLIC METHODS TOT HIER ------------------------------------
@@ -57,7 +78,6 @@
 	// Als er velden gewijzigd worden zorgen we ervoor dat het order ons kent
 	// zodat de wijzigingen zichtbaar zijn voor gebruikers van het order.
 	// We overschrijven een eventueel bestaande kopie.
-	Set ..Dirty = 1
 	w "Veranderd OLijn=", ..Nr, !
 	Set BestaandeLijn = ""
 	If (..Nr '= "") {
@@ -78,5 +98,68 @@
 	// expliciet toevoegen aan een order.
 ]]></Implementation>
 </Method>
+
+<Method name="GetField">
+<FormalSpec>nr:%Integer</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[	Quit ..LijnNode.GeefPiece(nr)
+]]></Implementation>
+</Method>
+
+<Method name="ZetField">
+<FormalSpec>Nr:%Integer,Value:%CacheString</FormalSpec>
+<Implementation><![CDATA[	Do ..LijnNode.ZetPiece(Nr, Value)
+]]></Implementation>
+</Method>
+
+<Method name="ZetFieldDirty">
+<FormalSpec>Nr:%Integer,Value:%CacheString</FormalSpec>
+<Implementation><![CDATA[
+	Set HuidigVeld = ..GetField(Nr)
+	w "Verander ", HuidigVeld , " in ", Value,!
+	if (Value '= HuidigVeld) {
+		// We worden enkel dirty als het veld effectief gewijzigd is
+		Do ..ZetField(Nr, Value)
+		Do ..OrderlijnGewijzigd()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetNr">
+<Description>
+Utility method for DataMOrder</Description>
+<FormalSpec>Nr:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..Nr = Nr
+]]></Implementation>
+</Method>
+
+<Method name="GetType">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GetField(17)
+]]></Implementation>
+</Method>
+
+<Method name="SetType">
+<FormalSpec>Type:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..ZetField(17, Type)
+]]></Implementation>
+</Method>
+
+<Method name="AsString">
+<Description>
+Utility method for Order</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LijnNode.GeefDelimitedString()
+]]></Implementation>
+</Method>
+
+<Method name="GeefNode">
+<ReturnType>GlobalNode</ReturnType>
+<Implementation><![CDATA[	Quit ..LijnNode
+]]></Implementation>
+</Method>
 </Class>
 </Export>
FishEye: Tag 1408 refers to a dead (removed) revision in file `zTryout/ARC/DOM/OV/impl/DataM/DataMOrderlijnBase.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 1222)
+++ zTryout/ARC/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 1408)
@@ -16,7 +16,7 @@
 	Set ProductVerkoopInfo.EersteLeverdatums = LeverTermijnService.GeefLeverDatums(PRNr, KlantNr)
 	
 	Set ProductService = ##class(zTryout.ARC.APPS.common.ProductService).%New()
-	Set ProductVerkoopInfo.Verkoopprijs = ProductService.GeefVerkoopprijs(PRNr, KlantNr, Aantal)
+	Set ProductVerkoopInfo.Verkoopprijs = ..GeefVerkoopprijs(PRNr, KlantNr, Aantal)
 	
 	Set StockNiveauService = ##class(APPS.common.impl.StockNiveauService).%New(PRNr)
 	Set ProductVerkoopInfo.PraktischeStock = StockNiveauService.GeefPraktischeStock()
@@ -40,7 +40,7 @@
 
 	Do OrderLijn.ZetProductNr(PRNr)
 	Do OrderLijn.ZetAantal(Aantal)
-	Set EenheidsPrijs = ##class(ProductService).%New().GeefVerkoopprijs(PRNr, Order.GeefKlantNr(), Aantal)
+	Set EenheidsPrijs = ..GeefVerkoopprijs(PRNr, Order.GeefKlantNr(), Aantal)
 	Do OrderLijn.ZetBedrag(Aantal * EenheidsPrijs)
 	
 	Do Order.VoegToeAlsNieuw(OrderLijn)
@@ -120,5 +120,15 @@
 	Quit AantalLijnen
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerkoopprijs">
+<FormalSpec>PRNr:%String,KLNr:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set ProductService = ##class(zTryout.ARC.APPS.common.ProductService).%New()
+	Do ##class(zTryout.ARC.TECH.DataMContext).InitConstanten()
+	Quit ProductService.GeefVerkoopprijs(PRNr, KLNr, Aantal)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: zTryout/ARC/Client/OVClient.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/Client/OVClient.cls.xml	(.../OVClient.cls.xml)	(revision 1222)
+++ zTryout/ARC/Client/OVClient.cls.xml	(.../OVClient.cls.xml)	(revision 1408)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="OrderNr">
-<Default>123552</Default>
+<Default>129834</Default>
 </Parameter>
 
 <Parameter name="ProductKorttekst">
@@ -31,6 +31,7 @@
 		Set PRNr = ..ZoekProduct(..#ProductKorttekst)
 		Do ..BekijkProductVerkoopInfo(PRNr, ..#AantalProdOpLijn)
 		Do ..BekijkFysiekProductInfo(PRNr)
+		// TODO: Een nieuw order maken, zodat dit niet data-afhankelijk is.
 		Do ..VoegProductlijnToeAanOrder(..#OrderNr, PRNr, ..#AantalProdOpLijn)
 		Do ..BekijkOrderTransportInfo(..#OrderNr)
 ]]></Implementation>
Index: PRA tryout ARC.prj.xml
===================================================================
diff -u -r1215 -r1408
--- PRA tryout ARC.prj.xml	(.../PRA tryout ARC.prj.xml)	(revision 1215)
+++ PRA tryout ARC.prj.xml	(.../PRA tryout ARC.prj.xml)	(revision 1408)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PRA tryout ARC" LastModified="2011-05-20 12:18:43">
+<Project name="PRA tryout ARC" LastModified="2011-06-10 12:03:21">
   <Items>
     <ProjectItem name="zTryout.ARC.APP.DomeinContext" type="CLS"/>
     <ProjectItem name="zTryout.ARC.APP.FlowOrder.Blockages" type="CLS"/>
@@ -70,10 +70,8 @@
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMManueleOrderlijn" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrder" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderAPI" type="CLS"/>
-    <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderBase" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderLineIterator" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderlijn" type="CLS"/>
-    <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMOrderlijnBase" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMProductOrderlijn" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMTextOrderlijn" type="CLS"/>
     <ProjectItem name="zTryout.ARC.DOM.OV.impl.DataM.DataMTypedOrderlineIterator" type="CLS"/>
@@ -102,6 +100,7 @@
     <ProjectItem name="zTryout.ARC.TECH.Persistentie.GlobalNode" type="CLS"/>
     <ProjectItem name="zTryout.ARC.TECH.Persistentie.GlobalPersistenceMgr" type="CLS"/>
     <ProjectItem name="zTryout.ARC.TECH.Persistentie.GlobalUtils" type="CLS"/>
+    <ProjectItem name="zTryout.PRA.IngekortOrgaluxInOrdw" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1222)
+++ zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1408)
@@ -33,11 +33,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Dirty">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DirtyPieces">
 <Type>%String</Type>
 <Collection>array</Collection>
@@ -80,6 +75,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGewijzigd">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (0 = ..DirtyPieces.Count())
+]]></Implementation>
+</Method>
+
 <Method name="Save">
 <Implementation><![CDATA[
 		Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
Index: zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 1222)
+++ zTryout/ARC/TECH/Persistentie/GlobalPersistenceMgr.cls.xml	(.../GlobalPersistenceMgr.cls.xml)	(revision 1408)
@@ -77,7 +77,7 @@
 </UDLText>
 
 <Method name="GeefNodeViaSubscriptLijst">
-<FormalSpec>GlobalNaam:%String,Delimiter:%String,Subscripts:%ListOfDataTypes</FormalSpec>
+<FormalSpec>GlobalNaam:%String,Delimiter:%String="\",Subscripts:%ListOfDataTypes</FormalSpec>
 <ReturnType>GlobalNode</ReturnType>
 <Implementation><![CDATA[
 		Set NodeKey = ##class(GlobalUtils).MaakNodeKey(GlobalNaam, Subscripts)
@@ -98,7 +98,7 @@
 </UDLText>
 
 <Method name="GeefNode">
-<FormalSpec>GlobalNaam:%String,Delimiter:%String,Subscript1:%String,Subscript2:%String,Subscript3:%String,Subscript4:%String,Subscript5:%String,Subscript6:%String</FormalSpec>
+<FormalSpec>GlobalNaam:%String,Delimiter:%String="\",Subscript1:%String,Subscript2:%String,Subscript3:%String,Subscript4:%String,Subscript5:%String,Subscript6:%String</FormalSpec>
 <ReturnType>GlobalNode</ReturnType>
 <Implementation><![CDATA[
 		Set Subscripts = ##class(%ListOfDataTypes).%New()
@@ -126,7 +126,7 @@
 </Method>
 
 <Method name="MaakLegeNode">
-<FormalSpec>Delimiter:%String</FormalSpec>
+<FormalSpec>Delimiter:%String="\"</FormalSpec>
 <Implementation><![CDATA[
 	Set Node = ##class(GlobalNode).%New(Delimiter)
 	Quit Node
FishEye: Tag 1408 refers to a dead (removed) revision in file `zTryout/ARC/DOM/OV/impl/DataM/DataMOrderBase.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml	(.../DataMProductOrderlijn.cls.xml)	(revision 1408)
@@ -6,17 +6,33 @@
 <Super>DataMOrderlijn</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="Open">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[	Quit ..%New(Nr, Order, LijnNode)
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuwe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Order:Order</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set Nieuwe = ..%New("", Order, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode())
+	Do Nieuwe.ZetField(17, $$$LinetypeProduct)
+	Quit Nieuwe
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Initialize object first
-	Set Super =  ##super(Nr, lineinfo, Order, LijnNode)
-	if (lineinfo = "") { 
-		Do ..ZetField(17, $$$LinetypeProduct) 
-	}
+	Set Super = ##super(Nr, Order, LijnNode)
 	Quit Super
 ]]></Implementation>
 </Method>
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml	(.../DataMTextOrderlijn.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMTextOrderlijn.cls.xml	(.../DataMTextOrderlijn.cls.xml)	(revision 1408)
@@ -7,17 +7,33 @@
 <Super>DataMOrderlijn</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="Open">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[	Quit ..%New(Nr, Order, LijnNode)
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuwe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Order:Order</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set Nieuwe = ..%New("", Order, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode())
+	Do Nieuwe.ZetInFaktuur(0)
+	Quit Nieuwe
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>olijn:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<FormalSpec>olijn:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Initialize object first
-	Set Super =  ##super(olijn, lineinfo, Order, LijnNode)
-	if (lineinfo = "") { 
-		Do ..ZetInFaktuur(0) 
-	}
+	Set Super =  ##super(olijn, Order, LijnNode)
 	Quit Super
 ]]></Implementation>
 </Method>
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 1408)
@@ -4,9 +4,47 @@
 <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>
+<Super>Order,%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="KlantNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Hoofding">
+<Type>%String</Type>
+<InitialExpression>"\"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="HoofdingNode">
+<Type>zTryout.ARC.TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Orderlijnen">
+<Description>
+Public for easy access from iterators.
+Array of DataMOrderlijn.</Description>
+<Type>%ArrayOfObjects</Type>
+</Property>
+
+<Property name="Afleveradres">
+<Type>Adres</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeegOLijn">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeegOLijnNrNode">
+<Type>GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VolgendeOLUNrNode">
 <Type>GlobalNode</Type>
 <Private>1</Private>
@@ -16,12 +54,19 @@
 <FormalSpec>Nr:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##super(Nr)
-	// Leeg afleveradres om te beginnen
-	Quit 1
+	Set ..Nr = Nr
+	Set Orderlijnen = ##class(%ListOfObjects).%New() // TODO: dit moet toch een ArrayOfObjects zijn?
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// *****  START PERSISTENCE METHODS *******
+
+]]></Content>
+</UDLText>
+
 <Method name="Open">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -53,7 +98,7 @@
 	while (key '= "") {
 		Set LijnNr = Lijn.GeefNr()
 		//Set:(LijnNr > MaxOLijn) MaxOLijn = LijnNr
-		If (Lijn.IsDirty()) {
+		If (Lijn.GeefNode().IsGewijzigd()) {
 			w "Save ol ", LijnNr, !
 			// Dirty lijnen krijgen hier een uniek nummer als ze er nog geen hebben
 			If (Lijn.GeefOLU() = "") {
@@ -68,9 +113,67 @@
 	//Set ..LeegOLijn = MaxOLijn + 1
 	Do ..LeegOLijnNrNode.Save()
 	Do ..VolgendeOLUNrNode.Save()
+	
+	// TODO:Alle nodige indexen e.d. up to date brengen.
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// *****  START PROPERTY METHODS *******
+
+]]></Content>
+</UDLText>
+
+<Method name="ZetKlantNr">
+<FormalSpec>Nr:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..KlantNr = Nr
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Nr
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderDatum">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingNode.GeefPiece(2)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOrderDatum">
+<FormalSpec>Datum:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..HoofdingNode.ZetPiece(2, Datum)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfleveradres">
+<ReturnType>Adres</ReturnType>
+<Implementation><![CDATA[	Quit ..Afleveradres
+]]></Implementation>
+</Method>
+
+<Method name="ZetAfleveradres">
+<FormalSpec>Adres:Adres</FormalSpec>
+<Implementation><![CDATA[	Set ..Afleveradres = Adres
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// *****  START ORDERLINE METHODS *******
+
+]]></Content>
+</UDLText>
+
 <Method name="OrderlineIterator">
 <ReturnType>Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DataMOrderLineIterator).%New(##this)
@@ -87,7 +190,7 @@
 <Method name="MaakProductlijn">
 <ReturnType>ProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMProductOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
+	Set Lijn = ##class(DataMProductOrderlijn).MaakNieuwe(##this)
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
 ]]></Implementation>
@@ -97,7 +200,7 @@
 <FormalSpec>Tekst:%String</FormalSpec>
 <ReturnType>TextOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMTextOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
+	Set Lijn = ##class(DataMTextOrderlijn).MaakNieuwe(##this)
 	Do Lijn.ZetTekst(Tekst)
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
@@ -107,17 +210,83 @@
 <Method name="MaakManueleLijn">
 <ReturnType>ManueleOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set Lijn = ##class(DataMManueleOrderlijn).%New("", "", ##this, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode($$$D))
+	Set Lijn = ##class(DataMManueleOrderlijn).MaakNieuwe(##this)
 	Do ..InitializeLijn(Lijn)
 	Quit Lijn
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeAlsNieuw">
+<Description>
+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: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.
+	// Dit 
+	If (LijnNr '= "") {	
+		Set BestaandeLijn = ..Orderlijnen.GetAt(LijnNr)
+		// Doe niets als de lijn al in het order zit met zijn huidig nummer.
+		Quit:((BestaandeLijn '= "") && (BestaandeLijn = Lijn))
+		Quit 0	// TODO goede foutcodes, liefst exceptions
+	}
+	Do Lijn.ZetNr(..GeefEnIncrementLeegOLijn())
+	Do ..Orderlijnen.SetAt(Lijn, Lijn.GeefNr())
+	Do ..OrderlijnToegevoegd(Lijn)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateOrderlijn">
+<Description>
+Vervangt de lijn met hetzelfde nummer als Lijn door Lijn.  
+Als Lijn geen nummer heeft, wordt Lijn als nieuw toegevoegd.
+Als Lijn een nummer heeft en er nog geen lijn was met dit nummer
+dan wordt Lijn toegevoegd als nieuwe lijn met dit nummer.</Description>
+<FormalSpec>Lijn:Orderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set Nr = Lijn.GeefNr()
+	if (Nr = "") { Do 
+		do ..VoegToeAlsNieuw(Lijn) 
+	} Else {
+		Do ..Orderlijnen.SetAt(Lijn, Nr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeegOLijn">
+<Description>
+TBC: Deze is enkel public voor de iterator.</Description>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..LeegOLijnNrNode.GeefPiece(1)
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// *****  START INTERNAL METHODS *******
+
+]]></Content>
+</UDLText>
+
 <Method name="InitializeLijn">
 <FormalSpec>Lijn:Orderlijn</FormalSpec>
 <Private>1</Private>
 </Method>
 
+<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>
+
 <Method name="AfleveradresGet">
 <Private>1</Private>
 <ReturnType>Adres</ReturnType>
@@ -172,6 +341,7 @@
 
 <Method name="OrderlijnToegevoegd">
 <FormalSpec>Lijn:DataMOrderlijn</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[	Do ##class(GlobalPersistenceMgr).Instance().MaakNodePersistent(Lijn.GeefNode(), "^KOD", ..KlantNr, "F", ..Nr, Lijn.GeefNr())
 ]]></Implementation>
 </Method>
Index: zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml	(.../DataMManueleOrderlijn.cls.xml)	(revision 1222)
+++ zTryout/ARC/DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml	(.../DataMManueleOrderlijn.cls.xml)	(revision 1408)
@@ -5,17 +5,33 @@
 <Super>DataMOrderlijn</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="Open">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[	Quit ..%New(Nr, Order, LijnNode)
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuwe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Order:Order</FormalSpec>
+<ReturnType>DataMProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set Nieuwe = ..%New("", Order, ##class(GlobalPersistenceMgr).Instance().MaakLegeNode())
+	Do Nieuwe.ZetField(17, $$$LinetypeManual)
+	Quit Nieuwe
+]]></Implementation>
+</Method>
+
 <Method name="%OnNew">
-<FormalSpec>Nr:%Integer,lineinfo:%String,Order:Order,LijnNode:GlobalNode</FormalSpec>
+<FormalSpec>Nr:%Integer,Order:Order,LijnNode:GlobalNode</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Initialize object first
-	Set Super =  ##super(Nr, lineinfo, Order, LijnNode)
-	if (lineinfo = "") { 
-		Do ..ZetField(17, $$$LinetypeManual)
-	}
+	Set Super = ##super(Nr, Order, LijnNode)
 	Quit Super
 ]]></Implementation>
 </Method>