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>