Index: vhTest/Utils/APPS/EC/Transport/dto/VerzendingMogelijkheden.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/EC/Transport/dto/VerzendingMogelijkheden.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/EC/Transport/dto/VerzendingMogelijkheden.cls.xml	(revision 41534)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.EC.Transport.dto.VerzendingMogelijkheden">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardVerzendingMogelijkheden">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.Transport.dto.VerzendingMogelijkheden</ReturnType>
+<Implementation><![CDATA[
+	Set VerzendingMogelijkheden = ##class(APPS.EC.Transport.dto.VerzendingMogelijkheden).%New()
+	Set VerzendingMogelijkheden.Titel = "Titel"
+	
+	Set VerzendingMogelijkheid = ##class(APPS.EC.Transport.dto.VerzendingMogelijkheid).%New()
+	Set VerzendingMogelijkheid.Opmerking = "VerzendingMogelijkheidOpmerking"
+	Set VerzendingMogelijkheid.Omschrijving = "VerzendingMogelijkheidOmschrijving"
+	Set VerzendingMogelijkheid.TransportFirma = "TransportFirma"
+	Set VerzendingMogelijkheid.TransportKost = 43.25
+	Set VerzendingMogelijkheid.Code = 1
+	Set VerzendingMogelijkheid.Duurtijd = 10
+	Set VerzendingMogelijkheid.ExtraInfo = "ExtraInfo"
+	Set VerzendingMogelijkheid.LeverDag = "LeverDag"
+	Set VerzendingMogelijkheid.LeverDatum = $$$CurrentDate
+	Set VerzendingMogelijkheid.LeverTijd = 0
+	
+	Set VerzendingMogelijkheid.Optie = ##class(APPS.EC.Transport.dto.Optie).%New() 
+	Set VerzendingMogelijkheid.Optie.ExtraInfo = "ExtraInfo"
+	Set VerzendingMogelijkheid.Optie.Omschrijving = "OptieOmschrijving"
+	
+	Set Selectie = ##class(APPS.EC.Transport.dto.Selectie).%New()
+	Set Selectie.ID = 1
+	Set Selectie.Omschrijving = "SelectieOmschrijving"
+	Set Selectie.Prijs = 9.75
+	
+	Do VerzendingMogelijkheid.Optie.MogelijkeWaarden.Insert(Selectie)
+	
+	Do VerzendingMogelijkheden.VerzendingMogelijkheden.Insert(VerzendingMogelijkheid)
+	
+	
+	Quit VerzendingMogelijkheden
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r41453 -r41534
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 41453)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 41534)
@@ -82,6 +82,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: BereidVoorBestelling geeft verzendingmogelijkheden met correctie waarden voor klant met transportkeuze">
+<Implementation><![CDATA[
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
+	
+	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	
+	Set CheckoutTypeBepalerMock = ##class(vhTest.Mock.APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New()
+	Do CheckoutTypeBepalerMock.VerwachtMethodCall("Bepaal", "1","K||1000").DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze())
+
+	#dim VerzendingMogelijkheden = ##class(vhTest.Utils.APPS.EC.Transport.dto.VerzendingMogelijkheden).StandaardVerzendingMogelijkheden()
+	Set TransportServiceMock = ##class(vhTest.Mock.APPS.EC.Transport.Service).%New()
+	Do TransportServiceMock.VerwachtMethodCall("GeefMogelijkeZendingen","InterneId","N", $$$ElkeWaarde).DanReturn(VerzendingMogelijkheden)
+	
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock, CheckoutTypeBepalerMock, TransportServiceMock)
+	
+	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
+	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
+
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.Titel,"Titel")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.Count(),1)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Opmerking,"VerzendingMogelijkheidOpmerking")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Omschrijving, "VerzendingMogelijkheidOmschrijving")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).TransportFirma, "TransportFirma")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).TransportKost, 43.25)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Code, 1)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Duurtijd, 10)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).ExtraInfo, "ExtraInfo")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).LeverDag, "LeverDag")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).LeverDatum, $$$CurrentDate)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).LeverTijd, 0)
+	
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.ExtraInfo,"ExtraInfo")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.Omschrijving,"OptieOmschrijving")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.Count(),1)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).ID,1)
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Omschrijving,"SelectieOmschrijving")
+	Do $$$AssertEquals(Response.VerzendingMogelijkheden.VerzendingMogelijkheden.GetAt(1).Optie.MogelijkeWaarden.GetAt(1).Prijs,9.75)
+
+	Do CheckoutTypeBepalerMock.Verifieer()
+	Do TransportServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: BereidVoorBestelling geeft foutmelding indien de winkelkar niet bestaat">
 <Implementation><![CDATA[
 	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Winkelkar met id 'Onbestaande_WinkelkarId' bestaat niet.")
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml
===================================================================
diff -u -r40667 -r41534
--- vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml	(.../BereidVoorBestellingRequest.cls.xml)	(revision 40667)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml	(.../BereidVoorBestellingRequest.cls.xml)	(revision 41534)
@@ -12,6 +12,7 @@
 	Set BereidVoorBestellingRequest.LeverAdres = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.LeverAdres).Belgisch()
 	Set BereidVoorBestellingRequest.Winkelkar.CommissieReferentie = "CommissieReferentie"
 	Set BereidVoorBestellingRequest.Winkelkar.Referentie = "OrderReferentie"
+	Set BereidVoorBestellingRequest.Header = ##class(vhTest.Utils.WS.Vhisie4.RequestHeader).StandaardHeader()
 	Quit BereidVoorBestellingRequest
 ]]></Implementation>
 </Method>