Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml
===================================================================
diff -u -r60126 -r62788
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 60126)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 62788)
@@ -5,7 +5,7 @@
 
 <Parameter name="AnderePersonalityIDDanZweygart">
 <Type>%String</Type>
-<Default>2</Default>
+<Default>3</Default>
 </Parameter>
 
 <UDLText name="T">
@@ -19,6 +19,7 @@
 <Implementation><![CDATA[
 	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	Set KlantBestelling.PersonalityID = ..#AnderePersonalityIDDanZweygart
+	Set KlantBestelling.ExterneId = "ExterneId"
 
 	#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()
@@ -62,8 +63,13 @@
 	
 	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).VanHoecke(),"K||1000",..#AnderePersonalityIDDanZweygart).DanReturn(WinkelkarAanpasserMock)
+
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	#dim Boodschap as %String = "Migratie van vhisie4 winkelkar met externe id ExterneId van personality 3(SFS) is gelukt."
+	Do LoggerMock.VerwachtMethodCall("Info","Winkelkarmigratie",Boodschap,0)
 	
-	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
+
+	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock,LoggerMock)
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
 	
 	Do WinkelkarAanpasserMock.Verifieer()
@@ -73,6 +79,7 @@
 	Do OfferteRepositoryMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do DocumentReferentiesRepositoryMock.Verifieer()
+	Do LoggerMock.Verifieer()
 	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
 	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "UT_BestelOpmerking")
 ]]></Implementation>
@@ -103,7 +110,8 @@
 <Implementation><![CDATA[
 	#dim KlantBestelling As vhTest.Dummy.APPS.VKP.impl.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
 	Set KlantBestelling.PersonalityID = HeinSubPersonality
-
+	Set KlantBestelling.ExterneId = "ExterneId"
+	
 	#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()
 	
@@ -145,7 +153,11 @@
 	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).Hein(),"",HeinSubPersonality).DanReturn(WinkelkarAanpasserMock)
 	
-	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	#dim Boodschap as %String = "Migratie van vhisie4 winkelkar met externe id "_ KlantBestelling.GeefExterneId() _" van personality "_ HeinSubPersonality _"("_##class(DOM.common.enu.Personality).LogicalToDisplay(HeinSubPersonality)_") is gelukt."
+	Do LoggerMock.VerwachtMethodCall("Info","Winkelkarmigratie",Boodschap,0)
+
+	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock,LoggerMock)
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
 	
 	Do WinkelkarAanpasserMock.Verifieer()
@@ -155,6 +167,7 @@
 	Do OfferteRepositoryMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do DocumentReferentiesRepositoryMock.Verifieer()
+	Do LoggerMock.Verifieer()
 	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
 	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "UT_BestelOpmerking")
 ]]></Implementation>
@@ -163,8 +176,9 @@
 <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()
-	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferte()
+	Set KlantBestelling.ExterneId = "ExterneId"
 	
+	#dim TijdelijkeOfferte 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()
 	
@@ -183,8 +197,12 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("DummyException")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 	
-	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(,KlantBestellingNaarLeverancierOfferteKopieerderStub,,OfferteConverterStub,WinkelkarExportConverterStub,,WinkelkarRepositoryMock,)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error","Winkelkarmigratie","Migratie van vhisie4 winkelkar met externe id ExterneId van personality 1(VanHoecke) is mislukt.",0)
+	
+	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(,KlantBestellingNaarLeverancierOfferteKopieerderStub,,OfferteConverterStub,WinkelkarExportConverterStub,,WinkelkarRepositoryMock,,,LoggerMock)
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
+	Do LoggerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -253,10 +271,13 @@
 	
 	Set WinkelkarAanpasserFactoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New()
 	Do WinkelkarAanpasserFactoryMock.VerwachtMethodCall("GeefWinkelkarAanpasser",##class(DOM.common.enu.Personality).HaefeleBE(),"",##class(DOM.common.enu.Personality).HaefeleBE()).DanReturn(WinkelkarAanpasserMock)
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
 	
-	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(DummyOfferte)
+	Do LoggerMock.VerwachtMethodCall("Info","Winkelkarmigratie","Migratie van vhisie4 winkelkar met externe id NIET VAN TOEPASSING van personality 7(HaefeleBE) is gelukt.",0).DanDoeNiks()
 	
+	Set Converter = ##class(APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4).%New(OfferteServiceMock,KlantBestellingNaarLeverancierOfferteKopieerderStub,Vhisie4WinkelkarRepositoryMock,OfferteConverterStub,WinkelkarExportConverterStub,OfferteRepositoryMock,WinkelkarRepositoryMock,DocumentReferentiesRepositoryMock,WinkelkarAanpasserFactoryMock,LoggerMock)
+	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(DummyOfferte)
+		
 	Do WinkelkarAanpasserMock.Verifieer()
 	Do WinkelkarAanpasserFactoryMock.Verifieer()
 	Do Vhisie4WinkelkarRepositoryMock.Verifieer()
@@ -265,6 +286,7 @@
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do DocumentReferentiesRepositoryMock.Verifieer()
 	Do DummyOfferte.Verifieer()
+	Do LoggerMock.Verifieer()
 	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "")
 	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
 ]]></Implementation>
Index: vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r59878 -r62788
--- vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 59878)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 62788)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService="",KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder="",Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter="",WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",DocumentReferentieRepository:DOM.VKP.DocumentReferentiesRepository="",WinkelkarAanpasserFactory:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder="",Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter="",WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",DocumentReferentieRepository:DOM.VKP.DocumentReferentiesRepository="",WinkelkarAanpasserFactory:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r59878 -r62788
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 59878)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 62788)
@@ -48,8 +48,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OfferteService:APPS.VKP.OfferteService="",KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder="",Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter="",WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",DocumentReferentieRepository:DOM.VKP.DocumentReferentiesRepository="",WinkelkarAanpasserFactory:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory</FormalSpec>
+<FormalSpec>OfferteService:APPS.VKP.OfferteService="",KlantBestellingNaarLeverancierOfferteKopieerder:APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteKopieerder="",Vhisie4WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",OfferteConverter:APPS.EC.Verkoop.impl.OfferteConverter="",WinkelkarExportConverter:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.UnishopWinkelkarConverter.Converter="",OfferteRepository:APPS.VKP.Offerte.OfferteRepository="",WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository="",DocumentReferentieRepository:DOM.VKP.DocumentReferentiesRepository="",WinkelkarAanpasserFactory:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory,Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -64,6 +69,7 @@
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(DOM.EC.Winkelkar.impl.WinkelkarRepository).%New())
 	Set ..DocumentReferentieRepository = $$$Inject(DocumentReferentieRepository, ##class(DOM.VKP.DocumentReferentiesRepository).%New())
 	Set ..WinkelkarAanpasserFactory = $$$Inject(WinkelkarAanpasserFactory,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.WinkelkarAanpasserFactory).%New())	
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -93,6 +99,7 @@
 		Do WinkelkarAanpasser.PasAan(Winkelkar)		
 		#dim ExterneId As %String = ..Vhisie4WinkelkarRepository.Bewaar(Winkelkar)		
 	} Catch {
+		Do ..Logger.Error("Winkelkarmigratie","Migratie van vhisie4 winkelkar met externe id " _ KlantBestelling.GeefExterneId() _  " van personality " _ KlantBestelling.GeefPersonality().GeefID()_"("_KlantBestelling.GeefPersonality().GeefCode()_") is mislukt.")
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set IsBewarenWinkelkarGelukt = $$$False
 	}
@@ -104,6 +111,7 @@
 	#dim LeverancierOfferte As APPS.VKP.Offerte = ..Vhisie4WinkelkarRepository.GeefOfferteViaID(ExterneId)
 	Do ..OfferteService.KoppelAanOfferteVanHandel(KlantBestelling,LeverancierOfferte)
 	Do ..OfferteService.KoppelLeverancierOfferteAanKlantBestelling(LeverancierOfferte,KlantBestelling)
+	Do ..Logger.Info("Winkelkarmigratie","Migratie van vhisie4 winkelkar met externe id " _ KlantBestelling.GeefExterneId() _  " van personality " _ KlantBestelling.GeefPersonality().GeefID()_"("_KlantBestelling.GeefPersonality().GeefCode() _ ") is gelukt.")
 	Quit LeverancierOfferte
 ]]></Implementation>
 </Method>