Index: Tools/dto/SQL/Privileges.cls.xml
===================================================================
diff -u
--- Tools/dto/SQL/Privileges.cls.xml	(revision 0)
+++ Tools/dto/SQL/Privileges.cls.xml	(revision 3168)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="Tools.dto.SQL.Privileges">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="Select">
+<Description>
+ValueList 
+0 : geen rechten
+1 : rechten zonder grant
+2 : rechten met grant</Description>
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+
+<Property name="Update">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+
+<Property name="Alter">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+
+<Property name="Delete">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+
+<Property name="References">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+
+<Property name="Insert">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+<Parameter name="VALUELIST" value=",0,1,2"/>
+</Property>
+</Class>
+
+
+</Export>
Index: Tools/dto/SQL/User.cls.xml
===================================================================
diff -u -r3142 -r3168
--- Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3142)
+++ Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3168)
@@ -1,23 +1,40 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9">
+<Export generator="Cache" version="24">
 <Class name="Tools.dto.SQL.User">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Inheritance>right</Inheritance>
 
 <Property name="Naam">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Paswoord">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Property name="Roles">
-<Type>Tools.dto.SQL.Role</Type>
+<Type>%String</Type>
 <Collection>list</Collection>
 </Property>
 
+<Property name="Tables">
+<Type>Tools.dto.SQL.Privileges</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="Tables"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Views">
+<Type>Tools.dto.SQL.Privileges</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="Views"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -28,4 +45,6 @@
 ]]></Implementation>
 </Method>
 </Class>
+
+
 </Export>
Index: Tools/dto/SQL/Role.cls.xml
===================================================================
diff -u -r3142 -r3168
--- Tools/dto/SQL/Role.cls.xml	(.../Role.cls.xml)	(revision 3142)
+++ Tools/dto/SQL/Role.cls.xml	(.../Role.cls.xml)	(revision 3168)
@@ -1,12 +1,30 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9">
+<Export generator="Cache" version="24">
 <Class name="Tools.dto.SQL.Role">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Inheritance>right</Inheritance>
 
 <Property name="Naam">
 <Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
 </Property>
+
+<Property name="Tables">
+<Type>Tools.dto.SQL.Privileges</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="Tables"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
+
+<Property name="Views">
+<Type>Tools.dto.SQL.Privileges</Type>
+<Collection>array</Collection>
+<Parameter name="XMLNAME" value="Views"/>
+<Parameter name="XMLPROJECTION" value="ELEMENT"/>
+</Property>
 </Class>
+
+
 </Export>
Index: Tools/dto/SQL/Settings.cls.xml
===================================================================
diff -u -r3142 -r3168
--- Tools/dto/SQL/Settings.cls.xml	(.../Settings.cls.xml)	(revision 3142)
+++ Tools/dto/SQL/Settings.cls.xml	(.../Settings.cls.xml)	(revision 3168)
@@ -1,23 +1,21 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9">
+<Export generator="Cache" version="24">
 <Class name="Tools.dto.SQL.Settings">
+<ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
+<Inheritance>right</Inheritance>
 
 <Property name="Users">
 <Type>Tools.dto.SQL.User</Type>
 <Collection>list</Collection>
 </Property>
 
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Users = ##class(%ListOfObjects).%New()
-	Quit $$$OK
-]]></Implementation>
-</Method>
+<Property name="Roles">
+<Type>Tools.dto.SQL.Role</Type>
+<Collection>list</Collection>
+</Property>
 </Class>
+
+
 </Export>