Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r52159 -r52169
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 52159)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 52169)
@@ -97,9 +97,7 @@
 		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			Do ..Logger.Error(..%ClassName()_" Decrypteer","Failed : "_$C(13,10)_Exception.ToString())
-			Set ..Response.IsGeldig = 0
-			
-			do ##class(TECH.ExceptionHandler).Throw(Exception)
+			Set ..Response.IsGeldig = $$$False
 		}
 	} Else {
 		Do ..Logger.Warning("Decrypteer", "Er werd een ongeldige decrypteer uitgevoerd."_$$$CRLF_"Ref = "_DecrypteerRequest.Ref_$$$CRLF_"Dataopt = "_DecrypteerRequest.DataOpt)
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kisch.cls.xml
===================================================================
diff -u -r52159 -r52169
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kisch.cls.xml	(.../Kisch.cls.xml)	(revision 52159)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Kisch.cls.xml	(.../Kisch.cls.xml)	(revision 52169)
@@ -27,33 +27,42 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Ongeldig indien geen Ref voor Personality Kisch">
+<Method name="Test: Geldigheid van requests voor Personality Kisch">
 <Implementation><![CDATA[
-	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
-	Set DecrypteerRequest.Hostname = "HostnameBevatKisch"
-	Set DecrypteerRequest.Ref = ""
-	Set DecrypteerRequest.DataOpt = "DummyDataOpt"
-	
-	#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)
+	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality Kisch")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality Kisch")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality Kisch")
+	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality Kisch")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Ongeldig indien geen DataOpt voor Personality Kisch">
+<Method name="AssertRequestIsGeldig">
+<FormalSpec>Ref:%String,DataOpt:%String,IsGeldig:%Boolean,Message:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim DecrypteerRequest As WS.Vhisie4.Auth.DecrypteerRequest = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
 	Set DecrypteerRequest.Hostname = "HostnameBevatKisch"
-	Set DecrypteerRequest.Ref = "DummyRef"
-	Set DecrypteerRequest.DataOpt = ""
+	Set DecrypteerRequest.Ref = Ref
+	Set DecrypteerRequest.DataOpt = DataOpt
 	
-	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..GeefLoginParameters()
+	#dim ParameterBepalerStub As vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler = ##class(vhTest.Mock.WSimpl.Unishop.Login.ParameterBepaler).%New()
+	Do ParameterBepalerStub.IndienMethodCall("GeefLoginParameters", DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp).DanReturn(LoginParameters)
+	
+	#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..GeefHandelPersonality()
+	#dim HandelPersonalityRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
+	Do HandelPersonalityRepositoryStub.IndienMethodCall("GeefViaID", LoginParameters.PersonalityID).DanReturn(HandelPersonality)
+	
+	#dim HandelToegelatenLadetypesBepalerStub As vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler = ##class(vhTest.Mock.DOM.VKP.impl.HandelToegelatenLadetypesBepaler).%New()
+	Do HandelToegelatenLadetypesBepalerStub.IndienMethodCall("Bepaal", LoginParameters.PersonalityID).DanDoeNiks() //(DummyToegelatenLadetypes)
+	
+	#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()
+	
+	#dim Decrypteerder As WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New(ParameterBepalerStub, "", HandelPersonalityRepositoryStub, "", KortingBewaarderStub, "", HandelToegelatenLadetypesBepalerStub)
 	#dim DecrypteerResponse As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(DecrypteerRequest)
 	
-	Do $$$AssertFalse(DecrypteerResponse.IsGeldig)
+	Do $$$AssertEquals(IsGeldig, DecrypteerResponse.IsGeldig, Message)
 	Do $$$AssertFalse(DecrypteerResponse.IsContactGegevensFormulierNodig)
 	Do $$$AssertFalse(DecrypteerResponse.IsLoginFormulierNodig)
 ]]></Implementation>