Index: BL/EC/Session.cls.xml
===================================================================
diff -u -r1074 -r1364
--- BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 1074)
+++ BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 1364)
@@ -442,12 +442,14 @@
 	Set objToegang=%blToegang.OpenID()
 	
 	Set Proxy.UserNaam=objToegang.GetNaam()
-
+	
 	;If 'Proxy.MultipleKlanten Do  ; Single klant 
 	Set Proxy.KlantNr=objToegang.GetKlant() ; Klant defaulten
 	
  	Set Proxy.Taal=..Session.Taal
  	
+ 	Set Proxy.GebruiktDoelen = objToegang.UserNaam?1(1"ICTTEST",1"PVT",1"AGL",1"JME",1"LDS")
+ 	
  	;Do:..Session.ClientIP'?1"192.168."1.E ..AddMemo(Proxy,objToegang) ; tijdelijk alleen voor externen
  	Do ..AddMemo(Proxy,objToegang)