Index: vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(revision 59878)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4">
+<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.KlantBestellingNaarLeverancierOfferteConverterVhisie4,vhTest.Mock.APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter</Super>
+<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>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Converteer">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",KlantBestelling)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(revision 59878)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4">
+<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.KlantBestellingNaarLeverancierOfferteConverterVhisie4</Super>
+
+<Method name="Converteer">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml
===================================================================
diff -u -r59518 -r59878
--- vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 59518)
+++ vhUnitTest/APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 59878)
@@ -73,7 +73,8 @@
 	Do OfferteRepositoryMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do DocumentReferentiesRepositoryMock.Verifieer()
-	do $$$AssertEquals(Resultaat,LeverancierOfferte)
+	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
+	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "BestelOpmerking")
 ]]></Implementation>
 </Method>
 
@@ -154,7 +155,8 @@
 	Do OfferteRepositoryMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
 	Do DocumentReferentiesRepositoryMock.Verifieer()
-	do $$$AssertEquals(Resultaat,LeverancierOfferte)
+	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
+	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "BestelOpmerking")
 ]]></Implementation>
 </Method>
 
@@ -185,6 +187,88 @@
 	#dim Resultaat As APPS.VKP.Offerte = Converter.Converteer(KlantBestelling)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: BestelOpmerking niet kopieren voor HandelViaWebService - Haefele">
+<Implementation><![CDATA[
+	Set DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DocumentReferenties.CommissieReferentie = $$$DummyString
+	Set DocumentReferenties.KlantOrderNummer = $$$DummyString
+	Set DocumentReferenties.OrderReferentie = $$$DummyString
+		
+	Set DummyOfferte = ##class(vhTest.Mock.APPS.VKP.Offerte).%New()
+	Do DummyOfferte.IndienMethodCall("GeefID").DanReturn($$$DummyString)
+	Do DummyOfferte.IndienMethodCall("GeefExterneId").DanReturn($$$DummyString)
+	Do DummyOfferte.IndienMethodCall("GeefKlantID").DanReturn($$$DummyString)
+	Do DummyOfferte.IndienMethodCall("GeefPersonalityID").DanReturn(##class(DOM.common.enu.Personality).HaefeleBE())
+	Do DummyOfferte.IndienMethodCall("IsBesteld").DanReturn($$$True)
+	Do DummyOfferte.IndienMethodCall("GeefBestelDatum").DanReturn($$$DummyTimeStamp)
+	Do DummyOfferte.IndienMethodCall("GeefDocumentReferenties").DanReturn(DocumentReferenties)
+	Do DummyOfferte.IndienMethodCall("GeefLeverDatum").DanReturn($$$DummyTimeStamp)
+	Do DummyOfferte.IndienMethodCall("GeefOrderID").DanReturn($$$DummyString)
+	Do DummyOfferte.IndienMethodCall("GeefPrijsBerekeningDatum").DanReturn($$$DummyTimeStamp)
+	Do DummyOfferte.IndienMethodCall("GeefWinkelkarID").DanReturn(1)
+	Do DummyOfferte.IndienMethodCall("GeefVerzendingItem").DanReturn(##class(APPS.VKP.impl.Offerte.VerzendingItem).%New())
+	Do DummyOfferte.IndienMethodCall("GeefWensLeverDatum").DanReturn($$$DummyTimeStamp)
+	Do DummyOfferte.IndienMethodCall("GeefPersonality").DanReturn(##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(##class(DOM.common.enu.Personality).HaefeleBE()))
+	
+	Do DummyOfferte.VerwachtMethodCall("GeefBestelOpmerking").DanReturn($$$DummyString).ExactAantalKeer(0)
+	
+	#dim TijdelijkeOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferteZonerBestelOpmerking()
+	#dim LeverancierOfferte As DOM.VKP.Offerte = ##class(vhTest.Utils.APPS.VKP.Offerte).StandaardOfferteZonerBestelOpmerking()
+	
+	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).HaefeleBE()
+	
+	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", DummyOfferte).DanReturn(TijdelijkeOfferte)
+	
+	Set OfferteServiceMock = ##class(vhTest.Mock.APPS.VKP.OfferteService).%New()
+	Do OfferteServiceMock.VerwachtMethodCall("KoppelAanOfferteVanHandel",DummyOfferte,LeverancierOfferte)
+	Do OfferteServiceMock.VerwachtMethodCall("KoppelLeverancierOfferteAanKlantBestelling",LeverancierOfferte,DummyOfferte)
+	
+	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).HaefeleBE(),"",##class(DOM.common.enu.Personality).HaefeleBE()).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(DummyOfferte)
+	
+	Do WinkelkarAanpasserMock.Verifieer()
+	Do WinkelkarAanpasserFactoryMock.Verifieer()
+	Do Vhisie4WinkelkarRepositoryMock.Verifieer()
+	Do OfferteServiceMock.Verifieer()
+	Do OfferteRepositoryMock.Verifieer()
+	Do WinkelkarRepositoryMock.Verifieer()
+	Do DocumentReferentiesRepositoryMock.Verifieer()
+	Do DummyOfferte.Verifieer()
+	Do $$$AssertEquals(Resultaat.GeefBestelOpmerking(), "")
+	Do $$$AssertEquals(Resultaat,LeverancierOfferte)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r50083 -r59878
--- vhTest/Utils/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 50083)
+++ vhTest/Utils/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 59878)
@@ -24,6 +24,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StandaardOfferteZonerBestelOpmerking">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Set StandaardOfferte = ##class(vhTest.Dummy.APPS.VKP.impl.Offerte).%New($$$DummyInteger)
+	Set StandaardOfferte.WinkelkarID = "WinkelkarID"
+	Set StandaardOfferte.KlantID = ..#DummyKlantID
+	Do StandaardOfferte.ZetGewijzigdOp($$$DummyTimeStamp) 
+	Do StandaardOfferte.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Do StandaardOfferte.ZetWensLeverDatum($$$DummyTimeStamp)
+	
+	Set StandaardOfferte.DocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set StandaardOfferte.DocumentReferenties.OrderReferentie = "OrderReferentie"
+	Set StandaardOfferte.DocumentReferenties.CommissieReferentie = "CommissieReferentie"
+	
+	Quit StandaardOfferte
+]]></Implementation>
+</Method>
+
 <Method name="StandaardBestelling">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.VKP.Offerte</ReturnType>
Index: APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml
===================================================================
diff -u -r58054 -r59878
--- APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 58054)
+++ APPS/VKP/Offerte/impl/KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml	(.../KlantBestellingNaarLeverancierOfferteConverterVhisie4.cls.xml)	(revision 59878)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.VKP.Offerte.impl.KlantBestellingNaarLeverancierOfferteConverterVhisie4">
-<Super>APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter,TECH.RegisteredObject</Super>
+<Super>TECH.Mockable,APPS.VKP.Offerte.KlantBestellingNaarLeverancierOfferteConverter,TECH.RegisteredObject</Super>
 
 <Property name="OfferteService">
 <Type>APPS.VKP.OfferteService</Type>
@@ -84,8 +84,11 @@
 		Set Winkelkar.Referentie = KlantBestelling.GeefExterneId() _ " - " _ KlantBestelling.GeefDocumentReferenties().OrderReferentie
 		Set Winkelkar.OrderReferentie = KlantBestelling.GeefDocumentReferenties().OrderReferentie
 		Set Winkelkar.CommisieReferentie = KlantBestelling.GeefDocumentReferenties().CommissieReferentie
-		Set Winkelkar.BestelOpmerking = KlantBestelling.GeefBestelOpmerking()
 		
+		If ..IsBestelOpmerkingTeKopieren(KlantBestelling) {
+			Set Winkelkar.BestelOpmerking = KlantBestelling.GeefBestelOpmerking()
+		}
+
 		#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)		
@@ -105,6 +108,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsBestelOpmerkingTeKopieren">
+<FormalSpec>KlantBestelling:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.Offerte</ReturnType>
+<Implementation><![CDATA[
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+	#dim IsBestelOpmerkingTeKopieren As %Boolean = $$$True
+	
+	If ##class(TECH.StringUtils).Equals(KlantBestelling.GeefPersonalityID(), Personality.HaefeleBE, Personality.HaefeleNL,Personality.HaefeleDE ) {
+		// Handel Bevestigt ViaWebService, dus de bestelopmerking niet overnemen.
+		Set IsBestelOpmerkingTeKopieren = $$$False
+	}
+	
+	Quit IsBestelOpmerkingTeKopieren
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderOfferte">
 <FormalSpec>TijdelijkeLeverancierOfferte:APPS.VKP.Offerte</FormalSpec>
 <Private>1</Private>