Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Furnifit.cls.xml
===================================================================
diff -u -r58282 -r58331
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Furnifit.cls.xml	(.../Furnifit.cls.xml)	(revision 58282)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Furnifit.cls.xml	(.../Furnifit.cls.xml)	(revision 58331)
@@ -29,9 +29,9 @@
 
 <Method name="Test: Geldigheid van requests voor Personality Furnifit">
 <Implementation><![CDATA[
-	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality Furnifit")
-	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality Furnifit")
-	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality Furnifit")
+	Do ..AssertRequestIsGeldig("", "", $$$True, "Geldig indien geen Ref en Dataopt voor Personality Furnifit")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$True, "Geldig indien geen Ref voor Personality Furnifit")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$True, "Geldig indien geen Dataopt voor Personality Furnifit")
 	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality Furnifit")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml
===================================================================
diff -u -r58267 -r58331
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml	(.../CampeTonny.cls.xml)	(revision 58267)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/CampeTonny.cls.xml	(.../CampeTonny.cls.xml)	(revision 58331)
@@ -29,9 +29,9 @@
 
 <Method name="Test: Geldigheid van requests voor Personality CampeTonny">
 <Implementation><![CDATA[
-	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality CampeTonny")
-	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality CampeTonny")
-	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("", "", $$$True, "Geldig indien geen Ref en Dataopt voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$True, "Geldig indien geen Ref voor Personality CampeTonny")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$True, "Geldig indien geen Dataopt voor Personality CampeTonny")
 	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality CampeTonny")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Rini.cls.xml
===================================================================
diff -u -r58282 -r58331
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Rini.cls.xml	(.../Rini.cls.xml)	(revision 58282)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/Rini.cls.xml	(.../Rini.cls.xml)	(revision 58331)
@@ -29,9 +29,9 @@
 
 <Method name="Test: Geldigheid van requests voor Personality Rini">
 <Implementation><![CDATA[
-	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality Rini")
-	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality rini")
-	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality rini")
+	Do ..AssertRequestIsGeldig("", "", $$$True, "Geldig indien geen Ref en Dataopt voor Personality Rini")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$True, "Geldig indien geen Ref voor Personality rini")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$True, "Geldig indien geen Dataopt voor Personality rini")
 	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality rini")
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml
===================================================================
diff -u -r58265 -r58331
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml	(.../BiemarBois.cls.xml)	(revision 58265)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/BiemarBois.cls.xml	(.../BiemarBois.cls.xml)	(revision 58331)
@@ -29,9 +29,9 @@
 
 <Method name="Test: Geldigheid van requests voor Personality BiemarBois">
 <Implementation><![CDATA[
-	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality BiemarBois")
-	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality BiemarBois")
-	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("", "", $$$True, "Geldig indien geen Ref en Dataopt voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$True, "Geldig indien geen Ref voor Personality BiemarBois")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$True, "Geldig indien geen Dataopt voor Personality BiemarBois")
 	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality BiemarBois")
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml
===================================================================
diff -u -r58282 -r58331
--- WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58282)
+++ WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder.cls.xml	(.../Decrypteerder.cls.xml)	(revision 58331)
@@ -113,6 +113,10 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	// Nieuwe personalities krijgen altij volgende settings indien de hostname gekend is.
+	// Set ..Response.IsContactGegevensFormulierNodig = $$$False
+	// Set ..Response.IsLoginFormulierNodig = $$$False
+	// Set ..Response.IsGeldig = $$$True
 	#dim Resultaat As %Boolean = $$$False
 	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	If (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "daro")) {
@@ -137,7 +141,6 @@
 			} Elseif (##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname) [ "jbarth") {
 				Set ..Response.PersonalityId = Personality.JBarth
 			} Else {
-			
 				Set ..Response.PersonalityId = Personality.Zweygart
 			}
 		}
@@ -150,7 +153,8 @@
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		;Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		Set ..Response.IsGeldig = ( $$$HasLength(DecrypteerRequest.Ref) && $$$HasLength(DecrypteerRequest.DataOpt) )
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "beslagdesign")) {
@@ -200,40 +204,39 @@
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Frans()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
-		
+		Set ..Response.IsGeldig = $$$True
 		Set Resultaat = ..Response.IsGeldig
 
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "campemetaalwaren")) {
 		Set ..Response.PersonalityId = Personality.CampeTonny
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "rini")) {
 		Set ..Response.PersonalityId = Personality.Rini
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "furnifit")) {
 		Set ..Response.PersonalityId = Personality.Furnifit
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 	} ElseIf (##class(TECH.StringUtils).Contains(##class(TECH.StringUtils).ToLower(DecrypteerRequest.Hostname), "yachtsupplier")) {
 		Set ..Response.PersonalityId = Personality.YachtSupplier
 		Set ..Response.Taal = ##class(DOM.enu.Taal).Nederlands()
 		Set ..Response.IsContactGegevensFormulierNodig = $$$False
 		Set ..Response.IsLoginFormulierNodig = $$$False
-		Set ..Response.IsGeldig = $$$Not((DecrypteerRequest.Ref = "") || (DecrypteerRequest.DataOpt = ""))
+		Set ..Response.IsGeldig = $$$True
 		
 		Set Resultaat = ..Response.IsGeldig
 
@@ -288,6 +291,7 @@
 	If ..Response.Taal = "IT" {
 		Set ..Response.Taal = "I"
 	}
+	Do ##class(Tools.Wlip).%New(207).String("PersID " _ LoginParameters.PersonalityID)
 	Set ..Response.ToegelatenLadetypes = ..HandelToegelatenLadetypesBepaler.Bepaal(LoginParameters.PersonalityID)	
 	Set ..Response.IsGeldig = $$$True
 ]]></Implementation>
Index: vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/YachtSupplier.cls.xml
===================================================================
diff -u -r58282 -r58331
--- vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/YachtSupplier.cls.xml	(.../YachtSupplier.cls.xml)	(revision 58282)
+++ vhUnitTest/WSimpl/Vhisie4/Auth/HandelAuthenticator/Decrypteerder/Test/YachtSupplier.cls.xml	(.../YachtSupplier.cls.xml)	(revision 58331)
@@ -29,9 +29,9 @@
 
 <Method name="Test: Geldigheid van requests voor Personality YachtSupplier">
 <Implementation><![CDATA[
-	Do ..AssertRequestIsGeldig("", "", $$$False, "Ongeldig indien geen Ref en Dataopt voor Personality YachtSupplier")
-	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$False, "Ongeldig indien geen Ref voor Personality YachtSupplier")
-	Do ..AssertRequestIsGeldig("DummyRef", "", $$$False, "Ongeldig indien geen Dataopt voor Personality YachtSupplier")
+	Do ..AssertRequestIsGeldig("", "", $$$True, "Geldig indien geen Ref en Dataopt voor Personality YachtSupplier")
+	Do ..AssertRequestIsGeldig("", "DummyDataOpt", $$$True, "Geldig indien geen Ref voor Personality YachtSupplier")
+	Do ..AssertRequestIsGeldig("DummyRef", "", $$$True, "Geldig indien geen Dataopt voor Personality YachtSupplier")
 	Do ..AssertRequestIsGeldig("DummyRef", "DummyDataOpt", $$$True, "Geldig indien Ref en Dataopt voor Personality YachtSupplier")
 ]]></Implementation>
 </Method>