Index: vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml
===================================================================
diff -u -r39125 -r44572
--- vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 39125)
+++ vhTest/Fake/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 44572)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Bewaar">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefOfferteIDViaExterneId">
 <FormalSpec>ExterneId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository/Bewaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository/Bewaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository/Bewaar/Test.cls.xml	(revision 44572)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository.Bewaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	#dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).StandaardProduct()
+	
+	Set GeslaagdAntwoord = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Set GeslaagdAntwoord.Winkelkar = ##class(WS.Vhisie4.WinkelkarExport.WinkelkarStatus).%New()
+	Set GeslaagdAntwoord.Winkelkar.Status = "Geslaagd"
+	Set GeslaagdAntwoord.Winkelkar.IntractoId = "1234"
+	
+	Set WinkelkarSenderStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Do WinkelkarSenderStub.IndienMethodCall("Send",Winkelkar).DanReturn(GeslaagdAntwoord)
+	
+	Set WinkelkarRepository = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New(,,WinkelkarSenderStub)
+	#dim IntractoId As %String = WinkelkarRepository.Bewaar(Winkelkar)
+	
+	Do $$$AssertEquals(IntractoId,"1234")
+]]></Implementation>
+</Method>
+
+<Method name="Test: iets foutgelopen -&gt; error raisen">
+<Implementation><![CDATA[
+	#dim Winkelkar As WS.Vhisie4.WinkelkarExport.dto.Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.WinkelkarExport.dto.Winkelkar).StandaardProduct()
+	
+	Set MisluktAntwoord = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
+	Set MisluktAntwoord.Winkelkar = ##class(WS.Vhisie4.WinkelkarExport.WinkelkarStatus).%New()
+	Set MisluktAntwoord.Winkelkar.Status = "VerschillendVanGeslaagd"
+	Set MisluktAntwoord.Winkelkar.IntractoId = "1234"
+	
+	Set WinkelkarSenderStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New()
+	Do WinkelkarSenderStub.IndienMethodCall("Send",Winkelkar).DanReturn(MisluktAntwoord)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is een fout opgetreden bij het bewaren van de winkelkar 'WinkelkarId'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+	
+	Set WinkelkarRepository = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New(,,WinkelkarSenderStub)
+	#dim IntractoId As %String = WinkelkarRepository.Bewaar(Winkelkar)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml
===================================================================
diff -u -r39557 -r44572
--- WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 39557)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 44572)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarSender">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository</FormalSpec>
+<FormalSpec>OfferteRepository:APPS.VKP.Offerte.OfferteRepository,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	Set ..OfferteRepository = $$$Inject(OfferteRepository,##class(APPS.VKP.Offerte.impl.OfferteRepository).%New())
+	Set ..WinkelkarSender = $$$Inject(WinkelkarSender,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -34,6 +40,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Bewaar">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..WinkelkarSender.Send(Winkelkar)
+	If (Response.Winkelkar.Status '= "Geslaagd") {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Er is een fout opgetreden bij het bewaren van de winkelkar '"_Winkelkar.Id_"'!")
+		Set Exception.ExtraInfo = Response.Winkelkar.Foutmelding.Read()
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Response.Winkelkar.IntractoId
+]]></Implementation>
+</Method>
+
 <Method name="GeefWinkelkarIDViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml
===================================================================
diff -u -r39125 -r44572
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 39125)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 44572)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-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>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -16,6 +15,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Bewaar">
+<FormalSpec>Winkelkar:WS.Vhisie4.WinkelkarExport.dto.Winkelkar</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bewaar",Winkelkar)
+]]></Implementation>
+</Method>
+
 <Method name="GeefOfferteIDViaID">
 <FormalSpec>ID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>