Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(revision 38858)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BewaarProductLijn haalt de interne id op adhv ExterneId">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim OfferteRepositoryMock As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$True)
+	Do OfferteRepositoryMock.VerwachtMethodCall("GeefViaExterneId", "WinkelkarId").DanReturn(OfferteDummy)
+	
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(, OfferteRepositoryMock)
+	
+	Do BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
+
+	Do OfferteRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BewaarProductLijn geeft foutmelding indien ExterneId niet bestaat">
+<Implementation><![CDATA[
+	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	
+	#dim OfferteRepositoryMock As vhTest.Mock.APPS.VKP.Offerte.OfferteRepository = ##class(vhTest.Mock.APPS.VKP.Offerte.OfferteRepository).%New()
+	Do OfferteRepositoryMock.VerwachtMethodCall("BestaatViaExterneId", "WinkelkarId").DanReturn($$$False)
+	
+	#dim BereidVoorBestelling As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(, OfferteRepositoryMock)
+
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ExterneId WinkelkarId bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+	
+	Do BereidVoorBestelling.BereidVoorBestelling(..GeefBereidVoorBestellingRequest())
+]]></Implementation>
+</Method>
+
+<Method name="GeefBereidVoorBestellingRequest">
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).BereidVoorBestellingRequest()
+	Set BereidVoorBestellingRequest.Header.WinkelkarId = "WinkelkarId"
+
+	Quit BereidVoorBestellingRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(revision 38858)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopService">
+<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteRepository">
+<Type>APPS.VKP.Offerte.OfferteRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,OfferteRepository:APPS.VKP.Offerte.OfferteRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
+	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BereidVoorBestelling">
+<FormalSpec>BereidVoorBestellingRequest:WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse</ReturnType>
+<Implementation><![CDATA[
+	Do ..ControleerExterneId(BereidVoorBestellingRequest.Header.WinkelkarId)
+
+	#dim OfferteID As %String = ..OfferteRepository.GeefViaExterneId(BereidVoorBestellingRequest.Header.WinkelkarId).GeefID()
+
+	;Do ..VerkoopService.GeefMogelijkeLeverdatums(OfferteID)
+
+	#dim Resultaat As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
+	Set Resultaat = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
+	;Do Resultaat.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 1 )
+	;Do Resultaat.MogelijkeLeverdatums.Insert( ##class(TECH.DateTime.impl.DateTimeAPI).%New().CurrentDate() + 2 )
+	
+	;Set HerberekendeLijn = ##class(WS.Vhisie4.Winkelkar.dto.HerberekendeMaatwerkLijn).%New()
+	;Set HerberekendeLijn.LijnID = "1"
+	;Set HerberekendeLijn.EenheidPrijs = 123.45
+	;Set HerberekendeLijn.TotaalPrijs = 246.91
+	;Do Resultaat.HerberekendeMaatwerklijnen.Insert(HerberekendeLijn)
+
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="ControleerExterneId">
+<FormalSpec>ExterneId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If '..OfferteRepository.BestaatViaExterneId(ExterneId) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ExterneId "_ExterneId _" bestaat niet."))			
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml	(revision 38858)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BereidVoorBestellingRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).%New()
+	Quit BereidVoorBestellingRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>