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