Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml
===================================================================
diff -u -r49800 -r49897
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 49800)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar.cls.xml	(.../BestelWinkelkar.cls.xml)	(revision 49897)
@@ -66,7 +66,7 @@
 <FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.Winkelkar.BestelWinkelkarResponse</ReturnType>
 <Implementation><![CDATA[
-	#dim OrderIsVrijgegeven As %Boolean = $$$False
+	#dim MagOrderMaken As %Boolean = $$$False
 	
 	Lock +^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id):0 Else  Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar '" _BestelWinkelkarRequest.Winkelkar.Id _"' is gelocked door een andere webservice call. Probeer later opnieuw."))
 	
@@ -81,16 +81,13 @@
 			Do ..TransportService.ZetGekozenVerzendingMogelijkheid(OfferteID, BestelWinkelkarRequest.VerzendingMogelijkheidID, BestelWinkelkarRequest.OptieKeuze)	
 		}
 
-		If ..MagOrderMaken(BestelWinkelkarRequest) {
-			Do ..VerkoopService.ZetAutomatischeVerwerking(OfferteID, $$$True)
-			Set OrderIsVrijgegeven = $$$True
-		}
+		Set MagOrderMaken = ..MagOrderMaken(BestelWinkelkarRequest, KlantId)
+		
+		Do:MagOrderMaken ..VerkoopService.ZetAutomatischeVerwerking(OfferteID, $$$True)
 				
 		Do ..VerkoopService.BestelOfferte(OfferteID, KlantId, BestelWinkelkarRequest.Header.PersonalityId)
 		
-		If ..MagOrderMaken(BestelWinkelkarRequest) {
-			Do ..AsynchroneOrderSluiter.MaakEnSluitOrderViaOfferteID(OfferteID)
-		}
+		Do:MagOrderMaken ..AsynchroneOrderSluiter.MaakEnSluitOrderViaOfferteID(OfferteID)
 		
 	} Catch {
 		Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)
@@ -113,23 +110,37 @@
 	Lock -^Vhisie4.Winkelkar(BestelWinkelkarRequest.Winkelkar.Id)
 	
 	Set Response = ##class(WS.Vhisie4.Winkelkar.BestelWinkelkarResponse).%New()	
-	Set Response.OrderIsVrijgegeven = OrderIsVrijgegeven
+	Set Response.OrderIsVrijgegeven = MagOrderMaken
 	Quit Response
 ]]></Implementation>
 </Method>
 
 <Method name="MagOrderMaken">
-<FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
+<FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest,KlantId:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim MagOrderMaken As %Boolean = $$$True ; $$$Not(..IsIngevoerdAdres(BestelWinkelkarRequest))
 	Set MagOrderMaken = MagOrderMaken && $$$Not($$$HasLength(BestelWinkelkarRequest.BestelOpmerking))
 	Set MagOrderMaken = MagOrderMaken && ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("Vhisie4AutomatischeOrderSluiterActief")
-	Quit MagOrderMaken
+	
+	
+	#dim MagOrderMakenVoorHaefele As %Boolean =	(##class(DOM.VKP.enu.Klant).HaefeleNederland()=KlantId)
+	Set MagOrderMakenVoorHaefele = MagOrderMakenVoorHaefele || (##class(DOM.VKP.enu.Klant).HaefeleBelgie()=KlantId)
+	Set MagOrderMakenVoorHaefele = MagOrderMakenVoorHaefele && ..OpmerkingIs8Cijfers(BestelWinkelkarRequest.BestelOpmerking)
+	
+	Quit (MagOrderMaken || MagOrderMakenVoorHaefele)
 ]]></Implementation>
 </Method>
 
+<Method name="OpmerkingIs8Cijfers">
+<FormalSpec>Text:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ($Replace(Text," ","")?8N)
+]]></Implementation>
+</Method>
+
 <Method name="MaakHoofding">
 <FormalSpec>BestelWinkelkarRequest:WS.Vhisie4.Winkelkar.BestelWinkelkarRequest</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml
===================================================================
diff -u -r49800 -r49897
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 49800)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 49897)
@@ -314,6 +314,37 @@
 */
 ]]></Content>
 </UDLText>
+
+<Method name="Test: BestelWinkelkar verwerkt offerte automatisch tot een gesloten order als het een haefele bestelling is met opmerking van 8 cijfers">
+<Implementation><![CDATA[
+	#dim VerwachteHoofding As APPS.EC.dto.Hoofding = ##class(vhTest.Utils.APPS.EC.dto.Hoofding).StandaardHoofding()
+	#dim KlantPartijId As %String = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
+	
+	#dim BestelWinkelkarRequest As WS.Vhisie4.Winkelkar.BestelWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BestelWinkelkarRequest).StandaardBestelWinkelkarRequest()
+	Set BestelWinkelkarRequest.Header.KlantId = "KlantId"
+	Set BestelWinkelkarRequest.Header.PersonalityId = "PersonalityId"
+	Set BestelWinkelkarRequest.BestelOpmerking = "12345678"
+	
+	Do ..WinkelkarRepositoryMock.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("OfferteID")
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("BestelOfferte", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.IndienMethodCall("ZetTotaalBedragWebshop", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
+	Do ..VerkoopServiceMock.VerwachtMethodCall("ZetAutomatischeVerwerking", "OfferteID", "1").DanDoeNiks()
+
+	Do ..CheckoutTypeBepalerMock.IndienMethodCall("Bepaal", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(APPS.EC.Unishop.enu.CheckoutType).Standaard())
+	Do ..WinkelkarServiceHelperMock.IndienMethodCall("GeefKlantPartijID", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(KlantPartijId)
+
+	Do ..AsynchroneOrderSluiterMock.VerwachtMethodCall("MaakEnSluitOrderViaOfferteID","OfferteID").ExactAantalKeer(1).DanDoeNiks()
+		
+	#dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BestelWinkelkar).%New(..VerkoopServiceMock, ..WinkelkarRepositoryMock, ..TransportServiceMock, ..CheckoutTypeBepalerMock, ..WinkelkarServiceHelperMock,,..AsynchroneOrderSluiterMock)
+	#dim Response As WS.Vhisie4.Winkelkar.BestelWinkelkarResponse = Service.BestelWinkelkar(BestelWinkelkarRequest)
+	
+	Do $$$AssertTrue(Response.OrderIsVrijgegeven)
+	
+	Do ..AsynchroneOrderSluiterMock.Verifieer()
+	Do ..VerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>