EDMIService: First version of GetAccessRight

Service.EDMIService/Results/BaseResult.vb

@@ -1,6 +1,6 @@
 Imports System.Runtime.Serialization
 
-Namespace Results
+Namespace Messages
     <Serializable>
     <DataContract>
     <KnownType(GetType(DBNull))>
@@ -14,9 +14,14 @@ Namespace Results
             OK = True
         End Sub
 
-        Public Sub New(ErrorMessage As String)
+        Public Sub New(Message As String)
             OK = False
-            Me.ErrorMessage = ErrorMessage
+            ErrorMessage = Message
+        End Sub
+
+        Public Sub New(Exception As Exception)
+            OK = False
+            ErrorMessage = Exception.Message
         End Sub
     End Class
 End Namespace