Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r53214 -r53218
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53214)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 53218)
@@ -152,9 +152,9 @@
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (DecrypteerRequest.Hostname = "") {
-		Set ..Response.IsGeldig = 0
+		Set ..Response.IsGeldig = $$$False
 	} 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
+		Set ..Response.IsGeldig = $$$False
 	} ElseIf (DecrypteerRequest.DataOpt = "") {
 		Set ..Response.IsContactGegevensFormulierNodig = $$$True
 		Set ..Response.IsGeldig = $$$True
@@ -187,8 +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.IsContactGegevensFormulierNodig = $$$False
 	Set ..Response.PersonalityId = LoginParameters.PersonalityID
 	
 	#dim KlantData As DOM.VKP.impl.HandelKlantData = ..BepaalKlantData(LoginParameters)
@@ -197,7 +196,7 @@
 	Set ..Response.KlantNaam = KlantData.Naam
 	
 	If $$$HasLength(DecrypteerRequest.DataOpt) {
-		Set ..Response.GebruikerId = 1
+		Set ..Response.GebruikerId = $$$True
 	}
 	
 	Set ..Response.GebruikerNaam = ""