Index: vhTest/Fake/DOM/EC/Winkelkar/ProductLijn.cls.xml
===================================================================
diff -u -r37215 -r42840
--- vhTest/Fake/DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 37215)
+++ vhTest/Fake/DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 42840)
@@ -3,6 +3,11 @@
 <Class name="vhTest.Fake.DOM.EC.Winkelkar.ProductLijn">
 <Super>DOM.EC.Winkelkar.ProductLijn</Super>
 
+<Property name="ID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="ZetProduct">
 <FormalSpec>Product:DOM.PM.Product</FormalSpec>
 <Implementation><![CDATA[	Set ..Product = Product
@@ -14,8 +19,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ID = ID
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ID
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
+<DefaultData>ProductLijnDefaultData1</DefaultData>
+<Data name="ProductLijnDefaultData1">
+<Subscript>"ProductLijn1"</Subscript>
+<Value name="1">
+<Value>LijnID</Value>
+</Value>
+<Value name="2">
+<Value>ID</Value>
+</Value>
+</Data>
 </Storage>
 </Class>
 
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r42463 -r42840
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 42463)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 42840)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhTest.Utils.DOM.VKP.Order">
 <IncludeCode>Tools.UnitTest</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,vhTest.DOM.VKP.Klant.Base</Super>
 
 <Method name="StandaardOrderZonderLijnen">
 <ClassMethod>1</ClassMethod>
@@ -16,7 +16,7 @@
 	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("GeefKlantID").DanReturn(..#DummyKlantID )
 	Do Order.IndienMethodCall("GeefID").DanReturn(1000)
 	Quit Order
 ]]></Implementation>
Index: vhTest/Utils/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r40897 -r42840
--- vhTest/Utils/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 40897)
+++ vhTest/Utils/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 42840)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="vhTest.Utils.APPS.VKP.Offerte">
 <IncludeCode>Tools.UnitTest</IncludeCode>
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.RegisteredObject,vhTest.DOM.VKP.Klant.Base</Super>
 
 <Method name="StandaardOfferte">
 <ClassMethod>1</ClassMethod>
@@ -11,6 +11,7 @@
 	Set StandaardOfferte = ##class(vhTest.Dummy.APPS.VKP.impl.Offerte).%New($$$DummyInteger)
 	Set StandaardOfferte.WinkelkarID = "WinkelkarID"
 	Set StandaardOfferte.BestelOpmerking = "BestelOpmerking"
+	Set StandaardOfferte.KlantID = ..#DummyKlantID
 	Do StandaardOfferte.ZetGewijzigdOp($$$DummyTimeStamp) 
 	
 	Set StandaardOfferte.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
Index: vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestDeelLeveringen.cls.xml
===================================================================
diff -u -r42499 -r42840
--- vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestDeelLeveringen.cls.xml	(.../TestDeelLeveringen.cls.xml)	(revision 42499)
+++ vhUnitTest/APPS/VKP/impl/WinkelkarLijnenNaarOrderKopieerder/TestDeelLeveringen.cls.xml	(.../TestDeelLeveringen.cls.xml)	(revision 42840)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder.TestDeelLeveringen">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.TestCase,vhTest.DOM.VKP.Klant.Base</Super>
 
 <Parameter name="LevertijdTekst">
 <Type>%String</Type>
@@ -10,59 +10,88 @@
 
 <Method name="Test VerwerkProductLijn zet offerteleverdatum op Order productlijn indien geen vroegsteleverdatums">
 <Implementation><![CDATA[
-		
 	Set BerekeningServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
+	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+
 	#dim VerkoopAPIMock as DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
 	#dim VerkoopPrijsAPIMock as vhTest.Mock.APPS.VKP.VerkoopPrijsAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).MockInstance()
 	
-	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar()
 	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderZonderLijnen()	
 
-	Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
-	#dim ProductOrderlijn1 as DOM.VKP.ProductOrderLijn = ..GeefProductOrderlijn1()
-	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlant",Order,0,"",2).DanReturn(ProductOrderlijn1)
-
+	#dim ProductOrderlijn1 as DOM.VKP.ProductOrderlijn = ..GeefProductOrderlijn(1)
 	
-	Do BerekeningServiceMock.IndienMethodCall("MaakProductVanKenmerken",$$$ElkeWaarde,0,2).DanReturn(..GeefProduct())
-	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlant",Order,..#DummyKlantID,"",2).DanReturn(ProductOrderlijn1)
+
+	Do BerekeningServiceMock.IndienMethodCall("MaakProductVanKenmerken",$$$ElkeWaarde,..#DummyKlantID,2).DanReturn(..GeefProduct())
 	Do VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler",$$$ElkeWaarde).DanReturn(KlantPrijsBepalerMock)
+
 	#dim PrijsInfo as APPS.VKP.dto.PrijsInfo = ..GeefPrijsInfo()
 	Do KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(PrijsInfo)
-	#dim ProductOrderlijn2 as DOM.VKP.ProductOrderLijn = ..GeefProductOrderlijn2()
-	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlantMetOpgegevenPrijs",Order,0,0,2,PrijsInfo).DanReturn(ProductOrderlijn2)
 
+	#dim ProductOrderlijn2 as DOM.VKP.ProductOrderlijn = ..GeefProductOrderlijn(2)
+	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlantMetOpgegevenPrijs",Order,..#DummyKlantID,0,2,PrijsInfo).DanReturn(ProductOrderlijn2)
+
 	#dim Bevestigingen as APPS.common.Bevestigen.dto.GegevenBevestigingen= ""
 	#dim VroegsteLeverdatumsPerLijn as array of %Date = ""
 
 	Set WinkelKarLijnenNaarOrderKopieerder = ##class(APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder).%New(BerekeningServiceMock,VerkoopAPIMock,VerkoopPrijsAPIMock,OrderLevenCyclusServiceMock)
 	Do WinkelKarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar ,Order,Bevestigingen,$$INTDATE^vhLib.DataTypes(..#LevertijdTekst),VroegsteLeverdatumsPerLijn)
 
+	Do $$$AssertEquals(ProductOrderlijn1.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
+	Do $$$AssertEquals(ProductOrderlijn2.GeefLeverdag(),$$INTDATE^vhLib.DataTypes(..#LevertijdTekst))
+	
 	Do OrderLevenCyclusServiceMock.Verifieer()
-	Do ProductOrderlijn1.Verifieer()
-	Do ProductOrderlijn2.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductOrderlijn1">
-<Private>1</Private>
-<ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
+<Method name="Test VerwerkProductLijn zet de juiste datum op OrderProductlijn indien wel vroegsteleverdatums">
 <Implementation><![CDATA[
-	Set ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
-	Do ProductOrderlijn.IndienMethodCall("ZetProjectReferentie","").DanDoeNiks()
-	Do ProductOrderlijn.IndienMethodCall("ZetPakketReferentie","").DanDoeNiks()	
-	Do ProductOrderlijn.VerwachtMethodCall("ZetLeverdag",94598).DanDoeNiks()
-	Quit ProductOrderlijn
+	Set BerekeningServiceMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+	Set OrderLevenCyclusServiceMock = ##class(vhTest.Mock.APPS.VKP.OrderLevenCyclusService).%New()
+	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+
+	#dim VerkoopAPIMock as DOM.VKP.VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
+	#dim VerkoopPrijsAPIMock as vhTest.Mock.APPS.VKP.VerkoopPrijsAPI = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).MockInstance()
+	
+	#dim Winkelkar as DOM.EC.Winkelkar.Winkelkar = ..GeefWinkelkar()
+	
+	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderZonderLijnen()	
+
+	#dim ProductOrderlijn1 as DOM.VKP.ProductOrderlijn = ..GeefProductOrderlijn(1)	
+	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlant",Order,..#DummyKlantID,"",2).DanReturn(ProductOrderlijn1)
+	
+	Do BerekeningServiceMock.IndienMethodCall("MaakProductVanKenmerken",$$$ElkeWaarde,..#DummyKlantID,2).DanReturn(..GeefProduct())
+	Do VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler",$$$ElkeWaarde).DanReturn(KlantPrijsBepalerMock)
+
+	#dim PrijsInfo as APPS.VKP.dto.PrijsInfo = ..GeefPrijsInfo()
+	Do KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanReturn(PrijsInfo)
+	
+	#dim ProductOrderlijn2 as DOM.VKP.ProductOrderlijn = ..GeefProductOrderlijn(2)
+	Do OrderLevenCyclusServiceMock.VerwachtMethodCall("VoegToeProductVoorKlantMetOpgegevenPrijs",Order,..#DummyKlantID,0,2,PrijsInfo).DanReturn(ProductOrderlijn2)
+
+	#dim Bevestigingen as APPS.common.Bevestigen.dto.GegevenBevestigingen= ""
+	#dim VroegsteLeverdatums As Array Of %Date = ##class(%ArrayOfDataTypes).%New()
+	Do VroegsteLeverdatums.SetAt(64450,1) ;16/6/2017
+	Do VroegsteLeverdatums.SetAt(64449,2) ;15/6/2017 
+
+	Set WinkelKarLijnenNaarOrderKopieerder = ##class(APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder).%New(BerekeningServiceMock,VerkoopAPIMock,VerkoopPrijsAPIMock,OrderLevenCyclusServiceMock)
+	Do WinkelKarLijnenNaarOrderKopieerder.KopieerLijnen(Winkelkar ,Order,Bevestigingen,$$INTDATE^vhLib.DataTypes(..#LevertijdTekst),VroegsteLeverdatums)
+
+	Do OrderLevenCyclusServiceMock.Verifieer()
+	
+	do $$$AssertEquals(ProductOrderlijn1.GeefLeverdag(),64450)
+	do $$$AssertEquals(ProductOrderlijn2.GeefLeverdag(),64449)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductOrderlijn2">
+<Method name="GeefProductOrderlijn">
+<FormalSpec>LijnID:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.VKP.ProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
-	Set ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
-	Do ProductOrderlijn.IndienMethodCall("ZetProjectReferentie","").DanDoeNiks()
-	Do ProductOrderlijn.IndienMethodCall("ZetPakketReferentie","").DanDoeNiks()	
-	Do ProductOrderlijn.VerwachtMethodCall("ZetLeverdag",94598).DanDoeNiks()
+	Set ProductOrderlijn = ##class(vhTest.Fake.DOM.VKP.ProductOrderlijn).%New(LijnID)
 	Quit ProductOrderlijn
 ]]></Implementation>
 </Method>
@@ -86,6 +115,57 @@
 	quit PrijsInfo
 ]]></Implementation>
 </Method>
+
+<Method name="GeefWinkelkar">
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	#dim Winkelkar as vhTest.Fake.DOM.EC.Winkelkar.Winkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).LegeWinkelkar()
+	
+	Set Winkelkar.Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("Root")
+	Do Winkelkar.ZetKlantID(..#DummyKlantID)
+	
+	Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New("GroepLijn")
+	Do GroepLijn.Sublijnen.Insert(..GeefProductLijn(1, 2, 7.75, 15.5))
+	Do GroepLijn.Sublijnen.Insert(..GeefMaatwerkLijn(2, 2, 6.75, 13.5))
+	
+	Do Winkelkar.Root.Sublijnen.Insert(GroepLijn)
+
+	Quit Winkelkar
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijn">
+<FormalSpec>LijnID:%Integer,Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductLijn = ##class(vhTest.Fake.DOM.EC.Winkelkar.ProductLijn).%New("ProductId", Aantal)
+	Do ProductLijn.ZetID(LijnID)
+	Set ProductLijn.Product = ##class(Prod.Product).%New()
+	Set ProductLijn.Product.KortTekst = "ProductKortTekst"
+	Do ProductLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs)
+	Do ProductLijn.ZetEindklantTotaalPrijs(TotaalPrijs)
+	Quit ProductLijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkLijn">
+<FormalSpec>LijnID:%Integer,Aantal:%Integer,EenheidPrijs:%Decimal,TotaalPrijs:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
+	Set MaatwerkLijn = ##class(vhTest.Fake.DOM.EC.Winkelkar.MaatwerkLijn).%New("","","",LijnID)
+	Do MaatwerkLijn.ZetAantal(Aantal)
+	Do MaatwerkLijn.ZetEenheidPrijsNettoExclBTW(EenheidPrijs)
+	Do MaatwerkLijn.ZetTotaalPrijs(TotaalPrijs)
+	Do MaatwerkLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs * 10)
+	Do MaatwerkLijn.ZetEindklantTotaalPrijs(TotaalPrijs * 10)
+	Do MaatwerkLijn.ZetIngegevenKenmerken(Kenmerken)
+	Quit MaatwerkLijn
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml
===================================================================
diff -u -r42476 -r42840
--- vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42476)
+++ vhUnitTest/APPS/VKP/OrderIngaveService/MaakOrderVanOfferte/TestOrderIngaveServiceDeelLeveringen.cls.xml	(.../TestOrderIngaveServiceDeelLeveringen.cls.xml)	(revision 42840)
@@ -3,7 +3,7 @@
 <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.TestCase</Super>
+<Super>vhUnitTest.TestCase,vhTest.DOM.VKP.Klant.Base</Super>
 
 <Property name="TekstLijnenToevoegerMock">
 <Type>vhTest.Mock.APPS.VKP.OrderIngaveService.TekstLijnenToevoeger</Type>
@@ -99,7 +99,7 @@
 <Method name="Test : MaakOrderVanOfferte met Deelleveringen zet roept Orderlijnkopieerder aan met de vroegsteleverdatum array als parameter">
 <Implementation><![CDATA[
 	Do ..TekstLijnenToevoegerMock.IndienMethodCall("VoegToeOpmerkingLijnenAanOrder",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
-	Do ..AdresUtilsMock.VerwachtMethodCall("ConverteerNaarLeverAdres","0","").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	Do ..AdresUtilsMock.VerwachtMethodCall("ConverteerNaarLeverAdres",..#DummyKlantID,"").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn(64451)
 	Do ..DocumentReferentiesRepositoryMock.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 
@@ -114,7 +114,7 @@
 	
 	Do ..OrderAPIMock.VerwachtMethodCall("Bewaar",Order).DanDoeNiks()
 		
-	Do ..OrderLevenCyclusServiceMock.VerwachtMethodCall("MaakOrderMetKlantGegevens",$$$DummyInteger,"").DanReturn(Order)
+	Do ..OrderLevenCyclusServiceMock.VerwachtMethodCall("MaakOrderMetKlantGegevens",..#DummyKlantID,"").DanReturn(Order)
 	
 	#dim VroegsteLeverdatums As array Of %Date = ##class(%ArrayOfObjects).%New()
 	Do VroegsteLeverdatums.SetAt(64450,1) ;16/6/2017
@@ -143,7 +143,7 @@
 <Implementation><![CDATA[
 	Do ..TekstLijnenToevoegerMock.IndienMethodCall("VoegToeOpmerkingLijnenAanOrder",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
 	Set ..OrderPrijsValidatorMock = ##class(vhTest.Mock.APPS.VKP.impl.OrderPrijsValidatie).%New()
-	Do ..AdresUtilsMock.VerwachtMethodCall("ConverteerNaarLeverAdres","0","").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
+	Do ..AdresUtilsMock.VerwachtMethodCall("ConverteerNaarLeverAdres",..#DummyKlantID,"").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn(64451)
 	Do ..DocumentReferentiesRepositoryMock.IndienMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 	
@@ -156,7 +156,7 @@
 	
 	#dim Order As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrderZonderLijnen()	
 	Do ..OrderAPIMock.VerwachtMethodCall("Bewaar",Order).DanDoeNiks()
-	Do ..OrderLevenCyclusServiceMock.VerwachtMethodCall("MaakOrderMetKlantGegevens",$$$DummyInteger,"").DanReturn(Order)
+	Do ..OrderLevenCyclusServiceMock.VerwachtMethodCall("MaakOrderMetKlantGegevens",..#DummyKlantID,"").DanReturn(Order)
 	
 	Do ..WinkelkarLijnenNaarOrderKopieerderMock.VerwachtMethodCall("KopieerLijnen",WinkelkarDummy,Order,"",94598,"").DanDoeNiks()
 	
Index: vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/ProductOrderlijn.cls.xml	(revision 42840)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.ProductOrderlijn">
+<Super>DOM.VKP.ProductOrderlijn,TECH.RegisteredObject</Super>
+
+<Property name="ID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Leverdag">
+<Type>%Date</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PakketReferentie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ID:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ID = ID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..ID
+]]></Implementation>
+</Method>
+
+<Method name="ZetLeverdag">
+<FormalSpec>Value:%Date</FormalSpec>
+<Implementation><![CDATA[	Set ..Leverdag = Value
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverdag">
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ..Leverdag
+]]></Implementation>
+</Method>
+
+<Method name="GeefProjectReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProjectReferentie
+]]></Implementation>
+</Method>
+
+<Method name="GeefPakketReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..PakketReferentie
+]]></Implementation>
+</Method>
+
+<Method name="ZetPakketReferentie">
+<FormalSpec>PakketReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..PakketReferentie = PakketReferentie
+]]></Implementation>
+</Method>
+
+<Method name="ZetProjectReferentie">
+<FormalSpec>ProjectReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ProjectReferentie = ProjectReferentie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>