Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml
===================================================================
diff -u -r33383 -r33394
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33383)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Service/Test.cls.xml	(.../Test.cls.xml)	(revision 33394)
@@ -19,15 +19,25 @@
 	Do NaarBerekenInputConverterMock.VerwachtMethodCall("Convert", DummyVerpakkingen, DummyLeverAdres,OfferteID).DanReturn(DummyBerekenInput)
 
 	set ZendingDetails = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
+	set ZendingDetail = ##class(WS.EC.ExterneVerkoop.Verzending).%New()
+	Set ZendingDetail.Code = "1"
+	Set ZendingDetail.TransportFirma = "UPS"
+	Do ZendingDetails.Insert(ZendingDetail)
+	
 	Set HaalZendingDetailsMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New()
 	Do HaalZendingDetailsMock.VerwachtMethodCall("GeefZendingDetails",DummyBerekenInput).DanReturn(ZendingDetails)
 	
-	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,NaarBerekenInputConverterMock,HaalZendingDetailsMock)
+	#dim VerzendingMogelijkheidRepositoryMock As vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository = ##class(vhTest.Mock.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	Do VerzendingMogelijkheidRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set Service = ##class(WS.EC.Unishop.InternationaleZending.Service).%New(VerkoopOfferteServiceMock,NaarBerekenInputConverterMock,HaalZendingDetailsMock, VerzendingMogelijkheidRepositoryMock)
 	#dim Resultaat As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = Service.GeefMogelijkeZendingen(OfferteID)
 	
 	Do VerkoopOfferteServiceMock.Verifieer()
 	Do NaarBerekenInputConverterMock.Verifieer()
 	Do HaalZendingDetailsMock.Verifieer()
+	Do VerzendingMogelijkheidRepositoryMock.Verifieer()
+	
 	Do $$$AssertEqualsList(ZendingDetails, Resultaat)
 ]]></Implementation>
 </Method>
Index: WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml
===================================================================
diff -u -r33349 -r33394
--- WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 33349)
+++ WS/EC/ExterneVerkoop/dto/VerzendingMogelijkheden.cls.xml	(.../VerzendingMogelijkheden.cls.xml)	(revision 33394)
@@ -4,7 +4,7 @@
 <Super>%ListOfObjects</Super>
 
 <Parameter name="ELEMENTTYPE">
-<Default>WS.EC.ExterneVerkoop.Verzending</Default>
+<Default>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</Default>
 </Parameter>
 
 <Storage name="Custom">
Index: WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33391 -r33394
--- WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33391)
+++ WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33394)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository">
-<Super>TECH.Persistentie.Repository,TECH.Mockable</Super>
+<Super>TECH.Mockable,TECH.Persistentie.Repository</Super>
 
 <Parameter name="DataClassName">
 <Type>%String</Type>
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r33391 -r33394
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33391)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 33394)
@@ -57,18 +57,23 @@
 
 <Method name="BewaarVerzendingMogelijkheden">
 <FormalSpec>OfferteID:%String,VerzendingMogelijkheden:WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+
 	#dim VerzendingMogelijkhedenIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(VerzendingMogelijkheden)
 	 
 	while VerzendingMogelijkhedenIterator.HasNext() {
-		#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingConverteer(VerzendingMogelijkhedenIterator.Next())
-		Do ..VerzendingMogelijkheidRepository.Bewaar(OfferteID,VerzendingMogelijkheid)
+		#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ..VerzendingConverteer(OfferteID, VerzendingMogelijkhedenIterator.Next())
+		Do ##class(Tools.Wlip).%New(26).String(VerzendingMogelijkheid)
+		Do ..VerzendingMogelijkheidRepository.Bewaar(VerzendingMogelijkheid)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="VerzendingConverteer">
 <FormalSpec>OfferteID:%String,Verzending:WS.EC.ExterneVerkoop.Verzending</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendingMogelijkheid As WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid = ##class(WSdata.EC.ExterneVerkoop.VerzendingMogelijkheid).%New()
 	Set VerzendingMogelijkheid.ID = Verzending.Code
Index: vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml
===================================================================
diff -u -r33391 -r33394
--- vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33391)
+++ vhTest/Mock/WSimpl/EC/ExterneVerkoop/VerzendingMogelijkheidRepository.cls.xml	(.../VerzendingMogelijkheidRepository.cls.xml)	(revision 33394)
@@ -6,14 +6,20 @@
 Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
 Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,vhTest.Mock.TECH.Persistentie.Repository</Super>
+<Super>vhTest.Mock.TECH.Persistentie.Repository,WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository</Super>
 <Inheritance>right</Inheritance>
 
 <Method name="VerwijderViaOfferteID">
 <FormalSpec>OfferteID:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderViaOfferteID",OfferteID)
 ]]></Implementation>
 </Method>
+
+<Method name="Bewaar">
+<FormalSpec>Data:TECH.Persistent</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Bewaar",Data)
+]]></Implementation>
+</Method>
 </Class>