Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r59055 -r59347
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 59055)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 59347)
@@ -275,6 +275,14 @@
 		Set ..Response.IsGeldig = $$$True
 
 		Set Resultaat = ..Response.IsGeldig
+	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "hahleoy")) {
+		Set ..Response.PersonalityId = Personality.HahleOy
+		Set ..Response.Taal = ##class(DOM.enu.Taal).Engels() 
+		Set ..Response.IsContactGegevensFormulierNodig = $$$False
+		Set ..Response.IsLoginFormulierNodig = $$$False
+		Set ..Response.IsGeldig = $$$True
+		
+		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (DecrypteerRequest.Hostname = "") {
 		Set ..Response.IsGeldig = $$$False
 	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,Personality.Hein,Personality.Seefelder,Personality.Zweygart,Personality.JBarth))) {
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/HahleOy.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/HahleOy.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/HahleOy.cls.xml	(revision 59347)
@@ -0,0 +1,101 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder.Test.HahleOy">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Personality HahleOy wordt bepaald door Hostname">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatHahleOy"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertEquals(DecrypteerResponse.PersonalityId, ##class(DOM.common.enu.Personality).HahleOy())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen Ref voor Personality HahleOy">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatHahleOy"
+	Set DecrypteerRequest.Ref = ""
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Ongeldig indien geen DataOpt voor Personality HahleOy">
+<Implementation><![CDATA[
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatHahleOy"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = ""
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geldig indien Ref en DataOpt voor Personality HahleOy">
+<Implementation><![CDATA[
+	Set LoginParameters = ##class(WSimpl.Unishop.Login.ParametersHandel).%New()
+	Set LoginParameters.GebruikerID = "1"
+	Set LoginParameters.KlantID = "HahleOy_5"
+	Set LoginParameters.PersonalityID = ##class(DOM.common.enu.Personality).HahleOy()
+	Set LoginParameters.RemoteIP = "127.0.0.257"
+	Set LoginParameters.Taal = ##class(DOM.enu.Taal).Engels()
+
+	Set KlantData = ##class(DOM.common.dto.HandelKlantData).%New()
+	Set KlantData.ID = "5"
+	Set KlantData.Naam = "Een Naam"
+
+	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set DecrypteerRequest.Hostname = "HostnameBevatHahleOy"
+	Set DecrypteerRequest.Ref = "RandomRef"
+	Set DecrypteerRequest.DataOpt = "RandomDataOpt"
+	
+	Set LoginParameterBepalerStub = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do LoginParameterBepalerStub.IndienMethodCall("GeefLoginParameters",DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).ExactAantalKeer(1).DanReturn(LoginParameters)
+	
+	#dim KortingBewaarderStub As vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder = ##class(vhTest.Mock.WSimpl.Unishop.Login.KortingBewaarder).%New()
+	Do KortingBewaarderStub.IndienMethodCall("BewaarMeegegevenKorting", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt).DanDoeNiks()
+
+	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.HandelPersonality).%New()
+	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn(##class(DOM.common.enu.Personality).HahleOy())
+	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("Hahle_")
+	Do HandelPersonalityStub.IndienMethodCall("Accept",$$$ElkeWaarde).DanReturn(KlantData)
+
+	Set HandelPersonalityRepositoryStub = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", ##class(DOM.common.enu.Personality).HahleOy()).DanReturn(HandelPersonalityStub)
+	
+	#dim HandelKlantDataRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.KlantID).DanReturn(KlantData)
+	Do HandelKlantDataRepositoryStub.IndienMethodCall("BestaatViaID", LoginParameters.KlantID).DanReturn($$$True)
+	
+	Set KlantDataBewaarderStub = ##class(vhTest.Mock.APPS.VKP.KlantDataBewaarder).%New()
+	Do KlantDataBewaarderStub.IndienMethodCall("Bewaar",HandelPersonalityStub,$$$ElkeWaarde).DanDoeNiks()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(LoginParameterBepalerStub,,HandelPersonalityRepositoryStub,,KortingBewaarderStub,,,KlantDataBewaarderStub,HandelKlantDataRepositoryStub)
+	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
+	
+	Do $$$AssertTrue(DecrypteerResponse.IsGeldig)
+	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
+	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
+	Do $$$AssertEquals(DecrypteerResponse.Taal,##class(DOM.enu.Taal).Engels())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>