Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml
===================================================================
diff -u -r38013 -r38033
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml	(.../Test.cls.xml)	(revision 38013)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/GeefTransportWaarborgType/Test.cls.xml	(.../Test.cls.xml)	(revision 38033)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TransportWaarborgTypeBepalerMock">
+<Type>vhTest.Mock.DOM.VKP.impl.TransportWaarborgTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -59,21 +64,30 @@
 	Set ..OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
 	Do ..OrderAPI.IndienMethodCall("GeefOrder", ..OrderID).DanReturn(..OrderStub)
 	
-	Set ..ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+	Set ..TransportWaarborgTypeBepalerMock = ##class(vhTest.Mock.DOM.VKP.impl.TransportWaarborgTypeBepaler).%New()
+	Set ..ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(,,,..TransportWaarborgTypeBepalerMock)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Verzendwijze DHL geeft transport zonder waarborg">
 <Implementation><![CDATA[
-	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn("E01")
-	do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+	#dim VerzendingWijze = "E01"
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(VerzendingWijze)
+	Do ..TransportWaarborgTypeBepalerMock.VerwachtMethodCall("Bepaal",VerzendingWijze).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+	
+	Do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+	Do ..TransportWaarborgTypeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: geeft standaard transport met waarborg">
 <Implementation><![CDATA[
-	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn($$$DummyString)
-	do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).MetWaarborg())
+	#dim VerzendingWijze = $$$DummyString
+	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(VerzendingWijze)
+	Do ..TransportWaarborgTypeBepalerMock.VerwachtMethodCall("Bepaal",VerzendingWijze).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+
+	Do $$$AssertEquals(..ToeleveringService.GeefTransportWaarborgType(..ToeleveringID), ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+	Do ..TransportWaarborgTypeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/AKP/impl/ToeleveringService.cls.xml
===================================================================
diff -u -r38015 -r38033
--- DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 38015)
+++ DOM/AKP/impl/ToeleveringService.cls.xml	(.../ToeleveringService.cls.xml)	(revision 38033)
@@ -23,16 +23,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TransportWaarborgTypeBepaler">
+<Type>DOM.VKP.impl.TransportWaarborgTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI,ProductTypeApi:DOM.PM.ProductTypeAPI,OrderApi:DOM.VKP.OrderAPI,TransportWaarborgTypeBepaler:DOM.VKP.impl.TransportWaarborgTypeBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
-	set ..ProductTypeApi = $$$Inject(ProductTypeApi,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
-	set ..OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi,##class(DOM.DomeinContext).Instance().GeefProductTypeAPI())
+	Set ..OrderApi = $$$Inject(OrderApi,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..TransportWaarborgTypeBepaler = $$$Inject(TransportWaarborgTypeBepaler, ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -69,7 +76,7 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
 	#dim OrderID As %String = Toelevering.GeefOrderID()
-	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderID)
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Order.GeefKlantID()
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
 	
@@ -92,9 +99,9 @@
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
 	#dim OrderID As %String = Toelevering.GeefOrderID()
-	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(OrderID)
 	
-	Quit ##class(DOM.VKP.impl.TransportWaarborgTypeBepaler).%New().Bepaal(Order.GeefVerzendingWijze())
+	Quit ..TransportWaarborgTypeBepaler.Bepaal(Order.GeefVerzendingWijze())
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 38033)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.VKP.impl.TransportWaarborgTypeBepaler">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.impl.TransportWaarborgTypeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>VerzendingWijze:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",VerzendingWijze)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(revision 38033)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.impl.TransportWaarborgTypeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+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>DOM.VKP.impl.TransportWaarborgTypeBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>VerzendingWijze:%String</FormalSpec>
+<ReturnType>DOM.VKP.enu.TransportWaarborgType</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml
===================================================================
diff -u -r37946 -r38033
--- DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(.../TransportWaarborgTypeBepaler.cls.xml)	(revision 37946)
+++ DOM/VKP/impl/TransportWaarborgTypeBepaler.cls.xml	(.../TransportWaarborgTypeBepaler.cls.xml)	(revision 38033)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.TransportWaarborgTypeBepaler">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
 
 <Method name="Bepaal">
 <FormalSpec>VerzendingWijze:%String</FormalSpec>