EDMIService: Rework NewFile and SetAttributeValue

Service.EDMIService/Filestorage/SetAttributeValue/SetAttributeValueMethod.vb

@@ -0,0 +1,31 @@
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Database
+Imports DigitalData.Services.EDMIService.IDB
+
+Namespace FileStorage.SetAttributeValue
+    Public Class SetAttributeValueMethod
+        Inherits BaseMethod
+
+        Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer)
+            MyBase.New(pLogConfig, pDatabase)
+        End Sub
+
+        Public Function Run(pData As SetAttributeValueRequest) As SetAttributeValueResponse
+            Try
+                If Helpers.TestObjectIdExists(pData.ObjectId) = False Then
+                    LogAndThrow("ObjectId does not exist!")
+                End If
+
+                'TODO: Finish
+
+
+                Return New SetAttributeValueResponse(pData.ObjectId)
+            Catch ex As Exception
+                Logger.Warn("Error occurred while setting attribute value!")
+
+                Return New SetAttributeValueResponse(ex)
+            End Try
+        End Function
+    End Class
+
+End Namespace

Service.EDMIService/Filestorage/SetAttributeValue/SetAttributeValueRequest.vb

@@ -0,0 +1,23 @@
+Imports System.Runtime.Serialization
+
+Namespace FileStorage.SetAttributeValue
+    <Serializable>
+    <DataContract>
+    Public Class SetAttributeValueRequest
+        ''' <summary>
+        ''' Object Id
+        ''' </summary>
+        <DataMember>
+        Public Property ObjectId As Long
+        <DataMember>
+        Public Property AttributeName As String
+        <DataMember>
+        Public Property AttributeValue As String
+        <DataMember>
+        Public Property Who As Long
+    End Class
+
+
+End Namespace
+
+

Service.EDMIService/Filestorage/SetAttributeValue/SetAttributeValueResponse.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, Optional pDetails As String = "")
+            MyBase.New(pException, pDetails)
+        End Sub
+    End Class
+
+End Namespace