Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete4.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete4.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/TestEnquete4.cls.xml	(revision 33069)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Service.TestEnquete4">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: GeefMogelijkeZendingen wordt opgeroepen en geeft zendingdetails terug.">
+<Implementation><![CDATA[
+	Set OfferteID = 666
+	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 VerkoopOfferteServiceMock.VerwachtMethodCall("GeefProductVerpakkingDetails",OfferteID).DanReturn(..GeefVerpakkingen())
+	Do VerkoopOfferteServiceMock.VerwachtMethodCall("GeefLeverAdres",OfferteID).DanReturn(..GeefLeverAdres())
+	Do ToBerekenInputConverterMock.VerwachtMethodCall("Convert",..Verpakkingen,..LeverAdres).DanReturn(..BerekenInput)
+	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 = 666
+	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>