Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r53218 -r53690
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53218)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53690)
@@ -92,7 +92,9 @@
 			//Do ..ValideerHostnameMetRef(DecrypteerRequest, LoginParameters)
 			
 			Do ..VulReponseIn(DecrypteerRequest, LoginParameters)
-			Do ..KortingBewaarder.BewaarMeegegevenKorting(DecrypteerRequest.Ref,DecrypteerRequest.DataOpt)
+			If $$$HasLength(DecrypteerRequest.Ref) {
+				Do ..KortingBewaarder.BewaarMeegegevenKorting(DecrypteerRequest.Ref,DecrypteerRequest.DataOpt)
+			}
 			
 		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -135,6 +137,7 @@
 		Set ..Response.IsGeldig = $$$True
 		Set ..Response.Taal = "D"
 		Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(..Response.PersonalityId)
+		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "kisch")) {
 		Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Kisch()
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
@@ -166,7 +169,6 @@
 	} Else {
 		Set Resultaat = $$$True
 	}
-	
 	Quit Resultaat
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml
===================================================================
diff -u -r52184 -r53690
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 52184)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Decrypteer/Test.cls.xml	(.../Test.cls.xml)	(revision 53690)
@@ -157,9 +157,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Hostname met Hein (ongeacht case) zonder REF of DATAOPT is geldig">
+<Method name="Test: Hostname met Hein (ongeacht case) met REF en zonder DATAOPT is geldig">
 <Implementation><![CDATA[
 	Set ..DecrypteerRequestStub = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set ..DecrypteerRequestStub.DataOpt = ""
+	Set ..DecrypteerRequestStub.Ref = "xbfLs3pyFuZkTVJtqcE2EA--"
 	Set ..DecrypteerRequestStub.Hostname = "HeIn"
 	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
 	
@@ -171,6 +173,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Hostname met Hein (ongeacht case) zonder REF of DATAOPT is ongeldig">
+<Implementation><![CDATA[
+	Set ..DecrypteerRequestStub = ##class(WS.Vhisie4.Auth.DecrypteerRequest).%New()
+	Set ..DecrypteerRequestStub.DataOpt = ""
+	Set ..DecrypteerRequestStub.Ref = ""
+	Set ..DecrypteerRequestStub.Hostname = "HeIn"
+	Set Decrypteerder = ##class(WSimpl.Vhisie4.Auth.HandelAuthenticator.Decrypteerder).%New()
+	
+	#dim Response As WS.Vhisie4.Auth.DecrypteerResponse = Decrypteerder.Decrypteer(..DecrypteerRequestStub)
+	
+	Do $$$AssertFalse(Response.IsGeldig)
+	Do $$$AssertEquals(Response.PersonalityId,"11")
+	Do $$$AssertTrue(Response.IsLoginFormulierNodig)
+]]></Implementation>
+</Method>
+
 <Method name="Test: ongeldig indien geen Hostname">
 <Implementation><![CDATA[
 	Set ..DecrypteerRequestStub.Hostname = ""