Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml
===================================================================
diff -u -r42359 -r42410
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 42359)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 42410)
@@ -95,6 +95,12 @@
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlantMetOpgegevenPrijs(..Order,..Order.GeefKlantID(),MaatwerkLijn.GeefProductID(),MaatwerkLijn.GeefAantal(),PrijsInfo)
 	Do ProductOrderLijn.ZetProjectReferentie(MaatwerkLijn.GeefProjectReferentie())
 	
+	if ..VroegsteLeverdatumPerLijn.Count() = 0 {
+		Do ProductOrderLijn.ZetLeverdag(..OfferteLeverdatum)		
+	} else {
+		Do ProductOrderLijn.ZetLeverdag(..VroegsteLeverdatumPerLijn.GetAt(MaatwerkLijn.GeefID()))
+	}
+
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -103,7 +109,6 @@
 <FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	w !,"ProductLijn " _ ProductLijn.%ClassName(1)
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ..OrderLevenCyclusService.VoegToeProductVoorKlant(..Order,..Order.GeefKlantID(),ProductLijn.GeefProductId(),ProductLijn.GeefAantal())
 	Do ProductOrderLijn.ZetProjectReferentie(ProductLijn.GeefProjectReferentie())
 	Do ProductOrderLijn.ZetPakketReferentie(ProductLijn.GeefPakketReferentie())
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r42398 -r42410
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 42398)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 42410)
@@ -279,18 +279,12 @@
 <Implementation><![CDATA[
 	#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID)	
 	If Offerte.WensLeverDatum = "ASAP" {
-		Set VroegsteLeverdatums = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar)
+		w !,"########### ASAP ##############"
+		#dim VroegsteLeverdatums as array of %Date = ..VroegsteLeverdatumBepaler.GeefVroegsteLeverdatumPerLijn(Winkelkar)
+		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen,Offerte.LeverDatum,VroegsteLeverdatums)
+	} else {
 		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen,Offerte.LeverDatum,"")
-	}else {
-		Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen,Offerte.LeverDatum,"")
 	}
-	/*	
-	#Dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
-	While (Iterator.HasNext()) {
-		#Dim OrderLijn As DOM.VKP.ProductOrderlijn = Iterator.Next()
-		Do OrderLijn.ZetLeverdag(Offerte.LeverDatum)
-	}
-	*/
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml
===================================================================
diff -u -r42359 -r42410
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42359)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42410)
@@ -12,7 +12,7 @@
 	
 	Do ..Winkelkar.Save()
 
-
+	
 	#Dim Order As DOM.VKP.Order = ..OrderIngaveService.MaakOrderVanOfferte(..Offerte.GeefID())
 	
 	#dim Iterator As TECH.Iterator = Order.GeefProductOrderLijnIterator()
@@ -37,10 +37,43 @@
 
 <Method name="aTest : MaakOrderVanOfferte met Deelleveringen">
 <Implementation><![CDATA[
-	/*
 	Do ..VoegToeWinkelkarLijn(..Winkelkar,"DummyGroepNaam",1001,10)
 	Do ..Winkelkar.Save()
-	*/
+
+	Set VroegsteLeverDatumBepaler = ##class(vhTest.Mock.APPS.EC.impl.VroegsteLeverdatumBepaler).%New()
+	Set DocumentReferentiesRepository = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Set MijnOrderIngaveService = ##class(APPS.VKP.OrderIngaveService).%New(,,,,,,,,VroegsteLeverDatumBepaler,DocumentReferentiesRepository)
+	#dim VroegsteLeverdatums As array Of %Date = ##class(%ArrayOfObjects).%New()
+	Do VroegsteLeverdatums.SetAt(64450,1) ;16/6/2017
+	Do VroegsteLeverdatums.SetAt(64449,2) ;15/6/2017 
+
+	Do VroegsteLeverDatumBepaler.VerwachtMethodCall("GeefVroegsteLeverdatumPerLijn",..Winkelkar,"").DanReturn(VroegsteLeverdatums)
+	
+	
+	
+	Set ..Offerte.WensLeverDatum = "ASAP"
+
+	#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()
+	
+	Do VroegsteLeverDatumBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>