EDMIService: Update for Annette GmbH

2021-11-25 15:55:45 +01:00
parent 6df72b07ad
commit 8846a5bf1c
10 changed files with 268 additions and 250 deletions
--- a/Service.EDMIService/Helpers/BaseResponse.vb
+++ b/Service.EDMIService/Helpers/BaseResponse.vb
@@ -0,0 +1,29 @@
+Imports System.Runtime.Serialization
+
+Namespace Messages
+    <Serializable>
+    <DataContract>
+    <KnownType(GetType(DBNull))>
+    Public MustInherit Class BaseResponse
+        <DataMember>
+        Public Property OK As Boolean
+        <DataMember>
+        Public Property ErrorMessage 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
+    End Class
+End Namespace
+
+