Zooflow: CheckInOut

Service.EDMIService/Methods/IDB/GetFileInfo/FileInfo.vb

@@ -0,0 +1,13 @@
+Imports System.Runtime.Serialization
+
+Namespace Methods.IDB.GetFileInfo
+    <Serializable>
+    Public Class FileInfo
+        <DataMember>
+        Public Property IsCheckedOut As Boolean
+
+        <DataMember>
+        Public Property CheckoutUser As String
+    End Class
+
+End Namespace

Service.EDMIService/Methods/IDB/GetFileInfo/GetFileInfoMethod.vb

@@ -0,0 +1,21 @@
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+
+Namespace Methods.IDB.GetFileInfo
+    Public Class GetFileInfoMethod
+        Inherits BaseMethod
+
+        Public Sub New(pLogConfig As LogConfig, pDatabaseIDB As MSSQLServer, pDatabaseECM As MSSQLServer, pGlobalState As GlobalState)
+            MyBase.New(pLogConfig, pDatabaseIDB, pDatabaseECM, pGlobalState)
+        End Sub
+
+        Public Function Run(pData As GetFileInfoRequest) As GetFileInfoResponse
+            Dim oFileInfo = New FileInfo() With {
+                .CheckoutUser = Nothing,
+                .IsCheckedOut = False
+            }
+            Return New GetFileInfoResponse(oFileInfo)
+
+        End Function
+    End Class
+End Namespace

Service.EDMIService/Methods/IDB/GetFileInfo/GetFileInfoRequest.vb

@@ -0,0 +1,10 @@
+Imports System.Runtime.Serialization
+
+Namespace Methods.IDB.GetFileInfo
+    <Serializable>
+    <DataContract>
+    Public Class GetFileInfoRequest
+        <DataMember>
+        Public Property ObjectId As Long
+    End Class
+End Namespace

Service.EDMIService/Methods/IDB/GetFileInfo/GetFileInfoResponse.vb

@@ -0,0 +1,24 @@
+Imports System.Runtime.Serialization
+
+Namespace Methods.IDB.GetFileInfo
+    <Serializable>
+    <DataContract>
+    Public Class GetFileInfoResponse
+        Inherits Messages.BaseResponse
+
+        <DataMember>
+        Public Property ObjectId As Long
+
+        <DataMember>
+        Public Property FileInfo As FileInfo
+
+        Public Sub New(pFileInfo As FileInfo)
+            MyBase.New()
+            FileInfo = pFileInfo
+        End Sub
+
+        Public Sub New(pException As Exception, Optional pDetails As String = "")
+            MyBase.New(pException, pDetails)
+        End Sub
+    End Class
+End Namespace