MS

GUIs.ZooFlow/frmtest.vb

@@ -81,4 +81,17 @@ Public Class frmtest
         oForm.BringToFront()
         oForm.Focus()
     End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) 
+        Dim oSQL = $"Declare @LAST_SN_ID BIGINT
+                EXEC PRIDB_NEW_DYNAMIC_FOLDER '{TextBox2.Text}','{My.Application.User.UserName}',1,@LAST_SN_ID OUTPUT
+                SELECt @LAST_SN_ID"
+
+        Dim oNodeID As Integer
+        oNodeID = My.DatabaseIDB.GetScalarValue(oSQL)
+
+        If IsNothing(oNodeID) = False Then
+
+        End If
+    End Sub
 End Class

Service.EDMIService/IDB/Helpers.vb

@@ -189,17 +189,22 @@ Namespace IDB
             Next
         End Sub
 
-        Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangCode As String) As Boolean
+        Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangID As Integer) 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
+                DECLARE @LAST_SN_ID BIGINT
+                EXEC PRIDB_NEW_DYNAMIC_FOLDER '{pFolder}','{pWho}',1,@LAST_SN_ID OUTPUT
+                SELECT @LAST_SN_ID"
+            Dim oNodeID As Integer
+            oNodeID = Database.GetScalarValue(oSql)
+            If IsNothing(oNodeID) = False Then
+                oSql = $"DECLARE @LAST_SN_ID BIGINT
+                        PRIDB_NEW_STUCTURE_NODE_FOR_OBJECT {pObjectId}',{oNodeID},'{pWho}',{pLangID}, @LAST_SN_ID OUTPUT"
+                If Database.ExecuteNonQuery(oSql) = False Then
+                    Logger.Warn("Error while setting Dynamic Folder.")
+                    Return False
+                End If
             End If
-
             Return True
         End Function
 

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

@@ -110,7 +110,7 @@ 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)
+                Helpers.NewDynamicFolderForObject(oResponse.ObjectId, oProfile.DynamicPath, User.UserName, User.LanguageId)
 
                 Logger.Info("Collecting Attributes for ObjectId [{0}]", oResponse.ObjectId)
 

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.3.0")>
-<Assembly: AssemblyFileVersion("2.4.3.0")>
+<Assembly: AssemblyVersion("2.4.4.0")>
+<Assembly: AssemblyFileVersion("2.4.4.0")>