Index: WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml
===================================================================
diff -u -r54549 -r54550
--- WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 54549)
+++ WSimpl/EC/Unishop/OrderConfirmation/Service.cls.xml	(.../Service.cls.xml)	(revision 54550)
@@ -70,16 +70,20 @@
 		Set ..Shop = Shop 
 		Do ..ValideerUniShopVerwerker()
 		
-		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantID()
-		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
-		
 		Do ##class(vhLib.Logger).%New("APPS.EC").Info("ConfirmOrder Unishop","Bestel Unishop Offerte '"_EDInr_"' voor shop '"_..Shop_"' met referentie: '"_BestelReferentie_"' datum '"_GevraagdeLeverdatum_"'.")
 		
 		#dim OfferteVanHandel As APPS.VKP.Offerte = ..GeefOfferteVanHandel(EDInr)
+		If (..Shop = ##class(APPS.EC.enu.UniShopVerwerker).HaefeleNederland()) {
+			// De ConfirmOrder() webservice bij Haefele wordt altijd doorgegeven via "Shop=HaefeleNederland" (want deze is gekoppeld aan de user van de secure webservice in WWW-WSS) 
+			Do ..PasAanShopVoorHaefele(OfferteVanHandel)
+		}
 		If $$$Not(OfferteVanHandel.IsBesteld()) {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Offerte '"_EDInr_"' van handel is nog niet besteld."))	
 		}
 		
+		#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantID()
+		#dim PersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
+		
 		#dim VanHoeckeOfferte As APPS.VKP.Offerte = ..GeefVanHoeckeOfferte(OfferteVanHandel)
 		#dim VanHoeckeOfferteID As %String = VanHoeckeOfferte.GeefID()
 		Do ##class(vhLib.Logger).%New().Info("ConfirmOrder Unishop","Shop '"_..Shop_"' - OfferteVanHandel '"_EDInr_"'  - VanHoeckeOfferteID '"_VanHoeckeOfferteID_"'.")
@@ -120,6 +124,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PasAanShopVoorHaefele">
+<FormalSpec>OfferteVanHandel:APPS.VKP.Offerte</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (OfferteVanHandel.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleBE()) {
+		Set ..Shop = ##class(APPS.EC.enu.UniShopVerwerker).HaefeleBelgie()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantID">
 <Private>1</Private>
 <ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>