EDMIService: clean up

Service.EDMIService/Results/BaseResult.vb

@@ -1,20 +1,24 @@
 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
+Namespace Results
+    <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
+End Namespace
 
-    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/DatabaseResult.vb

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