From da4573e18b600972830ee52904f010282f5ef231 Mon Sep 17 00:00:00 2001
From: Digital Data - Marlon Schreiber <m.schreiber@digitaldata.works>
Date: Wed, 16 Mar 2022 15:49:10 +0100
Subject: [PATCH] MS DynamicFolder

---
 Service.EDMIService/IDB/Helpers.vb                  | 13 +++++++++++++
 .../GlobalIndexer/ImportFile/ImportFileMethod.vb    |  2 ++
 Service.EDMIService/My Project/AssemblyInfo.vb      |  4 ++--
 3 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/Service.EDMIService/IDB/Helpers.vb b/Service.EDMIService/IDB/Helpers.vb
index 357b310d..d6a7e3ca 100644
--- a/Service.EDMIService/IDB/Helpers.vb
+++ b/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
diff --git a/Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb b/Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb
index 857f807a..47702e47 100644
--- a/Service.EDMIService/Methods/GlobalIndexer/ImportFile/ImportFileMethod.vb
+++ b/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 {
diff --git a/Service.EDMIService/My Project/AssemblyInfo.vb b/Service.EDMIService/My Project/AssemblyInfo.vb
index 9b565181..c28edf9c 100644
--- a/Service.EDMIService/My Project/AssemblyInfo.vb	
+++ b/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: AssemblyFileVersion("2.4.2.0")>
+<Assembly: AssemblyVersion("2.4.3.0")>
+<Assembly: AssemblyFileVersion("2.4.3.0")>