Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml
===================================================================
diff -u -r42460 -r42463
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42460)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42463)
@@ -5,53 +5,11 @@
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveService")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Class vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveServiceDeelLeveringen Extends vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestBase
-*/
-]]></Content>
-</UDLText>
-
 <Parameter name="LevertijdTekst">
 <Type>%String</Type>
 <Default>31-12-2099</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method aTestMaakOrderVanOfferteGeenDeelleveringen()
-{
-	
-	Do ..VoegToeWinkelkarLijn(..Winkelkar,"DummyGroepNaam",1001,5)
-	
-	Do ..Winkelkar.Save()
-
-	
-	#Dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
-	
-	#dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
-	Do $$$AssertTrue(Iterator.HasNext())
-	
-	#dim ProductOrderLijn as DOM.VKP.ProductOrderlijn = Iterator.Next()
-	
-	do $$$AssertEquals(ProductOrderLijn.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
-	
-	Do $$$AssertTrue(Iterator.HasNext())
-	
-	Set ProductOrderLijn = Iterator.Next()
-	
-	do $$$AssertEquals(ProductOrderLijn.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
-
-	Do $$$AssertFalse(Iterator.HasNext())
-
-	Set ..EersteOrderID = Order.GeefID()
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="Test : MaakOrderVanOfferte met Deelleveringen zet roept Orderlijnkopieerder aan met de vroegsteleverdatum array als parameter">
 <Implementation><![CDATA[
 	Set TekstLijnenToevoegerMock = ##class(vhTest.Mock.APPS.VKP.OrderIngaveService.TekstLijnenToevoeger).%New()
@@ -78,7 +36,7 @@
 	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefViaID","WinkelkarID").DanReturn(WinkelkarDummy)
 	
-	#dim Order As DOM.VKP.Order = ..GeefOrder()
+	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderZonderLijnen()	
 
 	#dim OrderAPIMock as vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	;Do OrderAPIMock.VerwachtMethodCall("MaakNieuwOrder","K||1000","").DanReturn(Order)
@@ -94,30 +52,15 @@
 	Do VroegsteLeverDatumBepalerMock.VerwachtMethodCall("GeefVroegsteLeverdatumPerLijn",WinkelkarDummy,"").DanReturn(VroegsteLeverdatums)
 
 	Set WinkelkarLijnenNaarOrderKopieerder = ##class(vhTest.Mock.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder).%New()
-	Do WinkelkarLijnenNaarOrderKopieerder.VerwachtMethodCall("KopieerLijnen",WinkelkarDummy,Order,"","",VroegsteLeverdatums).DanDoeNiks()
+	Do WinkelkarLijnenNaarOrderKopieerder.VerwachtMethodCall("KopieerLijnen",WinkelkarDummy,Order,"",94598,VroegsteLeverdatums).DanDoeNiks()
 
 	Set MijnOrderIngaveService = ##class(APPS.VKP.OrderIngaveService).%New(TekstLijnenToevoegerMock,DateTimeAPIMock,OfferteRepositoryMock,OrderAPIMock,GebruikerBeheerderMock,OrderLevenCyclusServiceMock,WinkelkarRepositoryMock,OrderPrijsValidator,VroegsteLeverDatumBepalerMock,DocumentReferentiesRepositoryMock,AdresUtilsMock,WinkelkarLijnenNaarOrderKopieerder)
 	
-	Set OfferteDummy.WensLeverDatum = "ASAP"
+	Do OfferteDummy.ZetWensLeverDatum("ASAP")
+	Do OfferteDummy.ZetLeverDatum($$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
 	
 	Set Order = MijnOrderIngaveService.MaakOrderVanOfferte(OfferteDummy.GeefID())
-	/*
-	#dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
-	Do $$$AssertTrue(Iterator.HasNext())
 	
-	#dim ProductOrderLijn as DOM.VKP.ProductOrderlijn = Iterator.Next()
-	
-	do $$$AssertEquals(ProductOrderLijn.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
-	
-	Do $$$AssertTrue(Iterator.HasNext())
-	
-	Set ProductOrderLijn = Iterator.Next()
-	
-	do $$$AssertEquals(ProductOrderLijn.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
-
-	Do $$$AssertFalse(Iterator.HasNext())
-*/
-	
 	Do OrderAPIMock.Verifieer()
 	Do OfferteRepositoryMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
@@ -126,32 +69,8 @@
 	Do AdresUtilsMock.Verifieer()
 	Do WinkelkarLijnenNaarOrderKopieerder.Verifieer()
 	Do DateTimeAPIMock.Verifieer()
-	;Do DocumentReferentiesRepositoryMock.Verifieer()
-	;Do TekstLijnenToevoegerMock.Verifieer()
-	
-	;Do Order.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOrder">
-<FormalSpec>OrderID:%String,KlantID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.Order</ReturnType>
-<Implementation><![CDATA[
-	Set Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
-	
-	Do Order.IndienMethodCall("ZetDocumentReferenties",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("ZetAfleveradres",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("ZetOorsprong",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("ZetEDINummer",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks()
-	Do Order.IndienMethodCall("GeefKlantID").DanReturn($$$DummyInteger)
-	Do Order.IndienMethodCall("GeefID").DanReturn(1000)
-	;Do Order.IndienMethodCall("").	
-	Quit Order
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(revision 42463)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.VKP.Order">
+<IncludeCode>Tools.UnitTest</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardOrderZonderLijnen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.Order</ReturnType>
+<Implementation><![CDATA[
+	Set Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	
+	Do Order.IndienMethodCall("ZetDocumentReferenties",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetAfleveradres",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetOorsprong",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetEDINummer",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("GeefKlantID").DanReturn($$$DummyInteger)
+	Do Order.IndienMethodCall("GeefID").DanReturn(1000)
+	Quit Order
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>