3.7.2 Optimierungen und Button Knoten hinzufügen

app/DD-Record-Organizer/Classes/ClassInit.vb

@@ -513,22 +513,6 @@ Public Class ClassInit
                 oFNSQL = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
                 MYDB_ECM.ExecuteNonQuery(oFNSQL)
                 Return False
-            Else
-                Try
-                    'Die FolderWatch starten
-                    Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID
-                    Dim folderwatch_SCAN = MYDB_ECM.GetScalarValue(sql1)
-
-                    If Not folderwatch_SCAN Is Nothing Then
-                        CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
-                        If FWSCAN_started = True Then
-                            ClassFolderWatcher.StartStop_FolderWatchSCAN()
-                        End If
-                    End If
-                Catch ex As Exception
-                    LOGGER.Warn("Unexpected Error in Init_Folderwatch: " & ex.Message, True)
-                    Return False
-                End Try
 
             End If
             'If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
@@ -536,6 +520,7 @@ Public Class ClassInit
             'End If
             Dim oSQL = $"SELECT COUNT(GU.GUID) FROM	TBDD_GROUPS_USER GU INNER JOIN TBDD_GROUPS G ON GU.GROUP_ID = G.GUID WHERE G.NAME = 'ORGFLOW-Supervisor' AND GU.USER_ID = {USER_GUID}"
             USER_IS_SUPERVISOR = MYDB_ECM.GetScalarValue(oSQL)
+            ClassHelper.DELETE_PMO_FILE_USER_OPEN_FILES()
             Return True
         Catch ex As Exception
             LOGGER.Error(ex)