MS

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