rename service directories

Service.EDMIService/Results/BaseResult.vb

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

Service.EDMIService/Results/ContainerResult.vb

@@ -0,0 +1,18 @@
+Imports DigitalData.Modules.Filesystem
+
+<Serializable>
+Public Class ContainerResult
+    Public ReadOnly OK As Boolean
+    Public ReadOnly ErrorMessage As String
+    Public Container As FileContainerInner
+
+    Public Sub New()
+        OK = True
+        ErrorMessage = Nothing
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        OK = False
+        Me.ErrorMessage = ErrorMessage
+    End Sub
+End Class

Service.EDMIService/Results/DatabaseResult.vb

@@ -0,0 +1,56 @@
+Imports System.Runtime.Serialization
+
+<Serializable>
+<DataContract>
+<KnownType(GetType(DBNull))>
+Public Class TableResult
+    Inherits BaseResult
+
+    <DataMember>
+    Public Property Table As DataTable
+
+    Public Sub New(Table As DataTable)
+        MyBase.New()
+        Me.Table = Table
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+End Class
+
+<Serializable>
+<DataContract>
+<KnownType(GetType(DBNull))>
+Public Class ScalarResult
+    Inherits BaseResult
+
+    <DataMember>
+    Public Property Scalar As Object
+
+    Public Sub New(Scalar As Object)
+        MyBase.New()
+        Me.Scalar = Scalar
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+End Class
+
+<Serializable>
+<DataContract>
+<KnownType(GetType(DBNull))>
+Public Class NonQueryResult
+    Inherits BaseResult
+
+    Public Sub New()
+        MyBase.New()
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+End Class
+
+

Service.EDMIService/Results/DocumentResult.vb

@@ -0,0 +1,26 @@
+Imports DigitalData.Modules.Filesystem
+
+<Serializable>
+Public Class DocumentResult
+    Inherits BaseResult
+
+    Public Document As DocumentObject
+    Public HasContents As Boolean = False
+    Public Contents As Byte()
+
+    Public Sub New(Document As DocumentObject)
+        MyBase.New()
+        Me.Document = Document
+    End Sub
+
+    Public Sub New(Document As DocumentObject, Contents As Byte())
+        MyBase.New()
+        Me.Document = Document
+        Me.Contents = Contents
+        Me.HasContents = True
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+End Class

Service.EDMIService/Results/DocumentResult2.vb

@@ -0,0 +1,28 @@
+<Serializable>
+Public Class DocumentResult2
+    Inherits BaseResult
+
+    Public Document As DocumentObject
+    Public HasContents As Boolean = False
+    Public Contents As Byte()
+
+    Public Sub New(Document As DocumentObject)
+        MyBase.New()
+        Me.Document = Document
+    End Sub
+
+    Public Sub New(Document As DocumentObject, Contents As Byte())
+        MyBase.New()
+        Me.Document = Document
+        Me.Contents = Contents
+        Me.HasContents = True
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+
+    Public Class DocumentObject
+        Public FileName As String
+    End Class
+End Class

Service.EDMIService/Results/IndexResult.vb

@@ -0,0 +1,15 @@
+<Serializable>
+Public Class IndexResult
+    Inherits BaseResult
+
+    Public ReadOnly IndexId As Int64
+
+    Public Sub New(IndexId As Int64)
+        MyBase.New()
+        Me.IndexId = IndexId
+    End Sub
+
+    Public Sub New(ErrorMessage As String)
+        MyBase.New(ErrorMessage)
+    End Sub
+End Class