EDMIService: Rework NewFile and SetAttributeValue

Service.EDMIService/Exceptions.vb

@@ -0,0 +1,67 @@
+Imports System.Runtime.Serialization
+Imports System.ServiceModel
+
+Namespace Exceptions
+
+
+    Public Class UnexpectedErrorException(Of UnexpectedErrorFault)
+        Inherits FaultException
+
+        Public Sub New()
+            MyBase.New()
+        End Sub
+    End Class
+
+    <DataContract>
+    Public Class BaseFault
+        ''' <summary>
+        ''' The human readable error message
+        ''' </summary>
+        <DataMember>
+        Public Property ErrorMessage As String
+
+        <DataMember>
+        Public Property InnerException As Exception
+
+        <DataMember>
+        Public Property IsRecoverable As Boolean = True
+    End Class
+
+    <DataContract>
+    Public Class UnexpectedErrorFault
+        Inherits BaseFault
+
+        Public Sub New(Exception As Exception)
+            MyBase.New()
+            ErrorMessage = "Unexpected Error"
+            IsRecoverable = True
+            InnerException = Exception
+
+        End Sub
+    End Class
+
+    <DataContract>
+    Public Class DataTableDoesNotExistFault
+        Inherits BaseFault
+
+        Public Sub New(Name As String)
+            MyBase.New()
+            ErrorMessage = $"Datatable {Name} does not exist"
+            IsRecoverable = True
+            InnerException = Nothing
+        End Sub
+    End Class
+
+    <DataContract>
+    Public Class ObjectDoesNotExistFault
+        Inherits BaseFault
+
+        Public Sub New(ObjectId As Long)
+            MyBase.New()
+            ErrorMessage = $"Object with Id {ObjectId} does not exist"
+            IsRecoverable = True
+            InnerException = Nothing
+        End Sub
+    End Class
+
+End Namespace