MS SQL Overview Connection enable

app/DD_PM_WINDREAM/App.config

@@ -12,7 +12,7 @@
   <applicationSettings>
     <DD_ProcessManager.My.MySettings>
       <setting name="UseAppConfigConString" serializeAs="String">
-        <value>False</value>
+        <value>True</value>
       </setting>
     </DD_ProcessManager.My.MySettings>
     <DevExpress.LookAndFeel.Design.AppSettings>

app/DD_PM_WINDREAM/ClassConfig.vb

@@ -8,6 +8,9 @@ Public Class ClassConfig
     Public Property ConnectionStringTest As String = ""
     <ConnectionStringAppServer>
     Public Property ConnectionStringAppServer As String = ""
+    <AppServerConfig>
+    Public Property AppServerConfig As String = ""
+
     Public Property TestMode As Boolean = False
 
     ' PDF Viewer Settings

app/DD_PM_WINDREAM/ClassIDBData.vb

@@ -183,7 +183,7 @@
                                 If oExists = False Then
                                     Dim oInfo = $"Value [{oOldValueRow.Item(0)}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
                                     LOGGER.Info(oInfo)
-                                    SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo)
+                                    'SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo)
                                     Delete_Term_Object_From_Metadata(oAttributeName, oOldValueRow.Item(0))
                                 End If
 
@@ -202,7 +202,7 @@
                             If oExists = False Then
                                 Dim oInfo2 = $"Value [{oOldAttributeResult}] no longer existing in Vector-Attribute [{oAttributeName}] - will be deleted!"
                                 LOGGER.Info(oInfo2)
-                                SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo2)
+                                'SetVariableValue(CURRENT_PROFILE_LOG_INDEX, oInfo2)
                                 Delete_Term_Object_From_Metadata(oAttributeName, oOldAttributeResult)
                             End If
                         Else

app/DD_PM_WINDREAM/ClassInit.vb

@@ -4,9 +4,9 @@ Imports DLLLicenseManager
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Config
 Imports System.Threading
+Imports DigitalData.Modules.EDMI.API
 
 Public Class ClassInit
-
     Public _lizenzManager As ClassLicenseManager
 
     Public Sub New()
@@ -22,6 +22,21 @@ Public Class ClassInit
         LOGGER = LOGCONFIG.GetLogger("ProcessManager")
 
         LOGGER.Info("## ProcessManager started - {0}", Now)
+        Try
+            Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log")
+
+            For Each file As IO.FileInfo In directory.GetFiles
+                If (Now - file.CreationTime).Days > 29 Then
+                    file.Delete()
+                Else
+                    Exit For
+                End If
+
+
+            Next
+        Catch ex As Exception
+
+        End Try
     End Sub
 
     <STAThread()>
@@ -54,6 +69,23 @@ Public Class ClassInit
                 CONNECTION_STRING_READ = CONNECTION_STRING
             End If
 
+            If CONFIG.Config.AppServerConfig <> String.Empty Then
+                Try
+                    _Client = New Client(LOGCONFIG, CONFIG.Config.AppServerConfig, 9000)
+                    If Not IsNothing(_Client) Then
+                        If _Client.Connect() Then
+                            APPSERVER_ACTIVE = True
+                        End If
+                    End If
+
+
+
+                Catch ex As Exception
+                    LOGGER.Warn($"Could not initialize the AppServer: {ex.Message}")
+                End Try
+
+            End If
+
             'VIEWER_UNIVERSAL = CONFIG.Config.UniversalViewerPath
             'VIEWER_XCHANGE = CONFIG.Config.XChangeViewerPath
             'VIEWER_SUMATRA = CONFIG.Config.SumatraViewerPath
@@ -120,7 +152,9 @@ Public Class ClassInit
             End If
         End If
 
-            If dbResult = False Then
+
+
+        If dbResult = False Then
             ERROR_STATE = "FAILED DBCONNECTION"
             MsgBox("Error in init database. (Connection failed) More information in the logfile.", MsgBoxStyle.Critical)
             Return False

app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj

@@ -162,6 +162,9 @@
     <Reference Include="DigitalData.Modules.Database">
       <HintPath>..\..\..\DDMonorepo\Modules.Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
+    <Reference Include="DigitalData.Modules.EDMI.API">
+      <HintPath>..\..\..\DDMonorepo\Modules.EDMIAPI\bin\Debug\DigitalData.Modules.EDMI.API.dll</HintPath>
+    </Reference>
     <Reference Include="DigitalData.Modules.Logging">
       <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>

app/DD_PM_WINDREAM/ModuleMySettings.vb

@@ -9,6 +9,8 @@
     Public CONNECTION_STRING_IDB_READ As String = ""
     Public CONNECTION_STRING_IDB_WRITE As String = ""
     Public IDB_ACTIVE As Boolean = False
+    Public APPSERVER_ACTIVE As Boolean = False
+
     Public IDB_USES_WMFILESTORE As Boolean = False
     Public BASIC_CONF_VISIBLE As Boolean = True
     Public IDB_DOC_DATA_SQL As String

app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb

@@ -1,7 +1,7 @@
 Imports WINDREAMLib
 Imports DigitalData.Modules.Config
 Imports DigitalData.Modules.Logging
-
+Imports DigitalData.Modules.EDMI.API
 Module ModuleRuntimeVariables
 
     ' Diese Werte müssen später zur Laufzeit geladen werden
@@ -137,4 +137,6 @@ Module ModuleRuntimeVariables
 
     Public MyIndicies As List(Of String)
     Public MyIndicies_Types As List(Of Integer)
+
+    Public _Client As Client
 End Module

app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.1.5.8")>
+<Assembly: AssemblyVersion("2.1.5.9")>
 <Assembly: AssemblyFileVersion("1.0.0.0")> 

app/DD_PM_WINDREAM/My Project/Settings.Designer.vb

@@ -291,7 +291,7 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("True")>  _
         Public ReadOnly Property UseAppConfigConString() As Boolean
             Get
                 Return CType(Me("UseAppConfigConString"),Boolean)

app/DD_PM_WINDREAM/My Project/Settings.settings

@@ -65,7 +65,7 @@
       <Value Profile="(Default)">Normal</Value>
     </Setting>
     <Setting Name="UseAppConfigConString" Type="System.Boolean" Scope="Application">
-      <Value Profile="(Default)">False</Value>
+      <Value Profile="(Default)">True</Value>
     </Setting>
   </Settings>
 </SettingsFile>

app/DD_PM_WINDREAM/frmMain.vb

@@ -46,6 +46,7 @@ Public Class frmMain
 
     Private DT_CHECKUSER_MODULE As DataTable
     Private IsFilterMode As Boolean
+    Private DetailLinkActive As Boolean = False
     Private Function GET_LAST_ADDED(pDatatable As DataTable) As String
         Dim oADDED As String
         Try
@@ -634,9 +635,11 @@ Public Class frmMain
                         GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
                         TimerRefresh.Stop()
                         GridView_Docs.ShowLoadingPanel()
+                        DetailLinkActive = True
                         Await Load_single_Profile(True)
                         GridView_Docs.HideLoadingPanel()
                         TimerRefresh.Start()
+
                     End If
                 End If
             End If
@@ -685,7 +688,7 @@ Public Class frmMain
             Next
 
             If result = 1 Then
-                ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
+
 
                 Dim oSQL = foundRows(0)("SQL_VIEW")
 
@@ -699,12 +702,14 @@ Public Class frmMain
                 oSQL = oSQL.Replace("@PROFILE_ID", CURRENT_CLICKED_PROFILE_ID)
 
                 CURR_DT_OVERVIEW = Await ClassDatabase.Return_DatatableAsync(oSQL, "Load_single_Profile")
-
+                If ForceReload = True Then
+                    LOGGER.Info("ForceReload is true!")
+                End If
                 Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW)
                 Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW)
                 If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN Then
-                    LOGGER.Info("No changes on OverviewHash - so exit Refresh")
                     If ForceReload = False Then
+                        LOGGER.Info("No changes on OverviewHash - so exit Refresh")
                         Exit Function
                     End If
 
@@ -712,7 +717,7 @@ Public Class frmMain
                     OVERVIEW_ADDED_WHEN = oADDED
                     OVERVIEW_CHANGED_WHEN = oChanged
                 End If
-
+                ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
                 If CURR_DT_OVERVIEW.Rows.Count = 0 Then
                     NO_WORKFLOWITEMS = True
                 Else
@@ -741,30 +746,30 @@ Public Class frmMain
             End Try
 
             ' Spalte für Status Icon erstellen
-            Dim columnStateIcon As New DataColumn()
+            'Dim columnStateIcon As New DataColumn()
-            columnStateIcon.DataType = GetType(Image)
+            'columnStateIcon.DataType = GetType(Image)
-            columnStateIcon.ColumnName = "ICON"
+            'columnStateIcon.ColumnName = "ICON"
-            columnStateIcon.Caption = ""
+            'columnStateIcon.Caption = ""
-            CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
+            'CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
 
             RedDocuments = 0
             YellowDocuments = 0
             GreenDocuments = 0
 
-            For Each row As DataRow In CURR_DT_OVERVIEW.Rows
+            'For Each row As DataRow In CURR_DT_OVERVIEW.Rows
-                Dim State As Integer = row.Item("TL_STATE")
+            '    Dim State As Integer = row.Item("TL_STATE")
-                Select Case State
+            '    Select Case State
-                    Case 1
+            '        Case 1
-                        RedDocuments += 1
+            '            RedDocuments += 1
-                        row.Item("ICON") = My.Resources.ampel_rot
+            '            row.Item("ICON") = My.Resources.ampel_rot
-                    Case 2
+            '        Case 2
-                        YellowDocuments += 1
+            '            YellowDocuments += 1
-                        row.Item("ICON") = My.Resources.ampel_gelb
+            '            row.Item("ICON") = My.Resources.ampel_gelb
-                    Case 3
+            '        Case 3
-                        GreenDocuments += 1
+            '            GreenDocuments += 1
-                        row.Item("ICON") = My.Resources.ampel_gruen
+            '            row.Item("ICON") = My.Resources.ampel_gruen
-                End Select
+            '    End Select
-            Next
+            'Next
             If IDB_ACTIVE = True Then
                 ' Spalte für Conversation erstellen
                 Dim columnConvIcon As New DataColumn()
@@ -1169,17 +1174,22 @@ Public Class frmMain
 
 
                 'Decide_Load()
+
+                Try
+                    Dim iterateIndex As Integer = 0
+                    Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy
+                    For Each row As DataRow In oNewDataTable.Rows
+                        If row("GUID") = CURRENT_DOC_GUID Then
+                            CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex)
+                            Exit For
+                        Else
+                            iterateIndex += 1
+                        End If
+                    Next
+                Catch ex As Exception
+                    LOGGER.Warn("Unexpected Error in Removing Row after Loading Record from Grid: " & ex.Message)
+                End Try
                 TimerRefresh.Enabled = True
-                Dim iterateIndex As Integer = 0
-                Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy
-                For Each row As DataRow In oNewDataTable.Rows
-                    If row("GUID") = CURRENT_DOC_GUID Then
-                        CURR_DT_OVERVIEW.Rows.RemoveAt(iterateIndex)
-                        Exit For
-                    Else
-                        iterateIndex += 1
-                    End If
-                Next
                 ' th = New Threading.Thread(AddressOf Task_A)
                 ' th.SetApartmentState(ApartmentState.STA)
                 '  th.Start()
@@ -1517,7 +1527,13 @@ Public Class frmMain
 
         GridView_Docs.ShowLoadingPanel()
         TimerRefresh.Stop()
-        Await Load_Grid_Overview(False)
+        Dim oForce As Boolean = False
+        If DetailLinkActive = True Then
+            oForce = True
+            DetailLinkActive = False
+            OVERVIEW_ADDED_WHEN = ""
+        End If
+        Await Load_Grid_Overview(oForce)
         GridView_Docs.HideLoadingPanel()
         TimerRefresh.Start()
         RefreshHelper.LoadViewInfo()
@@ -1527,11 +1543,7 @@ Public Class frmMain
         Layout_Single_Profile()
         GRID_LOAD_TYPE = "OVERVIEW"
         CURRENT_CLICKED_PROFILE_ID = 0
-        If USER_LANGUAGE = "de-DE" Then
+
-            ToolStripLabelViewTape.Text = "Gesamtübersicht"
-        Else
-            ToolStripLabelViewTape.Text = "Overview"
-        End If
         Try
             bsiMessage.Caption = ""
 
@@ -1572,8 +1584,8 @@ Public Class frmMain
                 Dim oADDED = GET_LAST_ADDED(CURR_DT_OVERVIEW)
                 Dim oChanged = GET_LAST_CHANGED(CURR_DT_OVERVIEW)
                 If oADDED = OVERVIEW_ADDED_WHEN And oChanged = OVERVIEW_CHANGED_WHEN Then
-                    LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
                     If ForceReload = False Then
+                        LOGGER.Info("No changes on OverviewHash - so exit Load_Grid_overview")
                         Exit Function
                     End If
 
@@ -1583,6 +1595,11 @@ Public Class frmMain
                     OVERVIEW_ADDED_WHEN = oADDED
                     OVERVIEW_CHANGED_WHEN = oChanged
                 End If
+                If USER_LANGUAGE = "de-DE" Then
+                    ToolStripLabelViewTape.Text = "Gesamtübersicht"
+                Else
+                    ToolStripLabelViewTape.Text = "Overview"
+                End If
                 NO_WORKFLOWITEMS = False
                 If CURR_DT_OVERVIEW.Rows.Count = 0 Then
                     If USER_LANGUAGE = "de-DE" Then
@@ -1614,30 +1631,30 @@ Public Class frmMain
                 GridControl_Docs.Visible = True
 
                 ' Spalte für Status Icon erstellen
-                Dim columnStateIcon As New DataColumn()
+                'Dim columnStateIcon As New DataColumn()
-                columnStateIcon.DataType = GetType(Image)
+                'columnStateIcon.DataType = GetType(Image)
-                columnStateIcon.ColumnName = "ICON"
+                'columnStateIcon.ColumnName = "ICON"
-                columnStateIcon.Caption = ""
+                'columnStateIcon.Caption = ""
-                CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
+                'CURR_DT_OVERVIEW.Columns.Add(columnStateIcon)
 
 
                 RedDocuments = 0
                 YellowDocuments = 0
                 GreenDocuments = 0
-                For Each row As DataRow In CURR_DT_OVERVIEW.Rows
+                'For Each row As DataRow In CURR_DT_OVERVIEW.Rows
-                    Dim State As Integer = row.Item("TL_STATE")
+                '    Dim State As Integer = row.Item("TL_STATE")
-                    Select Case State
+                '    Select Case State
-                        Case 1
+                '        Case 1
-                            RedDocuments += 1
+                '            RedDocuments += 1
-                            row.Item("ICON") = My.Resources.ampel_rot
+                '            row.Item("ICON") = My.Resources.ampel_rot
-                        Case 2
+                '        Case 2
-                            YellowDocuments += 1
+                '            YellowDocuments += 1
-                            row.Item("ICON") = My.Resources.ampel_gelb
+                '            row.Item("ICON") = My.Resources.ampel_gelb
-                        Case 3
+                '        Case 3
-                            GreenDocuments += 1
+                '            GreenDocuments += 1
-                            row.Item("ICON") = My.Resources.ampel_gruen
+                '            row.Item("ICON") = My.Resources.ampel_gruen
-                    End Select
+                '    End Select
-                Next
+                'Next
                 If IDB_ACTIVE = True Then
                     ' Spalte für Conversation erstellen
                     Dim columnConvIcon As New DataColumn()
@@ -2357,7 +2374,18 @@ Public Class frmMain
                 Check_Timer_Inactivity()
                 Exit Sub
             End If
-
+            If Application.OpenForms().OfType(Of frmAdmin2).Any Then
+                Check_Timer_Inactivity()
+                Exit Sub
+            End If
+            If Application.OpenForms().OfType(Of frmMonitor).Any Then
+                Check_Timer_Inactivity()
+                Exit Sub
+            End If
+            If GHOSTMODE_ACTIVE = True Then
+                Check_Timer_Inactivity()
+                Exit Sub
+            End If
             INACTIVITYRecognized = True
             Dim omsg As String = "Sie wurden aufgrund von Inaktivität automatisch abgemeldet!"
 

app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb

@@ -39,7 +39,13 @@ Public Class frmSQL_DESIGNER
             Else
                 CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
             End If
-
+            If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
+                cmbConnection.Enabled = False
+                btnShowConnections.Enabled = False
+            Else
+                cmbConnection.Enabled = True
+                btnShowConnections.Enabled = True
+            End If
 
             If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Then
                 If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then