Add NewFileIndex

SERVICES/DDEDM_NetworkService/Results/BaseResult.vb

@@ -0,0 +1,20 @@
+Imports System.Runtime.Serialization
+
+<Serializable>
+<DataContract>
+<KnownType(GetType(DBNull))>
+Public Class BaseResult
+    <DataMember>
+    Public Property OK As Boolean
+    <DataMember>
+    Public Property ErrorMessage As String
+
+    Public Sub New()
+        Me.OK = OK
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        OK = False
+        Me.ErrorMessage = ErrorMessage
+    End Sub
+End Class