EDMIService: Update for Annette GmbH

Service.EDMIService/Filestorage/NewFile/NewFileResponse.vb

@@ -0,0 +1,22 @@
+Imports System.Runtime.Serialization
+
+Namespace FileStorage.NewFile
+    <Serializable>
+    <DataContract>
+    Public Class NewFileResponse
+        Inherits Messages.BaseResponse
+
+        <DataMember>
+        Public Property ObjectId As Long
+
+        Public Sub New(pObjectId As Long)
+            MyBase.New()
+            ObjectId = pObjectId
+        End Sub
+
+        Public Sub New(pException As Exception)
+            MyBase.New(pException)
+        End Sub
+    End Class
+
+End Namespace