Index: Tools/dto/SQL/User.cls.xml
===================================================================
diff -u -r3174 -r3825
--- Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3174)
+++ Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3825)
@@ -4,6 +4,7 @@
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Naam">
 <Type>%String</Type>
Index: Tools/SQLExporter/impl/ViewPrivileges.cls.xml
===================================================================
diff -u -r3174 -r3825
--- Tools/SQLExporter/impl/ViewPrivileges.cls.xml	(.../ViewPrivileges.cls.xml)	(revision 3174)
+++ Tools/SQLExporter/impl/ViewPrivileges.cls.xml	(.../ViewPrivileges.cls.xml)	(revision 3825)
@@ -18,5 +18,22 @@
 <Implementation><![CDATA[	quit 3
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPrivileges">
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set Objecten = ##class(%ArrayOfObjects).%New()
+	set ResultSet = ##class(%ResultSet).%New(..GeefQuery())
+	do ResultSet.Execute()
+	while ResultSet.Next() {
+		set TableName = ResultSet.Data("Name")
+		Set Deel1 = $Translate($Piece(TableName,".",0,$Length(TableName,".")-2),".","_")
+		Set TableName = Deel1_"."_$Piece(TableName,".",$Length(TableName,"."))
+		set Privilege = ..GeefPrivilege(TableName)
+		if $isObject(Privilege) do Objecten.SetAt(Privilege,TableName)
+	}		
+	quit Objecten
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: Tools/SQLExporter.cls.xml
===================================================================
diff -u -r3174 -r3825
--- Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3174)
+++ Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3825)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="Tools.SQLExporter">
 <Description>
-// Do ##class(Tools.SQLExporter).ExportSettings("C:\temp\users.xml")</Description>
+Do ##class(Tools.SQLExporter).%New().ExportSettings("C:\temp\users.xml")</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
Index: Tools/SQLExporter/impl/Privileges.cls.xml
===================================================================
diff -u -r3174 -r3825
--- Tools/SQLExporter/impl/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3174)
+++ Tools/SQLExporter/impl/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3825)
@@ -96,10 +96,10 @@
 <Implementation><![CDATA[
 	set Gedefinieerd = 0
 	set TableNode = ..GeefType()_","_TableName
-	if $data(^mpriv(0,TableNode,"s",..Gebruiker))>0 {
+	if $data(^mpriv(0,TableNode,Type,..Gebruiker))>0 {
 		set Gedefinieerd = 1
-		set GrantIndex = $order(^mpriv(0,TableNode,"s",..Gebruiker,""))
-		set Privilege = $select(^mpriv(0,TableNode,"s",..Gebruiker,GrantIndex):2,1:1)
+		set GrantIndex = $order(^mpriv(0,TableNode,Type,..Gebruiker,""))
+		set Privilege = $select(^mpriv(0,TableNode,Type,..Gebruiker,GrantIndex):2,1:1)
 	}
 	quit Gedefinieerd
 ]]></Implementation>