EDMI: Add generic ImportFile Method

Service.EDMIService/Methods/IDB/ImportFile/ImportFileMethod.vb

@@ -0,0 +1,94 @@
+Imports System.IO
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Patterns
+Imports DigitalData.Modules.Language
+Imports DigitalData.Services.EDMIService.Methods.Database
+Imports DigitalData.Services.EDMIService.Methods.IDB
+Imports DigitalData.Modules.ZooFlow.State
+Imports DigitalData.Modules.Base.IDB
+
+Namespace Methods.IDB.ImportFile
+    Public Class ImportFileMethod
+        Inherits BaseMethod
+
+        Private ReadOnly Connection As SqlClient.SqlConnection
+        Private ReadOnly Transaction As SqlClient.SqlTransaction
+
+        Private User As UserState
+
+        Public Sub New(pLogConfig As LogConfig, pDatabaseIDB As MSSQLServer, pDatabaseECM As MSSQLServer, pGlobalState As GlobalState)
+            MyBase.New(pLogConfig, pDatabaseIDB, pDatabaseECM, pGlobalState)
+
+            Connection = DatabaseIDB.GetConnection()
+            Transaction = Connection.BeginTransaction()
+        End Sub
+
+        ''' <summary>
+        ''' 
+        ''' </summary>
+        ''' <remarks>
+        ''' 
+        ''' 
+        ''' 
+        ''' </remarks>
+        Public Function Run(pData As ImportFileRequest)
+            Try
+                User = pData.User
+
+                ' TODO: Add missing user properties in UserState from TBDD_USER
+                'pData.User = ResolveUserFromUserName(pData.User.UserName)
+
+                Dim oUserAttributes = pData.AttributeValues
+                Dim oAutoAttributes As List(Of UserAttributeValue) = Nothing
+
+                ' Import the file
+                Dim oNewFile As New NewFile.NewFileMethod(LogConfig, DatabaseIDB, DatabaseECM, GlobalState)
+                Dim oResponse = oNewFile.Run(New NewFile.NewFileRequest With {
+                    .File = pData.File,
+                    .IDBDoctypeId = pData.IDBDoctypeId,
+                    .KindType = pData.KindType,
+                    .StoreName = pData.StoreName,
+                    .User = User
+                })
+
+                If oResponse.OK Then
+                    Logger.Info("Import of file [{0}] under ObjectId [{1}] successful!", pData.File.FileName, oResponse.ObjectId)
+                Else
+                    Throw New ApplicationException(oResponse.ErrorMessage)
+                End If
+
+                ' Generate display Filename from nameconvention
+                Dim oDisplayFilename = ""
+
+                ' Generate virtual path from profile
+                Dim oDynamicFilePath = ""
+
+                Logger.Info("Collecting Attributes for ObjectId [{0}]", oResponse.ObjectId)
+
+                Dim oFinalAttributes As New Dictionary(Of String, List(Of String))
+                oFinalAttributes = Helpers.UserAttributesToDictionary(oUserAttributes)
+
+                Logger.Info("Writing [{0}] Attributes for ObjectId [{0}] ", oResponse.ObjectId)
+                Helpers.SetAttributeValuesWithTransaction(Connection, Transaction, oResponse.ObjectId, oFinalAttributes, User.Language, User.UserName)
+
+                'TODO: Write to TBGI_INDEX_HISTORY?
+
+                ' Finally, commit the transaction
+                Transaction?.Commit()
+
+                Return New ImportFileResponse(oResponse.ObjectId)
+
+            Catch ex As Exception
+                Logger.Warn("Error occurred while importing file!")
+                Logger.Error(ex)
+
+                Logger.Info("Rolling back transaction.")
+                Transaction?.Rollback()
+
+                Return New ImportFileResponse(ex)
+            End Try
+        End Function
+    End Class
+
+End Namespace

Service.EDMIService/Methods/IDB/ImportFile/ImportFileRequest.vb

@@ -0,0 +1,53 @@
+Imports System.Runtime.Serialization
+Imports DigitalData.Modules.ZooFlow.State
+Imports DigitalData.Services.EDMIService.Methods.IDB
+
+Namespace Methods.IDB.ImportFile
+    <Serializable>
+    <DataContract>
+    Public Class ImportFileRequest
+        ''' <summary>
+        ''' Important File properties like, Name, Contents, CreatedAt, ModifiedAt, Checksum
+        ''' </summary>
+        <DataMember>
+        Public Property File As FileProperties
+
+        ''' <summary>
+        ''' The ProfileId the file will be imported with
+        ''' </summary>
+        <DataMember>
+        Public Property ProfileId As Integer
+
+        ''' <summary>
+        ''' The Document Type of the file, ex. IncomingInvoice
+        ''' </summary>
+        <DataMember>
+        Public Property IDBDoctypeId As String
+
+        ''' <summary>
+        ''' The kind of object to be created, ex. DOC
+        ''' </summary>
+        <DataMember>
+        Public Property KindType As String
+
+        ''' <summary>
+        ''' Name/title of the ObjectStore to save the file to, ex. Work
+        ''' </summary>
+        <DataMember>
+        Public Property StoreName As String
+
+        ''' <summary>
+        ''' The attribute values given by the user in the form of
+        ''' Attribute Name/Attribute Value/ControlName
+        ''' </summary>
+        <DataMember>
+        Public Property AttributeValues As New List(Of UserAttributeValue)
+
+        ''' <summary>
+        ''' User Importing the file
+        ''' </summary>
+        ''' <returns></returns>
+        <DataMember>
+        Public Property User As UserState
+    End Class
+End Namespace

Service.EDMIService/Methods/IDB/ImportFile/ImportFileResponse.vb

@@ -0,0 +1,22 @@
+Imports System.Runtime.Serialization
+
+Namespace Methods.IDB.ImportFile
+    <Serializable>
+    <DataContract>
+    Public Class ImportFileResponse
+        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