Index: Tools/SQLExporter.cls.xml
===================================================================
diff -u -r3161 -r3174
--- Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3161)
+++ Tools/SQLExporter.cls.xml	(.../SQLExporter.cls.xml)	(revision 3174)
@@ -2,73 +2,135 @@
 <Export generator="Cache" version="9">
 <Class name="Tools.SQLExporter">
 <Description>
-// Do ##class(Tools.SQLExporter).ExportUsers("C:\temp\users.xml")</Description>
+// Do ##class(Tools.SQLExporter).ExportSettings("C:\temp\users.xml")</Description>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="ExportUsers">
-<Description>
-genereer tab gescheiden bestand met Usernaam in eerste kolom, gevolgd door alle groepen waarin de user zit.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>UsersBestand:%String</FormalSpec>
+<Property name="Settings">
+<Type>Tools.dto.SQL.Settings</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Filename">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ExportSettings">
+<FormalSpec>Filename:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set OriginalNamespace = $zu(5)
+	set ..Filename = Filename
+	set ..Settings = ##class(Tools.dto.SQL.Settings).%New()
 	
-	Set Bestand = ##class(TECH.File.FileWriter).%New(UsersBestand)
+	set ..Settings.Users = ..GeefGebruikers()
+	set ..Settings.Roles = ..GeefRollen()
 	
-	Set Settings = ##class(Tools.dto.SQL.Settings).%New()
-			
-	zn "%SYS"
-	Set UserName = ""
-	Set UserName = $O(^%SYS("sql","users","1",UserName))
-	zn OriginalNamespace
-	While (UserName '= ""){
-		
-		S UserProperties = ##class(%Library.SQLCatalog).Roles(UserName)				
-		
-		If (UserName '[ "_") {
-			Set User = ##class(Tools.dto.SQL.User).%New()
-			Set User.Naam = UserName
-			w "Geef het paswoord voor gebruiker '"_User.Naam_"' : " 
-			Read Paswoord
-			Set User.Paswoord = Paswoord
-			w ! 
-			for i=3:1:$ll(UserProperties) {
-				Set Role = ##class(Tools.dto.SQL.Role).%New()
-				Set Role.Naam = $LG(UserProperties,i)
-				Do User.Roles.Insert(Role)
-			}
-			Do Settings.Users.Insert(User)
-		}			
-		
-		zn "%SYS"		
-		Set UserName = $O(^%SYS("sql","users","1",UserName))		
-		zn OriginalNamespace
-	}
+	do ..ExporteerBestand()
 	
-	DO Bestand.WriteXML(Settings)
+	quit
 ]]></Implementation>
 </Method>
 
-<Method name="ExportTableNames">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>TableBestand:%String</FormalSpec>
+<Method name="ExporteerBestand">
+<Private>1</Private>
 <Implementation><![CDATA[
-	//Set Bestand = ##class(TECH.File.FileWriter).%New(TableBestand)
+	set Filewriter =  ##class(TECH.File.FileWriter).%New(..Filename)
+	do Filewriter.WriteXML(..Settings)
+	do Filewriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefRollen">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set Rollen = ##class(%ListOfObjects).%New()
+	set itRollen = ##class(TECH.ListIterator).%New(##class(TECH.SQLUtils).GeefRollen())
+	while itRollen.HasNext() {
+		set Rol = itRollen.Next()
+		do Rollen.Insert(..GeefRolInformatie(Rol))
+	}
+	quit Rollen
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolInformatie">
+<FormalSpec>Rol:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.dto.SQL.Role</ReturnType>
+<Implementation><![CDATA[
+	Set dtoRol = ##class(Tools.dto.SQL.User).%New()
+	Set dtoRol.Naam = Rol
+	set dtoRol.Tables = ..GeefTabelPrivileges(Rol)
+	set dtoRol.Views = ..GeefViewPrivileges(Rol)
+	quit dtoRol
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikers">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set Gebruikers = ##class(%ListOfObjects).%New()
+	set itGebruikers = ##class(TECH.ListIterator).%New(##class(TECH.SQLUtils).GeefGebruikers())
+	while itGebruikers.HasNext() {
+		set Gebruiker = itGebruikers.Next()
+		do Gebruikers.Insert(..GeefGebruikerInformatie(Gebruiker))
+	}
+	quit Gebruikers
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikerInformatie">
+<FormalSpec>Gebruiker:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.dto.SQL.User</ReturnType>
+<Implementation><![CDATA[
+	Set dtoUser = ##class(Tools.dto.SQL.User).%New()
+	Set dtoUser.Naam = Gebruiker
+	set dtoUser.Paswoord = ##class(TECH.SQLUtils).GeefPassword(Gebruiker)
+	set dtoUser.Roles = ..GeefGebruikersRollen(Gebruiker)
+	set dtoUser.Tables = ..GeefTabelPrivileges(Gebruiker)
+	set dtoUser.Views = ..GeefViewPrivileges(Gebruiker)
+	quit dtoUser
+]]></Implementation>
+</Method>
+
+<Method name="GeefTabelPrivileges">
+<FormalSpec>Gebruiker:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set TabelPrivilege = ##class(Tools.SQLExporter.impl.TabelPrivileges).%New(Gebruiker)
+	quit TabelPrivilege.GeefPrivileges()
+]]></Implementation>
+</Method>
+
+<Method name="GeefViewPrivileges">
+<FormalSpec>Gebruiker:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set ViewPrivilege = ##class(Tools.SQLExporter.impl.ViewPrivileges).%New(Gebruiker)
+	quit ViewPrivilege.GeefPrivileges()
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikersRollen">
+<FormalSpec>Gebruiker:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Rollen = ##class(%ListOfDataTypes).%New()
 	
-	zn "%SYS"
-	Set ResultSet = ##class(%ResultSet).%New("%Library.SQLCatalog:SQLTables")
-	Set Status = ResultSet.Execute()
-	w Status,!
-	While (ResultSet.Next())
-	{	
-		w ResultSet.Data("SQL_RESERVED_WORD"),!	
+	set UserProperties = ##class(%Library.SQLCatalog).Roles(Gebruiker)
+	for ctr=3:1:$listlength(UserProperties) {
+		do Rollen.Insert($listget(UserProperties,ctr))
 	}
-	w $g(%objlasterror),!
 	
-	zn "DEV"
+	quit Rollen
 ]]></Implementation>
 </Method>
 </Class>
Index: Tools/SQLExporter/impl/ViewPrivileges.cls.xml
===================================================================
diff -u
--- Tools/SQLExporter/impl/ViewPrivileges.cls.xml	(revision 0)
+++ Tools/SQLExporter/impl/ViewPrivileges.cls.xml	(revision 3174)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Tools.SQLExporter.impl.ViewPrivileges">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Privileges</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefQuery">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "TECH.SQLUtils:SQLViews"
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 3
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Tools/dto/SQL/User.cls.xml
===================================================================
diff -u -r3168 -r3174
--- Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3168)
+++ Tools/dto/SQL/User.cls.xml	(.../User.cls.xml)	(revision 3174)
@@ -1,10 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="Tools.dto.SQL.User">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
-<Inheritance>right</Inheritance>
 
 <Property name="Naam">
 <Type>%String</Type>
@@ -45,6 +44,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>
Index: Tools/SQLExporter/impl/Privileges.cls.xml
===================================================================
diff -u
--- Tools/SQLExporter/impl/Privileges.cls.xml	(revision 0)
+++ Tools/SQLExporter/impl/Privileges.cls.xml	(revision 3174)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Tools.SQLExporter.impl.Privileges">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Gebruiker">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Gebruiker:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..Gebruiker = Gebruiker
+	quit $$$OK
+]]></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 Privilege = ..GeefPrivilege(TableName)
+		if $isObject(Privilege) do Objecten.SetAt(Privilege,TableName)
+	}		
+	quit Objecten
+]]></Implementation>
+</Method>
+
+<Method name="GeefQuery">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrivilege">
+<FormalSpec>TableName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>Tools.dto.SQL.Privileges</ReturnType>
+<Implementation><![CDATA[
+	set dtoPrivilege = ##class(Tools.dto.SQL.Privileges).%New()
+	set Gedefinieerd = 0
+
+	if ..PrivilegeGedefinieerd(TableName,"s",.Privilege) {
+		set Gedefinieerd = 1
+		set dtoPrivilege.Select = Privilege
+	}
+	
+	if ..PrivilegeGedefinieerd(TableName,"u",.Privilege) {
+		set Gedefinieerd = 1
+		set dtoPrivilege.Update = Privilege
+	}
+	
+	if ..PrivilegeGedefinieerd(TableName,"i",.Privilege) {
+		set Gedefinieerd = 1
+		set dtoPrivilege.Insert = Privilege
+	}
+	
+	if ..PrivilegeGedefinieerd(TableName,"r",.Privilege) {
+		set Gedefinieerd = 1
+		set dtoPrivilege.References = Privilege
+	}
+	
+	if ..PrivilegeGedefinieerd(TableName,"d",.Privilege) {
+		set Gedefinieerd = 1
+		set dtoPrivilege.Delete = Privilege
+	}
+	
+	if 'Gedefinieerd set dtoPrivilege = ""
+	
+	quit dtoPrivilege
+]]></Implementation>
+</Method>
+
+<Method name="PrivilegeGedefinieerd">
+<FormalSpec><![CDATA[TableName:%String,Type:%String,&Privilege:%String]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Gedefinieerd = 0
+	set TableNode = ..GeefType()_","_TableName
+	if $data(^mpriv(0,TableNode,"s",..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)
+	}
+	quit Gedefinieerd
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: Tools/dto/SQL/Privileges.cls.xml
===================================================================
diff -u -r3168 -r3174
--- Tools/dto/SQL/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3168)
+++ Tools/dto/SQL/Privileges.cls.xml	(.../Privileges.cls.xml)	(revision 3174)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="Tools.dto.SQL.Privileges">
 <Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Select">
 <Description>
@@ -10,40 +11,32 @@
 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/SQLExporter/impl/TabelPrivileges.cls.xml
===================================================================
diff -u
--- Tools/SQLExporter/impl/TabelPrivileges.cls.xml	(revision 0)
+++ Tools/SQLExporter/impl/TabelPrivileges.cls.xml	(revision 3174)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="Tools.SQLExporter.impl.TabelPrivileges">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>Privileges</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefQuery">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "TECH.SQLUtils:SQLTables"
+]]></Implementation>
+</Method>
+
+<Method name="GeefType">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+</Class>
+</Export>