MS DynamicFolder

Service.EDMIService/IDB/Helpers.vb

@@ -208,6 +208,19 @@ Namespace IDB
                 Return False
             End If
 
+            Return True
+        End Function
+        Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangCode As String) As Boolean
+            Logger.Info("Setting Dynamic Folder [{0}]", pFolder)
+            Dim oSql = $"
+                DECLARE @NEW_OBJ_MD_ID BIGINT
+                EXEC PRIDB_NEW_DYNAMIC_FOLDER_FOR_OBJECT {pObjectId}, '{pFolder}', '{pWho}', '{pLangCode}'"
+
+            If Database.ExecuteNonQuery(oSql) = False Then
+                Logger.Warn("Error while setting Dynamic Folder.")
+                Return False
+            End If
+
             Return True
         End Function
     End Class

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

@@ -84,6 +84,8 @@ Namespace Methods.GlobalIndexer.ImportFile
                 Dim oDynamicFilePath = GetVirtualPath(
                     pData.File.FileInfoRaw, oProfile.DynamicPath, User, oUserAttributes, oAutoAttributes)
 
+                Helpers.NewDynamicFolderForObject(oResponse.ObjectId, oProfile.DynamicPath, User.UserName, User.Language)
+
                 Logger.Info("Collecting Attributes for ObjectId [{0}]", oResponse.ObjectId)
 
                 Dim oFinalAttributes As New Dictionary(Of String, List(Of String)) From {

Service.EDMIService/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.4.2.0")>
+<Assembly: AssemblyVersion("2.4.3.0")>
-<Assembly: AssemblyFileVersion("2.4.2.0")>
+<Assembly: AssemblyFileVersion("2.4.3.0")>