Footer und Buttons verankert - frmNIVerknuepfungen

Instanzname in Titelleiste der Form und bei Tray-Icon eingeblendet - frmStart.Designer
Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite
2025-12-04 09:47:25 +01:00 · 2025-12-04 09:29:30 +01:00 · 2025-12-01 10:30:53 +01:00 · 2025-11-27 16:59:27 +01:00 · 2025-11-27 09:24:08 +01:00 · 2025-11-13 14:02:23 +01:00
21 changed files with 231 additions and 143 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -164,3 +164,4 @@ $RECYCLE.BIN/
 /NIService/.vs/NIService.csproj.dtbcache.json
 /.vs/ToolCollection/v17/DocumentLayout.json
 /.vs/ToolCollection/v17/DocumentLayout.backup.json
+/.vs
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-shm
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-shm
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-wal
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-wal
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-shm
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-shm
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-wal
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-wal
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -670,8 +670,8 @@ Namespace My
        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
+            "Info=True;User ID=sa;Password=dd;Encrypt=False")>  _
        Public ReadOnly Property DDECMConString() As String
            Get
                Return CType(Me("DDECMConString"),String)
--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -161,10 +161,10 @@
    <Setting Name="DDECMConString" Type="(Connection string)" Scope="Application">
      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False&lt;/ConnectionString&gt;
  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</Value>
    </Setting>
    <Setting Name="WM_PERS_LOGIN" Type="System.String" Scope="Application">
      <Value Profile="(Default)">@Domain#@User#@PW</Value>
--- a/ToolCollection/app.config
+++ b/ToolCollection/app.config
@@ -11,7 +11,7 @@
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <connectionStrings>
-    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
      providerName="System.Data.SqlClient" />
  </connectionStrings>
  <system.diagnostics>
--- a/ToolCollection/frmDIHauptseite.vb
+++ b/ToolCollection/frmDIHauptseite.vb
@@ -60,6 +60,8 @@ Public Class frmDIHauptseite
    Private CriticalErrorInBackgroundWorker As Boolean = False
    Private manProfile As String

+    Private FehlerProfileListe As New List(Of String)
+    Private FehlerMsgBoxVisible As Boolean = False

    Private Alles_OK As Boolean = True

@@ -268,7 +270,7 @@ Public Class frmDIHauptseite
 #End Region

 #Region "*** DoWork: während der BackgroundWorker aktiv ist ***"
-    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) 'Handles threadDateiimport.DoWork
+    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        Dim _TimeStart As Date
        Dim _TimeEnd As Date
        Try
@@ -283,9 +285,11 @@ Public Class frmDIHauptseite
            _TimeStart = Now
            ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False)
            ClassLoggerDI.Add("======================================================================", False)
+
+            ' Liste für fehlerhafte Profile zurücksetzen
+            FehlerProfileListe.Clear()
+
            If _windream.Init Then
-
-
                If Manuell = True Then
                    ClassLoggerDI.Add(">> Manueller Durchlauf", False)
                    ClassLoggerDI.Add("Profilname: " & manProfile, False)
@@ -298,42 +302,51 @@ Public Class frmDIHauptseite
                    '1. ###### Zählen der Files
                    Gesamtfiles = 0
                    Dim files_Durchlauf As ReadOnlyCollection(Of String)
-                    For Each item As ClassDIProfil In ClassDIProfile.Profile

+                    For Each item As ClassDIProfil In ClassDIProfile.Profile
                        Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)

                        'Nur die files der Aktiven Profile zählen
                        If CBool(selectedProfile.Aktiv) = True Then
-                            If Me.selectedProfile.Subdirectories = True Then
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-                            Else
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            End If
-                            'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            Gesamtfiles += files_Durchlauf.Count
+                            Try
+                                If Me.selectedProfile.Subdirectories = True Then
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+                                Else
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                End If
+                                Gesamtfiles += files_Durchlauf.Count
+                            Catch ex As Exception
+                                ' Profil zur Fehlerliste hinzufügen
+                                FehlerProfileListe.Add(item.OriginalProfilname)
+                                ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{item.OriginalProfilname}': {ex.Message}", True)
+                            End Try
                        End If
-
-                        'MsgBox(files_Durchlauf.Count, MsgBoxStyle.Information, item.OriginalProfilname)
                    Next
+
                    ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False)
+
                    If Gesamtfiles > 0 Then
                        '2. Jetzt das Durchlaufen jedes Profiles
                        For Each item As ClassDIProfil In ClassDIProfile.Profile
                            Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
                            ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False)
+
                            ' Überprüfen ob Profil aktiv oder inaktiv
                            If CBool(selectedProfile.Aktiv) = False Then
                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False)
                                ClassLoggerDI.Add("", False)
+                            ElseIf FehlerProfileListe.Contains(item.OriginalProfilname) Then
+                                ' Profil überspringen, wenn es bereits als fehlerhaft markiert wurde
+                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " wird übersprungen (fehlerhafter Pfad)", False)
+                                ClassLoggerDI.Add("", False)
                            Else
                                ' den Durchlaufszeitpunkt speichern
                                selectedProfile.LastRun = Now
                                selectedProfile.Save(False)
-                                'Und nun das PRofil durchlaufen
+                                'Und nun das Profil durchlaufen
                                ClassLoggerDI.Add("- Start des Profildurchlaufes ", False)
                                Profil_Durchlauf()
                            End If
-
                        Next
                    End If
                End If
@@ -342,10 +355,9 @@ Public Class frmDIHauptseite
            End If
            '###
        Catch ex As Exception
-            '    'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei threadDateiimport_DoWork:")
            ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False)
-            '    Resume Next
        End Try
+
        _TimeEnd = Now
        Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds

@@ -358,8 +370,6 @@ Public Class frmDIHauptseite
        Else
            ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False)
        End If
-
-
    End Sub
    Public Function func_check_file_use(ByVal filename) As Boolean
        filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects")
@@ -426,11 +436,22 @@ Public Class frmDIHauptseite
        Dim oFileAusschlussList As New ArrayList
        'Variable für das "Letzte Subdirectory"
        Dim oLastFolderinFiles As String = ""
-        If Me.selectedProfile.Subdirectories = True Then
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-        Else
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-        End If
+
+        Try
+            If Me.selectedProfile.Subdirectories = True Then
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+            Else
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+            End If
+        Catch ex As Exception
+            ' Profil zur Fehlerliste hinzufügen, falls noch nicht vorhanden
+            If Not FehlerProfileListe.Contains(Me.selectedProfile.OriginalProfilname) Then
+                FehlerProfileListe.Add(Me.selectedProfile.OriginalProfilname)
+            End If
+            ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{Me.selectedProfile.OriginalProfilname}': {ex.Message}", True)
+            Exit Sub
+        End Try
+
        Dim oError As Boolean = False
        Dim DT_TBTC_DI_REGEX_MATCH As DataTable
        Try
@@ -872,9 +893,7 @@ Public Class frmDIHauptseite
 #End Region

 #Region "*** BackgroundWorker wurde beendet ***"
-    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
-        ' This event fires when the DoWork event completes
-
+    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
        Try
            Dim result As String = ""

@@ -884,19 +903,40 @@ Public Class frmDIHauptseite
                MsgBox("Beim Dateiimport ist ein Fehler aufgetreten. Der Vorgang wurde abgebrochen." & vbNewLine & vbNewLine & "Dateiimport: Fehlernachricht:" & vbNewLine & e.Error.Message, MsgBoxStyle.Exclamation, "Vorgang auf Grund eines Fehlers abgebrochen")
            Else
                Me.progressImport.Value = 100
-                'MsgBox("Der Dateiimport für das Profil '" & Me.cmbProfilauswahl.SelectedItem & "' wurde erfolgreich durchgeführt.", MsgBoxStyle.Information, "Dateiimport: Vorgang erfolgreich beendet")
-            End If

-            ''MsgBox(filenameQuelle.Substring(0, filenameQuelle.LastIndexOf("\")))
-            'If Me.selectedProfile.VerzeichnisLöschen Then
-            '    Try
-            '        If Me.txtQuellordner.Text <> "" Then
-            '             My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
-            '        End If
-            '    Catch ex As Exception
-            '        MsgBox("Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", MsgBoxStyle.Information, "Vorgang beendet:")
-            '    End Try
-            'End If
+                ' Fehlermeldung für fehlerhafte Profile anzeigen
+                ' NUR wenn keine MessageBox bereits angezeigt wird
+                If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
+                    ' Flag setzen BEVOR die MessageBox angezeigt wird
+                    FehlerMsgBoxVisible = True
+
+                    Dim fehlerMessage As New System.Text.StringBuilder()
+                    fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
+                    fehlerMessage.AppendLine()
+
+                    For Each profilname As String In FehlerProfileListe
+                        fehlerMessage.AppendLine("  • " & profilname)
+                    Next
+
+                    fehlerMessage.AppendLine()
+                    fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,")
+                    fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!")
+
+                    ' MessageBox anzeigen (blockiert bis Benutzer OK klickt)
+                    MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt")
+
+                    ' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde
+                    FehlerMsgBoxVisible = False
+
+                    ' Fehler auch im Log vermerken
+                    ClassLoggerDI.Add("======================================================================", False)
+                    ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)
+                    For Each profilname As String In FehlerProfileListe
+                        ClassLoggerDI.Add(" - " & profilname, True)
+                    Next
+                    ClassLoggerDI.Add("======================================================================", False)
+                End If
+            End If

            ' den ersten Knoten öffnen und direkt wieder schließen, damit der letzte Knoten korrekt angezeigt wird
            '    -> sonst wird das letzte Element nicht richtig (nur zur Hälfte) angezeigt
--- a/ToolCollection/frmNIHauptseite.Designer.vb
+++ b/ToolCollection/frmNIHauptseite.Designer.vb
@@ -49,6 +49,7 @@ Partial Class frmNIHauptseite
        Me.Label4 = New System.Windows.Forms.Label()
        Me.numIntervall = New System.Windows.Forms.NumericUpDown()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.pnlFooter = New System.Windows.Forms.Panel()
        Me.btnEdit = New System.Windows.Forms.Button()
        Me.btnStartProfile = New System.Windows.Forms.Button()
        Me.gridProfileOverview = New DevExpress.XtraGrid.GridControl()
@@ -75,6 +76,7 @@ Partial Class frmNIHauptseite
        Me.pnlInfos.SuspendLayout()
        CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
+        Me.pnlFooter.SuspendLayout()
        CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -95,7 +97,7 @@ Partial Class frmNIHauptseite
        Me.tcmain.Location = New System.Drawing.Point(0, 0)
        Me.tcmain.Name = "tcmain"
        Me.tcmain.SelectedIndex = 0
-        Me.tcmain.Size = New System.Drawing.Size(774, 547)
+        Me.tcmain.Size = New System.Drawing.Size(777, 547)
        Me.tcmain.TabIndex = 46
        '
        'tpMain
@@ -347,22 +349,33 @@ Partial Class frmNIHauptseite
        '
        'TabPage2
        '
-        Me.TabPage2.Controls.Add(Me.btnEdit)
-        Me.TabPage2.Controls.Add(Me.btnStartProfile)
+        Me.TabPage2.Controls.Add(Me.pnlFooter)
        Me.TabPage2.Controls.Add(Me.gridProfileOverview)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(766, 521)
+        Me.TabPage2.Size = New System.Drawing.Size(769, 521)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Profilübersicht"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'pnlFooter
+        '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlFooter.Controls.Add(Me.btnEdit)
+        Me.pnlFooter.Controls.Add(Me.btnStartProfile)
+        Me.pnlFooter.Location = New System.Drawing.Point(3, 480)
+        Me.pnlFooter.Name = "pnlFooter"
+        Me.pnlFooter.Size = New System.Drawing.Size(763, 38)
+        Me.pnlFooter.TabIndex = 3
+        '
        'btnEdit
        '
+        Me.btnEdit.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.btnEdit.Image = Global.ToolCollection.My.Resources.Resources.cog_edit
        Me.btnEdit.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnEdit.Location = New System.Drawing.Point(530, 487)
+        Me.btnEdit.Location = New System.Drawing.Point(527, 9)
        Me.btnEdit.Name = "btnEdit"
        Me.btnEdit.Size = New System.Drawing.Size(120, 23)
        Me.btnEdit.TabIndex = 2
@@ -372,9 +385,10 @@ Partial Class frmNIHauptseite
        '
        'btnStartProfile
        '
+        Me.btnStartProfile.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.btnStartProfile.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
        Me.btnStartProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnStartProfile.Location = New System.Drawing.Point(656, 487)
+        Me.btnStartProfile.Location = New System.Drawing.Point(653, 9)
        Me.btnStartProfile.Name = "btnStartProfile"
        Me.btnStartProfile.Size = New System.Drawing.Size(100, 23)
        Me.btnStartProfile.TabIndex = 1
@@ -384,12 +398,14 @@ Partial Class frmNIHauptseite
        '
        'gridProfileOverview
        '
-        Me.gridProfileOverview.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridProfileOverview.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.gridProfileOverview.Location = New System.Drawing.Point(3, 3)
        Me.gridProfileOverview.MainView = Me.GridView1
        Me.gridProfileOverview.Name = "gridProfileOverview"
        Me.gridProfileOverview.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckEdit1, Me.RepositoryItemGridLookUpEdit1})
-        Me.gridProfileOverview.Size = New System.Drawing.Size(760, 515)
+        Me.gridProfileOverview.Size = New System.Drawing.Size(763, 471)
        Me.gridProfileOverview.TabIndex = 0
        Me.gridProfileOverview.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -405,7 +421,6 @@ Partial Class frmNIHauptseite
        Me.GridView1.OptionsView.ColumnAutoWidth = False
        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
        Me.GridView1.OptionsView.ShowAutoFilterRow = True
-        Me.GridView1.OptionsView.ShowFooter = True
        Me.GridView1.OptionsView.ShowGroupPanel = False
        '
        'RepositoryItemCheckEdit1
@@ -493,7 +508,7 @@ Partial Class frmNIHauptseite
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(774, 547)
+        Me.ClientSize = New System.Drawing.Size(777, 547)
        Me.Controls.Add(Me.tcmain)
        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIHauptseite_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -512,6 +527,7 @@ Partial Class frmNIHauptseite
        Me.pnlInfos.PerformLayout()
        CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
+        Me.pnlFooter.ResumeLayout(False)
        CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -570,4 +586,5 @@ Partial Class frmNIHauptseite
    Friend WithEvents RepositoryItemGridLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents btnEdit As Button
    Friend WithEvents btnStartProfile As Button
+    Friend WithEvents pnlFooter As Panel
 End Class
--- a/ToolCollection/frmNIHauptseite.resx
+++ b/ToolCollection/frmNIHauptseite.resx
@@ -120,6 +120,9 @@
  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>248, 56</value>
  </metadata>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>248, 56</value>
+  </metadata>
  <data name="Label6.Text" xml:space="preserve">
    <value>Es wird empfohlen, das Intervall nicht auf weniger als 30 Minuten zu setzen, da der nächste Nachindexierungsdurchlauf nur gestartet werden kann, wenn der vorherige beendet wurde. Wenn zu erwarten ist, dass viele Dokumente nachindexiert werden sollen, sollte der Intervall für diesen Durchlauf entsprechend hoch gesetzt werden ( &gt; 2 Stunden).</value>
  </data>
@@ -160,7 +163,7 @@
    <value>984, 56</value>
  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>297</value>
+    <value>132</value>
  </metadata>
  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/ToolCollection/frmNIHauptseite.vb
+++ b/ToolCollection/frmNIHauptseite.vb
@@ -155,7 +155,7 @@ Public Class frmNIHauptseite

        Me.GridView1.Columns("Aktiv").Width = 70
        Me.GridView1.Columns("Name").Width = 400
-        Me.GridView1.Columns("Objekttyp").Width = 265
+        Me.GridView1.Columns("Objekttyp").Width = 245

    End Sub

--- a/ToolCollection/frmNIProfileigenschaften.Designer.vb
+++ b/ToolCollection/frmNIProfileigenschaften.Designer.vb
@@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
-        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
-        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
-        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
-        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode10, TreeNode11, TreeNode12})
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
+        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8})
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@@ -557,14 +557,15 @@ Partial Class frmNIProfileigenschaften
        '
        'btnVerknüpfungen
        '
-        Me.btnVerknüpfungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
        Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(80, 23)
+        Me.btnVerknüpfungen.Size = New System.Drawing.Size(169, 28)
        Me.btnVerknüpfungen.TabIndex = 49
-        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..."
+        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten"
+        Me.btnVerknüpfungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnVerknüpfungen.UseVisualStyleBackColor = True
        Me.btnVerknüpfungen.Visible = False
        '
@@ -733,10 +734,11 @@ Partial Class frmNIProfileigenschaften
        '
        'lblSave
        '
+        Me.lblSave.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.lblSave.AutoSize = True
        Me.lblSave.BackColor = System.Drawing.Color.Yellow
        Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(656, 71)
+        Me.lblSave.Location = New System.Drawing.Point(699, 76)
        Me.lblSave.Name = "lblSave"
        Me.lblSave.Size = New System.Drawing.Size(261, 17)
        Me.lblSave.TabIndex = 76
@@ -771,7 +773,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabControl1.Location = New System.Drawing.Point(3, 222)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(894, 481)
+        Me.TabControl1.Size = New System.Drawing.Size(978, 491)
        Me.TabControl1.TabIndex = 78
        '
        'TabPage1
@@ -784,7 +786,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(886, 455)
+        Me.TabPage1.Size = New System.Drawing.Size(970, 465)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Typ und Quelle"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -805,7 +807,7 @@ Partial Class frmNIProfileigenschaften
        Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.grbxLDAP.Location = New System.Drawing.Point(407, 210)
        Me.grbxLDAP.Name = "grbxLDAP"
-        Me.grbxLDAP.Size = New System.Drawing.Size(417, 215)
+        Me.grbxLDAP.Size = New System.Drawing.Size(501, 225)
        Me.grbxLDAP.TabIndex = 79
        Me.grbxLDAP.TabStop = False
        Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@@ -907,7 +909,7 @@ Partial Class frmNIProfileigenschaften
        Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.grbxVolltext.Location = New System.Drawing.Point(568, 18)
        Me.grbxVolltext.Name = "grbxVolltext"
-        Me.grbxVolltext.Size = New System.Drawing.Size(301, 201)
+        Me.grbxVolltext.Size = New System.Drawing.Size(385, 211)
        Me.grbxVolltext.TabIndex = 78
        Me.grbxVolltext.TabStop = False
        Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@@ -960,7 +962,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage2.Size = New System.Drawing.Size(958, 455)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Kennzeichnung und Active Directory"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -996,7 +998,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage3.Size = New System.Drawing.Size(958, 455)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
        Me.TabPage3.UseVisualStyleBackColor = True
@@ -1283,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage4.Size = New System.Drawing.Size(958, 455)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
        Me.TabPage4.UseVisualStyleBackColor = True
@@ -1323,31 +1325,31 @@ Partial Class frmNIProfileigenschaften
        Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
        Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
        Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
-        TreeNode10.ImageKey = "page.png"
-        TreeNode10.Name = "Knoten3"
-        TreeNode10.SelectedImageIndex = 1
-        TreeNode10.Text = "Datei 1"
-        TreeNode11.ImageKey = "page.png"
-        TreeNode11.Name = "Knoten4"
-        TreeNode11.SelectedImageIndex = 1
-        TreeNode11.Text = "Datei 2"
-        TreeNode12.ImageKey = "page.png"
-        TreeNode12.Name = "Knoten5"
-        TreeNode12.SelectedImageIndex = 1
-        TreeNode12.Text = "Datei 3"
-        TreeNode13.Name = "Knoten4"
-        TreeNode13.Text = "Parent"
-        TreeNode14.Name = "Knoten3"
-        TreeNode14.Text = "-1"
-        TreeNode15.Name = "Knoten2"
-        TreeNode15.Text = "-2"
-        TreeNode16.Name = "Knoten5"
-        TreeNode16.Text = "-3"
-        TreeNode17.Name = "Knoten1"
-        TreeNode17.Text = "-4"
-        TreeNode18.Name = "Knoten0"
-        TreeNode18.Text = "Windream-/W-Laufwerk"
-        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
+        TreeNode1.ImageKey = "page.png"
+        TreeNode1.Name = "Knoten3"
+        TreeNode1.SelectedImageIndex = 1
+        TreeNode1.Text = "Datei 1"
+        TreeNode2.ImageKey = "page.png"
+        TreeNode2.Name = "Knoten4"
+        TreeNode2.SelectedImageIndex = 1
+        TreeNode2.Text = "Datei 2"
+        TreeNode3.ImageKey = "page.png"
+        TreeNode3.Name = "Knoten5"
+        TreeNode3.SelectedImageIndex = 1
+        TreeNode3.Text = "Datei 3"
+        TreeNode4.Name = "Knoten4"
+        TreeNode4.Text = "Parent"
+        TreeNode5.Name = "Knoten3"
+        TreeNode5.Text = "-1"
+        TreeNode6.Name = "Knoten2"
+        TreeNode6.Text = "-2"
+        TreeNode7.Name = "Knoten5"
+        TreeNode7.Text = "-3"
+        TreeNode8.Name = "Knoten1"
+        TreeNode8.Text = "-4"
+        TreeNode9.Name = "Knoten0"
+        TreeNode9.Text = "Windream-/W-Laufwerk"
+        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9})
        Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
        Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
        Me.TreeViewOrdnerVererbung.TabIndex = 59
@@ -1449,16 +1451,17 @@ Partial Class frmNIProfileigenschaften
        Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
        Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv)
        Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
+        Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
        Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
-        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(900, 706)
+        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(984, 716)
        Me.pnlProfileigenschaften.TabIndex = 81
        '
        'frmNIProfileigenschaften
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(984, 711)
+        Me.ClientSize = New System.Drawing.Size(984, 738)
        Me.Controls.Add(Me.pnlProfileigenschaften)
        Me.Controls.Add(Me.StatusStrip1)
        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
--- a/ToolCollection/frmNIProfileigenschaften.resx
+++ b/ToolCollection/frmNIProfileigenschaften.resx
@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAbgBAAG4AQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/ToolCollection/frmNIVerknuepfungen.Designer.vb
+++ b/ToolCollection/frmNIVerknuepfungen.Designer.vb
@@ -1908,11 +1908,12 @@ Partial Class frmNIVerknuepfungen
        '
        'pnlFooter
        '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnlFooter.BackColor = System.Drawing.Color.Transparent
        Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose)
        Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose)
        Me.pnlFooter.Controls.Add(Me.btnSaveAll)
-        Me.pnlFooter.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlFooter.Location = New System.Drawing.Point(0, 250)
        Me.pnlFooter.Name = "pnlFooter"
        Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
@@ -1920,6 +1921,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnSaveAllAndClose
        '
+        Me.btnSaveAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1932,6 +1934,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnCancelAllAndClose
        '
+        Me.btnCancelAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1944,6 +1947,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnSaveAll
        '
+        Me.btnSaveAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnSaveAll.Enabled = False
        Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
--- a/ToolCollection/frmStart.Designer.vb
+++ b/ToolCollection/frmStart.Designer.vb
@@ -63,6 +63,7 @@ Partial Class frmStart
        Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
        Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
        Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
        Me.StatusStrip1.SuspendLayout()
        Me.menHauptmenü.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -75,7 +76,7 @@ Partial Class frmStart
        '
        'StatusStrip1
        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime})
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime, Me.ToolStripStatusLabel_ConnectionString})
        Me.StatusStrip1.Location = New System.Drawing.Point(0, 613)
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
@@ -93,7 +94,7 @@ Partial Class frmStart
        Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image)
        Me.Status_Machine.Margin = New System.Windows.Forms.Padding(10, 3, 0, 2)
        Me.Status_Machine.Name = "Status_Machine"
-        Me.Status_Machine.Size = New System.Drawing.Size(139, 20)
+        Me.Status_Machine.Size = New System.Drawing.Size(140, 20)
        Me.Status_Machine.Text = "ToolStripStatusLabel1"
        Me.Status_Machine.ToolTipText = "Client-Name"
        '
@@ -104,7 +105,7 @@ Partial Class frmStart
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image)
        Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
-        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(139, 20)
+        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(140, 20)
        Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1"
        Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer"
        '
@@ -114,7 +115,7 @@ Partial Class frmStart
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tslblVersion.Name = "tslblVersion"
-        Me.tslblVersion.Size = New System.Drawing.Size(123, 20)
+        Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
        Me.tslblVersion.Text = "ToolStripStatusLabel1"
        Me.tslblVersion.ToolTipText = "Aktueller Benutzer"
        '
@@ -149,20 +150,20 @@ Partial Class frmStart
        '
        Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1
        Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem"
-        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ÜbersichtToolStripMenuItem.Text = "Übersicht"
        '
        'BeendenToolStripMenuItem
        '
        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.BeendenToolStripMenuItem.Text = "Beenden"
        '
        'ZeigeLogFileToolStripMenuItem
        '
        Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem})
        Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem"
-        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File"
        '
        'ÖffneLogverzeichnisToolStripMenuItem
@@ -424,7 +425,7 @@ Partial Class frmStart
        Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
        Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
        Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = "Tool Collection für windream"
+        Me.niToolcollection.Text = $"ToolCollection - {My.Settings.vInstanceName}"
        '
        'ContextMenuStrip1
        '
@@ -451,6 +452,15 @@ Partial Class frmStart
        '
        Me.TimerDeleteLogfiles.Interval = 1000
        '
+        'ToolStripStatusLabel_ConnectionString
+        '
+        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
+        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
+        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
+        '
        'frmStart
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -464,7 +474,7 @@ Partial Class frmStart
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Name = "frmStart"
-        Me.Text = "Tool Collection für windream"
+        Me.Text = $"ToolCollection - {My.Settings.vInstanceName}"
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        Me.menHauptmenü.ResumeLayout(False)
@@ -518,4 +528,5 @@ Partial Class frmStart
    Friend WithEvents TimerErrorLog As Timer
    Friend WithEvents TimerDeleteLogfiles As Timer
    Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
+    Friend WithEvents ToolStripStatusLabel_ConnectionString As ToolStripStatusLabel
 End Class
--- a/ToolCollection/frmStart.resx
+++ b/ToolCollection/frmStart.resx
@@ -124,28 +124,28 @@
  <data name="Status_Machine.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
-        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACzUlEQVQ4T32Ta0jTYRSH/xb1rSCkPgiV
-        VJgRRViRlBmZRJYmXS0zAylbmjYoNYlIzUXQcmVqpt285SWz0lBL5mXzMrfpinTz1ryBlWuLCfYhoqe/
-        Tcno8oPD74X3nOfwHs4rTOlcZRMZ/Xe53JtKqOYYHtmPWBNrYm24nsDYZiRXDSRndXDjXhu3MhrwiWxh
-        slQQwmoSUQxKqR4vI2c0nXTDRfJ0tTxtGUCp1FFe3kxuQR23C+rJqjFyvaKLjavDHYBDuRr869zEzqHk
-        W9IoGS6mr68fRUEl6ZVa8vXveDViQ/cdVF/hyWdIe/eVnVviHQCP1EGW5kg42LiKU22bkb65T1PHEAla
-        KzcGIW8Uysegahye2eHhR5D3w27fJAfAXWZidlIxroWLWFm2DJeCAZJfjiDXWEjshpsiJHsEHnyALNFT
-        BuCiCULOPHEAXM+2IpzQIZxvZ4Z8O04pi/G9VUaG+j3Rr+GCES73gKwXkkSP74TTBtgWoHAA3KI0CLue
-        IxyuQ4i4gBAnMC9CQm7tEMHNcFwHke2OogjRw7QQ1DgNsC7GyNwdJcz0zmfWrqvMCfHBSTw/zNPiWwMB
-        dbBPBfvVsFd0/1rYUf3tF2BCK46+YklQFV5HS/E8/IxNwfVcuanDu9DO+grYWAleYpys+UJi0RDnpOW/
-        A6Y0f3kUzi5HcF4QRKDfJfxyPuH5/DvXmsbJKjETF9dKcLCSVQv3/lk8XR57ikm4riY730hFRS+FhW9I
-        TTUglep/xoGAZCZyJtP/lOyOAbvdTnf3J2w2Gz09ZnEbO0lJaUMu16NQNCCJyPs34HGZDqvVytjYGBaL
-        RdxMMypVFy9evKWoSE+G+BdipDn/BpxMVIvd+xgeHsZs7qezs5eGBiMmU5/4nHoyM9X4b435/xwmpixL
-        eEBVlVacQyulpS1iZyXRkjQ2uIf8v3hKE5C/xeS1KEH4ASMFKV0feWVjAAAAAElFTkSuQmCC
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACxklEQVQ4T33Qf0zMcRzH8W+M/9jM+MPm
+        x7BkxixM8yNDM6mYn5FkM3IibiNpzfTTbE5HPw7lRz8uV0m4sytaP+6un3dXp9Gd6871awtdZdeWP8w8
+        7ZzIjzy393+f1+OPjyD86Jy6HlnnHZJt6UQ0HcY35wHLz1tYEWlkx/kGRFdMpGS/5vrdFjJkGjadbGR0
+        KxypTETaLaZipIy8/iyyTBcpMFTzuLGLqioDSmUD+YU13CysJbvSzDXVG9Ysi/QA+/ObCK7xJtkWgdyZ
+        SUlvMXZ7J9JCNVlqPXLjW170DWH4CtrP8OgjZL79zLYNcR7AN72bBXki9tUt5UTLesRt96h/3UOCfpDr
+        3VDQD8phKB+BJy7I/QCSTtgekOQBfFItTE4qZp5iDkvKFjKrsIuU531ImpwkWuFGN+T0wf33kN0HaV1w
+        0QLhZx55gHlnmxGOGRAutDJBsgWvtLkEZJQh073j9EuIN0NyB6TaIKkD4trhlAk2h0g9gHd0E0LQU4QD
+        NQhR8QixAtOiRORX9xDWAEcNcLLVM4pqhSN6CK0bA6yMMTN1awkT/eVMCrrClPBNePnLyS3QE1AJITWw
+        Wwt7dLBLC8HVsLXiyy/A3eJDL5gfWs66Q6X4HXjC2rBaLt8w4K9wsUoFa9SwTg3HKz+RWNTDObHyd2C0
+        GYuimT7rINNnhrIj8BKBeQP4Pf3K1foRskscxMY2ExZWxdLZu/4ej813ZzEJ13TkyM2oVDYUijbS002I
+        xcbvtzckBfebP3c/S71twuVyYbUOMDQ0REeHA6WynbS0FiQSI1KpBlFUwfjAwzIDg4ODDA8P43Q6sdsd
+        aLVvePbsFUVFRmQyDTHivPGB44k6rFY7vb29OBydtLfb0GjMWCx2FIpabt3SEbwxZnzAnfuXUxPuU16u
+        R6VqprS0EZmsitOiTFb7hP9/PJob+deNffMNIwUpXcTyuqIAAAAASUVORK5CYII=
 </value>
  </data>
  <data name="ToolStripStatusLabel2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
-        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAmklEQVQ4T7WPIQ5DIRAF96gcgVtwBCor
-        K7+jsrIOWVlZWfkl3Wl2k+YrlqQvmZAA8xbkb0kpDce25oNEeu+j1hovQUBurY1SyloBk5FzzuvfcGxr
-        Pki7yHgrTyVU4rIa3/WlPCIlXGTy7wt6tACJyaxMDxcguAi3aAHcVQKXpwsIl68qwmYFdjQXhIuKcF4t
-        OKnoLBUcsaNDRD795Ki6zCeHqwAAAABJRU5ErkJggg==
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAlUlEQVQ4T7WQIQ5CMRAF56g9Qm/RIxSJ
+        ROKKROIqkV8ikcglr8kSUgNbwkteKroz2xT+lZSSeee7jxGk9N6t1hqXCBDcWrNSyppAmwXnnOMC5ec/
+        eIDdwTaISRw2GOcN7BqRaFCb31/QowJB2qxT28MCAQ6q56hAvcCow18LFA2fYPQY2e4RcIDR/apgB68u
+        CebOM54n/eSouhlrbUcAAAAASUVORK5CYII=
 </value>
  </data>
  <metadata name="menHauptmenü.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -159,7 +159,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
-        FAAAAk1TRnQBSQFMAgEBCQEAAVgBAwFYAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FAAAAk1TRnQBSQFMAgEBCQEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/ToolCollection/frmStart.vb
+++ b/ToolCollection/frmStart.vb
@@ -4,6 +4,7 @@ Imports System.Globalization
 Imports DigitalData.Modules.Logging
 Imports System.IO
 Imports DigitalData.Modules.Database
+Imports System.Text.RegularExpressions

 Public Class frmStart
    Private _MyLogger As LogConfig
@@ -113,13 +114,13 @@ Public Class frmStart
    End Sub

    Private Sub TimerDeleteLogfiles_Tick(sender As Object, e As EventArgs) Handles TimerDeleteLogfiles.Tick
-    Try
-        Delete_Logfiles()
-        ' Nächstes Intervall wieder 24h
-        TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
-    Catch ex As Exception
-        _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
-    End Try
+        Try
+            Delete_LogFiles()
+            ' Nächstes Intervall wieder 24h
+            TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
+        Catch ex As Exception
+            _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
+        End Try
    End Sub

    Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
@@ -175,6 +176,11 @@ Public Class frmStart
            Else
                Me.ToolStripStatusLabel_LogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
            End If
+
+            Dim connectionString As String = My.Settings.DDECMConString
+            connectionString = Regex.Replace(connectionString, "(?i)(password|pwd)\s*=\s*[^;]*", "$1=******")
+            Me.ToolStripStatusLabel_ConnectionString.Text = $"Datenbankverbindung: {connectionString}"
+
            ' timUhrzeit.Start()
            TimerErrorLog.Start()

@@ -418,6 +424,9 @@ Public Class frmStart
        frm = frmNIHauptseite.Instance
        frm.MdiParent = Me
        frm.Show()
+        'frm.StartPosition = FormStartPosition.Manual
+        'frm.Location = New Point(50, 50)
+        'Dim loc = frm.Location.ToString()
        Cursor = Cursors.Default
    End Sub
    Private Sub btnNIMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNIMain.Click
--- a/ToolCollection/frmUebersicht.Designer.vb
+++ b/ToolCollection/frmUebersicht.Designer.vb
@@ -249,7 +249,7 @@ Partial Class frmUebersicht
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MainMenuStrip = Me.MenuStrip1
        Me.Name = "frmUebersicht"
-        Me.Text = "Tool Collection für windream - Profil Übersicht (beta)"
+        Me.Text = "ToolCollection - Profil Übersicht (beta)"
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        Me.SplitContainer1.Panel1.ResumeLayout(False)
Author	SHA1	Message	Date
OlgunR	c6c1ce4e70	Footer und Buttons verankert - frmNIVerknuepfungen	2025-12-04 09:47:25 +01:00
OlgunR	d278659c5f	Instanzname in Titelleiste der Form und bei Tray-Icon eingeblendet - frmStart.Designer	2025-12-04 09:29:30 +01:00
OlgunR	0c71f75a0c	Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite	2025-12-01 10:30:53 +01:00
OlgunR	3bb034439a	Fehlerbehandlung bei fehlerhaften Pfaden in DI Profilen: threadDateiimport_DoWork, Profil_Durchlauf, threadDateiimport_RunWorkerCompleted optimiert - frmDIHautpseite	2025-11-27 16:59:27 +01:00
OlgunR	a038af4193	chore: Update .gitignore to exclude Visual Studio `.vs` directory The `.gitignore` file was updated to include the `/.vs` directory. This ensures that temporary and user-specific files generated by Visual Studio are ignored by Git and not tracked in the repository, reducing unnecessary clutter in version control.	2025-11-27 09:24:08 +01:00
OlgunR	1ca62e0334	Button NI-Verknüpfungen verwalten optimiert - frmNIProfileigenschaften	2025-11-13 14:02:23 +01:00
OlgunR	483042a6fb	Ankern bei Laden von NI_Main verhindern - frmStart	2025-11-13 11:14:37 +01:00
OlgunR	a0d994bf7f	Footer in Pofilübersicht optimiert - frmNIHauptseite	2025-11-13 11:13:35 +01:00
OlgunR	ae3a2a9b14	Anzeigen des Connection Strings in der Statusleiste - frmStart	2025-11-07 14:12:37 +01:00