MS V 2.5.3.0

app/TaskFlow/frmMain.vb

@@ -108,18 +108,7 @@ Public Class frmMain
         End Try
         Return oCHANGED
     End Function
-    Private Function Free_File()
-        Try
-            Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}"
-            Return DatabaseFallback.ExecuteNonQueryECM(sql)
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            Return False
-        End Try
-    End Function
     Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        Free_File()
-
         Try
             FormOpenClose = True
             ' Position und Größe speichern
@@ -682,6 +671,9 @@ Public Class frmMain
     End Sub
     Private Sub COLUMNS_INVISIBLE()
         Try
+            If GridViewWorkflows.Columns.Count = 0 Then
+                Exit Sub
+            End If
             GridViewWorkflows.Columns.Item("PROFILE_ID").Visible = False
             GridViewWorkflows.Columns.Item("GUID").Visible = False
             Try