Projektdateien hinzufügen.

ECM.JobRunner.Windows/WCF/Methods/Base.vb

@@ -0,0 +1,48 @@
+Imports System.Runtime.Serialization
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Public Class Base
+    Public Class BaseMethod
+        Inherits BaseClass
+
+        Friend ReadOnly Database As MSSQLServer
+        Friend ReadOnly State As State
+
+        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pState As State)
+            MyBase.New(pLogConfig)
+            Database = pDatabase
+            State = pState
+        End Sub
+    End Class
+
+    Public MustInherit Class BaseResponse
+        <DataMember>
+        Public Property OK As Boolean
+        <DataMember>
+        Public Property ErrorMessage As String
+        <DataMember>
+        Public Property ErrorDetails As String
+
+        Public Sub New()
+            OK = True
+        End Sub
+
+        Public Sub New(Message As String)
+            OK = False
+            ErrorMessage = Message
+        End Sub
+
+        Public Sub New(Exception As Exception)
+            OK = False
+            ErrorMessage = Exception.Message
+        End Sub
+
+        Public Sub New(Exception As Exception, Details As String)
+            OK = False
+            ErrorMessage = Exception.Message
+            ErrorDetails = Details
+        End Sub
+    End Class
+End Class