FishEye: Tag 35931 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/WinkelkarRepository.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(revision 35931)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.EC.Winkelkar.impl.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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.impl.WinkelkarRepository,vhTest.Mock.TECH.Persistentie.Repository</Super>
+<Inheritance>right</Inheritance>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.EC.Winkelkar.Winkelkar</Default>
+</Parameter>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml
===================================================================
diff -u -r29059 -r35931
--- APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 35931)
@@ -1,38 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar">
-<Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
-<Method name="GeefVHKlantTotaalPrijs">
+<Method name="Bereken">
 <Abstract>1</Abstract>
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat</ReturnType>
 </Method>
-
-<Method name="GeefEindklantTotaalPrijs">
-<Abstract>1</Abstract>
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="GeefTotaalAantalProducten">
-<Abstract>1</Abstract>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="GeefMuntVoorAankoopPrijs">
-<Private>1</Private>
-<ReturnType>DOM.enu.Munt</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
-<Method name="GeefMuntVoorVerkoopPrijs">
-<Private>1</Private>
-<ReturnType>DOM.enu.Munt</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekendResultaat.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekendResultaat.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekendResultaat.cls.xml	(revision 35931)
@@ -0,0 +1,109 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property SomAankoopPrijs As %Decimal;
+
+]]></Content>
+</UDLText>
+
+<Property name="VHKlantTotaalPrijs">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property SomVerkoopPrijs As %Decimal;
+
+]]></Content>
+</UDLText>
+
+<Property name="EindklantTotaalPrijs">
+<Type>%Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Property SomAantalProducten As %Integer;
+
+]]></Content>
+</UDLText>
+
+<Property name="TotaalAantalProducten">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MuntVoorVerkoopPrijs">
+<Type>DOM.enu.Munt</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefVHKlantTotaalPrijs">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Quit ..VHKlantTotaalPrijs
+	;Quit ..SomAankoopPrijs
+]]></Implementation>
+</Method>
+
+<Method name="GeefEindklantTotaalPrijs">
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Quit ..EindklantTotaalPrijs
+	;Quit ..SomVerkoopPrijs
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalAantalProducten">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Quit ..TotaalAantalProducten
+	;Quit ..SomAantalProducten
+]]></Implementation>
+</Method>
+
+<Method name="GeefMuntVoorVerkoopPrijs">
+<ReturnType>DOM.enu.Munt</ReturnType>
+<Implementation><![CDATA[	Quit ..MuntVoorVerkoopPrijs
+]]></Implementation>
+</Method>
+
+<Method name="GeefMuntVoorAankoopPrijs">
+<ReturnType>DOM.enu.Munt</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.enu.Munt).EUR()
+]]></Implementation>
+</Method>
+
+<Method name="ZetVHKlantTotaalPrijs">
+<FormalSpec>VHKlantTotaalPrijs:%Decimal</FormalSpec>
+<Implementation><![CDATA[	Set ..VHKlantTotaalPrijs = VHKlantTotaalPrijs
+]]></Implementation>
+</Method>
+
+<Method name="ZetEindklantTotaalPrijs">
+<FormalSpec>EindklantTotaalPrijs:%Decimal</FormalSpec>
+<Implementation><![CDATA[	Set ..EindklantTotaalPrijs = EindklantTotaalPrijs
+]]></Implementation>
+</Method>
+
+<Method name="ZetTotaalAantalProducten">
+<FormalSpec>TotaalAantalProducten:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..TotaalAantalProducten = TotaalAantalProducten
+]]></Implementation>
+</Method>
+
+<Method name="ZetMuntVoorVerkoopPrijs">
+<FormalSpec>MuntVoorVerkoopPrijs:DOM.enu.Munt</FormalSpec>
+<Implementation><![CDATA[	Set ..MuntVoorVerkoopPrijs = MuntVoorVerkoopPrijs
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator/Test.cls.xml	(revision 35931)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID("")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefOfferteDto">
+<Implementation><![CDATA[
+	#dim RandomWinkelkarId As %String = "123"
+	#dim RandomPersonalityId As %String = "12"
+	#dim RandomKlantId As %String = "12345"
+	#dim OrderReferentie As %String = "OrderReferentie"
+	#dim LeverDatum As %String = "LeverDatum"
+	#dim BestelOpmerking As %String = "BestelOpmerking"
+	#dim BestelDatum As %Date = $Now()
+	#dim Url As %String = "Url"
+	#dim KlantNaam As %String = "KlantNaam"
+	#dim KlantCode As %String = "KlantCode"
+	#dim EDINummerVoorEindklant As %String = "EDINummerVoorEindklant"
+
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(RandomPersonalityId)
+	
+	#dim PersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do PersonalityStub.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Frans())
+
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.OrderReferentie = OrderReferentie
+	
+	#dim OfferteStub As vhTest.Mock.APPS.VKP.Offerte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteStub.IndienMethodCall("GeefWinkelkarID").DanReturn(RandomWinkelkarId)
+	Do OfferteStub.IndienMethodCall("GeefEDINummerVoorEindklant").DanReturn(EDINummerVoorEindklant)
+	Do OfferteStub.IndienMethodCall("GeefKlantID").DanReturn(RandomKlantId)
+	Do OfferteStub.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do OfferteStub.IndienMethodCall("GeefWensLeverDatum").DanReturn(LeverDatum)
+	Do OfferteStub.IndienMethodCall("GeefBestelOpmerking").DanReturn(BestelOpmerking)
+	Do OfferteStub.IndienMethodCall("GeefBestelDatum").DanReturn(BestelDatum)
+
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New($$$DummyInteger)
+	Do Winkelkar.ZetPersonalityID(RandomPersonalityId)
+	
+	#dim MaatwerkLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New())
+	Do MaatwerkLijnen.Insert(##class(DOM.EC.Winkelkar.MaatwerkLijn).%New())	
+	
+	#dim KlantData As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set KlantData.Naam = KlantNaam
+	Set KlantData.Code = KlantCode
+	
+	#dim DataServiceStub As vhTest.Mock.APPS.common.DataService = ##class(vhTest.Mock.APPS.common.DataService).%New()
+	Do DataServiceStub.IndienMethodCall("GeefKlantData", RandomKlantId).DanReturn(KlantData)
+	
+	#dim DomCommonAPIStub As vhTest.Mock.DOM.common.CommonAPI = ##class(vhTest.Mock.DOM.common.CommonAPI).MockInstance()
+	Do DomCommonAPIStub.IndienMethodCall("GeefPersonality", RandomPersonalityId).DanReturn(PersonalityStub)
+	
+	#dim AppsCommonAPI As vhTest.Mock.APPS.common.CommonAPI = ##class(vhTest.Mock.APPS.common.CommonAPI).MockInstance()
+	Do AppsCommonAPI.IndienMethodCall("GeefDataService", $$$ElkeWaarde).DanReturn(DataServiceStub)
+	
+	#dim IngegevenKenmerkenAPIStub As vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).MockInstance()
+	Do IngegevenKenmerkenAPIStub.IndienMethodCall("GeefIngegevenKenmerken", $$$ElkeWaarde).DanReturn(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade())
+	
+	#dim WinkelkarServiceStub As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefMaatwerkLijnen", RandomWinkelkarId).DanReturn(MaatwerkLijnen)
+	
+	#dim WinkelkarRepositoryStub As vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("GeefViaID", RandomWinkelkarId).DanReturn(Winkelkar)
+	
+	#dim UrlBepalerStub As vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler = ##class(vhTest.Mock.APPS.EC.Webshop.impl.OfferteUrlBepaler).%New()
+	Do UrlBepalerStub.IndienMethodCall("GeefURL", OfferteStub, $$$ElkeWaarde).DanReturn(Url)
+	
+	#dim TotaalEnPrijsBerekendResultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	Do TotaalEnPrijsBerekendResultaat.ZetVHKlantTotaalPrijs(100)
+	Do TotaalEnPrijsBerekendResultaat.ZetEindklantTotaalPrijs(200)
+	Do TotaalEnPrijsBerekendResultaat.ZetTotaalAantalProducten(10)
+	
+	#dim TotaalEnPrijsBerekenaarStub As vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar = ##class(vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar).%New()
+	Do TotaalEnPrijsBerekenaarStub.IndienMethodCall("Bereken", Winkelkar).DanReturn(TotaalEnPrijsBerekendResultaat)
+	
+	#dim OfferteGenerator As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator = ##class(APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.OfferteGenerator).%New(WinkelkarServiceStub, WinkelkarRepositoryStub, UrlBepalerStub, TotaalEnPrijsBerekenaarStub)
+	#dim OfferteDto As APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.Offerte = OfferteGenerator.GeefOfferteDto(OfferteStub)
+
+	Do $$$AssertEquals(OfferteDto.EDINummer, EDINummerVoorEindklant)
+	Do $$$AssertEquals(OfferteDto.KlantKorting, 0)
+	Do $$$AssertEquals(OfferteDto.KlantNaam, KlantNaam)
+	Do $$$AssertEquals(OfferteDto.KlantNummer, KlantCode)
+	Do $$$AssertEquals(OfferteDto.KlantOrderReferentie, OrderReferentie)
+	Do $$$AssertEquals(OfferteDto.LeverDatum, LeverDatum)
+	Do $$$AssertEquals(OfferteDto.Opmerking1, BestelOpmerking)
+	;Do $$$AssertEquals(OfferteDto.SubmitTS, $ZDateTime(BestelDatum, 3)) //##class(TECH.Context).Instance().GeefDateTimeAPI().TimestampToDate(BestelDatum))
+	Do $$$AssertEquals(OfferteDto.TotaalAantalProducten, 10)
+	Do $$$AssertEquals(OfferteDto.URLPrintPage, Url)
+	Do $$$AssertEquals(OfferteDto.EindklantTotaalPrijs.Content, 200)
+	Do $$$AssertEquals(OfferteDto.Lijnen.Count(), MaatwerkLijnen.Count())
+	Do $$$AssertEquals(OfferteDto.VHKlantTotaalPrijs.Content, 100)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml
===================================================================
diff -u -r35907 -r35931
--- APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 35907)
+++ APPS/VKP/Offerte/impl/BesteldeOfferteMelder/personality/common/dto/OfferteGenerator.cls.xml	(.../OfferteGenerator.cls.xml)	(revision 35931)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="WinkelkarRepository">
-<Type>DOM.EC.Winkelkar.WinkelkarRepository</Type>
+<Type>DOM.EC.Winkelkar.impl.WinkelkarRepository</Type>
 <Private>1</Private>
 </Property>
 
@@ -23,11 +23,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="UrlBepaler">
+<Type>APPS.EC.Webshop.impl.OfferteUrlBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="TotaalEnPrijsBerekenaar">
 <Type>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="TotaalEnPrijsBerekendResultaat">
+<Type>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OfferteDto">
 <Type>APPS.VKP.Offerte.impl.BesteldeOfferteMelder.personality.common.dto.Offerte</Type>
 <Private>1</Private>
@@ -49,14 +59,16 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService,WinkelkarRepository:DOM.EC.Winkelkar.WinkelkarRepository</FormalSpec>
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.WinkelkarService="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",UrlBepaler:APPS.EC.Webshop.impl.OfferteUrlBepaler="",TotaalEnPrijsBerekenaar:APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
-	set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
+	Set ..UrlBepaler = $$$Inject(UrlBepaler, ##class(APPS.EC.Webshop.impl.OfferteUrlBepaler).%New())
+	Set ..TotaalEnPrijsBerekenaar = $$$Inject(TotaalEnPrijsBerekenaar, ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New())
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	
 	Quit $$$OK
@@ -83,11 +95,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.GeefWinkelkarID())
-	
+
 	Do ..ControleerPersonality()
 	
 	Set ..Taal = ..Winkelkar.GeefPersonality().GeefTaal()
-	Set ..TotaalEnPrijsBerekenaar = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar).%New(..Winkelkar)
+	Set ..TotaalEnPrijsBerekendResultaat = ..TotaalEnPrijsBerekenaar.Bereken(..Winkelkar)
 	Set ..LijnVolgnummer = 0
 	Set ..ActieDefinitieRepository = ##class(DOM.EC.Winkelkar.Actie.impl.MaatwerkActieDefinitieObjectRepository).%New()
 ]]></Implementation>
@@ -119,13 +131,13 @@
 	
 	Do ..VulInOfferteHoofdingKlantGegevens(Offerte)
 	
-	Set ..OfferteDto.LeverDatum = ..GeefGeformatteerdeWensLeverDatum(Offerte.WensLeverDatum)
-	Set ..OfferteDto.Opmerking1 = Offerte.BestelOpmerking
-	Set ..OfferteDto.SubmitTS = ..GeefGeformatteerdeDatum(Offerte.GeefBestelDatum())
-	Set ..OfferteDto.URLPrintPage = ##class(APPS.EC.Webshop.impl.OfferteUrlBepaler).%New().GeefURL(Offerte, ##class(APPS.EC.enu.WebshopModus).AlleenLezen())
-	Set ..OfferteDto.EindklantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefEindklantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
-	Set ..OfferteDto.VHKlantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekenaar.GeefVHKlantTotaalPrijs(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
-	Set ..OfferteDto.TotaalAantalProducten = ..TotaalEnPrijsBerekenaar.GeefTotaalAantalProducten()
+	Set ..OfferteDto.LeverDatum = ..GeefGeformatteerdeWensLeverDatum(Offerte.GeefWensLeverDatum())
+	Set ..OfferteDto.Opmerking1 = Offerte.GeefBestelOpmerking()
+	Set ..OfferteDto.SubmitTS = ..GeefGeformatteerdeDatum(Offerte.GeefBestelDatum())	
+	Set ..OfferteDto.URLPrintPage = ..UrlBepaler.GeefURL(Offerte, ##class(APPS.EC.enu.WebshopModus).AlleenLezen())
+	Set ..OfferteDto.EindklantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekendResultaat.GeefEindklantTotaalPrijs(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
+	Set ..OfferteDto.VHKlantTotaalPrijs = ..GeefPrijsObject(..TotaalEnPrijsBerekendResultaat.GeefVHKlantTotaalPrijs(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
+	Set ..OfferteDto.TotaalAantalProducten = ..TotaalEnPrijsBerekendResultaat.GeefTotaalAantalProducten()
 ]]></Implementation>
 </Method>
 
@@ -137,11 +149,12 @@
 <Implementation><![CDATA[
 	#dim DataService As APPS.common.DataService = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService()
 	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(Offerte.GeefKlantID())
+	
 	// Opmerking : het KlantData-object zal afhankelijk zijn van de Personality. Is voorlopig enkel voor SFS en zal dus later moeten ge-refactored worden. 
 	Set ..OfferteDto.KlantNummer = KlantData.Code
 	Set ..OfferteDto.KlantNaam = KlantData.Naam
 	Set ..OfferteDto.KlantKorting = 0 ; --> KlantDataBepaler.GeefKlantKorting() 
-	Set ..OfferteDto.KlantOrderReferentie = Offerte.DocumentReferenties.OrderReferentie
+	Set ..OfferteDto.KlantOrderReferentie = Offerte.GeefDocumentReferenties().OrderReferentie
 ]]></Implementation>
 </Method>
 
@@ -227,8 +240,8 @@
 	Set OfferteLijn.LijnVolgnummer = ..GeefVolgendeLijnVolgnummer()
 	Set OfferteLijn.KlantRef = MaatwerkLijn.GeefProjectReferentie()
 	Set OfferteLijn.Aantal = MaatwerkLijn.GeefAantal()
-	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorVerkoopPrijs())
-	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekenaar.GeefMuntVoorAankoopPrijs())
+	Set OfferteLijn.EindklantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorVerkoopPrijs())
+	Set OfferteLijn.VHKlantEenheidPrijs = ..GeefPrijsObject(MaatwerkLijn.GeefEenheidPrijsNettoExclBTW(), ..TotaalEnPrijsBerekendResultaat.GeefMuntVoorAankoopPrijs())
 	Set OfferteLijn.ProductVariantOmschrijving = ..GeefProductVariantOmschrijving(MaatwerkLijn)
 	Set OfferteLijn.ProductKleurOmschrijving = ..GeefProductKleurOmschrijving(MaatwerkLijn)
 	Set OfferteLijn.ProductType = ..GeefProductType(MaatwerkLijn)
Index: APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml
===================================================================
diff -u -r29059 -r35931
--- APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 35931)
@@ -3,94 +3,31 @@
 <Class name="APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekenaar">
 <Super>TECH.RegisteredObject,APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar</Super>
 
-<Property name="Winkelkar">
-<Type>DOM.EC.Winkelkar.Winkelkar</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="SomAankoopPrijs">
-<Type>%Decimal</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="SomVerkoopPrijs">
-<Type>%Decimal</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="SomAantalProducten">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..Winkelkar=Winkelkar
-	Do ..Bereken(Winkelkar)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="BerekenVoorWinkelkar">
-<Description>
-Of i.p.v. de %OnNew() method : </Description>
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Implementation><![CDATA[
-	Set ..Winkelkar=Winkelkar
-	Do ..Bereken(Winkelkar)
-]]></Implementation>
-</Method>
-
-<Method name="GeefVHKlantTotaalPrijs">
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	Quit ..SomAankoopPrijs
-]]></Implementation>
-</Method>
-
-<Method name="GeefEindklantTotaalPrijs">
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	Quit ..SomVerkoopPrijs
-]]></Implementation>
-</Method>
-
-<Method name="GeefTotaalAantalProducten">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..SomAantalProducten
-]]></Implementation>
-</Method>
-
-<Method name="GeefMuntVoorAankoopPrijs">
-<ReturnType>DOM.enu.Munt</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.enu.Munt).EUR()
-]]></Implementation>
-</Method>
-
-<Method name="GeefMuntVoorVerkoopPrijs">
-<ReturnType>DOM.enu.Munt</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.VerkoopPrijsMuntBepaler).%New().GeefMuntVoorVerkoopPrijs(..Winkelkar)
-]]></Implementation>
-</Method>
-
 <Method name="Bereken">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
+<ReturnType>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat</ReturnType>
 <Implementation><![CDATA[
-	Set ..SomAankoopPrijs = 0
-	Set ..SomVerkoopPrijs = 0
-	Set ..SomAantalProducten = 0
-
-	Set MaatwerkLijnIterator=##class(TECH.ListIterator).%New(..GeefMaatwerkLijnenVanWinkelkar(..Winkelkar))
+	#dim Resultaat As APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat = ##class(APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat).%New()
+	#dim MaatwerkLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GeefMaatwerkLijnenVanWinkelkar(Winkelkar))
+	
+	#dim SomAankoopPrijs As %Decimal = 0
+	#dim SomVerkoopPrijs As %Decimal = 0
+	#dim SomAantalProducten As %Integer = 0
+	
 	While (MaatwerkLijnIterator.HasNext()) {
 		#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = MaatwerkLijnIterator.Next()
-		Set ..SomAankoopPrijs = ..SomAankoopPrijs + MaatwerkLijn.GeefTotaalPrijs()
-		Set ..SomVerkoopPrijs = ..SomVerkoopPrijs + MaatwerkLijn.GeefEindklantTotaalPrijs()
-		Set ..SomAantalProducten = ..SomAantalProducten + MaatwerkLijn.GeefAantal()
+
+		Set SomAankoopPrijs = SomAankoopPrijs + MaatwerkLijn.GeefTotaalPrijs()
+		Set SomVerkoopPrijs = SomVerkoopPrijs + MaatwerkLijn.GeefEindklantTotaalPrijs()
+		Set SomAantalProducten = SomAantalProducten + MaatwerkLijn.GeefAantal()
 	}
+	
+	Do Resultaat.ZetVHKlantTotaalPrijs(SomAankoopPrijs)
+	Do Resultaat.ZetEindklantTotaalPrijs(SomVerkoopPrijs)
+	Do Resultaat.ZetTotaalAantalProducten(SomAantalProducten)
+	Do Resultaat.ZetMuntVoorVerkoopPrijs(##class(APPS.EC.Winkelkar.impl.VerkoopPrijsMuntBepaler).%New().GeefMuntVoorVerkoopPrijs(Winkelkar))
+	
+	Quit Resultaat
 ]]></Implementation>
 </Method>
 
@@ -103,6 +40,14 @@
 <Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.MaatwerkLijnVisitor).%New().GeefMaatwerkLijnen(Winkelkar)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefMuntVoorVerkoopPrijs">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.enu.Munt</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.impl.VerkoopPrijsMuntBepaler).%New().GeefMuntVoorVerkoopPrijs(Winkelkar)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(revision 35931)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.EC.Winkelkar.impl.WinkelkarRepository">
+<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.EC.Winkelkar.impl.WinkelkarRepository</Super>
+</Class>
+
+
+</Export>
Index: DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml
===================================================================
diff -u -r33737 -r35931
--- DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 33737)
+++ DOM/EC/Winkelkar/impl/WinkelkarRepository.cls.xml	(.../WinkelkarRepository.cls.xml)	(revision 35931)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.EC.Winkelkar.impl.WinkelkarRepository">
-<Super>TECH.Persistentie.Repository,DOM.EC.Winkelkar.WinkelkarRepository</Super>
+<Super>TECH.Persistentie.Repository,TECH.Mockable</Super>
 
 <Parameter name="DataClassName">
 <Type>%String</Type>
Index: vhTest/Mock/APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml
===================================================================
diff -u -r29059 -r35931
--- vhTest/Mock/APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/EC/Winkelkar/TotaalEnPrijsBerekenaar.cls.xml	(.../TotaalEnPrijsBerekenaar.cls.xml)	(revision 35931)
@@ -3,28 +3,18 @@
 <Class name="vhTest.Mock.APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar">
 <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</Description>
+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>APPS.EC.Winkelkar.TotaalEnPrijsBerekenaar,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="GeefEindklantTotaalPrijs">
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEindklantTotaalPrijs")
+<Method name="Bereken">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.impl.TotaalEnPrijsBerekendResultaat</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bereken",Winkelkar)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefTotaalAantalProducten">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefTotaalAantalProducten")
-]]></Implementation>
-</Method>
-
-<Method name="GeefVHKlantTotaalPrijs">
-<ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVHKlantTotaalPrijs")
-]]></Implementation>
-</Method>
 </Class>