Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(revision 37061)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar.BerekenVerkoopPrijs.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BerekenVerkoopprijs voor Hein geeft steeds 40 euro voor DHL Freight">
+<Implementation><![CDATA[
+	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Set OfferteItem.Kostprijs = 10.00
+	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 40.00)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenVerkoopprijs voor Hein geeft offerteItem kostprijs 10 euro voor UPS Standard">
+<Implementation><![CDATA[
+	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).UPSExpressStandard()
+	Set OfferteItem.Kostprijs = 10.00
+	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 10.00)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml
===================================================================
diff -u -r37041 -r37061
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37041)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/ZendingDetails/Test.cls.xml	(.../Test.cls.xml)	(revision 37061)
@@ -58,6 +58,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : VerkoopprijsBerekenaar geeft verkoopprijs weer ">
+<Implementation><![CDATA[
+	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
+	Set OfferteData = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteData).GeefOfferteDataTransporteur("DHL")
+	Set OfferteData.Items.GetAt(1).Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).DHL(),$$$ElkeWaarde).DanReturn(OfferteData)
+	Do TransportOfferteServiceStub.IndienMethodCall("BerekenOfferte",##class(APPS.TRANSP.enu.TransportFirma).UPS(),$$$ElkeWaarde).DanReturn(##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New())
+
+	Set VerzendingMogelijkheidRepositoryStub = ##class(vhTest.Spy.WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New()
+	
+	Set VerkoopprijsBerekenaarMock = ##class(vhTest.Mock.WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar).%New()
+	Do VerkoopprijsBerekenaarMock.VerwachtMethodCall("BerekenVerkoopPrijs",OfferteData.Items.GetAt(1)).DanReturn(40.00)
+	
+	Set HaalZendingDetails = ##class(WS.EC.Unishop.InternationaleZending.impl.ZendingDetails).%New(TransportOfferteServiceStub, VerzendingMogelijkheidRepositoryStub,,VerkoopprijsBerekenaarMock)
+	Set BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
+	Set ZendingDetails = HaalZendingDetails.GeefZendingDetails(BerekenInput)
+	
+	Do VerkoopprijsBerekenaarMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test : Carbon neutral wordt voorzien door transportfirma">
 <Implementation><![CDATA[
 	Set TransportOfferteServiceStub = ##class(vhTest.Mock.APPS.TRANSP.OfferteService).%New()
Index: WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 0)
+++ WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 37061)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar">
+<Abstract>1</Abstract>
+<Super>TECH.Mockable</Super>
+
+<Method name="BerekenVerkoopPrijs">
+<Abstract>1</Abstract>
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(revision 37061)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefOfferteItem">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.OfferteService.dto.OfferteItem</ReturnType>
+<Implementation><![CDATA[
+	Set OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Set OfferteItem.Kostprijs = 10.00
+	Quit OfferteItem
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml	(revision 0)
+++ WS/EC/Unishop/InternationaleZending/Hein/impl/VerkoopprijsBerekenaar.cls.xml	(revision 37061)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar">
+<Super>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</Super>
+
+<Method name="BerekenVerkoopPrijs">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[
+	Quit:OfferteItem.Code=##class(APPS.TRANSP.enu.ServiceCode).DHLFreight() 40.00
+	Quit OfferteItem.Kostprijs
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r37041 -r37061
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37041)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 37061)
@@ -23,8 +23,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerkoopprijsBerekenaar">
+<Type>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI</FormalSpec>
+<FormalSpec>TransportOfferteService:APPS.TRANSP.OfferteService,VerzendingMogelijkheidRepository:WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository,VertaalAPI:DOM.common.Transl.VertaalAPI,VerkoopprijsBerekenaar:WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,6 +38,7 @@
 	Set ..TransportOfferteService = $$$Implementation(TransportOfferteService, ##class(APPS.TRANSP.impl.OfferteService).%New())
 	Set ..VerzendingMogelijkheidRepository = $$$Inject(VerzendingMogelijkheidRepository, ##class(WSimpl.EC.ExterneVerkoop.VerzendingMogelijkheidRepository).%New())
 	Set ..VertaalAPI = $$$Inject(VertaalAPI, ##class(DOM.DomeinContext).Instance().GeefVertaalAPI())
+	Set ..VerkoopprijsBerekenaar = $$$Inject(VerkoopprijsBerekenaar,##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New().GeefVerkoopprijsBerekenaar())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -207,7 +213,7 @@
 	Set VerzendingItem.Code = ZendingDetail.Code
 	Set VerzendingItem.Duurtijd = ZendingDetail.Duurtijd
 	Set VerzendingItem.AankoopPrijs = ZendingDetail.VerkoopPrijs
-	Set VerzendingItem.VerkoopPrijs = ZendingDetail.VerkoopPrijs
+	Set VerzendingItem.VerkoopPrijs = ..VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem)
 	Set VerzendingItem.LeverDag = ZendingDetail.LeverDag
 	Set VerzendingItem.LeverDatum = ZendingDetail.LeverDatum 
 	Set VerzendingItem.LeverTijd = ZendingDetail.LeverTijd
Index: vhTest/Mock/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u
--- vhTest/Mock/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 0)
+++ vhTest/Mock/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 37061)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar">
+<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>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BerekenVerkoopPrijs">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BerekenVerkoopPrijs",OfferteItem)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar/BerekenVerkoopPrijs/Test.cls.xml	(revision 37061)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar.BerekenVerkoopPrijs.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: BerekenVerkoopprijs voor VanHoecke geeft OfferteItem kostprijs 10 euro voor DHL Freight">
+<Implementation><![CDATA[
+	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).DHLFreight()
+	Set OfferteItem.Kostprijs = 10.00
+	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 10.00)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BerekenVerkoopprijs voor VanHoecke geeft OfferteItem kostprijs 20 euro voor UPS Standard">
+<Implementation><![CDATA[
+	Set OfferteItem = ##class(vhTest.Utils.APPS.TRANSP.OfferteService.dto.OfferteItem).GeefOfferteItem()
+	Set OfferteItem.Code = ##class(APPS.TRANSP.enu.ServiceCode).UPSExpressStandard()
+	Set OfferteItem.Kostprijs = 20.00
+	Set VerkoopprijsBerekenaar = ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaar.BerekenVerkoopPrijs(OfferteItem), 20.00)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(revision 0)
+++ WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory.cls.xml	(revision 37061)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefVerkoopprijsBerekenaar">
+<ReturnType>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</ReturnType>
+<Implementation><![CDATA[
+	Set PersonalityID = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
+	If (PersonalityID = ##class(DOM.common.enu.Personality).Hein()) {
+		Quit ##class(WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar).%New()
+	} else {
+		Quit ##class(WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar).%New()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u
--- WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar.cls.xml	(revision 0)
+++ WS/EC/Unishop/InternationaleZending/VanHoecke/impl/VerkoopprijsBerekenaar.cls.xml	(revision 37061)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar">
+<Super>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</Super>
+
+<Method name="BerekenVerkoopPrijs">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit OfferteItem.Kostprijs
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/enu/ServiceCode/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/enu/ServiceCode/Verwerker.cls.xml	(revision 0)
+++ APPS/TRANSP/enu/ServiceCode/Verwerker.cls.xml	(revision 37061)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.enu.ServiceCode.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>ServiceCode:APPS.TRANSP.enu.ServiceCode</FormalSpec>
+<Implementation><![CDATA[
+	If ServiceCode = "5" {
+		Do ..VerwerkDHLFreight()
+	} ElseIf ServiceCode = "3" {
+		Do ..VerwerkUPSExpressSaver()
+	} ElseIf ServiceCode = "4" {
+		Do ..VerwerkUPSExpressStandard()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ServiceCode,"APPS.TRANSP.enu.ServiceCode",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkDHLFreight">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUPSExpressSaver">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkUPSExpressStandard">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/enu/ServiceCode/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/enu/ServiceCode/AutoComplete.cls.xml	(revision 0)
+++ APPS/TRANSP/enu/ServiceCode/AutoComplete.cls.xml	(revision 37061)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.enu.ServiceCode.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="DHLFreight">
+<Type>%String</Type>
+<InitialExpression>"5"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="UPSExpressSaver">
+<Type>%String</Type>
+<InitialExpression>"3"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="UPSExpressStandard">
+<Type>%String</Type>
+<InitialExpression>"4"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/enu/ServiceCode.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/enu/ServiceCode.cls.xml	(revision 0)
+++ APPS/TRANSP/enu/ServiceCode.cls.xml	(revision 37061)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.enu.ServiceCode">
+<ClassType>datatype</ClassType>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="DISPLAYLIST">
+<Default>;UPS Express Saver;UPS Standard;UPS;DHL Freight</Default>
+</Parameter>
+
+<Parameter name="VALUELIST">
+<Default>;3;4;5</Default>
+</Parameter>
+
+<Method name="UPSExpressSaver">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.enu.ServiceCode</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="UPSExpressStandard">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.enu.ServiceCode</ReturnType>
+<Implementation><![CDATA[	Quit 4
+]]></Implementation>
+</Method>
+
+<Method name="DHLFreight">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.enu.ServiceCode</ReturnType>
+<Implementation><![CDATA[	Quit 5
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml
===================================================================
diff -u
--- vhTest/Fake/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 0)
+++ vhTest/Fake/WS/EC/Unishop/InternationaleZending/VerkoopprijsBerekenaar.cls.xml	(revision 37061)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar">
+<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>WS.EC.Unishop.InternationaleZending.VerkoopprijsBerekenaar</Super>
+
+<Method name="BerekenVerkoopPrijs">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(revision 0)
+++ vhUnitTest/WS/EC/Unishop/InternationaleZending/impl/VerkoopprijsBerekenaarFactory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(revision 37061)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: geeft verkoopprijsberekenaar hein als de context personality hein is">
+<Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).Hein())
+	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().%ClassName(1),"WS.EC.Unishop.InternationaleZending.Hein.impl.VerkoopprijsBerekenaar")
+]]></Implementation>
+</Method>
+
+<Method name="Test: geeft verkoopprijsberekenaar vanhoecke als de context geen personality hein is">
+<Implementation><![CDATA[
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Set VerkoopprijsBerekenaarFactory = ##class(WS.EC.Unishop.InternationaleZending.impl.VerkoopprijsBerekenaarFactory).%New()
+	Do $$$AssertEquals(VerkoopprijsBerekenaarFactory.GeefVerkoopprijsBerekenaar().%ClassName(1),"WS.EC.Unishop.InternationaleZending.VanHoecke.impl.VerkoopprijsBerekenaar")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>