Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r58045 -r58054
--- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58045)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58054)
@@ -28,7 +28,7 @@
 </Method>
 
 <Method name="GeefWinkelkarAanpasser">
-<FormalSpec>Personality:DOM.common.enu.Personality="",KlantNr:%String=""</FormalSpec>
+<FormalSpec>Personality:DOM.common.enu.Personality="",KlantNr:%String="",VorigePersonality:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</ReturnType>
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
@@ -44,7 +44,7 @@
 			Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr) = Klant.DaroFactors) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%New()
 		}		
 	} Elseif (Personality = ##class(DOM.common.enu.Personality).Hein()) {
-		Quit:(..LegacyPartijAPI.GeefKlantPartijID(KlantNr)=Klant.Zweygart) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
+		Quit:(VorigePersonality = ##class(DOM.common.enu.Personality).Zweygart()) ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%New()
 	}
 	Quit ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%New()
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml
===================================================================
diff -u -r58045 -r58054
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 58045)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory/GeefAanpasserTest.cls.xml	(.../GeefAanpasserTest.cls.xml)	(revision 58054)
@@ -40,16 +40,32 @@
 <Default>31008</Default>
 </Parameter>
 
+<Parameter name="DummyKlantNummer">
+<Default>123</Default>
+</Parameter>
+
 <Property name="BackupDaroExcludedFromDelivery">
 <Type>%Boolean</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Personality">
+<Type>DOM.common.enu.Personality.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+]]></Implementation>
+</Method>
+
 <Method name="Test Standaard Gedrag">
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()	
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).TestklantVanHoecke())
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,##class(DOM.VKP.enu.Klant).TestklantVanHoecke())
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -67,7 +83,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#BeslagDesignKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#BeslagDesignKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.BeslagDesign).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -76,7 +92,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#BeslagteknikkKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#BeslagteknikkKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Beslagteknikk).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -85,7 +101,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#GalimbertiKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#GalimbertiKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Galimberti).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -94,7 +110,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#PavanelloKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#PavanelloKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Pavanello).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -103,7 +119,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#FerexpertKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#FerexpertKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Ferexpert).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -115,7 +131,7 @@
 	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$True )	
 
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New(,ProjectSettingsAPIMock)
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#DaroKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#DaroKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Daro).%ClassName(1) )
 	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
@@ -127,7 +143,7 @@
 	Do ProjectSettingsAPIMock.VerwachtMethodCall("IsDaroExcludeFromDeliveryEnabled").DanReturn($$$False )	
 
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New(,ProjectSettingsAPIMock)
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#DaroKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#DaroKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Standaard).%ClassName(1) )
 	Do ProjectSettingsAPIMock.Verifieer()
 ]]></Implementation>
@@ -137,7 +153,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#HeinKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#HeinKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Hein).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -146,7 +162,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).VanHoecke(),..#ZweygartKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.VanHoecke,..#ZweygartKlantNummer)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%ClassName(1) )
 ]]></Implementation>
 </Method>
@@ -155,7 +171,7 @@
 <Implementation><![CDATA[
 	Set WinkelkarAanpasserFactory = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	
-	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(##class(DOM.common.enu.Personality).Hein(),..#ZweygartKlantNummer)
+	#Dim Aanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(..Personality.Hein,..#DummyKlantNummer,..Personality.Zweygart)
 	Do $$$AssertEquals(Aanpasser.%ClassName(1),##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser.Zweygart).%ClassName(1) )
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r53376 -r58054
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 53376)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 58054)
@@ -86,7 +86,7 @@
 		Set Winkelkar.CommisieReferentie = KlantBestelling.GeefDocumentReferenties().CommissieReferentie
 		Set Winkelkar.BestelOpmerking = KlantBestelling.GeefBestelOpmerking()
 		
-		#dim WinkelkarAanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = ..WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(Winkelkar.PersonalityId,Winkelkar.KlantId)
+		#dim WinkelkarAanpasser as WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser = ..WinkelkarAanpasserFactory.GeefWinkelkarAanpasser(Winkelkar.PersonalityId,Winkelkar.KlantId,KlantBestelling.GeefPersonality().GeefID())
 		Do WinkelkarAanpasser.PasAan(Winkelkar)		
 		#dim ExterneId As %String = ..Vhisie4WinkelkarRepository.Bewaar(Winkelkar)		
 	} Catch {
@@ -101,7 +101,6 @@
 	#dim LeverancierOfferte As APPS.VKP.Offerte = ..Vhisie4WinkelkarRepository.GeefOfferteViaID(ExterneId)
 	Do ..OfferteService.KoppelAanOfferteVanHandel(KlantBestelling,LeverancierOfferte)
 	Do ..OfferteService.KoppelLeverancierOfferteAanKlantBestelling(LeverancierOfferte,KlantBestelling)
-			
 	Quit LeverancierOfferte
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml
===================================================================
diff -u -r57787 -r58054
--- vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 57787)
+++ vhTest/Mock/WSimpl/Vhisie4/Winkelkar/WinkelkarExport/WinkelkarAanpasserFactory.cls.xml	(.../WinkelkarAanpasserFactory.cls.xml)	(revision 58054)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="GeefWinkelkarAanpasser">
-<FormalSpec>Personality:DOM.common.enu.Personality="",KlantNr:%String=""</FormalSpec>
+<FormalSpec>Personality:DOM.common.enu.Personality="",KlantNr:%String="",VorigePersonality:DOM.common.enu.Personality=""</FormalSpec>
 <ReturnType>WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWinkelkarAanpasser",Personality,KlantNr)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWinkelkarAanpasser",Personality,KlantNr,VorigePersonality)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml
===================================================================
diff -u -r53376 -r58054
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 53376)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 58054)
@@ -3,14 +3,23 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4.Converteer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Standaardgedrag">
+<Parameter name="AnderePersonalityIDDanZweygart">
+<Type>%String</Type>
+<Default>2</Default>
+</Parameter>
+
+<Method name="Test: Standaardgedrag gewone,niet subhandel, personality">
 <Implementation><![CDATA[
-	#dim KlantBestelling As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Set KlantBestelling.PersonalityID = ..#AnderePersonalityIDDanZweygart
+
 	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	#dim LeverancierOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	
 	Set OfferteDto = ##class(APPS.EC.dto.Offerte).%New()
+
 	Set WinkelkarDto = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New()
+	Set WinkelkarDto.PersonalityId = 1
 	
 	Set OfferteConverterStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.OfferteConverter).%New()
 	Do OfferteConverterStub.IndienMethodCall("ConverteerNaarECommerce",TijdelijkeOfferte).DanReturn(OfferteDto)
@@ -44,7 +53,7 @@
 	Do WinkelkarAanpasserMock.VerwachtMethodCall("PasAan",WinkelkarDto).DanDoeNiks()
 	
 	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
-	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser","","").DanReturn(WinkelkarAanpasserMock)
+	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).VanHoecke(),"",..#AnderePersonalityIDDanZweygart).DanReturn(WinkelkarAanpasserMock)
 	
 	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
@@ -60,6 +69,66 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Standaardgedrag SubHandel Zweygart - Hein">
+<Implementation><![CDATA[
+	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Set KlantBestelling.PersonalityID = ##class(DOM.common.enu.Personality).Zweygart()
+
+	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	#dim LeverancierOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	
+	Set OfferteDto = ##class(APPS.EC.dto.Offerte).%New()
+	Set WinkelkarDto = ##class(WS.Vhisie4.WinkelkarExport.dto.Winkelkar).%New()
+	Set WinkelkarDto.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
+	
+	Set OfferteConverterStub = ##class(vhTest.Mock.APPS.EC.Verkoop.impl.OfferteConverter).%New()
+	Do OfferteConverterStub.IndienMethodCall("ConverteerNaarECommerce",TijdelijkeOfferte).DanReturn(OfferteDto)
+	
+	Set WinkelkarExportConverterStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter).%New()
+	Do WinkelkarExportConverterStub.IndienMethodCall("Convert",OfferteDto).DanReturn(WinkelkarDto)
+	
+	Set KlantBestellingNaarLeverancierOfferteKopieerderStub = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
+	Do KlantBestellingNaarLeverancierOfferteKopieerderStub.IndienMethodCall("Kopieer", KlantBestelling).DanReturn(TijdelijkeOfferte)
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("KoppelAanOfferteVanHandel",KlantBestelling,LeverancierOfferte)
+	Do OfferteServiceMock.VerwachtMethodCall("KoppelLeverancierOfferteAanKlantBestelling",LeverancierOfferte,KlantBestelling)
+	
+	Set OfferteRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do OfferteRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefID())
+	Do OfferteRepositoryMock.IndienMethodCall("BestaatViaID","1000").DanReturn($$$True)
+	
+	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do WinkelkarRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefWinkelkarID())
+	
+	Set Vhisie4WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("Bewaar",WinkelkarDto).DanReturn("42")
+	Do Vhisie4WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteViaID","42").DanReturn(LeverancierOfferte)
+	
+	Set DocumentReferentiesRepositoryMock = ##class(vhTest.Mock.DOM.VKP.DocumentReferentiesRepository).%New()
+	Do DocumentReferentiesRepositoryMock.IndienMethodCall("BestaatViaID","").DanReturn($$$True)
+	Do DocumentReferentiesRepositoryMock.VerwachtMethodCall("VerwijderViaID",TijdelijkeOfferte.GeefDocumentReferenties().GeefID())
+	
+	Set WinkelkarAanpasserMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasser).%New()
+	Do WinkelkarAanpasserMock.VerwachtMethodCall("PasAan",WinkelkarDto).DanDoeNiks()
+	
+	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
+	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).Hein(),"",##class(DOM.common.enu.Personality).Zweygart()).DanReturn(WinkelkarAanpasserMock)
+	
+	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
+	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
+	
+	Do WinkelkarAanpasserMock.Verifieer()
+	Do WinkelkarAanpasserFactoryMock.Verifieer()
+	Do Vhisie4WinkelkarRepositoryMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+	Do OfferteRepositoryMock.Verifieer()
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do DocumentReferentiesRepositoryMock.Verifieer()
+	do $$$AssertEquals(Resultaat,LeverancierOfferte)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Indien bewaren niet lukt -&gt; Exception Rethrowen">
 <Implementation><![CDATA[
 	#dim KlantBestelling As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()