Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete3.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete3.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete3.cls.xml	(revision 33067)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Service.TestEnquete3">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerkoopOfferteServiceMock">
+<Type>vhTest.Mock.APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportOfferteServiceMock">
+<Type>vhTest.Mock.APPS.TRANSP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekenInputMatcher">
+<Type>Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InternationaleZending">
+<Type>WS.EC.Unishop.InternationaleZending.Service</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteID">
+<Type>%String</Type>
+<InitialExpression>666</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="ZendingDetails">
+<Type>APPS.TRANSP.OfferteService.dto.OfferteData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Set ..VerkoopOfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Set ..TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	Set ..InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(..VerkoopOfferteServiceMock,..TransportOfferteServiceMock)
+	Set ..BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(..GeefBerekenInput())
+	Set ..ZendingDetails = ..GeefZendingDetails()
+	
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefMogelijkeZendingen wordt opgeroepen en geeft zendingdetails terug.">
+<Implementation><![CDATA[
+	Do ..VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanReturn(..GeefVerpakkingen())
+	Do ..VerkoopOfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",..OfferteID).DanReturn(..GeefLeverAdres())
+	Do ..TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",..BerekenInputMatcher).DanReturn(..ZendingDetails)
+	
+	#dim Resultaat As APPS.TRANSP.OfferteService.dto.OfferteData = ..InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+
+	Do ..VerkoopOfferteServiceMock.Verifieer()
+	Do ..TransportOfferteServiceMock.Verifieer()
+	Do $$$AssertObject(..ZendingDetails, Resultaat)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingDetails">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[
+	#dim ZendingDetails As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+	#dim ZendingDetail As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
+	Set ZendingDetail.Code = 1
+	Set ZendingDetail.Duurtijd = 10
+	Set ZendingDetail.Gegarandeerd = 1
+	Set ZendingDetail.Kostprijs = 50.1 
+	Set ZendingDetail.Omschrijving = "UPS Express" 
+	Do ZendingDetails.Items.Insert(ZendingDetail)
+	
+	Quit ZendingDetails
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingen">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200, "123-456", 2)
+	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	Do Verpakkingen.Insert(Verpakking)
+	Quit Verpakkingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdres">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9170"
+	Set LeverAdres.ProvincieCode = "OV"
+	Set LeverAdres.Straat = "Kemzekestraat"
+	Set LeverAdres.Woonplaats = "Sint-Gillis-Waas"
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekenInput">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = ..OfferteID
+	Set BerekenInput.LeverAdres = ..GeefLeverAdres()
+
+ 	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	Set TeVerzendItem.Gewicht = 25
+	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
+	
+	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete1.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete1.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete1.cls.xml	(revision 33067)
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Service.TestEnquete1">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Offerte.Service wordt aangeroepen met de juiste OfferteId">
+<Implementation><![CDATA[
+	#dim OfferteId As %Integer = 666
+
+	set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteId)
+	do OfferteServiceMock.IndienMethodCall("GeefLeverAdres",OfferteId).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+	
+	set TransportOfferteServiceDummy = ##class(vhTest.Dummy.APPS.TRANSP.OfferteService).%New()
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceMock, TransportOfferteServiceDummy)
+	Do InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met de gewenste verpakkinginformatie">
+<Implementation><![CDATA[
+	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200,"123-456",2)
+	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	Do Verpakkingen.Insert(Verpakking)
+	
+	#dim OfferteId As %Integer = 666
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanReturn(Verpakkingen)
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",OfferteId).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",$$$ElkeWaarde)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefLeverAdres wordt aangeroepen met de juiste OfferteId">
+<Implementation><![CDATA[
+	#dim OfferteId As %Integer = 666
+
+	set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceMock.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanDoeNiks()
+	do OfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",OfferteId).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+	
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.IndienMethodCall("BerekenOfferte","UPS",$$$ElkeWaarde).DanDoeNiks()
+	
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceMock, TransportOfferteServiceMock)
+	Do InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met het gewenste leveradres">
+<Implementation><![CDATA[
+	
+	#dim OfferteId As %Integer = 666
+
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9170"
+	Set LeverAdres.ProvincieCode = "OV"
+	Set LeverAdres.Straat = "Kemzekestraat"
+	Set LeverAdres.Woonplaats = "Sint-Gillis-Waas"
+	
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanDoeNiks()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",OfferteId).DanReturn(LeverAdres)
+
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = OfferteId
+	Set BerekenInput.LeverAdres = LeverAdres
+	
+	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",BerekenInputMatcher)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met het gewenste lijst van details">
+<Implementation><![CDATA[
+	
+	#dim OfferteId As %Integer = 666
+
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",OfferteId).DanDoeNiks()
+	
+	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200, "123-456", 2)
+	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	Do Verpakkingen.Insert(Verpakking)
+	
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanReturn(Verpakkingen)
+
+	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	Set TeVerzendItem.Gewicht = 25
+	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
+	
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = OfferteId
+	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+	
+	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",BerekenInputMatcher)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefMogelijkeZendingen wordt opgeroepen en geeft zendingdetails">
+<Implementation><![CDATA[
+	
+	#dim OfferteId As %Integer = 666
+
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",OfferteId).DanDoeNiks()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",OfferteId).DanDoeNiks()
+
+	#dim TransportData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.IndienMethodCall("BerekenOfferte","UPS", $$$ElkeWaarde).DanReturn(TransportData)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+
+	#dim ResultData As APPS.TRANSP.OfferteService.dto.OfferteData = InternationaleZending.GeefMogelijkeZendingen(OfferteId)
+	
+	Do $$$AssertEquals(TransportData,ResultData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete2.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete2.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete2.cls.xml	(revision 33067)
@@ -0,0 +1,201 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Service.TestEnquete2">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="OfferteID">
+<Type>%String</Type>
+<InitialExpression>666</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: Offerte.Service wordt aangeroepen met de juiste OfferteId">
+<Implementation><![CDATA[
+	set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",..OfferteID)
+	do OfferteServiceMock.IndienMethodCall("GeefLeverAdres",..OfferteID).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+	
+	set TransportOfferteServiceDummy = ##class(vhTest.Dummy.APPS.TRANSP.OfferteService).%New()
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceMock, TransportOfferteServiceDummy)
+	Do InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met de gewenste verpakkinginformatie">
+<Implementation><![CDATA[
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanReturn(..GeefVerpakkingen())
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",..OfferteID).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",$$$ElkeWaarde)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefLeverAdres wordt aangeroepen met de juiste OfferteId">
+<Implementation><![CDATA[
+	set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceMock.IndienMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanDoeNiks()
+	do OfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",..OfferteID).DanReturn(##class(APPS.TRANSP.dto.LeveringAdres).%New())
+	
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.IndienMethodCall("BerekenOfferte","UPS",$$$ElkeWaarde).DanDoeNiks()
+	
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceMock, TransportOfferteServiceMock)
+	Do InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do OfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met het gewenste leveradres">
+<Implementation><![CDATA[
+
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanDoeNiks()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",..OfferteID).DanReturn(..GeefLeverAdres())
+
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = ..OfferteID
+	Set BerekenInput.LeverAdres = ..GeefLeverAdres()
+
+	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",BerekenInputMatcher)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenOfferte wordt opgeroepen met het gewenste lijst van details">
+<Implementation><![CDATA[
+
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",..OfferteID).DanDoeNiks()
+	
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanReturn(..GeefVerpakkingen())
+
+	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	Set TeVerzendItem.Gewicht = 25
+	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
+	
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = ..OfferteID
+	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+
+	set BerekenInputMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(BerekenInput)
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.VerwachtMethodCall("BerekenOfferte","UPS",BerekenInputMatcher)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+	
+	Do InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do TransportOfferteServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefMogelijkeZendingen wordt opgeroepen en geeft zendingdetails">
+<Implementation><![CDATA[
+
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	do OfferteServiceStub.IndienMethodCall("GeefLeverAdres",..OfferteID).DanDoeNiks()
+	do OfferteServiceStub.IndienMethodCall("GeefProductVerpakkingDetails",..OfferteID).DanDoeNiks()
+
+	#dim TransportData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+
+	set TransportOfferteServiceMock = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	do TransportOfferteServiceMock.IndienMethodCall("BerekenOfferte","UPS", $$$ElkeWaarde).DanReturn(TransportData)
+
+	set InternationaleZending = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(OfferteServiceStub,TransportOfferteServiceMock)
+
+	#dim ResultData As APPS.TRANSP.OfferteService.dto.OfferteData = InternationaleZending.GeefMogelijkeZendingen(..OfferteID)
+	
+	Do $$$AssertEquals(TransportData,ResultData)
+]]></Implementation>
+</Method>
+
+<Method name="GeefZendingDetails">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
+<Implementation><![CDATA[
+	#dim ZendingDetails As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
+	#dim ZendingDetail As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
+	Set ZendingDetail.Code = 1
+	Set ZendingDetail.Duurtijd = 10
+	Set ZendingDetail.Gegarandeerd = 1
+	Set ZendingDetail.Kostprijs = 50.1 
+	Set ZendingDetail.Omschrijving = "UPS Express" 
+	Do ZendingDetails.Items.Insert(ZendingDetail)
+	
+	Quit ZendingDetails
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingen">
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte.dto.VerpakkingList</ReturnType>
+<Implementation><![CDATA[
+	set Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	set Verpakking = ##class(APPS.VKP.Offerte.dto.Verpakking).%New(Afmeting, 25, 200, "123-456", 2)
+	set Verpakkingen = ##class(APPS.VKP.Offerte.dto.VerpakkingList).%New()
+	Do Verpakkingen.Insert(Verpakking)
+	Quit Verpakkingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdres">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.dto.InternationaalAdres</ReturnType>
+<Implementation><![CDATA[
+	Set LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
+	Set LeverAdres.LandCode = "BE"
+	Set LeverAdres.Postcode = "9170"
+	Set LeverAdres.ProvincieCode = "OV"
+	Set LeverAdres.Straat = "Kemzekestraat"
+	Set LeverAdres.Woonplaats = "Sint-Gillis-Waas"
+	Quit LeverAdres
+]]></Implementation>
+</Method>
+
+<Method name="GeefBerekenInput">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.OfferteService.dto.BerekenInput</ReturnType>
+<Implementation><![CDATA[
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set BerekenInput.Referentie = ..OfferteID
+	Set BerekenInput.LeverAdres = ..GeefLeverAdres()
+
+ 	#dim TeVerzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = ##class(APPS.TRANSP.OfferteService.dto.TeverzendenItem).%New()
+	Set TeVerzendItem.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(40,50,60)
+	Set TeVerzendItem.Gewicht = 25
+	Set TeVerzendItem.WaardeGoederen = 200
+	Set TeVerzendItem.Aantal = 2 
+	Set TeVerzendItem.ProductID = "123-456"
+	
+	Do BerekenInput.TeVerzendenItems.Insert(TeVerzendItem)
+	Quit BerekenInput
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>