Index: Tools/dto/SQL/User.cls.xml
===================================================================
diff -u -r96 -r1829
--- Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 96)
+++ Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 1829)
@@ -37,11 +37,19 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>Naam:%String="",Paswoord:%String="",Role:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Roles = ##class(%ListOfObjects).%New()
+	Set ..Naam  = Naam
+	Set ..Paswoord = Paswoord	
+	Set ..Roles = ##class(%ListOfObjects).%New()
+	
+	If ($LENGTH(Role)) {
+		Do ..Roles.Insert(Role)
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>