Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r38883 -r55937
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38883)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 55937)
@@ -3,54 +3,394 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: BestelWinkelkar haalt de interne id op adhv ExterneId">
+<Property name="WinkelkarRepositoryMock">
+<Type>vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopServiceMock">
+<Type>vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CheckoutTypeBepalerMock">
+<Type>vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportServiceMock">
+<Type>vhTest.Mock.APPS.EC.Transport.Service</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarServiceHelperMock">
+<Type>vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderVrijgaveBepalerMock">
+<Type>vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AsynchroneOrderSluiterMock">
+<Type>vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
-	Set OfferteDummy.WinkelkarID = "WinkelkarID"
+	Do ##super(aTestName)
 	
-	#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)
+	Set ..WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Set ..VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Set ..CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
+	Set ..TransportServiceMock = ##class(vhTest.Mock.APPS.EC.Transport.Service).%New()
+	Set ..WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
+	Set ..OrderVrijgaveBepalerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.OrderVrijgaveBepaler).%New()
+	Set ..AsynchroneOrderSluiterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.AsynchroneOrderSluiter).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelWinkelkar bestelt offerte en zet GekozenVerzendmogelijkheid met de juiste waarden">
+<Implementation><![CDATA[
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	Set VerwachteHoofding.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set VerwachteHoofding.EmailAdresBevestiging = "EmailAdresBevestiging@vanhoecke.be"
 	
-	#dim VerkoopServiceStub As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
-	Do VerkoopServiceStub.IndienMethodCall("BestelOfferte",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.Header.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set BestelWinkelkarRequest.Header.EmailAdresBevestiging = "EmailAdresBevestiging@vanhoecke.be"
+	
+	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, "PersonalityId").DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, 10).ExactAantalKeer(1).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "PersonalityId", KlantPartijId).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+	Do ..TransportServiceMock.VerwachtMethodCall("ZetGekozenVerzendingMogelijkheid", RandomOfferteId,"VerzendingMogelijkheidID","OptieKeuze").ExactAantalKeer(1).DanDoeNiks()
+	Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID", BestelWinkelkarRequest.Header.KlantId, "PersonalityId").DanReturn(KlantPartijId)
+	Do ..OrderVrijgaveBepalerMock.VerwachtMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ..TransportServiceMock, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
 
-	#dim LegacyPartijAPIStub As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID",$$$ElkeWaarde).DanReturn($$$True)
+	Do ..WinkelkarRepositoryMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+	Do ..CheckoutTypeBepalerMock.Verifieer()
+	Do ..TransportServiceMock.Verifieer()
+	Do ..WinkelkarServiceHelperMock.Verifieer()
+	Do ..OrderVrijgaveBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	#dim BestelWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(VerkoopServiceStub, OfferteRepositoryMock, LegacyPartijAPIStub)
+<Method name="Test: EmailAdresBesteller is leeg als het begint met multi">
+<Implementation><![CDATA[
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	Set VerwachteHoofding.EmailAdresBesteller = ""
+	Set VerwachteHoofding.EmailAdresBevestiging = "EmailAdresBevestiging@vanhoecke.be"
+	
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.Header.EmailAdresBesteller = "multiEmailAdresBesteller@vanhoecke.be"
+	Set BestelWinkelkarRequest.Header.EmailAdresBevestiging = "EmailAdresBevestiging@vanhoecke.be"
+	
+	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, "PersonalityId").DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, 10).ExactAantalKeer(1).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "PersonalityId", KlantPartijId).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+	Do ..TransportServiceMock.VerwachtMethodCall("ZetGekozenVerzendingMogelijkheid", RandomOfferteId,"VerzendingMogelijkheidID","OptieKeuze").ExactAantalKeer(1).DanDoeNiks()
+	Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID", BestelWinkelkarRequest.Header.KlantId, "PersonalityId").DanReturn(KlantPartijId)
+	Do ..OrderVrijgaveBepalerMock.VerwachtMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ..TransportServiceMock, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
 
-	Do BestelWinkelkar.BestelWinkelkar(..GeefBestelWinkelkarRequest())
+	Do ..WinkelkarRepositoryMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+	Do ..CheckoutTypeBepalerMock.Verifieer()
+	Do ..TransportServiceMock.Verifieer()
+	Do ..WinkelkarServiceHelperMock.Verifieer()
+	Do ..OrderVrijgaveBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	Do OfferteRepositoryMock.Verifieer()
+<Method name="Test: EmailAdresBevestiging is leeg als het begint met multi">
+<Implementation><![CDATA[
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	Set VerwachteHoofding.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set VerwachteHoofding.EmailAdresBevestiging = ""
+	
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.Header.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set BestelWinkelkarRequest.Header.EmailAdresBevestiging = "multiEmailAdresBevestiging@vanhoecke.be"
+	
+	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, "PersonalityId").DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, 10).ExactAantalKeer(1).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "PersonalityId", KlantPartijId).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+	Do ..TransportServiceMock.VerwachtMethodCall("ZetGekozenVerzendingMogelijkheid", RandomOfferteId,"VerzendingMogelijkheidID","OptieKeuze").ExactAantalKeer(1).DanDoeNiks()
+	Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID", BestelWinkelkarRequest.Header.KlantId, "PersonalityId").DanReturn(KlantPartijId)
+	Do ..OrderVrijgaveBepalerMock.VerwachtMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ..TransportServiceMock, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+
+	Do ..WinkelkarRepositoryMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+	Do ..CheckoutTypeBepalerMock.Verifieer()
+	Do ..TransportServiceMock.Verifieer()
+	Do ..WinkelkarServiceHelperMock.Verifieer()
+	Do ..OrderVrijgaveBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: BestelWinkelkar geeft foutmelding indien ExterneId niet bestaat">
+<Method name="Test: EmailAdresBevestiging is leeg als het begint met impersonificatie">
 <Implementation><![CDATA[
-	#dim OfferteDummy As vhTest.Fake.APPS.VKP.Offerte = ##class(vhTest.Fake.APPS.VKP.Offerte).%New()
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	Set VerwachteHoofding.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set VerwachteHoofding.EmailAdresBevestiging = ""
 	
-	#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 KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
 	
-	#dim BestelWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(, OfferteRepositoryMock)
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.Header.EmailAdresBesteller = "EmailAdresBesteller@vanhoecke.be"
+	Set BestelWinkelkarRequest.Header.EmailAdresBevestiging = "impersonificatieEmailAdresBevestiging@vanhoecke.be"
+	
+	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, "PersonalityId").DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, 10).ExactAantalKeer(1).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "PersonalityId", KlantPartijId).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+	Do ..TransportServiceMock.VerwachtMethodCall("ZetGekozenVerzendingMogelijkheid", RandomOfferteId,"VerzendingMogelijkheidID","OptieKeuze").ExactAantalKeer(1).DanDoeNiks()
+	Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID", BestelWinkelkarRequest.Header.KlantId, "PersonalityId").DanReturn(KlantPartijId)
+	Do ..OrderVrijgaveBepalerMock.VerwachtMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ..TransportServiceMock, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
 
-	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ExterneId WinkelkarId bestaat niet.")
+	Do ..WinkelkarRepositoryMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+	Do ..CheckoutTypeBepalerMock.Verifieer()
+	Do ..TransportServiceMock.Verifieer()
+	Do ..WinkelkarServiceHelperMock.Verifieer()
+	Do ..OrderVrijgaveBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Offerte wordt niet besteld als zethoofding een fout geeft">
+<Implementation><![CDATA[
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", "WinkelkarId").DanReturn("DummyID")
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanException($$$DummyException)
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ,..CheckoutTypeBepalerMock)
+
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest
+	Set BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
+
+	Do Service.BestelWinkelkar(BestelWinkelkarRequest)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelWinkelkar berekent de totaalprijs van 3 lijnen en bewaart deze op de offerte">
+<Implementation><![CDATA[
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()	
+	Do BestelWinkelkarRequest.Winkelkar.Lijnen.Clear()
+	Do BestelWinkelkarRequest.Winkelkar.Lijnen.Insert(..GeefProductLijn(10))
+	Do BestelWinkelkarRequest.Winkelkar.Lijnen.Insert(..GeefProductLijn(7.5))
+	Do BestelWinkelkarRequest.Winkelkar.Lijnen.Insert(..GeefProductLijn(5))
 	
-	Do BestelWinkelkar.BestelWinkelkar(..GeefBestelWinkelkarRequest())
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde,$$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..OrderVrijgaveBepalerMock.IndienMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, $$$ElkeWaarde).DanReturn($$$False)
+	
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, 22.5).DanDoeNiks()
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock,,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+
+	Do ..VerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBestelWinkelkarRequest">
+<Method name="Test: We kunnen overweg met ASAP">
+<Implementation><![CDATA[
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest
+	Set BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()	
+	set BestelWinkelkarRequest.WensLeverDatum = ""
+	set BestelWinkelkarRequest.IsAsap = $$$true
+	
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	set VerwachteHoofding.LeveringDetail.WensDatum = "ASAP"
+
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", BestelWinkelkarRequest.Winkelkar.Id).DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..OrderVrijgaveBepalerMock.IndienMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, $$$ElkeWaarde).DanReturn($$$False)
+	
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).ExactAantalKeer(1)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ,..CheckoutTypeBepalerMock,,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+	
+	Do ..VerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelWinkelkar haalt de interne id op adhv ExterneId">
+<Implementation><![CDATA[
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Winkelkar.Id = "WinkelkarExterneId"
+	
+	Do ..WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", "WinkelkarExterneId").DanReturn(RandomOfferteId)
+	
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KlantPartijId)
+	Do ..OrderVrijgaveBepalerMock.IndienMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ,..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+
+	Do ..WinkelkarRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelWinkelkar geeft foutmelding indien ExterneId niet bestaat">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Winkelkar met externe id 'Onbestaande_WinkelkarId' bestaat niet.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
+	#dim Request As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set Request.Winkelkar.Id = "Onbestaande_WinkelkarId"
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(,,,)
+	
+	Do Service.BestelWinkelkar(Request)
+	Do ..WinkelkarServiceHelperMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bestelwinkelkar kan data ophalen via de AxLeverAdresIDs indien nodig">
+<Implementation><![CDATA[
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	
+	#dim AxLeverAdresId As %String = "1001"
+	#dim KlantNummer As %String = "1000"
+		
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Winkelkar.Id = "WinkelkarExterneId"
+	Set BestelWinkelkarRequest.Winkelkar.KlantId = KlantNummer
+	Set BestelWinkelkarRequest.LeverAdres.Id = AxLeverAdresId
+	
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofdingMetVolmachtEnOpmerkingen()
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID",$$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KlantPartijId)
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", BestelWinkelkarRequest.Winkelkar.Id).DanReturn(RandomOfferteId)
+	Do ..OrderVrijgaveBepalerMock.IndienMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn($$$False)
+
+	#dim TeConverterenLeverAdres As DOM.VKP.LeverAdres = ##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch()
+	Do TeConverterenLeverAdres.ZetID(AxLeverAdresId)
+	Do TeConverterenLeverAdres.ZetTaal("N")
+	Do TeConverterenLeverAdres.ZetAanspreking("Dhr")
+	Do TeConverterenLeverAdres.ZetVolmacht("Volmacht")
+	Do TeConverterenLeverAdres.ZetOpmerking1("Opmerking1")
+	Do TeConverterenLeverAdres.ZetOpmerking2("Opmerking2")
+	
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", RandomOfferteId, ..Matches.DataTransferObject(VerwachteHoofding)).DanDoeNiks()
+	
+	Set LeverAdresInvullerMock =  ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar.LeveradresInvuller).%New()
+	Do LeverAdresInvullerMock.VerwachtMethodCall("VulInLeverAdres",$$$ElkeWaarde,$$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock, LeverAdresInvullerMock, ..OrderVrijgaveBepalerMock)
+	Do BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+	
+	Do LeverAdresInvullerMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order is vrijgegeven indien OrderVrijgaveBepaler dit toelaat">
+<Implementation><![CDATA[
+	#dim KlantPartijId As %String = "KlantPartijId"
+	#dim RandomOfferteId As %String = "RandomOfferteId"
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", BestelWinkelkarRequest.Winkelkar.Id).DanReturn(RandomOfferteId)
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", RandomOfferteId, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", RandomOfferteId, $$$ElkeWaarde).DanDoeNiks()
+	Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KlantPartijId)
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	
+	#dim MagOrderMaken As %Boolean = $$$True
+	
+	Do ..OrderVrijgaveBepalerMock.VerwachtMethodCall("MagOrderMaken", BestelWinkelkarRequest, RandomOfferteId, KlantPartijId).DanReturn(MagOrderMaken)
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetAutomatischeVerwerking", RandomOfferteId, $$$True).DanDoeNiks() 
+	Do ..VerkoopServiceMock.VerwachtMethodCall("BestelOfferte", RandomOfferteId, KlantPartijId, BestelWinkelkarRequest.Header.PersonalityId).DanDoeNiks() 
+	Do ..AsynchroneOrderSluiterMock.VerwachtMethodCall("MaakEnSluitOrderViaOfferteID", RandomOfferteId).DanDoeNiks()
+	
+	#dim BestelWinkelkarService As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock,, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,, ..OrderVrijgaveBepalerMock, ..AsynchroneOrderSluiterMock)
+	#dim Response As WS.Vhisie4.Winkelkar.BestelWinkelkarResponse = BestelWinkelkarService.BestelWinkelkar(BestelWinkelkarRequest)
+	
+	Do $$$AssertEquals(Response.OrderIsVrijgegeven, MagOrderMaken)
+	
+	Do ..OrderVrijgaveBepalerMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+	Do ..AsynchroneOrderSluiterMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijn">
+<FormalSpec>TotaalPrijs:TECH.Decimal</FormalSpec>
 <Private>1</Private>
-<ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</ReturnType>
+<ReturnType>WS.Vhisie4.Winkelkar.dto.ProductLijn</ReturnType>
 <Implementation><![CDATA[
-	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest 
-	Set BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).BestelWinkelkarRequest()
-	Set BestelWinkelkarRequest.Header.WinkelkarId = "WinkelkarId"
-	Quit BestelWinkelkarRequest
+	#dim ProductLijn As WS.Vhisie4.Winkelkar.dto.ProductLijn = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.ProductLijn).StandaardProduct()
+	
+	Set ProductLijn.TotaalPrijs = TotaalPrijs
+	
+	Quit ProductLijn
 ]]></Implementation>
 </Method>
 </Class>