2.1.8 MS In-Wor auch bei FormClose Main

app/DD_PM_WINDREAM/frmMain.vb

@@ -85,7 +85,19 @@ 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 ClassDatabase.Execute_non_Query(sql)
+        Catch ex As Exception
+            allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}")
+            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