Ms Inactivity, ApplServerConnections

app/DD_PM_WINDREAM/frmMain.vb

@@ -104,7 +104,9 @@ Public Class frmMain
             End Try
 
         End If
-
+        If INACTIVITYRecognized Then
+            Exit Sub
+        End If
         Try
             ClassAllgemeineFunktionen.LoginOut("LOGOUT")
             LOGGER.Info("ProcessManager closed - " & Now, False)
@@ -161,8 +163,8 @@ Public Class frmMain
             LOGGER.Error(ex)
             MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
         End Try
-        If Refresh_ConnectionString() = True Then
-            Try
+
+        Try
                 bsiLicenses.Caption = "Anzahl Lizenzen: " & LICENSE_COUNT
                 LOGGER.Debug("Initializing MainForm....")
                 If ERROR_STATE = "NO USER" Then
@@ -279,7 +281,7 @@ Public Class frmMain
                 SOURCE_INIT = Init_IDB()
                 If SOURCE_INIT = True Then
                     Dim oSQL = $"SELECT SQL_COMMAND FROM TBDD_SQL_COMMANDS WHERE TITLE = 'PM_IDB_DOC_DATA'"
-                    IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, "frmMainload-PM_IDPDOCDATA")
+                    IDB_DOC_DATA_SQL = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, "frmMainload-PM_IDPDOCDATA")
                     LOGGER.Debug($"Got the IDB_DOC_DATA_SQL..{IDB_DOC_DATA_SQL}")
                 End If
                 bsiGeneralInfo.Caption = "IDB active"
@@ -291,8 +293,8 @@ Public Class frmMain
                 RibbonPageGroupBasicConf.Visible = True
             End If
             LOGGER.Debug("MainForm initialized!")
-        End If
-        FormOpenClose = False
+
+            FormOpenClose = False
     End Sub
     Sub Check_Timer_Notification()
         Try
@@ -404,20 +406,6 @@ Public Class frmMain
 
 
 
-    Function Refresh_ConnectionString()
-        Try
-            TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
-            TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING
-            TBPM_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
-            TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
-
-            Return True
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_ConnectionString:")
-            Return False
-        End Try
-    End Function
     Private Function GetXML_OverviewLayoutName()
         Dim Filename As String = String.Format("DevExpressGridViewOverview_UserLayout_{0}.xml", GRID_LOAD_TYPE)
         Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
@@ -1342,7 +1330,7 @@ Public Class frmMain
                         CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
                         CURRENT_DOC_PATH = DOC_PATH
                         Dim oSQL = $"SELECT [dbo].[FNPM_CHECK_DocGUID_Valid] ({CURRENT_DOC_GUID})"
-                        Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"Item_Scope-FNPM_CHECK_DocGUID_Valid")
+                        Dim oResult = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"Item_Scope-FNPM_CHECK_DocGUID_Valid")
                         Try
                             If CBool(oResult) = True Then
                                 Load_Profil_from_Grid(oHitProfilID)
@@ -2087,7 +2075,7 @@ Public Class frmMain
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniGrundeinstellung.ItemClick
         Try
             frmKonfig.ShowDialog()
-            Refresh_ConnectionString()
+
             '  Load_Profil()
             Check_Timer_Notification()
         Catch ex As Exception
@@ -2115,13 +2103,13 @@ Public Class frmMain
     End Sub
 
     Private Sub bbiProfilverwaltung_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiProfilverwaltung.ItemClick
-        Dim AdminSecurity As Boolean = False
-        AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
-        If AdminSecurity = True Then
-            frmLoginAdmin.ShowDialog()
-        Else
-            frmAdministration.Show()
-        End If
+        'Dim AdminSecurity As Boolean = False
+        'AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
+        'If AdminSecurity = True Then
+        '    frmLoginAdmin.ShowDialog()
+        'Else
+        frmAdministration.Show()
+        ' End If
 
     End Sub
 
@@ -2280,7 +2268,7 @@ Public Class frmMain
         Dim oReceipiant = ""
         Dim oFocusedDocGUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID"))
         Dim oSQL = $"SELECT [dbo].[FNPM_GET_FILEPATH] ({oFocusedDocGUID},1)"
-        Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, $"DateiAlsLinkVersendenToolStripMenuItem_Click")
+        Dim oFilePath = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING_READ, $"DateiAlsLinkVersendenToolStripMenuItem_Click")
 
         Dim oLink = "<HTML><body><p><a href=" + "file:///" + oFilePath + ">Link zur Datei</a></p></body></HTML>"
         Dim oLink2 = "<a href=" + "file:///" + oFilePath + ">Link zur Datei</a>"
@@ -2342,6 +2330,14 @@ Public Class frmMain
             End If
 
             INACTIVITYRecognized = True
+            Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
+
+            If USER_LANGUAGE <> "de-DE" Then
+                omsg = "Due to inactivity we closed all actions and You were logged out automatically."
+            End If
+            Hide()
+            ClassAllgemeineFunktionen.LoginOut("LOGOUT")
+            MsgBox(omsg, MsgBoxStyle.Information, ADDITIONAL_TITLE)
             Application.Exit()
         Catch ex As Exception
             LOGGER.Error(ex.Message)