Index: vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37872 -r42359
--- vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37872)
+++ vhTest/Mock/APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 42359)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.VKP.OrderIngaveService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.VKP.OrderIngaveService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml
===================================================================
diff -u -r42354 -r42359
--- DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 42354)
+++ DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 42359)
@@ -12,7 +12,7 @@
 </Property>
 
 <Property name="ProductLijnen">
-<Type>DOM.EC.Winkelkar.MaatwerkLijn</Type>
+<Type>DOM.EC.Winkelkar.ProductLijn</Type>
 <Collection>list</Collection>
 <Private>1</Private>
 </Property>
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(revision 42359)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveServiceDeelLeveringen">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestOrderIngaveService")</Description>
+<Super>vhUnitTest.APPS.VKP.OrderIngaveService.MaakOrderVanOfferte.TestBase</Super>
+
+<Method name="TestMaakOrderVanOfferteGeenDeelleveringen">
+<Implementation><![CDATA[
+	
+	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()
+]]></Implementation>
+</Method>
+
+<Method name="aTest : MaakOrderVanOfferte met Deelleveringen">
+<Implementation><![CDATA[
+	/*
+	Do ..VoegToeWinkelkarLijn(..Winkelkar,"DummyGroepNaam",1001,10)
+	Do ..Winkelkar.Save()
+	*/
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/OrderIngaveService.cls.xml
===================================================================
diff -u -r37950 -r42359
--- APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 37950)
+++ APPS/VKP/OrderIngaveService.cls.xml	(.../OrderIngaveService.cls.xml)	(revision 42359)
@@ -63,8 +63,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VroegsteLeverdatumBepaler">
+<Type>APPS.EC.impl.VroegsteLeverdatumBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie</FormalSpec>
+<FormalSpec>TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -81,6 +86,7 @@
 	set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	set ..AdresUtils = ##class(APPS.VKP.OrderIngave.impl.AdresUtils).%New()
 	set ..OrderPrijsValidator = $$$Inject(OrderPrijsValidator,##class(APPS.VKP.impl.OrderPrijsValidatie).%New())
+	Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -188,6 +194,7 @@
 		Do ..VoegToeWinkelkarLijnenAanOrder(Order, Offerte, GegevenBevestigingen)
 		
 		Do Order.Save()
+		
 		Do ##class(DOM.VKP.event.OrderEventRaiser).RaiseOrderGemaaktEvent(Order.GeefID())
 		
 		Do Offerte.ZetOrderID(Order.GeefID())
@@ -264,15 +271,15 @@
 <FormalSpec>Order:DOM.VKP.Order,Offerte:APPS.VKP.impl.Offerte,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID)
-
-	Do ..WinkelkarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar, Order, GegevenBevestigingen)
-	
+	#Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID)	
+	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/TestBase.cls.xml
===================================================================
diff -u -r42323 -r42359
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 42323)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 42359)
@@ -91,15 +91,15 @@
 
 <Method name="VerwijderTestData">
 <Private>1</Private>
-<Implementation><![CDATA[	Do ..Data.VerwijderTestData(1000,1000)
+<Implementation><![CDATA[	Do ..Data.VerwijderTestData(1000,1001)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakData">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..GeefTestUserID())
-	Do ..Data.CreeerTestData(1000,1000)
+	Do ..Data.CreeerTestData(1000,1001)
 
 	set ExterneVerkoopService = ##class(WS.EC.ExterneVerkoopService).%New()
 	#dim OfferteIDEnWinkelkarID As APPS.EC.dto.OfferteIDEnWinkelkarID = ExterneVerkoopService.MaakOfferte("K||1000")
@@ -115,13 +115,22 @@
 	
 	Do ..Offerte.ZetLeverDatum($$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
 	Do ..Offerte.Save()
-	
+		
 	Set ..Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).OpenId(OfferteIDEnWinkelkarID.WinkelkarID)
+	Do ..VoegToeWinkelkarLijn(..Winkelkar,"DummyGroepNaam",1000,5)
+	
+	Do ..Winkelkar.Save()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWinkelkarLijn">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
 	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
 	Do ProductLijnBuilder.Init(..Winkelkar)
-	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn("DummyGroepNaam",1000,5)
-	Do ..Winkelkar.VoegToe(ProductLijn)
-	Do ..Winkelkar.Save()
+	Do ProductLijnBuilder.MaakLijn(GroepNaam,ProductID,Aantal)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml
===================================================================
diff -u -r41921 -r42359
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 41921)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder.cls.xml	(.../WinkelkarLijnenNaarOrderKopieerder.cls.xml)	(revision 42359)
@@ -33,6 +33,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteLeverdatum">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VroegsteLeverdatumPerLijn">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="MaakOrderVanOffertePrijsVerschillen">
 <Type>%String</Type>
 <Default>APPS.VKP.WinkelkarLijnenNaarOrderVisitor.MaakOrderVanOffertePrijsVerschillen</Default>
@@ -55,10 +65,13 @@
 </Method>
 
 <Method name="KopieerLijnen">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Order:DOM.VKP.Order,GegevenBevestigingen:APPS.common.Bevestigen.dto.GegevenBevestigingen,OfferteLeverdatum:%String="",VroegsteLeverdatumPerLijn:%ListOfDataTypes=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Order = Order
 	Set ..GegevenBevestigingen = GegevenBevestigingen
+	Set ..OfferteLeverdatum = OfferteLeverdatum
+	Set ..VroegsteLeverdatumPerLijn = VroegsteLeverdatumPerLijn
+
 	Do Winkelkar.Accept($this)
 ]]></Implementation>
 </Method>
@@ -90,10 +103,16 @@
 <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())
 	
+	if ..VroegsteLeverdatumPerLijn.Count() = 0 {
+		Do ProductOrderLijn.ZetLeverdag(..OfferteLeverdatum)		
+	} else {
+		Do ProductOrderLijn.ZetLeverdag(..VroegsteLeverdatumPerLijn.GetAt(ProductLijn.GeefID()))
+	}
 	Quit $$$OK
 ]]></Implementation>
 </Method>