Index: APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml
===================================================================
diff -u
--- APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(revision 0)
+++ APPS/EC/Verkoop/impl/OfferteNaarDtoConverter.cls.xml	(revision 42420)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Verkoop.impl.OfferteNaarDtoConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GeldigheidVermeldingBepaler">
+<Type>APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OfferteService">
+<Type>APPS.VKP.OfferteService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeldigheidVermeldingBepalerGet">
+<Private>1</Private>
+<ReturnType>APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler</ReturnType>
+<Implementation><![CDATA[
+	Set i%GeldigheidVermeldingBepaler = $$$LazyLoad(i%GeldigheidVermeldingBepaler,##class(APPS.EC.Verkoop.impl.GeldigheidVermeldingBepaler).%New())
+	Quit i%GeldigheidVermeldingBepaler
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,WinkelkarService:APPS.EC.Winkelkar.WinkelkarService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.ExterneWinkelkarService).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>OfferteID:%String</FormalSpec>
+<ReturnType>APPS.EC.dto.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim Offerte As APPS.VKP.Offerte = ..OfferteService.GeefOfferte(OfferteID)
+	Set Resultaat = ##class(APPS.EC.dto.Offerte).%New()
+	Set Resultaat.OfferteID = Offerte.GeefID()
+	Set Resultaat.Hoofding = ..ConverteerHoofding(Offerte)
+	Set Resultaat.Winkelkar = ..WinkelkarService.GeefWinkelkar(Offerte.WinkelkarID)
+	//Set Resultaat.GeldigheidVermelding = ..GeldigheidVermeldingBepaler.BepaalVermelding(Offerte)
+	Set Resultaat.PrijzenGeldigTotEnMetDatum = Offerte.GeefPrijzenGeldigTotEnMetDatum()
+	
+	if ..OfferteService.HeeftOfferteVanVH(Offerte) {
+		#dim GekoppeldeOfferte As APPS.VKP.Offerte = ..OfferteService.GeefOfferteVanVH(Offerte)
+		Set Resultaat.GekoppeldeOfferte = ..Converteer(GekoppeldeOfferte.GeefID())
+	}
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerHoofding">
+<FormalSpec>Offerte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.EC.dto.Hoofding</ReturnType>
+<Implementation><![CDATA[
+	#Dim Hoofding As APPS.EC.dto.Hoofding = ##class(APPS.EC.dto.Hoofding).%New()
+	
+	Set Hoofding.BestelDatum = Offerte.GeefBestelDatum()
+	Set Hoofding.BestelOpmerking = Offerte.BestelOpmerking
+	Set Hoofding.Referentie = ##class(APPS.VKP.dto.DocumentReferenties).%New()
+	Set Hoofding.Referentie.OrderReferentie = Offerte.DocumentReferenties.OrderReferentie
+	Set Hoofding.Referentie.CommissieReferentie = Offerte.DocumentReferenties.CommissieReferentie
+	Set Hoofding.Referentie.KlantOrderNummer = Offerte.DocumentReferenties.KlantOrderNummer
+	Set Hoofding.LeveringDetail = ##class(APPS.EC.dto.LeveringDetail).%New()
+	
+	If ($isObject(Offerte.GeefLeverAdres())) {
+		Set Hoofding.LeveringDetail.Adres = ##class(APPS.common.impl.AdresConvertor).%New().NaarDataTransferObject(Offerte.GeefLeverAdres())
+	}
+
+	Set Hoofding.LeveringDetail.Datum = Offerte.LeverDatum
+	Set Hoofding.LeveringDetail.WensDatum = Offerte.WensLeverDatum
+	Quit Hoofding
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml
===================================================================
diff -u -r40822 -r42420
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 40822)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/UnishopWinkelkarConverter/Converter.cls.xml	(.../Converter.cls.xml)	(revision 42420)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter">
 <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.WinkelkarExport.UnishopWinkelkarConverter.Converter,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
Index: vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Verkoop/impl/OfferteNaarDtoConverter/Converteer.cls.xml	(revision 42420)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Verkoop.impl.OfferteNaarDtoConverter.Converteer">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test StandaardConversie">
+<Implementation><![CDATA[
+	#dim TeConverterenOfferte As APPS.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	
+	#dim OfferteId = $$$DummyInteger
+	Set OfferteServiceStub = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceStub.IndienMethodCall("GeefOfferte",OfferteId).DanReturn(TeConverterenOfferte)
+	Do OfferteServiceStub.IndienMethodCall("HeeftOfferteVanVH",TeConverterenOfferte).DanReturn($$$False)
+	
+	#dim StandaardWinkelkar As APPS.EC.Winkelkar.dto.Winkelkar = ##class(vhTest.Utils.APPS.EC.Winkelkar.dto.Winkelkar).WinkelkarMetLBXStandaardLade()
+	Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarServiceStub.IndienMethodCall("GeefWinkelkar", TeConverterenOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	
+	Set Converter = ##class(APPS.EC.Verkoop.impl.OfferteNaarDtoConverter).%New(OfferteServiceStub, WinkelkarServiceStub)
+	#dim Resultaat As APPS.EC.dto.Offerte = Converter.Converteer(OfferteId)
+	
+	Do $$$AssertEquals(Resultaat.OfferteID,"1000")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelDatum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.BestelOpmerking,"BestelOpmerking")
+	Do $$$AssertEquals(Resultaat.Hoofding.LeveringDetail.Datum,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.CommissieReferentie,"CommissieReferentie")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.KlantOrderNummer,"")
+	Do $$$AssertEquals(Resultaat.Hoofding.Referentie.OrderReferentie,"OrderReferentie")
+	Do $$$AssertEquals(Resultaat.Winkelkar.Lijnen.Count(),1)
+	Do $$$AssertEquals(Resultaat.GeldigheidVermelding,"")
+	Do $$$AssertEquals(Resultaat.Melding,"")
+	Do $$$AssertEquals(Resultaat.GekoppeldeOfferte,"")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r40897 -r42420
--- vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 40897)
+++ vhTest/Dummy/APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 42420)
@@ -14,6 +14,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit 1000
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 </Storage>