Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r53075 -r53214
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53075)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53214)
@@ -126,13 +126,13 @@
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname),"hein","seefelder")) && ((DecrypteerRequest.DataOpt = "")){
 		If ##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "hein" {
 			Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Hein()
-			Set ..Response.IsLoginFormulierNodig = 1
+			Set ..Response.IsLoginFormulierNodig = $$$True
 		} Else {
 			Set ..Response.PersonalityId = ##class(DOM.common.enu.Personality).Seefelder()
-			Set ..Response.IsContactGegevensFormulierNodig = 0
-			Set ..Response.IsLoginFormulierNodig = 0
+			Set ..Response.IsContactGegevensFormulierNodig = $$$False
+			Set ..Response.IsLoginFormulierNodig = $$$False
 		}
-		Set ..Response.IsGeldig = 1
+		Set ..Response.IsGeldig = $$$True
 		Set ..Response.Taal = "D"
 		Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(..Response.PersonalityId)
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "kisch")) {
@@ -156,12 +156,13 @@
 	} ElseIf ((DecrypteerRequest.Ref = "") && $$$Not(##class(TECH.StringUtils).Equals(DecrypteerRequest.Header.PersonalityId,##class(DOM.common.enu.Personality).Hein(),##class(DOM.common.enu.Personality).Seefelder()))) {
 		Set ..Response.IsGeldig = 0
 	} ElseIf (DecrypteerRequest.DataOpt = "") {
-		Set ..Response.IsContactGegevensFormulierNodig = 1
-		Set ..Response.IsGeldig = 1
+		Set ..Response.IsContactGegevensFormulierNodig = $$$True
+		Set ..Response.IsGeldig = $$$True
 		#dim LoginParameters As WSimpl.Unishop.Login.ParametersHandel = ..LoginParameterBepaler.GeefLoginParameters(DecrypteerRequest.Ref, DecrypteerRequest.DataOpt, DecrypteerRequest.Header.Taal, DecrypteerRequest.Header.GebruikerIp)
 		
 		Set ..Response.Taal = LoginParameters.Taal
 		Set ..Response.PersonalityId = LoginParameters.PersonalityID
+		Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(..Response.PersonalityId)
 	} Else {
 		Set Resultaat = $$$True
 	}
@@ -186,6 +187,7 @@
 <FormalSpec>DecrypteerRequest:WS.Vhisie4.Auth.DecrypteerRequest,LoginParameters:WSimpl.Unishop.Login.ParametersHandel</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("vulling in")
 	Set ..Response.IsContactGegevensFormulierNodig = 0
 	Set ..Response.PersonalityId = LoginParameters.PersonalityID