Versionierung windream, DocRecordLink, Overlay in NodeNavigation

app/DD-Record-Organizer/frmMain.vb

@@ -1,4 +1,5 @@
-Imports System.Globalization
+Imports System.ComponentModel
+Imports System.Globalization
 Imports System.Net
 Imports System.Threading
 'Imports DD_LIB_Standards'
@@ -985,14 +986,14 @@ Public Class frmMain
                         'ClassProxy.MyPROXYConnectionString = oSqlcon_Proxy
                     End If
                     Dim sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE GUID = {0}", oINACTIVE_GUID)
-                    MYDB_ECM.GetScalarValue(SQL)
+                    MYDB_ECM.GetScalarValue(sql)
                     If ClassInit.InitDatabase = True Then
                         ClassInit.InitUserLogin()
                         Load_Connection_Dep_Data()
 
                         sql = String.Format("UPDATE TBPMO_CLIENT_CONN_SWITCH_USER SET ACTIVE = 1 WHERE UPPER(CONN_NAME) = UPPER('{0}') AND USER_ID = {1}", oSQLDescription, USER_GUID)
                         Dim oSuccess As Boolean = False
-                        If MYDB_ECM.ExecuteNonQuery(Sql) = True Then
+                        If MYDB_ECM.ExecuteNonQuery(sql) = True Then
                             oSuccess = True
                         End If
                         If oSuccess = True Then
@@ -1029,4 +1030,19 @@ Public Class frmMain
     Private Sub ADDIBeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ADDIBeendenToolStripMenuItem.Click
         Me.Close()
     End Sub
+
+    Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
+        If Not IsNothing(WMMOD) Then
+            LOGGER.Debug("Closing frmMain - Now logging out...")
+            Try
+                WMMOD.Session.Logout()
+                LOGGER.Debug("WINDREAM_MOD Session logg ed out successfully.")
+
+            Catch ex As Exception
+                LOGGER.Warn("Error while logging out WINDREAM_MOD Session: {0}", ex.Message)
+                LOGGER.Error(ex)
+            End Try
+
+        End If
+    End Sub
 End Class