Index: vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(revision 44493)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder">
+<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>APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder</Super>
+
+<Method name="Kopieer">
+<FormalSpec>TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(revision 44493)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Kopieer">
+<FormalSpec>TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Kopieer",TeConverterenOfferte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie3/Converteer/Test.cls.xml
===================================================================
diff -u -r44456 -r44493
--- vhUnitTest/APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie3/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 44456)
+++ vhUnitTest/APPS/VKP/Offerte/impl/HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie3/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 44493)
@@ -3,25 +3,37 @@
 <Class name="vhUnitTest.APPS.VKP.Offerte.impl.HandelOfferteNaarVanHoeckeOfferteConverteerderVhisie3.Converteer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test : geeft foutmelding als de offerte geen handelofferte is">
+<Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
-	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	#dim TeConverterenOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	#dim GeconverteerdeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	
-	Set OfferteFake = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Set OfferteBewaarderStub = ##class(vhTest.Mock.APPS.VKP.OfferteBewaarder).%New()
+	Do OfferteBewaarderStub.IndienMethodCall("Bewaar", GeconverteerdeOfferte).DanDoeNiks()
 	
-	Do OfferteFake.IndienMethodCall("GeefID").DanReturn($$$DummyString)
-	Do OfferteFake.IndienMethodCall("GeefPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("GeefOfferteBewaarder").ExactAantalKeer(2).DanReturn(OfferteBewaarderStub)
+	Do OfferteServiceMock.VerwachtMethodCall("KoppelAanOfferteVanHandel",GeconverteerdeOfferte,TeConverterenOfferte)
 	
-	Set Converteerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3).%New()
-	Do Converteerder.Converteer(OfferteFake)
+	Set KlantBestellingNaarLeverancierOfferteKopieerderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
+	Do KlantBestellingNaarLeverancierOfferteKopieerderMock.VerwachtMethodCall("Kopieer", TeConverterenOfferte).DanReturn(GeconverteerdeOfferte)
+	
+	Set Converteerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3).%New(OfferteServiceMock,  KlantBestellingNaarLeverancierOfferteKopieerderMock)
+	
+	Do Converteerder.Converteer(TeConverterenOfferte)
+	
+	Do OfferteServiceMock.Verifieer()
+	Do KlantBestellingNaarLeverancierOfferteKopieerderMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test : het handel leveradres blijft ongewijzigd als de klant een Hein personality is">
+<Method name="aTest : het handel leveradres blijft ongewijzigd als de klant een Hein personality is">
 <Implementation><![CDATA[
 	#dim OfferteFake As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferteFake(##class(DOM.common.enu.Personality).Hein())
 
+	Set KlantBestellingNaarLeverancierOfferteKopieerderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
+	Do KlantBestellingNaarLeverancierOfferteKopieerderMock.VerwachtMethodCall("Kopieer", OfferteFake).DanReturn(##class(APPS.VKP.impl.Offerte).%New($$$DummyInteger))
+	
 	#dim OfferteKopieerderFake As vhTest.Fake.APPS.VKP.Offerte.impl.OfferteKopieerder
 	Set OfferteKopieerderFake = ##class(vhTest.Fake.APPS.VKP.Offerte.impl.OfferteKopieerder).%New()
 	
@@ -32,7 +44,7 @@
 	Set ExterneVerkoopServiceSpy = ##class(vhTest.Spy.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 
 	#dim Converteerder As APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3
-	Set Converteerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3).%New(OfferteKopieerderFake, OfferteServiceFake, ExterneVerkoopServiceSpy, ..GeefCommonAPIStub(), ..GeefWinkelKarServiceMock())
+	Set Converteerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3).%New(OfferteKopieerderFake, OfferteServiceFake, ExterneVerkoopServiceSpy, ..GeefCommonAPIStub(), ..GeefWinkelKarServiceMock(), KlantBestellingNaarLeverancierOfferteKopieerderMock)
 	
 	#dim GeconverteerdeOfferte As APPS.VKP.Offerte = Converteerder.Converteer(OfferteFake)
 	
@@ -46,7 +58,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test : het handel leveradres wordt op standaardleveradres gezet als het geen hein personality is">
+<Method name="aTest : het handel leveradres wordt op standaardleveradres gezet als het geen hein personality is">
 <Implementation><![CDATA[
 	#dim OfferteFake As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferteFake(##class(DOM.common.enu.Personality).VanHoecke())
 	
@@ -131,6 +143,7 @@
 	Do OfferteFake.IndienMethodCall("GeefOrderID").DanReturn($$$DummyInteger)
 	Do OfferteFake.IndienMethodCall("GeefWinkelkarID").DanReturn($$$DummyInteger)
 	Do OfferteFake.IndienMethodCall("GeefLeverAdres").DanReturn(..GeefLeverAdresDummy())
+	Do OfferteFake.IndienMethodCall("GeefDocumentReferenties").DanReturn("")
 	Quit OfferteFake
 ]]></Implementation>
 </Method>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie3.cls.xml
===================================================================
diff -u -r44458 -r44493
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie3.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie3.cls.xml)	(revision 44458)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie3.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie3.cls.xml)	(revision 44493)
@@ -3,43 +3,25 @@
 <Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie3">
 <Super>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter,TECH.RegisteredObject</Super>
 
-<Property name="OfferteKopieerder">
-<Type>APPS.VKP.Offerte.OfferteKopieerder</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OfferteService">
 <Type>APPS.VKP.OfferteService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ExterneVerkoopService">
-<Type>APPS.EC.Verkoop.ExterneVerkoopService</Type>
+<Property name="KlantBestellingNaarLeverancierOfferteKopieerder">
+<Type>APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="CommonAPI">
-<Type>APPS.common.CommonAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="WinkelkarService">
-<Type>DOM.EC.Winkelkar.impl.WinkelkarService</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>OfferteKopieerder:APPS.VKP.Offerte.OfferteKopieerder,OfferteService:APPS.VKP.OfferteService,ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,CommonAPI:APPS.common.CommonAPI,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService,KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..OfferteKopieerder = $$$Inject(OfferteKopieerder, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteKopieerder())
 	Set ..OfferteService = $$$Inject(OfferteService, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService())
-	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
-	Set ..CommonAPI = $$$Inject(CommonAPI, ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI())
-	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
+	Set ..KlantBestellingNaarLeverancierOfferteKopieerder = $$$Inject(KlantBestellingNaarLeverancierOfferteKopieerder, ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,16 +30,8 @@
 <FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerIsHandel(OfferteVanHandel)
+	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..KlantBestellingNaarLeverancierOfferteKopieerder.Kopieer(OfferteVanHandel)
 	
-	#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..MaakGekoppeldeVanHoeckeOfferte(OfferteVanHandel)
-
-	Do ..BehoudOorspronkelijkLeveradresIndienHein(VanHoeckeOfferte, OfferteVanHandel)
-	
-	Do ..PasAanDocumentReferenties(VanHoeckeOfferte, OfferteVanHandel)
-	
-	Do ..PasAanVHWinkelKar(VanHoeckeOfferte, OfferteVanHandel)
-	
 	Do ..OfferteService.GeefOfferteBewaarder().Bewaar(VanHoeckeOfferte)
 	
 	Do ..OfferteService.KoppelAanOfferteVanHandel(VanHoeckeOfferte,OfferteVanHandel)
@@ -67,74 +41,6 @@
 	Quit VanHoeckeOfferte
 ]]></Implementation>
 </Method>
-
-<Method name="VerbindTeksten">
-<Description>
-Moet verplaatst worden naar TECH.StringUtils klasse </Description>
-<FormalSpec>Tekst1:%String,Tekst2:%String,Delimiter:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit Tekst1 _ $S(($L(Tekst1))&&($L(Tekst2)):Delimiter, 1:"") _ Tekst2
-]]></Implementation>
-</Method>
-
-<Method name="BehoudOorspronkelijkLeveradresIndienHein">
-<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If (OfferteVanHandel.GeefPersonalityID() '= ##class(DOM.common.enu.Personality).Hein())
-	{
-		Do ..ExterneVerkoopService.StelInStandaardLeveradres(VanHoeckeOfferte)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="MaakGekoppeldeVanHoeckeOfferte">
-<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.VKP.Offerte</ReturnType>
-<Implementation><![CDATA[
-	#dim VanHoeckeKlant As %String = OfferteVanHandel.GeefPersonality().GeefKlantID()
-	Quit ..OfferteKopieerder.KopieerOfferte(OfferteVanHandel, VanHoeckeKlant, ##class(DOM.common.enu.Personality).VanHoecke())
-]]></Implementation>
-</Method>
-
-<Method name="PasAanDocumentReferenties">
-<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = VanHoeckeOfferte.GeefDocumentReferenties()
-	#dim DataService As APPS.common.DataService = ..CommonAPI.GeefDataService(OfferteVanHandel.GeefPersonalityID())
-	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(OfferteVanHandel.GeefKlantID())
-	Set DocumentReferenties.CommissieReferentie = ##class(TECH.StringUtils).Append(DocumentReferenties.CommissieReferentie, KlantData.Naam, ", ")
-]]></Implementation>
-</Method>
-
-<Method name="PasAanVHWinkelKar">
-<FormalSpec>VanHoeckeOfferte:APPS.VKP.Offerte,OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(VanHoeckeOfferte.WinkelkarID)
-	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Do Winkelkar.ZetKlantID(OfferteVanHandel.GeefPersonality().GeefKlantID())
-	Do ..WinkelkarService.HerberekenPrijs(Winkelkar)
-	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
-	Do VanHoeckeOfferte.PrijzenWerdenHerberekend()
-]]></Implementation>
-</Method>
-
-<Method name="ValideerIsHandel">
-<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	If $$$Not(OfferteVanHandel.GeefPersonality().IsHandel()) {
-		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
-		do Exceptie.VoegToeExtraInfo("OfferteID : "_OfferteVanHandel.GeefID())
-		do Exceptie.VoegToeExtraInfo("Personality : "_OfferteVanHandel.GeefPersonality().GeefCode())
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
-	}
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml
===================================================================
diff -u -r44474 -r44493
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 44474)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml	(.../KlantBestellingNaarLeverancierOfferteKopieerder.cls.xml)	(revision 44493)
@@ -1,7 +1,118 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder">
-<Super>TECH.RegisteredObject</Super>
+<Super>TECH.Mockable</Super>
+
+<Property name="OfferteKopieerder">
+<Type>APPS.VKP.Offerte.OfferteKopieerder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ExterneVerkoopService">
+<Type>APPS.EC.Verkoop.ExterneVerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CommonAPI">
+<Type>APPS.common.CommonAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>DOM.EC.Winkelkar.impl.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OfferteKopieerder:APPS.VKP.Offerte.OfferteKopieerder,ExterneVerkoopService:APPS.EC.Verkoop.ExterneVerkoopService,CommonAPI:APPS.common.CommonAPI,WinkelkarService:DOM.EC.Winkelkar.impl.WinkelkarService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OfferteKopieerder = $$$Inject(OfferteKopieerder, ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteKopieerder())
+	Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefExterneVerkoopService())
+	Set ..CommonAPI = $$$Inject(CommonAPI, ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(DOM.EC.Winkelkar.impl.WinkelkarService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Kopieer">
+<FormalSpec>TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Do ..ValideerIsHandel(TeConverterenOfferte)
+	
+	#dim GeconverteerdeOfferte As APPS.VKP.Offerte = ..MaakGekoppeldeVanHoeckeOfferte(TeConverterenOfferte)
+
+	Do ..BehoudOorspronkelijkLeveradresIndienHein(GeconverteerdeOfferte, TeConverterenOfferte)
+	
+	Do ..PasAanDocumentReferenties(GeconverteerdeOfferte, TeConverterenOfferte)
+	
+	Do ..PasAanVHWinkelKar(GeconverteerdeOfferte, TeConverterenOfferte)
+	
+	Quit GeconverteerdeOfferte
+]]></Implementation>
+</Method>
+
+<Method name="MaakGekoppeldeVanHoeckeOfferte">
+<FormalSpec>TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	#dim VanHoeckeKlant As %String = TeConverterenOfferte.GeefPersonality().GeefKlantID()
+	Quit ..OfferteKopieerder.KopieerOfferte(TeConverterenOfferte, VanHoeckeKlant, ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
+</Method>
+
+<Method name="BehoudOorspronkelijkLeveradresIndienHein">
+<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (TeConverterenOfferte.GeefPersonalityID() '= ##class(DOM.common.enu.Personality).Hein())
+	{
+		Do ..ExterneVerkoopService.StelInStandaardLeveradres(GeconverteerdeOfferte)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PasAanDocumentReferenties">
+<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DocumentReferenties As DOM.VKP.DocumentReferenties = GeconverteerdeOfferte.GeefDocumentReferenties()
+	#dim DataService As APPS.common.DataService = ..CommonAPI.GeefDataService(TeConverterenOfferte.GeefPersonalityID())
+	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(TeConverterenOfferte.GeefKlantID())
+	Set DocumentReferenties.CommissieReferentie = ##class(TECH.StringUtils).Append(DocumentReferenties.CommissieReferentie, KlantData.Naam, ", ")
+]]></Implementation>
+</Method>
+
+<Method name="PasAanVHWinkelKar">
+<FormalSpec>GeconverteerdeOfferte:APPS.VKP.Offerte,TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarService.GeefWinkelkar(GeconverteerdeOfferte.GeefWinkelkarID())
+	Do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do Winkelkar.ZetKlantID(TeConverterenOfferte.GeefPersonality().GeefKlantID())
+	Do ..WinkelkarService.HerberekenPrijs(Winkelkar)
+	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
+	Do GeconverteerdeOfferte.PrijzenWerdenHerberekend()
+]]></Implementation>
+</Method>
+
+<Method name="ValideerIsHandel">
+<FormalSpec>TeConverterenOfferte:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(TeConverterenOfferte.GeefPersonality().IsHandel()) {
+		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
+		do Exceptie.VoegToeExtraInfo("OfferteID : "_TeConverterenOfferte.GeefID())
+		do Exceptie.VoegToeExtraInfo("Personality : "_TeConverterenOfferte.GeefPersonality().GeefCode())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml
===================================================================
diff -u -r44474 -r44493
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 44474)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteKopieerder/Kopieer/Test.cls.xml	(.../Test.cls.xml)	(revision 44493)
@@ -4,9 +4,204 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: Standaardgedrag">
-<Implementation><![CDATA[	Set Kopieerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
+<Implementation><![CDATA[
+	#dim TeKopierenOfferte As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferteFake(##class(DOM.common.enu.Personality).VanHoecke())
+	#dim TijdelijkeOfferte As vhTest.Mock.APPS.VKP.Offerte = TeKopierenOfferte
+	
+	Set OfferteKopieerderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.OfferteKopieerder).%New()
+	Do OfferteKopieerderMock.VerwachtMethodCall("KopieerOfferte", TeKopierenOfferte, TeKopierenOfferte.GeefPersonality().GeefKlantID(), TeKopierenOfferte.GeefPersonality().GeefID()).DanReturn(TijdelijkeOfferte)
+	
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("StelInStandaardLeveradres", TijdelijkeOfferte)
+	
+	#dim DataServiceStub As vhTest.Mock.APPS.common.DataService = ##class(vhTest.Mock.APPS.common.DataService).%New()
+	Do DataServiceStub.IndienMethodCall("GeefKlantData", $$$ElkeWaarde).DanReturn(..GeefKlantDataDummy())
+	#dim CommonAPIStub As vhTest.Mock.APPS.common.CommonAPI	= ##class(vhTest.Mock.APPS.common.CommonAPI).%New()
+	Do CommonAPIStub.IndienMethodCall("GeefDataService", $$$ElkeWaarde).DanReturn(DataServiceStub)
+	
+	#dim StandaardWinkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Set StandaardWinkelkar.KlantID = TeKopierenOfferte.GeefPersonality().GeefKlantID()
+	Set StandaardWinkelkar.PersonalityID = TeKopierenOfferte.GeefPersonality().GeefID()
+	
+	Set WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarService.VerwachtMethodCall("GeefWinkelkar", TijdelijkeOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	Do WinkelkarService.VerwachtMethodCall("HerberekenPrijs", StandaardWinkelkar).DanDoeNiks()
+	Do WinkelkarService.VerwachtMethodCall("BewaarWinkelkar", StandaardWinkelkar).DanDoeNiks()
+	
+	Set Kopieerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New(OfferteKopieerderMock, ExterneVerkoopServiceMock, CommonAPIStub, WinkelkarService)
+	
+	#dim GekopieerdeOfferte As APPS.VKP.Offerte = Kopieerder.Kopieer(TeKopierenOfferte)
+	
+	Do OfferteKopieerderMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do WinkelkarService.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test : geeft foutmelding als de offerte geen handelofferte is">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De personality van de offerte die geconverteerd moet worden, is geen handelofferte")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	
+	Set OfferteFake = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	
+	Do OfferteFake.IndienMethodCall("GeefID").DanReturn($$$DummyString)
+	Do OfferteFake.IndienMethodCall("GeefPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
+	
+	Set Kopieerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New()
+	Do Kopieerder.Kopieer(OfferteFake)
+]]></Implementation>
+</Method>
+
+<Method name="Test : het handel leveradres blijft ongewijzigd als de klant een Hein personality is">
+<Implementation><![CDATA[
+	
+	#dim TeKopierenOfferte As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferteFake(##class(DOM.common.enu.Personality).VanHoecke())
+	#dim TijdelijkeOfferte As vhTest.Mock.APPS.VKP.Offerte = TeKopierenOfferte
+	
+	Set OfferteKopieerderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.OfferteKopieerder).%New()
+	Do OfferteKopieerderMock.VerwachtMethodCall("KopieerOfferte", TeKopierenOfferte, TeKopierenOfferte.GeefPersonality().GeefKlantID(), TeKopierenOfferte.GeefPersonality().GeefID()).DanReturn(TijdelijkeOfferte)
+	
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("StelInStandaardLeveradres", TijdelijkeOfferte).ExactAantalKeer(1)
+	
+	#dim DataServiceStub As vhTest.Mock.APPS.common.DataService = ##class(vhTest.Mock.APPS.common.DataService).%New()
+	Do DataServiceStub.IndienMethodCall("GeefKlantData", $$$ElkeWaarde).DanReturn(..GeefKlantDataDummy())
+	#dim CommonAPIStub As vhTest.Mock.APPS.common.CommonAPI	= ##class(vhTest.Mock.APPS.common.CommonAPI).%New()
+	Do CommonAPIStub.IndienMethodCall("GeefDataService", $$$ElkeWaarde).DanReturn(DataServiceStub)
+	
+	#dim StandaardWinkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Set StandaardWinkelkar.KlantID = TeKopierenOfferte.GeefPersonality().GeefKlantID()
+	Set StandaardWinkelkar.PersonalityID = TeKopierenOfferte.GeefPersonality().GeefID()
+	
+	Set WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarService.VerwachtMethodCall("GeefWinkelkar", TijdelijkeOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	Do WinkelkarService.VerwachtMethodCall("HerberekenPrijs", StandaardWinkelkar).DanDoeNiks()
+	Do WinkelkarService.VerwachtMethodCall("BewaarWinkelkar", StandaardWinkelkar).DanDoeNiks()
+
+
+	Set Kopieerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New(OfferteKopieerderMock, ExterneVerkoopServiceMock, CommonAPIStub, WinkelkarService)
+	
+	#dim GekopieerdeOfferte As APPS.VKP.Offerte = Kopieerder.Kopieer(TeKopierenOfferte)
+	
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefAanspreking(), TeKopierenOfferte.GeefLeverAdres().GeefAanspreking())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefGemeente(), TeKopierenOfferte.GeefLeverAdres().GeefGemeente())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefPostcode(), TeKopierenOfferte.GeefLeverAdres().GeefPostcode())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefStraat(), TeKopierenOfferte.GeefLeverAdres().GeefStraat())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefTaal(), TeKopierenOfferte.GeefLeverAdres().GeefTaal())
+	
+	Do OfferteKopieerderMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do WinkelkarService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test : het handel leveradres wordt op standaardleveradres gezet als het geen hein personality is">
+<Implementation><![CDATA[
+	#dim TeKopierenOfferte As vhTest.Mock.APPS.VKP.Offerte = ..GeefOfferteFake(##class(DOM.common.enu.Personality).Hein())
+	#dim TijdelijkeOfferte As vhTest.Mock.APPS.VKP.Offerte = TeKopierenOfferte
+	
+	Set OfferteKopieerderMock = ##class(vhTest.Mock.APPS.VKP.Offerte.impl.OfferteKopieerder).%New()
+	Do OfferteKopieerderMock.VerwachtMethodCall("KopieerOfferte", TeKopierenOfferte, TeKopierenOfferte.GeefPersonality().GeefKlantID(), TeKopierenOfferte.GeefPersonality().GeefID()).DanReturn(TijdelijkeOfferte)
+	
+	Set ExterneVerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do ExterneVerkoopServiceMock.VerwachtMethodCall("StelInStandaardLeveradres", TijdelijkeOfferte).ExactAantalKeer(0)
+	
+	#dim DataServiceStub As vhTest.Mock.APPS.common.DataService = ##class(vhTest.Mock.APPS.common.DataService).%New()
+	Do DataServiceStub.IndienMethodCall("GeefKlantData", $$$ElkeWaarde).DanReturn(..GeefKlantDataDummy())
+	#dim CommonAPIStub As vhTest.Mock.APPS.common.CommonAPI	= ##class(vhTest.Mock.APPS.common.CommonAPI).%New()
+	Do CommonAPIStub.IndienMethodCall("GeefDataService", $$$ElkeWaarde).DanReturn(DataServiceStub)
+	
+	#dim StandaardWinkelkar = ##class(vhTest.Utils.DOM.EC.Winkelkar.Winkelkar).StandaardWinkelkar()
+	Set StandaardWinkelkar.KlantID = TeKopierenOfferte.GeefPersonality().GeefKlantID()
+	Set StandaardWinkelkar.PersonalityID = TeKopierenOfferte.GeefPersonality().GeefID()
+	
+	Set WinkelkarService = ##class(vhTest.Mock.DOM.EC.Winkelkar.WinkelkarService).%New()
+	Do WinkelkarService.VerwachtMethodCall("GeefWinkelkar", TijdelijkeOfferte.GeefWinkelkarID()).DanReturn(StandaardWinkelkar)
+	Do WinkelkarService.VerwachtMethodCall("HerberekenPrijs", StandaardWinkelkar).DanDoeNiks()
+	Do WinkelkarService.VerwachtMethodCall("BewaarWinkelkar", StandaardWinkelkar).DanDoeNiks()
+
+
+	Set Kopieerder = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder).%New(OfferteKopieerderMock, ExterneVerkoopServiceMock, CommonAPIStub, WinkelkarService)
+	
+	#dim GekopieerdeOfferte As APPS.VKP.Offerte = Kopieerder.Kopieer(TeKopierenOfferte)
+	
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefAanspreking(), TeKopierenOfferte.GeefLeverAdres().GeefAanspreking())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefGemeente(), TeKopierenOfferte.GeefLeverAdres().GeefGemeente())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefPostcode(), TeKopierenOfferte.GeefLeverAdres().GeefPostcode())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefStraat(), TeKopierenOfferte.GeefLeverAdres().GeefStraat())
+	Do $$$AssertEquals(GekopieerdeOfferte.GeefLeverAdres().GeefTaal(), TeKopierenOfferte.GeefLeverAdres().GeefTaal())
+	
+	Do OfferteKopieerderMock.Verifieer()
+	Do ExterneVerkoopServiceMock.Verifieer()
+	Do WinkelkarService.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefOfferteFake">
+<FormalSpec>Personality:DOM.common.enu.Personality</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Set OfferteFake = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do OfferteFake.IndienMethodCall("GeefID").DanReturn($$$DummyString)
+	Do OfferteFake.IndienMethodCall("GeefPersonalityID").DanReturn(Personality)
+	Do OfferteFake.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
+	Do OfferteFake.IndienMethodCall("GeefPersonality").DanReturn(..GeefPersonalityStub())
+	Do OfferteFake.IndienMethodCall("GeefBestelOpmerking").DanReturn($$$DummyString)
+	Do OfferteFake.IndienMethodCall("GeefLeverDatum").DanReturn($$$DummyDate)
+	Do OfferteFake.IndienMethodCall("GeefPrijsBerekeningDatum").DanReturn($$$DummyDate)
+	Do OfferteFake.IndienMethodCall("GeefOrderID").DanReturn($$$DummyInteger)
+	Do OfferteFake.IndienMethodCall("GeefWinkelkarID").DanReturn($$$DummyInteger)
+	Do OfferteFake.IndienMethodCall("GeefLeverAdres").DanReturn(..GeefLeverAdresDummy())
+	Do OfferteFake.IndienMethodCall("GeefDocumentReferenties").DanReturn(##class(vhTest.Fake.DOM.VKP.DocumentReferenties).%New())
+	Do OfferteFake.IndienMethodCall("PrijzenWerdenHerberekend").DanDoeNiks()
+	Quit OfferteFake
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonalityStub">
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.common.Personality</ReturnType>
+<Implementation><![CDATA[
+	#dim PersonalityStub As vhTest.Mock.DOM.common.Personality = ##class(vhTest.Mock.DOM.common.Personality).%New()
+	Do PersonalityStub.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
+	Do PersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).VanHoecke())
+	Do PersonalityStub.IndienMethodCall("IsHandel").DanReturn($$$True)
+	Quit PersonalityStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverAdresDummy">
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim LeverAdresDummy As DOM.VKP.impl.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Do LeverAdresDummy.ZetID($$$DummyInteger)
+	Do LeverAdresDummy.ZetAanspreking("OrigineleAanspreking")
+	Do LeverAdresDummy.ZetGemeente("OrigineleGemeente")
+	Do LeverAdresDummy.ZetPostcode("OriginelePostcode")
+	Do LeverAdresDummy.ZetStraat("OrigineleStraat")
+	Do LeverAdresDummy.ZetTaal("OrigineleTaal")
+	Do LeverAdresDummy.ZetTelefoon("OrigineleTelefoon")
+	Quit LeverAdresDummy
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantDataDummy">
+<Private>1</Private>
+<ReturnType>DOM.common.dto.KlantData</ReturnType>
+<Implementation><![CDATA[
+	#dim KlantDataDummy As DOM.common.dto.KlantData = ##class(DOM.common.dto.KlantData).%New()	
+	Set KlantDataDummy.ID = $$$DummyInteger
+	Set KlantDataDummy.Code = $$$DummyString
+	Set KlantDataDummy.Naam = $$$DummyString
+	Set KlantDataDummy.Land = $$$DummyString
+	Set KlantDataDummy.Gemeente = $$$DummyString
+	Set KlantDataDummy.Taal = $$$DummyString
+	Quit KlantDataDummy
+]]></Implementation>
+</Method>
 </Class>