Index: vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml
===================================================================
diff -u -r31715 -r31962
--- vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31715)
+++ vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31962)
@@ -33,7 +33,7 @@
 	Set ..OrderAPIMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	Set ..WachtrijAfhandelaar = ##class(vhTest.Spy.APPS.OV.OrderBevestiging.WachtrijAfhandelaar).%New()
 
-	Do ..VerwijderTestData()
+	//Do ..VerwijderTestData()
 	Do ..MaakTestData()
 ]]></Implementation>
 </Method>
@@ -43,7 +43,7 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
-	Do ..VerwijderTestData()
+	//Do ..VerwijderTestData()
 ]]></Implementation>
 </Method>
 
Index: APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml
===================================================================
diff -u -r31711 -r31962
--- APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml	(.../Base.cls.xml)	(revision 31711)
+++ APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml	(.../Base.cls.xml)	(revision 31962)
@@ -158,33 +158,38 @@
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(APPS.OV.OrderBevestiging.data.Order).OrderIDIndexDelete(Order.GeefID())
+	
 	#dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
+	If Iterator.HasNext() {
+		#dim OrderBevestiging As APPS.OV.OrderBevestiging.data.Order = ##class(APPS.OV.OrderBevestiging.data.Order).%New(Order.GeefKlantID(), Order.GeefID())
 	
-	While (Iterator.HasNext()) {
-		#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Iterator.Next()
-		#dim OrderBevestiging As APPS.OV.OrderBevestiging.dto.OrderBevestiging = ..MaakOrderBevestiging(Order, ProductOrderLijn)
-		#dim OrderBevestigingData As APPS.OV.OrderBevestiging.data.Order = ##class(APPS.OV.OrderBevestiging.data.Order).%New(Order.GeefKlantID(), Order.GeefID(), OrderBevestiging)
+		While (Iterator.HasNext()) { 
+			#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Iterator.Next()
+			
+			Do OrderBevestiging.Lijnen.Insert(..MaakBevestigingLijn(Order, ProductOrderLijn))
+		}
 		
-		Do OrderBevestigingData.Save()
+		Do OrderBevestiging.Save()
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="MaakOrderBevestiging">
+<Method name="MaakBevestigingLijn">
 <FormalSpec>Order:DOM.VKP.Order,ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.OV.OrderBevestiging.dto.OrderBevestiging</ReturnType>
+<ReturnType>APPS.OV.OrderBevestiging.data.OrderLijn</ReturnType>
 <Implementation><![CDATA[
-	#dim OrderBevestiging As APPS.OV.OrderBevestiging.dto.OrderBevestiging = ##class(APPS.OV.OrderBevestiging.dto.OrderBevestiging).%New()
+	#dim Lijn As APPS.OV.OrderBevestiging.data.OrderLijn = ##class(APPS.OV.OrderBevestiging.data.OrderLijn).%New()
 	
-	Set OrderBevestiging.OrderID = Order.GeefDocumentReferenties().GeefOrderReferentieZonderDatum()
-	Set OrderBevestiging.PositieNrOrder = ProductOrderLijn.GeefProjectReferentie()	
-	Set OrderBevestiging.BevestigingNrLeverancier = Order.GeefID()
-	Set OrderBevestiging.PrijsPerStuk = ProductOrderLijn.GeefEenheidPrijsExclBTW()
-	Set OrderBevestiging.AantalStuks = ProductOrderLijn.GeefAantal()
-	Set OrderBevestiging.Leverweek = ..GeefLeverweek(Order.GeefVroegsteLeverdatum())
+	Set Lijn.OrderID = Order.GeefDocumentReferenties().GeefOrderReferentieZonderDatum()
+	Set Lijn.PositieNrOrder = ProductOrderLijn.GeefProjectReferentie()	
+	Set Lijn.BevestigingNrLeverancier = Order.GeefID()
+	Set Lijn.PrijsPerStuk = ProductOrderLijn.GeefEenheidPrijsExclBTW()
+	Set Lijn.AantalStuks = ProductOrderLijn.GeefAantal()
+	Set Lijn.Leverweek = ..GeefLeverweek(Order.GeefVroegsteLeverdatum())
 	
-	Quit OrderBevestiging
+	Quit Lijn
 ]]></Implementation>
 </Method>
 
Index: APPS/OV/OrderBevestiging/data/Order.cls.xml
===================================================================
diff -u -r31707 -r31962
--- APPS/OV/OrderBevestiging/data/Order.cls.xml	(.../Order.cls.xml)	(revision 31707)
+++ APPS/OV/OrderBevestiging/data/Order.cls.xml	(.../Order.cls.xml)	(revision 31962)
@@ -16,9 +16,11 @@
 <Type>APPS.OV.OrderBevestiging.enu.BevestigingStatus</Type>
 </Property>
 
-<Property name="OrderBevestiging">
-<Type>APPS.OV.OrderBevestiging.dto.OrderBevestiging</Type>
-<Parameter name="CLASSNAME" value="1"/>
+<Property name="Lijnen">
+<Type>APPS.OV.OrderBevestiging.data.OrderLijn</Type>
+<Cardinality>children</Cardinality>
+<Inverse>Order</Inverse>
+<Relationship>1</Relationship>
 </Property>
 
 <Index name="KlantIDIndex">
@@ -27,19 +29,19 @@
 
 <Index name="OrderIDIndex">
 <Properties>OrderID</Properties>
+<Unique>1</Unique>
 </Index>
 
 <Index name="OrderIDBevestigingStatus">
 <Properties>BevestigingStatus</Properties>
 </Index>
 
 <Method name="%OnNew">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,OrderID:%String,OrderBevestiging:APPS.OV.OrderBevestiging.dto.OrderBevestiging</FormalSpec>
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID,OrderID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..OrderID = OrderID
 	Set ..KlantID = KlantID
-	Set ..OrderBevestiging = OrderBevestiging
 	Set ..BevestigingStatus = ##class(APPS.OV.OrderBevestiging.enu.BevestigingStatus).NogTeBevestigen()
 	
 	Quit $$$OK
@@ -54,6 +56,8 @@
 <IndexLocation>^APPS.OV.OrderBevesti4216.OrderI</IndexLocation>
 <StreamLocation>^APPS.OV.OrderBevesti4216.OrderS</StreamLocation>
 <Data name="OrderDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -64,13 +68,13 @@
 <Value>AangemaaktOp</Value>
 </Value>
 <Value name="4">
-<Value>GewijzigdDoor</Value>
+<Value>BevestigingStatus</Value>
 </Value>
 <Value name="5">
 <Value>GewijzigdOp</Value>
 </Value>
 <Value name="6">
-<Value>BevestigingStatus</Value>
+<Value>GewijzigdDoor</Value>
 </Value>
 <Value name="7">
 <Value>InstanceVersion</Value>
@@ -81,12 +85,6 @@
 <Value name="9">
 <Value>OrderID</Value>
 </Value>
-<Value name="10">
-<Value>OrderBevestigingen</Value>
-</Value>
-<Value name="11">
-<Value>OrderBevestiging</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml	(revision 0)
+++ APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml	(revision 31962)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.OrderBevestiging.data.OrderLijn">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent,APPS.OV.OrderBevestiging.dto.OrderBevestiging</Super>
+
+<Parameter name="XMLTYPE">
+<Default>APPS.OV.OrderBevestiging.data.OrderLijn</Default>
+</Parameter>
+
+<Property name="Order">
+<Type>APPS.OV.OrderBevestiging.data.Order</Type>
+<Cardinality>parent</Cardinality>
+<Inverse>Lijnen</Inverse>
+<Relationship>1</Relationship>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>{%%PARENT}("Lijnen")</DataLocation>
+<DefaultData>OrderLijnDefaultData</DefaultData>
+<IdLocation>^APPS.OV.OrderBevesti4216.OrderC("Lijnen")</IdLocation>
+<IndexLocation>^APPS.OV.OrderBev4216.OrderLijnI</IndexLocation>
+<StreamLocation>^APPS.OV.OrderBev4216.OrderLijnS</StreamLocation>
+<Data name="OrderLijnDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>LeverancierNr</Value>
+</Value>
+<Value name="3">
+<Value>OrderID</Value>
+</Value>
+<Value name="4">
+<Value>PositieNrOrder</Value>
+</Value>
+<Value name="5">
+<Value>BevestigingNrLeverancier</Value>
+</Value>
+<Value name="6">
+<Value>PrijsPerStuk</Value>
+</Value>
+<Value name="7">
+<Value>Leverweek</Value>
+</Value>
+<Value name="8">
+<Value>AantalStuks</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Spy/APPS/OV/OrderBevestiging/WachtrijAfhandelaar.cls.xml
===================================================================
diff -u -r31714 -r31962
--- vhTest/Spy/APPS/OV/OrderBevestiging/WachtrijAfhandelaar.cls.xml	(.../WachtrijAfhandelaar.cls.xml)	(revision 31714)
+++ vhTest/Spy/APPS/OV/OrderBevestiging/WachtrijAfhandelaar.cls.xml	(.../WachtrijAfhandelaar.cls.xml)	(revision 31962)
@@ -7,7 +7,7 @@
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="OrderBevestigingen">
+<Property name="OrderLijnen">
 <Type>%ListOfObjects</Type>
 </Property>
 
@@ -20,7 +20,7 @@
 <Implementation><![CDATA[
 	Set:$Data(Verstuurder) ..Verstuurder = Verstuurder
 	Set ..IsLogEnMailExceptieOpgeroepen = $$$False
-	Set ..OrderBevestigingen = ##class(%ListOfObjects).%New()
+	Set ..OrderLijnen = ##class(%ListOfObjects).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -49,16 +49,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakOrderBevestiging">
+<Method name="MaakBevestigingLijn">
 <FormalSpec>Order:DOM.VKP.Order,ProductOrderLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.OV.OrderBevestiging.dto.OrderBevestiging</ReturnType>
+<ReturnType>APPS.OV.OrderBevestiging.data.OrderLijn</ReturnType>
 <Implementation><![CDATA[
-	#dim OrderBevestiging As APPS.OV.OrderBevestiging.dto.OrderBevestiging = ##super(Order, ProductOrderLijn)
+	#dim OrderLijn As APPS.OV.OrderBevestiging.data.OrderLijn = ##super(Order, ProductOrderLijn)
 	
-	Do ..OrderBevestigingen.Insert(OrderBevestiging)
+	Do ..OrderLijnen.Insert(OrderLijn)
 
-	Quit OrderBevestiging
+	Quit OrderLijn
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/BewaarBevestigingen/Test.cls.xml
===================================================================
diff -u -r31715 -r31962
--- vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/BewaarBevestigingen/Test.cls.xml	(.../Test.cls.xml)	(revision 31715)
+++ vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/BewaarBevestigingen/Test.cls.xml	(.../Test.cls.xml)	(revision 31962)
@@ -64,6 +64,9 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bewaar order met reeds bestaand OrderID overschrijft bestaand order">
+</Method>
+
 <Method name="AssertLogEnMailExceptieOpgeroepen">
 <FormalSpec>VerwachteWaarde:%Boolean</FormalSpec>
 <Private>1</Private>