MS

Service.EDMIService/IDB/Helpers.vb

@@ -190,11 +190,13 @@ Namespace IDB
         End Sub
 
         Public Function NewDynamicFolderForObject(pObjectId As Long, pFolder As String, pWho As String, pLangID As Integer, pLangCode As String) As Boolean
-            Logger.Info("Setting Dynamic Folder [{0}]", pFolder)
+
             Dim oSql = $"
                 DECLARE @NEW_OBJ_MD_ID BIGINT
-                EXEC PRIDB_NEW_OBJ_DATA {pObjectId}, 'VIRTUAL_FOLDER', '{pWho}', 'pFolder', '{pLangCode}', 0, @OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
-            Database.ExecuteNonQuery(oSql)
+                EXEC PRIDB_NEW_OBJ_DATA {pObjectId}, 'VIRTUAL_FOLDER', '{pWho}', '{pFolder}', '{pLangCode}', 0, @OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
+            If Database.ExecuteNonQuery(oSql) = True Then
+                Logger.Debug("...Dynamic Folder [{0}] successfully saved!", pFolder)
+            End If
             oSql = $"
                 DECLARE @LAST_SN_ID BIGINT
                 EXEC PRIDB_NEW_DYNAMIC_FOLDER '{pFolder}','{pWho}',1,@LAST_SN_ID OUTPUT
@@ -202,11 +204,14 @@ Namespace IDB
             Dim oNodeID As Integer
             oNodeID = Database.GetScalarValue(oSql)
             If IsNothing(oNodeID) = False Then
+                Logger.Debug("...Nodes successffully created!")
                 oSql = $"DECLARE @LAST_SN_ID BIGINT
                         EXEC 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
+                Else
+                    Logger.Info("DynamicFolder and Nodes successffully created!")
                 End If
             End If
             Return True