Remove NotifyIcon from frmStart and update tray handling

Removed the NotifyIcon component and all related code/resources from frmStart. Tooltip handling is now performed using niToolcollection instead.

.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

ToolCollection/ClassNIProfil.vb

@@ -67,7 +67,7 @@
 
     Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)
 
-    Private _saved As Boolean
+    Private _saved As Boolean = True
     'Private _config As ClassNachindexierungKonfiguration = New ClassNachindexierungKonfiguration
 
     'Private _xmlConfigFile As String = My.Settings.vConfigDatei
@@ -81,11 +81,11 @@
     ''' <param name="dokumenttyp_string"></param>
     ''' <param name="windreamSuche"></param>
     ''' <remarks></remarks>
-    Sub New(ByVal profilname As String, ByVal dokumenttyp_string As String, ByVal windreamSuche As String, _
+    Sub New(ByVal profilname As String, ByVal dokumenttyp_string As String, ByVal windreamSuche As String,
-            ByVal NI_Art As String, ByVal xmlEnd As String, ByVal folderxml As String, ByVal delfiles As String, ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String, _
+            ByVal NI_Art As String, ByVal xmlEnd As String, ByVal folderxml As String, ByVal delfiles As String, ByVal dbArt As String, ByVal dataSource As String, ByVal userId As String,
-              ByVal password As String, ByVal initialCatalog As String, ByVal SQLAnweisung As String, ByVal windreamIndex As String, ByVal checkIndexSQL As String, ByVal indexVali As String, ByVal indexFehler As String, _
+              ByVal password As String, ByVal initialCatalog As String, ByVal SQLAnweisung As String, ByVal windreamIndex As String, ByVal checkIndexSQL As String, ByVal indexVali As String, ByVal indexFehler As String,
-              ByVal finalerIndex As String, ByVal aktiv As String, ByVal mrDAIndex As String, ByVal mrKDIndex As String, ByVal move2Folder As String, ByVal intervall As Integer, ByVal lastRun As String, ByVal NB_AD As Boolean, _
+              ByVal finalerIndex As String, ByVal aktiv As String, ByVal mrDAIndex As String, ByVal mrKDIndex As String, ByVal move2Folder As String, ByVal intervall As Integer, ByVal lastRun As String, ByVal NB_AD As Boolean,
-              ByVal getOrdRechte As Boolean, ByVal ordnerType As String, ByVal ordnerType_Eb As String, _
+              ByVal getOrdRechte As Boolean, ByVal ordnerType As String, ByVal ordnerType_Eb As String,
                ByVal CreaFolderIndex As String, ByVal CreaFolder_Folder As String, ByVal CreaFolder_move As Boolean)
 
         Me._dokumenttypString = dokumenttyp_string
@@ -177,7 +177,7 @@
 
         Try
             ' wenn das Profil nicht gespeichert ist
-            If Not Me.IsSaved Then
+            If Not Me.GetSaved Then
                 ' wenn ein Profilname für dieses Profil gesetzt ist
                 If Me._profilname IsNot Nothing And Me._originalProfilname IsNot Nothing Then
                     ' XML-Datei initialisieren
@@ -288,7 +288,8 @@
                     ' Profil auf gespeichert setzen
                     Me._saved = True
 
-                    If msg = True And item = "profile" Then MsgBox("Das Profil '" & Me._originalProfilname & "' wurde erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert")
+                    'If msg = True And item = "profile" Then MsgBox("Das Profil '" & Me._originalProfilname & "' wurde erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert")
+                    If msg = True And item = "profile" Then MsgBox("Änderungen wurden erfolgreich gespeichert.", MsgBoxStyle.Information, "Profil gespeichert")
 
                     Return True
                 Else
@@ -364,34 +365,34 @@
 
     Public ReadOnly Property HasChanges() As Boolean
         Get
-            If Me._profilname = Me._originalProfilname And _
+            If Me._profilname = Me._originalProfilname And
-               Me._windreamSuche = Me._originalWindreamSuche And _
+               Me._windreamSuche = Me._originalWindreamSuche And
-               Me._NI_ART = Me._originalNI_ART And _
+               Me._NI_ART = Me._originalNI_ART And
-               Me._xmlEnd = Me._originalxmlEnd And _
+               Me._xmlEnd = Me._originalxmlEnd And
-                Me._dbArt = Me._originalDbArt And _
+                Me._dbArt = Me._originalDbArt And
-                Me._initialCatalog = Me._originalInitialCatalog And _
+                Me._initialCatalog = Me._originalInitialCatalog And
-                Me._dataSource = Me._originalDataSource And _
+                Me._dataSource = Me._originalDataSource And
-                Me._userId = Me._originalUserId And _
+                Me._userId = Me._originalUserId And
-                Me._password = Me._originalPassword And _
+                Me._password = Me._originalPassword And
-                Me._windreamIndex = Me._originalwindreamIndex And _
+                Me._windreamIndex = Me._originalwindreamIndex And
-                Me._checkIndexSQL = Me._originalcheckIndexSQL And _
+                Me._checkIndexSQL = Me._originalcheckIndexSQL And
-                Me._indexValidation = Me._originalindexValidation And _
+                Me._indexValidation = Me._originalindexValidation And
-                Me._indexFehler = Me._originalindexFehler And _
+                Me._indexFehler = Me._originalindexFehler And
                 Me._finalerIndex = Me._originalfinalerIndex And
-                Me._aktiv = Me._originalaktiv And _
+                Me._aktiv = Me._originalaktiv And
-                Me._MR_IndexDokart = Me._originalMR_IndexDokart And _
+                Me._MR_IndexDokart = Me._originalMR_IndexDokart And
-                Me._MR_IndexKunde = Me._originalMR_IndexKunde And _
+                Me._MR_IndexKunde = Me._originalMR_IndexKunde And
-                Me._xmlFolder = Me._originalxmlFolder And _
+                Me._xmlFolder = Me._originalxmlFolder And
-                Me._delete = Me._originaldelete And _
+                Me._delete = Me._originaldelete And
-                 Me._move2Folder = Me._originalmove2Folder And _
+                 Me._move2Folder = Me._originalmove2Folder And
-               Me.Intervall = Me.OriginalIntervall And _
+               Me.Intervall = Me.OriginalIntervall And
                Me.LastRun = Me.OriginallastRun And
-               Me.NachbearbeitungAD = Me.OriginalNachbearbeitungAD And _
+               Me.NachbearbeitungAD = Me.OriginalNachbearbeitungAD And
-                Me._GetOrdnerRechte = Me._originalGetOrdnerRechte And _
+                Me._GetOrdnerRechte = Me._originalGetOrdnerRechte And
-                Me._ordnerType = Me._originalordnerType And _
+                Me._ordnerType = Me._originalordnerType And
-                 Me._ordnerType_Eb = Me._originalordnerType_Eb And _
+                 Me._ordnerType_Eb = Me._originalordnerType_Eb And
-                  Me._CrFolderIndex = _originalCrFolderIndex And _
+                  Me._CrFolderIndex = _originalCrFolderIndex And
-                Me._CrFolder_Folder = _originalCrFolder_Folder And _
+                Me._CrFolder_Folder = _originalCrFolder_Folder And
                 Me._CrFolder_move = Me._originalCrFolder_move Then
 
                 Return False
@@ -401,12 +402,17 @@
         End Get
     End Property
 
-    Public ReadOnly Property IsSaved() As Boolean
+    Public ReadOnly Property GetSaved() As Boolean
         Get
             Return Me._saved
         End Get
     End Property
 
+    Public ReadOnly Property IsSaved() As Boolean
+        Get
+            Return Me._saved = True
+        End Get
+    End Property
 
     Public Property OriginalProfilname() As String
         Get

ToolCollection/ClassNIProfile.vb

@@ -127,7 +127,7 @@ Public Class ClassNIProfile
                                                                                           xmlProfil.Attributes("NB_AD").Value,
                                                                                           xmlProfil.Attributes("getordneridx").Value,
                                                                                           xmlProfil.Attributes("ordnerType").Value,
-                                                                                           xmlProfil.Attributes("ordnerType_eb").Value,
+                                                                                          xmlProfil.Attributes("ordnerType_eb").Value,
                                                                                           xmlProfil.Attributes("crfolderindex").Value,
                                                                                           xmlProfil.Attributes("crfolder_folder").Value,
                                                                                           xmlProfil.Attributes("crfolder_move").Value)

ToolCollection/ClassNIVerknüpfungen.vb

@@ -5,6 +5,7 @@ Public Class ClassNIVerknüpfungen
     Private _parentProfile As ClassNIProfil
     Public Shared xmlNIConfigFile As String
     Public selectedLink As ClassNIVerknüpfung
+    Private _linksSaved As Boolean = True
 
 
     Public Sub New(ByVal profil As ClassNIProfil)
@@ -201,11 +202,17 @@ Public Class ClassNIVerknüpfungen
 
     End Sub
 
+    Public ReadOnly Property GetSaved() As Boolean
+        Get
+            Return Me._linksSaved
+        End Get
+    End Property
 
-
+    Public ReadOnly Property IsSaved() As Boolean
-
+        Get
-    Private _linksSaved As Boolean = True
+            Return Me._linksSaved = True
-
+        End Get
+    End Property
 
     Public Function CountLinks()
         ' Anzahl der Verknüpfungen zurückgeben

ToolCollection/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")> 
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("ToolCollection")>
-<Assembly: AssemblyCopyright("Copyright © Digital Data 2019")>
+<Assembly: AssemblyCopyright("Copyright © Digital Data 2025")>
 <Assembly: AssemblyTrademark("")> 
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.9.8.0")>
+<Assembly: AssemblyVersion("2.9.9.0")>
-<Assembly: AssemblyFileVersion("2.9.8.0")>
+<Assembly: AssemblyFileVersion("2.9.9.0")>

ToolCollection/My Project/Settings.Designer.vb

@@ -585,7 +585,7 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
         Public ReadOnly Property NI_WORKING_HOURS() As String
             Get
                 Return CType(Me("NI_WORKING_HOURS"),String)
@@ -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"& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
+            "Info=True;User ID=sa;Password=dd;Encrypt=False")>  _
         Public ReadOnly Property DDECMConString() As String
             Get
                 Return CType(Me("DDECMConString"),String)
@@ -733,6 +733,54 @@ Namespace My
                 Me("vDefaultDeleteLogsTime") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vNIStatusFinished() As Boolean
+            Get
+                Return CType(Me("vNIStatusFinished"),Boolean)
+            End Get
+            Set
+                Me("vNIStatusFinished") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("")>  _
+        Public Property vInstanceName() As String
+            Get
+                Return CType(Me("vInstanceName"),String)
+            End Get
+            Set
+                Me("vInstanceName") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vNIRunning() As Boolean
+            Get
+                Return CType(Me("vNIRunning"),Boolean)
+            End Get
+            Set
+                Me("vNIRunning") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vNIsingleProfileRunning() As Boolean
+            Get
+                Return CType(Me("vNIsingleProfileRunning"),Boolean)
+            End Get
+            Set
+                Me("vNIsingleProfileRunning") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

ToolCollection/My Project/Settings.settings

@@ -132,7 +132,7 @@
       <Value Profile="(Default)">0</Value>
     </Setting>
     <Setting Name="NI_WORKING_HOURS" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
+      <Value Profile="(Default)">01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
     </Setting>
     <Setting Name="FB_DATASOURCE" Type="System.String" Scope="Application">
       <Value Profile="(Default)" />
@@ -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>
@@ -181,5 +181,17 @@
     <Setting Name="vDefaultDeleteLogsTime" Type="System.DateTime" Scope="User">
       <Value Profile="(Default)">01/01/0001 03:00:00</Value>
     </Setting>
+    <Setting Name="vNIStatusFinished" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="vInstanceName" Type="System.String" Scope="User">
+      <Value Profile="(Default)" />
+    </Setting>
+    <Setting Name="vNIRunning" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+    <Setting Name="vNIsingleProfileRunning" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

ToolCollection/My Project/licenses.licx

@@ -0,0 +1,3 @@
+DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

ToolCollection/ToolCollection.vbproj

@@ -92,6 +92,9 @@
     <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
@@ -526,6 +529,7 @@
     <EmbeddedResource Include="frmUebersicht.resx">
       <DependentUpon>frmUebersicht.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>

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>
@@ -159,6 +159,18 @@
       <setting name="vDefaultDeleteLogsTime" serializeAs="String">
         <value>01/01/0001 03:00:00</value>
       </setting>
+      <setting name="vNIStatusFinished" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="vInstanceName" serializeAs="String">
+        <value />
+      </setting>
+      <setting name="vNIRunning" serializeAs="String">
+        <value>False</value>
+      </setting>
+      <setting name="vNIsingleProfileRunning" serializeAs="String">
+        <value>False</value>
+      </setting>
     </ToolCollection.My.MySettings>
   </userSettings>
   <applicationSettings>
@@ -185,7 +197,7 @@
         <value>0</value>
       </setting>
       <setting name="NI_WORKING_HOURS" serializeAs="String">
-        <value>01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</value>
+        <value>01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</value>
       </setting>
       <setting name="FB_DATASOURCE" serializeAs="String">
         <value />

ToolCollection/frmDIHauptseite.Designer.vb

@@ -101,7 +101,7 @@ Partial Class frmDIHauptseite
         Me.tcMain.Location = New System.Drawing.Point(0, 0)
         Me.tcMain.Name = "tcMain"
         Me.tcMain.SelectedIndex = 0
-        Me.tcMain.Size = New System.Drawing.Size(722, 513)
+        Me.tcMain.Size = New System.Drawing.Size(784, 519)
         Me.tcMain.TabIndex = 51
         '
         'tpMain
@@ -124,7 +124,7 @@ Partial Class frmDIHauptseite
         Me.tpMain.Location = New System.Drawing.Point(4, 22)
         Me.tpMain.Name = "tpMain"
         Me.tpMain.Padding = New System.Windows.Forms.Padding(3)
-        Me.tpMain.Size = New System.Drawing.Size(714, 487)
+        Me.tpMain.Size = New System.Drawing.Size(776, 493)
         Me.tpMain.TabIndex = 0
         Me.tpMain.Text = "Hauptseite"
         Me.tpMain.UseVisualStyleBackColor = True
@@ -154,7 +154,7 @@ Partial Class frmDIHauptseite
         Me.btnAbbrechen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnAbbrechen.Image = Global.ToolCollection.My.Resources.Resources.cross
         Me.btnAbbrechen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAbbrechen.Location = New System.Drawing.Point(553, 448)
+        Me.btnAbbrechen.Location = New System.Drawing.Point(615, 454)
         Me.btnAbbrechen.Name = "btnAbbrechen"
         Me.btnAbbrechen.Size = New System.Drawing.Size(154, 30)
         Me.btnAbbrechen.TabIndex = 32
@@ -170,7 +170,7 @@ Partial Class frmDIHauptseite
         Me.cmbProfilauswahl.FormattingEnabled = True
         Me.cmbProfilauswahl.Location = New System.Drawing.Point(11, 62)
         Me.cmbProfilauswahl.Name = "cmbProfilauswahl"
-        Me.cmbProfilauswahl.Size = New System.Drawing.Size(296, 21)
+        Me.cmbProfilauswahl.Size = New System.Drawing.Size(339, 21)
         Me.cmbProfilauswahl.Sorted = True
         Me.cmbProfilauswahl.TabIndex = 24
         '
@@ -259,6 +259,7 @@ Partial Class frmDIHauptseite
         '
         Me.numIntervallDurchlauf.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.ToolCollection.My.MySettings.Default, "DIDurchlauf_Intervall", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.numIntervallDurchlauf.Location = New System.Drawing.Point(55, 120)
+        Me.numIntervallDurchlauf.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
         Me.numIntervallDurchlauf.Name = "numIntervallDurchlauf"
         Me.numIntervallDurchlauf.Size = New System.Drawing.Size(46, 22)
         Me.numIntervallDurchlauf.TabIndex = 43
@@ -291,7 +292,7 @@ Partial Class frmDIHauptseite
         '
         Me.btnZielordner.Enabled = False
         Me.btnZielordner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnZielordner.Location = New System.Drawing.Point(278, 149)
+        Me.btnZielordner.Location = New System.Drawing.Point(321, 149)
         Me.btnZielordner.Name = "btnZielordner"
         Me.btnZielordner.Size = New System.Drawing.Size(29, 23)
         Me.btnZielordner.TabIndex = 40
@@ -304,16 +305,16 @@ Partial Class frmDIHauptseite
         Me.txtZielordner.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtZielordner.Location = New System.Drawing.Point(11, 151)
         Me.txtZielordner.Name = "txtZielordner"
-        Me.txtZielordner.Size = New System.Drawing.Size(261, 21)
+        Me.txtZielordner.Size = New System.Drawing.Size(304, 21)
         Me.txtZielordner.TabIndex = 39
         '
         'progressImport
         '
         Me.progressImport.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.progressImport.Location = New System.Drawing.Point(11, 415)
+        Me.progressImport.Location = New System.Drawing.Point(11, 421)
         Me.progressImport.Name = "progressImport"
-        Me.progressImport.Size = New System.Drawing.Size(696, 27)
+        Me.progressImport.Size = New System.Drawing.Size(758, 27)
         Me.progressImport.TabIndex = 29
         Me.progressImport.Visible = False
         '
@@ -334,7 +335,7 @@ Partial Class frmDIHauptseite
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.lblLog.AutoSize = True
         Me.lblLog.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblLog.Location = New System.Drawing.Point(339, 46)
+        Me.lblLog.Location = New System.Drawing.Point(371, 46)
         Me.lblLog.Name = "lblLog"
         Me.lblLog.Size = New System.Drawing.Size(103, 13)
         Me.lblLog.TabIndex = 31
@@ -344,7 +345,7 @@ Partial Class frmDIHauptseite
         '
         Me.btnQuellordner.Enabled = False
         Me.btnQuellordner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnQuellordner.Location = New System.Drawing.Point(278, 109)
+        Me.btnQuellordner.Location = New System.Drawing.Point(321, 109)
         Me.btnQuellordner.Name = "btnQuellordner"
         Me.btnQuellordner.Size = New System.Drawing.Size(29, 23)
         Me.btnQuellordner.TabIndex = 37
@@ -355,7 +356,7 @@ Partial Class frmDIHauptseite
         '
         Me.lblProgress.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.lblProgress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_DI_REGEX_MATCHBindingSource, "GUID", True))
-        Me.lblProgress.Location = New System.Drawing.Point(11, 448)
+        Me.lblProgress.Location = New System.Drawing.Point(11, 454)
         Me.lblProgress.Name = "lblProgress"
         Me.lblProgress.Size = New System.Drawing.Size(536, 33)
         Me.lblProgress.TabIndex = 33
@@ -378,7 +379,7 @@ Partial Class frmDIHauptseite
         Me.txtQuellordner.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtQuellordner.Location = New System.Drawing.Point(11, 109)
         Me.txtQuellordner.Name = "txtQuellordner"
-        Me.txtQuellordner.Size = New System.Drawing.Size(261, 21)
+        Me.txtQuellordner.Size = New System.Drawing.Size(304, 21)
         Me.txtQuellordner.TabIndex = 36
         '
         'tvLog
@@ -389,10 +390,10 @@ Partial Class frmDIHauptseite
         Me.tvLog.ContextMenuStrip = Me.contextLog
         Me.tvLog.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.tvLog.HideSelection = False
-        Me.tvLog.Location = New System.Drawing.Point(342, 62)
+        Me.tvLog.Location = New System.Drawing.Point(374, 62)
         Me.tvLog.Name = "tvLog"
         Me.tvLog.ShowNodeToolTips = True
-        Me.tvLog.Size = New System.Drawing.Size(365, 347)
+        Me.tvLog.Size = New System.Drawing.Size(395, 347)
         Me.tvLog.TabIndex = 34
         '
         'Label5
@@ -436,7 +437,7 @@ Partial Class frmDIHauptseite
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(722, 513)
+        Me.ClientSize = New System.Drawing.Size(784, 519)
         Me.Controls.Add(Me.tcMain)
         Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmDIHauptseite_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))

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
+                            Try
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+                                If Me.selectedProfile.Subdirectories = True Then
-                            Else
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                Else
-                            End If
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                End If
-                            Gesamtfiles += files_Durchlauf.Count
+                                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, "*.*")
+        Try
-        Else
+            If Me.selectedProfile.Subdirectories = True Then
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-        End If
+            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
+    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
-        ' This event fires when the DoWork event completes
-
         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("\")))
+                ' Fehlermeldung für fehlerhafte Profile anzeigen
-            'If Me.selectedProfile.VerzeichnisLöschen Then
+                ' NUR wenn keine MessageBox bereits angezeigt wird
-            '    Try
+                If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
-            '        If Me.txtQuellordner.Text <> "" Then
+                    ' Flag setzen BEVOR die MessageBox angezeigt wird
-            '             My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
+                    FehlerMsgBoxVisible = True
-            '        End If
+
-            '    Catch ex As Exception
+                    Dim fehlerMessage As New System.Text.StringBuilder()
-            '        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:")
+                    fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
-            '    End Try
+                    fehlerMessage.AppendLine()
-            'End If
+
+                    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

ToolCollection/frmGrundeinstellungen.Designer.vb

@@ -32,29 +32,33 @@ Partial Class frmGrundeinstellungen
         Me.lblTimeDeleteLogs = New System.Windows.Forms.Label()
         Me.txtTimeDeleteLogs = New System.Windows.Forms.TextBox()
         Me.chkAutoDeleteLogs = New System.Windows.Forms.CheckBox()
-        Me.TextBox4 = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
-        Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
         Me.Label4 = New System.Windows.Forms.Label()
         Me.cmbCores = New System.Windows.Forms.ComboBox()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        Me.txterrorIndex = New System.Windows.Forms.TextBox()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.GroupBox4 = New System.Windows.Forms.GroupBox()
-        Me.TextBox3 = New System.Windows.Forms.TextBox()
         Me.GroupBox5 = New System.Windows.Forms.GroupBox()
-        Me.cmbSleeptill = New System.Windows.Forms.ComboBox()
         Me.Label9 = New System.Windows.Forms.Label()
-        Me.cmbSleepFrom = New System.Windows.Forms.ComboBox()
         Me.Label8 = New System.Windows.Forms.Label()
         Me.Label7 = New System.Windows.Forms.Label()
+        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
+        Me.txtInstanceName = New System.Windows.Forms.TextBox()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.cmbSleeptill = New System.Windows.Forms.ComboBox()
+        Me.cmbSleepFrom = New System.Windows.Forms.ComboBox()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.txterrorIndex = New System.Windows.Forms.TextBox()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         Me.GroupBox4.SuspendLayout()
         Me.GroupBox5.SuspendLayout()
+        Me.GroupBox6.SuspendLayout()
         Me.SuspendLayout()
         '
         'Label1
@@ -150,42 +154,15 @@ Partial Class frmGrundeinstellungen
         Me.chkAutoDeleteLogs.Text = "Automatisches Löschen"
         Me.chkAutoDeleteLogs.UseVisualStyleBackColor = True
         '
-        'TextBox4
-        '
-        Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "logolder_then", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.TextBox4.Location = New System.Drawing.Point(232, 79)
-        Me.TextBox4.Name = "TextBox4"
-        Me.TextBox4.Size = New System.Drawing.Size(84, 22)
-        Me.TextBox4.TabIndex = 7
-        Me.TextBox4.Text = Global.ToolCollection.My.MySettings.Default.logolder_then
-        '
         'Label6
         '
         Me.Label6.AutoSize = True
         Me.Label6.Location = New System.Drawing.Point(229, 63)
         Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(199, 13)
+        Me.Label6.Size = New System.Drawing.Size(198, 13)
         Me.Label6.TabIndex = 6
         Me.Label6.Text = "LogDateien löschen - ""Älter als""-Tage:"
         '
-        'TextBox1
-        '
-        Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogNI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.TextBox1.Location = New System.Drawing.Point(9, 34)
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(188, 22)
-        Me.TextBox1.TabIndex = 1
-        Me.TextBox1.Text = Global.ToolCollection.My.MySettings.Default.vLogNI
-        '
-        'TextBox2
-        '
-        Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogDI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.TextBox2.Location = New System.Drawing.Point(9, 79)
-        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(188, 22)
-        Me.TextBox2.TabIndex = 3
-        Me.TextBox2.Text = Global.ToolCollection.My.MySettings.Default.vLogDI
-        '
         'GroupBox2
         '
         Me.GroupBox2.Controls.Add(Me.Label4)
@@ -228,15 +205,6 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox3.TabStop = False
         Me.GroupBox3.Text = "Fehlerhandling:"
         '
-        'txterrorIndex
-        '
-        Me.txterrorIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "ERROR_INDEX", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
-        Me.txterrorIndex.Location = New System.Drawing.Point(15, 34)
-        Me.txterrorIndex.Name = "txterrorIndex"
-        Me.txterrorIndex.Size = New System.Drawing.Size(182, 22)
-        Me.txterrorIndex.TabIndex = 2
-        Me.txterrorIndex.Text = Global.ToolCollection.My.MySettings.Default.ERROR_INDEX
-        '
         'Label5
         '
         Me.Label5.AutoSize = True
@@ -257,14 +225,6 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox4.TabStop = False
         Me.GroupBox4.Text = "Verweise"
         '
-        'TextBox3
-        '
-        Me.TextBox3.Location = New System.Drawing.Point(9, 21)
-        Me.TextBox3.Name = "TextBox3"
-        Me.TextBox3.Size = New System.Drawing.Size(188, 22)
-        Me.TextBox3.TabIndex = 0
-        Me.TextBox3.Text = Global.ToolCollection.My.MySettings.Default.DLL_WMOTOOL
-        '
         'GroupBox5
         '
         Me.GroupBox5.Controls.Add(Me.cmbSleeptill)
@@ -280,16 +240,6 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox5.TabStop = False
         Me.GroupBox5.Text = "ToolCollection Sleep-Modus:"
         '
-        'cmbSleeptill
-        '
-        Me.cmbSleeptill.FormattingEnabled = True
-        Me.cmbSleeptill.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
-        Me.cmbSleeptill.Location = New System.Drawing.Point(90, 69)
-        Me.cmbSleeptill.Name = "cmbSleeptill"
-        Me.cmbSleeptill.Size = New System.Drawing.Size(63, 21)
-        Me.cmbSleeptill.TabIndex = 4
-        Me.cmbSleeptill.Text = Global.ToolCollection.My.MySettings.Default.Sleep_End
-        '
         'Label9
         '
         Me.Label9.AutoSize = True
@@ -299,16 +249,6 @@ Partial Class frmGrundeinstellungen
         Me.Label9.TabIndex = 3
         Me.Label9.Text = "Stunde bis"
         '
-        'cmbSleepFrom
-        '
-        Me.cmbSleepFrom.FormattingEnabled = True
-        Me.cmbSleepFrom.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
-        Me.cmbSleepFrom.Location = New System.Drawing.Point(9, 69)
-        Me.cmbSleepFrom.Name = "cmbSleepFrom"
-        Me.cmbSleepFrom.Size = New System.Drawing.Size(63, 21)
-        Me.cmbSleepFrom.TabIndex = 2
-        Me.cmbSleepFrom.Text = Global.ToolCollection.My.MySettings.Default.Sleep_Begin
-        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -328,12 +268,105 @@ Partial Class frmGrundeinstellungen
         Me.Label7.TabIndex = 0
         Me.Label7.Text = "Bestimmen Sie hier die Zeitspanne in welcher weder ein Import " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "noch eine Nachind" &
     "exierung erfolgen soll:"
+        '
+        'GroupBox6
+        '
+        Me.GroupBox6.Controls.Add(Me.Label10)
+        Me.GroupBox6.Controls.Add(Me.txtInstanceName)
+        Me.GroupBox6.Dock = System.Windows.Forms.DockStyle.Top
+        Me.GroupBox6.Location = New System.Drawing.Point(0, 494)
+        Me.GroupBox6.Name = "GroupBox6"
+        Me.GroupBox6.Size = New System.Drawing.Size(470, 74)
+        Me.GroupBox6.TabIndex = 11
+        Me.GroupBox6.TabStop = False
+        Me.GroupBox6.Text = "Instanz-Einstellungen"
+        '
+        'txtInstanceName
+        '
+        Me.txtInstanceName.Location = New System.Drawing.Point(15, 36)
+        Me.txtInstanceName.Name = "txtInstanceName"
+        Me.txtInstanceName.Size = New System.Drawing.Size(182, 22)
+        Me.txtInstanceName.TabIndex = 0
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(12, 20)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(97, 13)
+        Me.Label10.TabIndex = 1
+        Me.Label10.Text = "Name für Instanz:"
+        '
+        'cmbSleeptill
+        '
+        Me.cmbSleeptill.FormattingEnabled = True
+        Me.cmbSleeptill.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
+        Me.cmbSleeptill.Location = New System.Drawing.Point(90, 69)
+        Me.cmbSleeptill.Name = "cmbSleeptill"
+        Me.cmbSleeptill.Size = New System.Drawing.Size(63, 21)
+        Me.cmbSleeptill.TabIndex = 4
+        Me.cmbSleeptill.Text = Global.ToolCollection.My.MySettings.Default.Sleep_End
+        '
+        'cmbSleepFrom
+        '
+        Me.cmbSleepFrom.FormattingEnabled = True
+        Me.cmbSleepFrom.Items.AddRange(New Object() {"01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"})
+        Me.cmbSleepFrom.Location = New System.Drawing.Point(9, 69)
+        Me.cmbSleepFrom.Name = "cmbSleepFrom"
+        Me.cmbSleepFrom.Size = New System.Drawing.Size(63, 21)
+        Me.cmbSleepFrom.TabIndex = 2
+        Me.cmbSleepFrom.Text = Global.ToolCollection.My.MySettings.Default.Sleep_Begin
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(15, 21)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(182, 22)
+        Me.TextBox3.TabIndex = 0
+        Me.TextBox3.Text = Global.ToolCollection.My.MySettings.Default.DLL_WMOTOOL
+        '
+        'txterrorIndex
+        '
+        Me.txterrorIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "ERROR_INDEX", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.txterrorIndex.Location = New System.Drawing.Point(15, 34)
+        Me.txterrorIndex.Name = "txterrorIndex"
+        Me.txterrorIndex.Size = New System.Drawing.Size(182, 22)
+        Me.txterrorIndex.TabIndex = 2
+        Me.txterrorIndex.Text = Global.ToolCollection.My.MySettings.Default.ERROR_INDEX
+        '
+        'TextBox4
+        '
+        Me.TextBox4.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "logolder_then", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.TextBox4.Location = New System.Drawing.Point(232, 79)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(84, 22)
+        Me.TextBox4.TabIndex = 7
+        Me.TextBox4.Text = Global.ToolCollection.My.MySettings.Default.logolder_then
+        '
+        'TextBox1
+        '
+        Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogNI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.TextBox1.Location = New System.Drawing.Point(9, 34)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(188, 22)
+        Me.TextBox1.TabIndex = 1
+        Me.TextBox1.Text = Global.ToolCollection.My.MySettings.Default.vLogNI
+        '
+        'TextBox2
+        '
+        Me.TextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.ToolCollection.My.MySettings.Default, "vLogDI", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
+        Me.TextBox2.Location = New System.Drawing.Point(9, 79)
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(188, 22)
+        Me.TextBox2.TabIndex = 3
+        Me.TextBox2.Text = Global.ToolCollection.My.MySettings.Default.vLogDI
         '
         'frmGrundeinstellungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(470, 590)
+        Me.ClientSize = New System.Drawing.Size(470, 607)
+        Me.Controls.Add(Me.GroupBox6)
         Me.Controls.Add(Me.GroupBox5)
         Me.Controls.Add(Me.GroupBox4)
         Me.Controls.Add(Me.GroupBox3)
@@ -353,6 +386,8 @@ Partial Class frmGrundeinstellungen
         Me.GroupBox4.PerformLayout()
         Me.GroupBox5.ResumeLayout(False)
         Me.GroupBox5.PerformLayout()
+        Me.GroupBox6.ResumeLayout(False)
+        Me.GroupBox6.PerformLayout()
         Me.ResumeLayout(False)
 
     End Sub
@@ -383,4 +418,7 @@ Partial Class frmGrundeinstellungen
     Friend WithEvents lblTimeDeleteLogs As Label
     Friend WithEvents txtTimeDeleteLogs As TextBox
     Friend WithEvents lblLogDeleteTime As Label
+    Friend WithEvents GroupBox6 As GroupBox
+    Friend WithEvents Label10 As Label
+    Friend WithEvents txtInstanceName As TextBox
 End Class

ToolCollection/frmGrundeinstellungen.vb

@@ -1,4 +1,6 @@
-Public Class frmGrundeinstellungen
+Imports ToolCollection.My
+
+Public Class frmGrundeinstellungen
 
     Private Shared _Instance As frmGrundeinstellungen = Nothing
     Private _isLoading As Boolean = False
@@ -98,6 +100,8 @@
     Private Sub FrmGrundeinstellungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         _isLoading = True
 
+        txtInstanceName.Text = My.Settings.vInstanceName
+
         Try
             If My.Settings.vAutoDeleteLogs Then
                 chkAutoDeleteLogs.Checked = My.Settings.vAutoDeleteLogs
@@ -138,4 +142,10 @@
             frmStart.Instance().SetupTimerDeleteLogfiles()
         End If
     End Sub
+
+    Private Sub txtInstanceName_TextChanged(sender As Object, e As EventArgs) Handles txtInstanceName.TextChanged
+        My.Settings.vInstanceName = txtInstanceName.Text
+        My.Settings.Save()
+        txtInstanceName.Text = My.Settings.vInstanceName
+    End Sub
 End Class

ToolCollection/frmNIHauptseite.Designer.vb

@@ -49,6 +49,14 @@ 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()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.RepositoryItemCheckEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit()
+        Me.RepositoryItemGridLookUpEdit1 = New DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit()
+        Me.RepositoryItemGridLookUpEdit1View = New DevExpress.XtraGrid.Views.Grid.GridView()
         Me.timRun = New System.Windows.Forms.Timer(Me.components)
         Me.DS_More = New ToolCollection.DS_More()
         Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -67,6 +75,13 @@ Partial Class frmNIHauptseite
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         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()
+        CType(Me.RepositoryItemGridLookUpEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemGridLookUpEdit1View, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DS_More, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -82,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
@@ -240,7 +255,7 @@ Partial Class frmNIHauptseite
         Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label8.Location = New System.Drawing.Point(14, 30)
         Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(83, 13)
+        Me.Label8.Size = New System.Drawing.Size(84, 13)
         Me.Label8.TabIndex = 30
         Me.Label8.Text = "In Bearbeitung"
         '
@@ -334,14 +349,99 @@ Partial Class frmNIHauptseite
         '
         'TabPage2
         '
+        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 = "Konfigurationen"
+        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(527, 9)
+        Me.btnEdit.Name = "btnEdit"
+        Me.btnEdit.Size = New System.Drawing.Size(120, 23)
+        Me.btnEdit.TabIndex = 2
+        Me.btnEdit.Text = "Profil Bearbeiten"
+        Me.btnEdit.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnEdit.UseVisualStyleBackColor = True
+        '
+        '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(653, 9)
+        Me.btnStartProfile.Name = "btnStartProfile"
+        Me.btnStartProfile.Size = New System.Drawing.Size(100, 23)
+        Me.btnStartProfile.TabIndex = 1
+        Me.btnStartProfile.Text = "Profil Starten"
+        Me.btnStartProfile.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnStartProfile.UseVisualStyleBackColor = True
+        '
+        'gridProfileOverview
+        '
+        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(763, 471)
+        Me.gridProfileOverview.TabIndex = 0
+        Me.gridProfileOverview.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'GridView1
+        '
+        Me.GridView1.GridControl = Me.gridProfileOverview
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.Editable = False
+        Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridView1.OptionsView.ColumnAutoWidth = False
+        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView1.OptionsView.ShowAutoFilterRow = True
+        Me.GridView1.OptionsView.ShowGroupPanel = False
+        '
+        'RepositoryItemCheckEdit1
+        '
+        Me.RepositoryItemCheckEdit1.AutoHeight = False
+        Me.RepositoryItemCheckEdit1.Name = "RepositoryItemCheckEdit1"
+        '
+        'RepositoryItemGridLookUpEdit1
+        '
+        Me.RepositoryItemGridLookUpEdit1.AutoHeight = False
+        Me.RepositoryItemGridLookUpEdit1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.RepositoryItemGridLookUpEdit1.Name = "RepositoryItemGridLookUpEdit1"
+        Me.RepositoryItemGridLookUpEdit1.PopupView = Me.RepositoryItemGridLookUpEdit1View
+        '
+        'RepositoryItemGridLookUpEdit1View
+        '
+        Me.RepositoryItemGridLookUpEdit1View.FocusRectStyle = DevExpress.XtraGrid.Views.Grid.DrawFocusRectStyle.RowFocus
+        Me.RepositoryItemGridLookUpEdit1View.Name = "RepositoryItemGridLookUpEdit1View"
+        Me.RepositoryItemGridLookUpEdit1View.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.RepositoryItemGridLookUpEdit1View.OptionsView.ShowGroupPanel = False
+        '
         'timRun
         '
         Me.timRun.Interval = 60
@@ -408,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))
@@ -426,6 +526,13 @@ Partial Class frmNIHauptseite
         Me.pnlInfos.ResumeLayout(False)
         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()
+        CType(Me.RepositoryItemGridLookUpEdit1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemGridLookUpEdit1View, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DS_More, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.VWMO_RE_DOKUMENTARTZUORDNUNGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.TBMO_RE_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -472,4 +579,12 @@ Partial Class frmNIHauptseite
     Friend WithEvents TBTC_MOVE_RENAMEBindingSource As BindingSource
     Friend WithEvents TBTC_MOVE_RENAMETableAdapter As MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter
     Friend WithEvents TableAdapterManager1 As MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents gridProfileOverview As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents RepositoryItemCheckEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemCheckEdit
+    Friend WithEvents RepositoryItemGridLookUpEdit1 As DevExpress.XtraEditors.Repository.RepositoryItemGridLookUpEdit
+    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

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">

ToolCollection/frmNIHauptseite.vb

@@ -2,6 +2,9 @@
 Imports System.Data.Entity.Core.Common.CommandTrees.ExpressionBuilder
 Imports System.IO
 Imports System.Text.RegularExpressions
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Logging
 Imports WINDREAMLib
 
@@ -26,7 +29,7 @@ Public Class frmNIHauptseite
     Private _fulltext As clsNIFulltext
 
     Private manuallyRun As Boolean = False
-    Private manually_cancel As Boolean = True
+    Private manually_cancel As Boolean = False
     '#### Variablen für das Profil
     Private myNIDatatable As DataTable
     Private myNIArrayIndexe() As String = Nothing  ' zum Speichern der Indexe
@@ -44,6 +47,7 @@ Public Class frmNIHauptseite
     Private licenseManager As ClassLicenseManager = Nothing
     Public Shared _windream As ClassWindream_allgemein
     Private Const ConstWMEntityDocument = 1 ''WINDREAMLib.WMEntity.WMEntityDocument
+    Private _singleProfileRun As String = ""
     Public Shared Function Instance() As frmNIHauptseite
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
             _Instance = New frmNIHauptseite
@@ -96,7 +100,9 @@ Public Class frmNIHauptseite
     End Sub
 
     Private Sub frmNIHauptseite_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        My.Settings.vNIRunning = False
         My.Settings.Save()
+        Me.btnStartProfile.Enabled = True
         NI_OPENED = False
         'If e.CloseReason = CloseReason.UserClosing Then
         '    _Logger.Info("Nachindexierung Hauptformular wird durch User geschlossen.")
@@ -115,6 +121,9 @@ Public Class frmNIHauptseite
 
         If AUTOSTART_FIH Then
             Start_NachindexierungThreads()
+            My.Settings.vNIRunning = True
+            My.Settings.Save()
+            Me.btnStartProfile.Enabled = False
             _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
             AUTOSTART_FIH = False
         Else
@@ -122,7 +131,38 @@ Public Class frmNIHauptseite
         End If
 
     End Sub
+
+    Private Sub LoadProfilesIntoGrid()
+
+        ClassNIProfile.Init()
+
+        Dim dtProfiles As New DataTable
+        dtProfiles.Columns.Add("Aktiv", GetType(String))
+        dtProfiles.Columns.Add("Name", GetType(String))
+        dtProfiles.Columns.Add("Objekttyp", GetType(String))
+
+        If ClassNIProfile.Profile IsNot Nothing Then
+            For Each profile As ClassNIProfil In ClassNIProfile.Profile
+                Dim row As DataRow = dtProfiles.NewRow()
+                row("Aktiv") = If(Convert.ToBoolean(profile.Aktiv), "Aktiv", "Inaktiv")
+                row("Name") = profile.Profilname
+                row("Objekttyp") = profile.DokumenttypString
+                dtProfiles.Rows.Add(row)
+            Next
+        End If
+
+        Me.gridProfileOverview.DataSource = dtProfiles
+
+        Me.GridView1.Columns("Aktiv").Width = 70
+        Me.GridView1.Columns("Name").Width = 400
+        Me.GridView1.Columns("Objekttyp").Width = 245
+
+    End Sub
+
     Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+        LoadProfilesIntoGrid()
+
         'Try
         '    'LoadAllModules()
         '    TBTC_MOVE_RENAMETableAdapter.Connection.ConnectionString = My.Settings.DDECMConString
@@ -317,6 +357,15 @@ Public Class frmNIHauptseite
             Dim _Fehler As Boolean = False
             For Each profil As ClassNIProfil In ClassNIProfile.Profile
                 _Fehler = False
+                If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                    If _singleProfileRun <> profil.Profilname Then
+                        Continue For
+                    Else
+                        Me.aktivesProfil = profil
+                        _Logger.Info($"Manual Run for profile [{_singleProfileRun}] will be started.")
+                    End If
+                End If
+
                 ' aktuelles Profil der Klasse mitteilen
                 Me.aktivesProfil = profil
                 _clsWorkfile = New clsNI_WorkFile(_MyLogger)
@@ -593,6 +642,7 @@ Public Class frmNIHauptseite
                 ' nächstes Profil an ProgressBar1
                 bwProfil.ReportProgress(-2)
             Next
+
         Catch ex As Exception
             _Logger.Error(ex)
 
@@ -621,11 +671,25 @@ Public Class frmNIHauptseite
             _Logger.Info("")
 
         End If
+
         Dim actdatetime = Now
         Dim newrun_dt As DateTime = actdatetime.AddMinutes(Me.numIntervall.Value)
-        Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
+
-        tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
+        If My.Settings.vNIRunning Then
-        Me.tslblStatus.Visible = True
+            Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
+            tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
+            Me.tslblStatus.Visible = True
+        End If
+
+        If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+            _singleProfileRun = ""
+            My.Settings.vNIsingleProfileRunning = False
+            My.Settings.vNIRunning = False
+            Me.lblStatus.Text = $"(Status: Nachindexieren beendet)"
+            tslblStatus.Text = "Status: Nachindexieren beendet"
+            btnStartStop.Text = "Nachindexierung starten"
+            btnStartProfile.Enabled = True
+        End If
 
     End Sub
 
@@ -722,10 +786,15 @@ Public Class frmNIHauptseite
                     End If
 
                     Me.ProgressBar1.Minimum = 0
-                    Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    If String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                        Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    Else
+                        Me.ProgressBar1.Maximum = 1
+                    End If
                     Me.ProgressBar1.Value = 0
 
                     Me.Refresh()
+                    manually_cancel = False
                     Me.startProfileDurchlauf()
                 Else
                     _Logger.Warn("Attention: ClassNIProfile.Profile IsNothing")
@@ -2721,7 +2790,9 @@ Public Class frmNIHauptseite
         End If
         manually_cancel = False
         Me.timRun.Interval = Me.numIntervall.Value * 60 * 1000
-        Me.timRun.Start()
+        If My.Settings.vNIRunning Then
+            Me.timRun.Start()
+        End If
         'Variable für den Fall Programmabbruch und Neustart!
         bwProfil = New BackgroundWorker
         bwsearch = New BackgroundWorker
@@ -2811,21 +2882,57 @@ Public Class frmNIHauptseite
 
         End Try
     End Sub
+
+    'NI Starten aus NIHauptseite
     Private Sub btnStartStop_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartStop.Click
         If TimerRefresh.Enabled = False Then
             TimerRefresh.Start()
         Else
             TimerRefresh.Stop()
         End If
-        If Me.btnStartStop.Text = "Nachindexierung stoppen" Then
+        If My.Settings.vNIRunning Or My.Settings.vNIsingleProfileRunning Then
             If timRun.Enabled = True Then
                 timRun.Stop()
             End If
+            My.Settings.vNIRunning = False
+            My.Settings.Save()
             Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
             Me.btnStartStop.Text = "Nachindexierung starten"
+            Me.btnStartProfile.Enabled = True
         Else
-                Me.btnStartStop.Text = "Nachindexierung stoppen"
+            My.Settings.vNIRunning = True
+            My.Settings.Save()
             Start_NachindexierungThreads()
+            Me.btnStartStop.Text = "Nachindexierung stoppen"
+            Me.btnStartProfile.Enabled = False
+        End If
+        manuallyRun = False
+    End Sub
+
+    'NI Starten aus Profilübersicht
+    Private Sub btnStartProfile_Click(sender As Object, e As EventArgs) Handles btnStartProfile.Click
+
+        If My.Settings.vNIRunning Then
+            Me.btnStartProfile.Enabled = False
+        Else
+
+            Dim view As DevExpress.XtraGrid.Views.Grid.GridView = TryCast(gridProfileOverview.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+            If view Is Nothing OrElse view.FocusedRowHandle < 0 Then
+                MsgBox("Bitte wählen Sie ein Profil aus.", "Hinweis", MsgBoxStyle.Information)
+                Exit Sub
+            End If
+
+            Dim profilname As String = Convert.ToString(view.GetRowCellValue(view.FocusedRowHandle, "Name"))
+            If Not String.IsNullOrWhiteSpace(profilname) Then
+                _singleProfileRun = profilname
+                My.Settings.vNIsingleProfileRunning = True
+                My.Settings.Save()
+                Start_NachindexierungThreads()
+                btnStartStop.Text = "Nachindexierung stoppen"
+                btnStartProfile.Enabled = False
+                Me.tcmain.SelectedTab = tpMain
+            End If
+
         End If
         manuallyRun = False
     End Sub
@@ -2997,6 +3104,21 @@ Public Class frmNIHauptseite
         End Try
     End Function
 
+    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
+
+        Dim view As DevExpress.XtraGrid.Views.Grid.GridView = TryCast(gridProfileOverview.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+        If view Is Nothing OrElse view.FocusedRowHandle < 0 Then
+            MsgBox("Bitte wählen Sie ein Profil aus.", "Hinweis", MsgBoxStyle.Information)
+        End If
+
+        Dim profilname As String = Convert.ToString(view.GetRowCellValue(view.FocusedRowHandle, "Name"))
+        If Not String.IsNullOrWhiteSpace(profilname) Then
+            frmNIProfileigenschaften.Lade_Profil(profilname)
+            frmNIProfileigenschaften.Show()
+            frmNIProfileigenschaften.BringToFront()
+        End If
+
+    End Sub
 
     Private Function CrFolderForIndex(fullfilename As String, pFileName As String)
 

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 TreeNode1 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 TreeNode2 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 TreeNode3 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 TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
+        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()
@@ -178,7 +178,7 @@ Partial Class frmNIProfileigenschaften
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
         Me.StatusStrip1.ShowItemToolTips = True
-        Me.StatusStrip1.Size = New System.Drawing.Size(991, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(984, 22)
         Me.StatusStrip1.SizingGrip = False
         Me.StatusStrip1.TabIndex = 23
         Me.StatusStrip1.Text = "StatusStrip1"
@@ -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) _
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
-            Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
         Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(171, 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(985, 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(977, 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(508, 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(392, 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(970, 556)
+        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(882, 416)
+        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(882, 416)
+        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"
+        TreeNode1.ImageKey = "page.png"
-        TreeNode10.Name = "Knoten3"
+        TreeNode1.Name = "Knoten3"
-        TreeNode10.SelectedImageIndex = 1
+        TreeNode1.SelectedImageIndex = 1
-        TreeNode10.Text = "Datei 1"
+        TreeNode1.Text = "Datei 1"
-        TreeNode11.ImageKey = "page.png"
+        TreeNode2.ImageKey = "page.png"
-        TreeNode11.Name = "Knoten4"
+        TreeNode2.Name = "Knoten4"
-        TreeNode11.SelectedImageIndex = 1
+        TreeNode2.SelectedImageIndex = 1
-        TreeNode11.Text = "Datei 2"
+        TreeNode2.Text = "Datei 2"
-        TreeNode12.ImageKey = "page.png"
+        TreeNode3.ImageKey = "page.png"
-        TreeNode12.Name = "Knoten5"
+        TreeNode3.Name = "Knoten5"
-        TreeNode12.SelectedImageIndex = 1
+        TreeNode3.SelectedImageIndex = 1
-        TreeNode12.Text = "Datei 3"
+        TreeNode3.Text = "Datei 3"
-        TreeNode13.Name = "Knoten4"
+        TreeNode4.Name = "Knoten4"
-        TreeNode13.Text = "Parent"
+        TreeNode4.Text = "Parent"
-        TreeNode14.Name = "Knoten3"
+        TreeNode5.Name = "Knoten3"
-        TreeNode14.Text = "-1"
+        TreeNode5.Text = "-1"
-        TreeNode15.Name = "Knoten2"
+        TreeNode6.Name = "Knoten2"
-        TreeNode15.Text = "-2"
+        TreeNode6.Text = "-2"
-        TreeNode16.Name = "Knoten5"
+        TreeNode7.Name = "Knoten5"
-        TreeNode16.Text = "-3"
+        TreeNode7.Text = "-3"
-        TreeNode17.Name = "Knoten1"
+        TreeNode8.Name = "Knoten1"
-        TreeNode17.Text = "-4"
+        TreeNode8.Text = "-4"
-        TreeNode18.Name = "Knoten0"
+        TreeNode9.Name = "Knoten0"
-        TreeNode18.Text = "Windream-/W-Laufwerk"
+        TreeNode9.Text = "Windream-/W-Laufwerk"
-        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
+        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
@@ -1452,20 +1454,21 @@ Partial Class frmNIProfileigenschaften
         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(991, 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(991, 728)
+        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))
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Location = Global.ToolCollection.My.MySettings.Default.frmNIProfileigenschaften
+        Me.MinimumSize = New System.Drawing.Size(1000, 750)
         Me.Name = "frmNIProfileigenschaften"
         Me.Text = "Profileigenschaften Nachindexierung"
         Me.StatusStrip1.ResumeLayout(False)

ToolCollection/frmNIProfileigenschaften.resx

@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAaABAAGgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmNIProfileigenschaften.vb

@@ -507,6 +507,7 @@ Public Class frmNIProfileigenschaften
                 ' Das Profil auf gespeichert setzen, da ja keine Änderungen am Profil selbst gemacht wurden. Das Profil
                 ' hat jedoch zu diesem Zeitpunkt den Status HasChanges(), da der Inhalt der Steuerelemente verändert wurde.
                 Me._selectedProfile.setSaved()
+                Me._selectedProfile._links.setLinksSaved()
                 btnVerknüpfungen.Visible = True
             Else
                 btnVerknüpfungen.Visible = False

ToolCollection/frmNIVerknuepfungen.Designer.vb

@@ -58,7 +58,6 @@ Partial Class frmNIVerknuepfungen
         Me.Label9 = New System.Windows.Forms.Label()
         Me.gbUpdate = New System.Windows.Forms.GroupBox()
         Me.Label2 = New System.Windows.Forms.Label()
-        Me.Button5 = New System.Windows.Forms.Button()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.lblsaveSQLAnweisung = New System.Windows.Forms.Label()
         Me.cmbWindreamIndexeSQL = New System.Windows.Forms.ComboBox()
@@ -73,7 +72,6 @@ Partial Class frmNIVerknuepfungen
         Me.btnAddNI_Objekt = New System.Windows.Forms.Button()
         Me.Label40 = New System.Windows.Forms.Label()
         Me.cmbNI_Objekte = New System.Windows.Forms.ComboBox()
-        Me.btnsave_select = New System.Windows.Forms.Button()
         Me.btnSpalteEinfügen = New System.Windows.Forms.Button()
         Me.btnWindreamIndexEinfügen = New System.Windows.Forms.Button()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -86,7 +84,6 @@ Partial Class frmNIVerknuepfungen
         Me.lblDescrangelegteVerknuepf = New System.Windows.Forms.Label()
         Me.tabctrlbottom = New System.Windows.Forms.TabControl()
         Me.TabPage6 = New System.Windows.Forms.TabPage()
-        Me.btnSaveCheckIndex = New System.Windows.Forms.Button()
         Me.btnzuruecksetzen_checksql = New System.Windows.Forms.Button()
         Me.txtGrundgeruest_check = New System.Windows.Forms.Button()
         Me.Panel2 = New System.Windows.Forms.Panel()
@@ -170,6 +167,10 @@ Partial Class frmNIVerknuepfungen
         Me.rbvkt_add = New System.Windows.Forms.RadioButton()
         Me.rbvkt_overwrite = New System.Windows.Forms.RadioButton()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.pnlFooter = New System.Windows.Forms.Panel()
+        Me.btnSaveAllAndClose = New System.Windows.Forms.Button()
+        Me.btnCancelAllAndClose = New System.Windows.Forms.Button()
+        Me.btnSaveAll = New System.Windows.Forms.Button()
         Me.StatusStrip1.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -192,6 +193,7 @@ Partial Class frmNIVerknuepfungen
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
+        Me.pnlFooter.SuspendLayout()
         Me.SuspendLayout()
         '
         'txtfinalSkriptUpdate
@@ -206,7 +208,8 @@ Partial Class frmNIVerknuepfungen
         Me.txtfinalSkriptUpdate.Multiline = True
         Me.txtfinalSkriptUpdate.Name = "txtfinalSkriptUpdate"
         Me.txtfinalSkriptUpdate.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(963, 138)
+        Me.txtfinalSkriptUpdate.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtfinalSkriptUpdate.Size = New System.Drawing.Size(868, 166)
         Me.txtfinalSkriptUpdate.TabIndex = 29
         '
         'cmbDatenbankSpalten
@@ -413,7 +416,7 @@ Partial Class frmNIVerknuepfungen
         Me.GroupBox1.Controls.Add(Me.Button3)
         Me.GroupBox1.Controls.Add(Me.Button1)
         Me.GroupBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.GroupBox1.Location = New System.Drawing.Point(975, 47)
+        Me.GroupBox1.Location = New System.Drawing.Point(890, 47)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(147, 83)
         Me.GroupBox1.TabIndex = 50
@@ -478,14 +481,12 @@ Partial Class frmNIVerknuepfungen
         Me.btnWindreamIndexEinfügenSQL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnWindreamIndexEinfügenSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnWindreamIndexEinfügenSQL.Image = Global.ToolCollection.My.Resources.Resources.add
-        Me.btnWindreamIndexEinfügenSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnWindreamIndexEinfügenSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1161, 149)
+        Me.btnWindreamIndexEinfügenSQL.Location = New System.Drawing.Point(1194, 149)
         Me.btnWindreamIndexEinfügenSQL.Name = "btnWindreamIndexEinfügenSQL"
         Me.btnWindreamIndexEinfügenSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(69, 21)
+        Me.btnWindreamIndexEinfügenSQL.Size = New System.Drawing.Size(33, 22)
         Me.btnWindreamIndexEinfügenSQL.TabIndex = 47
-        Me.btnWindreamIndexEinfügenSQL.Text = "Add"
         Me.btnWindreamIndexEinfügenSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnWindreamIndexEinfügenSQL.UseVisualStyleBackColor = True
         '
@@ -563,18 +564,17 @@ Partial Class frmNIVerknuepfungen
         Me.Label9.AutoSize = True
         Me.Label9.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label9.Location = New System.Drawing.Point(977, 133)
+        Me.Label9.Location = New System.Drawing.Point(887, 154)
         Me.Label9.Name = "Label9"
         Me.Label9.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.Label9.Size = New System.Drawing.Size(92, 13)
+        Me.Label9.Size = New System.Drawing.Size(94, 13)
         Me.Label9.TabIndex = 46
-        Me.Label9.Text = "windream Index:"
+        Me.Label9.Text = "Windream Index:"
         Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         '
         'gbUpdate
         '
         Me.gbUpdate.Controls.Add(Me.Label2)
-        Me.gbUpdate.Controls.Add(Me.Button5)
         Me.gbUpdate.Controls.Add(Me.Label1)
         Me.gbUpdate.Controls.Add(Me.lblsaveSQLAnweisung)
         Me.gbUpdate.Controls.Add(Me.GroupBox1)
@@ -586,7 +586,7 @@ Partial Class frmNIVerknuepfungen
         Me.gbUpdate.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.gbUpdate.Location = New System.Drawing.Point(3, 3)
         Me.gbUpdate.Name = "gbUpdate"
-        Me.gbUpdate.Size = New System.Drawing.Size(1251, 190)
+        Me.gbUpdate.Size = New System.Drawing.Size(1251, 218)
         Me.gbUpdate.TabIndex = 39
         Me.gbUpdate.TabStop = False
         Me.gbUpdate.Text = "SQL-Befehl oder Skript (ausgeführt nach jedem Dateidurchlauf)"
@@ -600,21 +600,6 @@ Partial Class frmNIVerknuepfungen
         Me.Label2.TabIndex = 55
         Me.Label2.Text = "EXECUTEVB  PathToMyVBScriptfile.vbs Argument#Argument2#Argument3"
         '
-        'Button5
-        '
-        Me.Button5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Button5.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.Button5.Image = Global.ToolCollection.My.Resources.Resources.save
-        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button5.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Button5.Location = New System.Drawing.Point(1131, 97)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(100, 24)
-        Me.Button5.TabIndex = 54
-        Me.Button5.Text = "Speichern"
-        Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button5.UseVisualStyleBackColor = True
-        '
         'Label1
         '
         Me.Label1.AutoSize = True
@@ -631,7 +616,7 @@ Partial Class frmNIVerknuepfungen
         Me.lblsaveSQLAnweisung.AutoSize = True
         Me.lblsaveSQLAnweisung.BackColor = System.Drawing.Color.Yellow
         Me.lblsaveSQLAnweisung.Font = New System.Drawing.Font("Segoe UI Semibold", 8.25!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(980, 173)
+        Me.lblsaveSQLAnweisung.Location = New System.Drawing.Point(887, 185)
         Me.lblsaveSQLAnweisung.Name = "lblsaveSQLAnweisung"
         Me.lblsaveSQLAnweisung.Size = New System.Drawing.Size(38, 13)
         Me.lblsaveSQLAnweisung.TabIndex = 51
@@ -644,10 +629,10 @@ Partial Class frmNIVerknuepfungen
         Me.cmbWindreamIndexeSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbWindreamIndexeSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.cmbWindreamIndexeSQL.FormattingEnabled = True
-        Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(980, 149)
+        Me.cmbWindreamIndexeSQL.Location = New System.Drawing.Point(997, 149)
         Me.cmbWindreamIndexeSQL.Name = "cmbWindreamIndexeSQL"
         Me.cmbWindreamIndexeSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(164, 21)
+        Me.cmbWindreamIndexeSQL.Size = New System.Drawing.Size(191, 21)
         Me.cmbWindreamIndexeSQL.TabIndex = 45
         '
         'lblDescr_Verknüpfungen
@@ -736,7 +721,6 @@ Partial Class frmNIVerknuepfungen
         Me.grbFilterDB.Controls.Add(Me.cmbNI_Objekte)
         Me.grbFilterDB.Controls.Add(Me.btnEindIndex)
         Me.grbFilterDB.Controls.Add(Me.Panel1)
-        Me.grbFilterDB.Controls.Add(Me.btnsave_select)
         Me.grbFilterDB.Controls.Add(Me.btnStandardSQL)
         Me.grbFilterDB.Controls.Add(Me.btnSpalteEinfügen)
         Me.grbFilterDB.Controls.Add(Me.cmbDatenbankSpalten)
@@ -753,7 +737,7 @@ Partial Class frmNIVerknuepfungen
         Me.grbFilterDB.Location = New System.Drawing.Point(10, 304)
         Me.grbFilterDB.Name = "grbFilterDB"
         Me.grbFilterDB.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.grbFilterDB.Size = New System.Drawing.Size(1243, 220)
+        Me.grbFilterDB.Size = New System.Drawing.Size(1243, 228)
         Me.grbFilterDB.TabIndex = 23
         Me.grbFilterDB.TabStop = False
         Me.grbFilterDB.Text = "  Einschränkung der Datenbankansicht zum Auslesen des windream-Indexes  "
@@ -799,22 +783,6 @@ Partial Class frmNIVerknuepfungen
         Me.cmbNI_Objekte.Size = New System.Drawing.Size(191, 21)
         Me.cmbNI_Objekte.TabIndex = 50
         '
-        'btnsave_select
-        '
-        Me.btnsave_select.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnsave_select.Enabled = False
-        Me.btnsave_select.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.btnsave_select.Image = Global.ToolCollection.My.Resources.Resources.save
-        Me.btnsave_select.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnsave_select.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnsave_select.Location = New System.Drawing.Point(1114, 32)
-        Me.btnsave_select.Name = "btnsave_select"
-        Me.btnsave_select.Size = New System.Drawing.Size(110, 24)
-        Me.btnsave_select.TabIndex = 47
-        Me.btnsave_select.Text = "Speichern"
-        Me.btnsave_select.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnsave_select.UseVisualStyleBackColor = True
-        '
         'btnSpalteEinfügen
         '
         Me.btnSpalteEinfügen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -868,7 +836,7 @@ Partial Class frmNIVerknuepfungen
         Me.txtSelectAnweisung.Name = "txtSelectAnweisung"
         Me.txtSelectAnweisung.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.txtSelectAnweisung.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.txtSelectAnweisung.Size = New System.Drawing.Size(865, 181)
+        Me.txtSelectAnweisung.Size = New System.Drawing.Size(865, 189)
         Me.txtSelectAnweisung.TabIndex = 28
         '
         'Label5
@@ -935,17 +903,16 @@ Partial Class frmNIVerknuepfungen
         Me.tabctrlbottom.Controls.Add(Me.TabPage6)
         Me.tabctrlbottom.Controls.Add(Me.TabPage1)
         Me.tabctrlbottom.Controls.Add(Me.TabPage2)
-        Me.tabctrlbottom.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.tabctrlbottom.Dock = System.Windows.Forms.DockStyle.Top
         Me.tabctrlbottom.Location = New System.Drawing.Point(0, 0)
         Me.tabctrlbottom.Name = "tabctrlbottom"
         Me.tabctrlbottom.SelectedIndex = 0
-        Me.tabctrlbottom.Size = New System.Drawing.Size(1265, 226)
+        Me.tabctrlbottom.Size = New System.Drawing.Size(1265, 250)
         Me.tabctrlbottom.TabIndex = 41
         Me.tabctrlbottom.Visible = False
         '
         'TabPage6
         '
-        Me.TabPage6.Controls.Add(Me.btnSaveCheckIndex)
         Me.TabPage6.Controls.Add(Me.btnzuruecksetzen_checksql)
         Me.TabPage6.Controls.Add(Me.txtGrundgeruest_check)
         Me.TabPage6.Controls.Add(Me.Panel2)
@@ -958,26 +925,11 @@ Partial Class frmNIVerknuepfungen
         Me.TabPage6.Location = New System.Drawing.Point(4, 22)
         Me.TabPage6.Name = "TabPage6"
         Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage6.Size = New System.Drawing.Size(1257, 200)
+        Me.TabPage6.Size = New System.Drawing.Size(1257, 224)
         Me.TabPage6.TabIndex = 3
         Me.TabPage6.Text = "Überprüfung deskriptiver Index"
         Me.TabPage6.UseVisualStyleBackColor = True
         '
-        'btnSaveCheckIndex
-        '
-        Me.btnSaveCheckIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnSaveCheckIndex.BackColor = System.Drawing.SystemColors.Control
-        Me.btnSaveCheckIndex.Enabled = False
-        Me.btnSaveCheckIndex.Image = Global.ToolCollection.My.Resources.Resources.save
-        Me.btnSaveCheckIndex.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnSaveCheckIndex.Location = New System.Drawing.Point(1120, 21)
-        Me.btnSaveCheckIndex.Name = "btnSaveCheckIndex"
-        Me.btnSaveCheckIndex.Size = New System.Drawing.Size(110, 24)
-        Me.btnSaveCheckIndex.TabIndex = 52
-        Me.btnSaveCheckIndex.Text = "Speichern"
-        Me.btnSaveCheckIndex.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnSaveCheckIndex.UseVisualStyleBackColor = True
-        '
         'btnzuruecksetzen_checksql
         '
         Me.btnzuruecksetzen_checksql.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1080,7 +1032,7 @@ Partial Class frmNIVerknuepfungen
         Me.txtCheckIndexSQL.Name = "txtCheckIndexSQL"
         Me.txtCheckIndexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.txtCheckIndexSQL.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
-        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(868, 174)
+        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(868, 190)
         Me.txtCheckIndexSQL.TabIndex = 30
         '
         'cmbSpalten_indexSQL
@@ -1130,7 +1082,7 @@ Partial Class frmNIVerknuepfungen
         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(1257, 196)
+        Me.TabPage1.Size = New System.Drawing.Size(1257, 224)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "SQL oder Skript-Befehl"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -1141,7 +1093,7 @@ Partial Class frmNIVerknuepfungen
         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(1257, 196)
+        Me.TabPage2.Size = New System.Drawing.Size(1257, 224)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Zusatzoptionen"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -1306,7 +1258,7 @@ Partial Class frmNIVerknuepfungen
         Me.pnlfulltext.Enabled = False
         Me.pnlfulltext.Location = New System.Drawing.Point(503, 291)
         Me.pnlfulltext.Name = "pnlfulltext"
-        Me.pnlfulltext.Size = New System.Drawing.Size(313, 226)
+        Me.pnlfulltext.Size = New System.Drawing.Size(313, 234)
         Me.pnlfulltext.TabIndex = 47
         Me.pnlfulltext.Visible = False
         '
@@ -1489,7 +1441,7 @@ Partial Class frmNIVerknuepfungen
         Me.RichTextBox_RegEx.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.RichTextBox_RegEx.Location = New System.Drawing.Point(10, 88)
         Me.RichTextBox_RegEx.Name = "RichTextBox_RegEx"
-        Me.RichTextBox_RegEx.Size = New System.Drawing.Size(60, 128)
+        Me.RichTextBox_RegEx.Size = New System.Drawing.Size(60, 136)
         Me.RichTextBox_RegEx.TabIndex = 24
         Me.RichTextBox_RegEx.Text = ""
         '
@@ -1865,7 +1817,7 @@ Partial Class frmNIVerknuepfungen
         Me.pnlZielQuelle.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlZielQuelle.Location = New System.Drawing.Point(0, 0)
         Me.pnlZielQuelle.Name = "pnlZielQuelle"
-        Me.pnlZielQuelle.Size = New System.Drawing.Size(1265, 527)
+        Me.pnlZielQuelle.Size = New System.Drawing.Size(1265, 532)
         Me.pnlZielQuelle.TabIndex = 50
         '
         'rbFunctionsTb
@@ -1948,16 +1900,69 @@ Partial Class frmNIVerknuepfungen
         '
         'SplitContainer1.Panel2
         '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.pnlFooter)
         Me.SplitContainer1.Panel2.Controls.Add(Me.tabctrlbottom)
-        Me.SplitContainer1.Size = New System.Drawing.Size(1265, 757)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1265, 830)
-        Me.SplitContainer1.SplitterDistance = 527
+        Me.SplitContainer1.SplitterDistance = 532
         Me.SplitContainer1.TabIndex = 51
         '
+        '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.Location = New System.Drawing.Point(0, 250)
+        Me.pnlFooter.Name = "pnlFooter"
+        Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
+        Me.pnlFooter.TabIndex = 53
+        '
+        '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))
+        Me.btnSaveAllAndClose.Location = New System.Drawing.Point(883, 6)
+        Me.btnSaveAllAndClose.Name = "btnSaveAllAndClose"
+        Me.btnSaveAllAndClose.Size = New System.Drawing.Size(120, 30)
+        Me.btnSaveAllAndClose.TabIndex = 2
+        Me.btnSaveAllAndClose.Text = "Ok"
+        Me.btnSaveAllAndClose.UseVisualStyleBackColor = False
+        '
+        '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))
+        Me.btnCancelAllAndClose.Location = New System.Drawing.Point(1009, 6)
+        Me.btnCancelAllAndClose.Name = "btnCancelAllAndClose"
+        Me.btnCancelAllAndClose.Size = New System.Drawing.Size(120, 30)
+        Me.btnCancelAllAndClose.TabIndex = 1
+        Me.btnCancelAllAndClose.Text = "Abbrechen"
+        Me.btnCancelAllAndClose.UseVisualStyleBackColor = False
+        '
+        '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))
+        Me.btnSaveAll.Location = New System.Drawing.Point(1135, 6)
+        Me.btnSaveAll.Name = "btnSaveAll"
+        Me.btnSaveAll.Size = New System.Drawing.Size(120, 30)
+        Me.btnSaveAll.TabIndex = 0
+        Me.btnSaveAll.Text = "Übernehmen"
+        Me.btnSaveAll.UseVisualStyleBackColor = False
+        '
         'frmNIVerknuepfungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1265, 779)
+        Me.ClientSize = New System.Drawing.Size(1265, 852)
         Me.Controls.Add(Me.SplitContainer1)
         Me.Controls.Add(Me.StatusStrip1)
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1999,6 +2004,7 @@ Partial Class frmNIVerknuepfungen
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
+        Me.pnlFooter.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2026,7 +2032,6 @@ Partial Class frmNIVerknuepfungen
     Friend WithEvents btnTestSQL As System.Windows.Forms.Button
     Friend WithEvents btnlvw_down As System.Windows.Forms.Button
     Friend WithEvents btnlvw_up As System.Windows.Forms.Button
-    Friend WithEvents btnsave_select As System.Windows.Forms.Button
     Friend WithEvents btnWindreamIndexEinfügenSQL As System.Windows.Forms.Button
     Friend WithEvents btnaddUniqueIndex As System.Windows.Forms.Button
     Friend WithEvents lbxQuelle1 As System.Windows.Forms.ListBox
@@ -2145,9 +2150,11 @@ Partial Class frmNIVerknuepfungen
     Friend WithEvents Button1 As Button
     Friend WithEvents lblsaveSQLAnweisung As Label
     Friend WithEvents Label1 As Label
-    Friend WithEvents Button5 As Button
     Friend WithEvents rbFunctionsTb As RadioButton
     Friend WithEvents rbFunctionsSc As RadioButton
     Friend WithEvents Label2 As Label
-    Friend WithEvents btnSaveCheckIndex As Button
+    Friend WithEvents pnlFooter As Panel
+    Friend WithEvents btnSaveAll As Button
+    Friend WithEvents btnCancelAllAndClose As Button
+    Friend WithEvents btnSaveAllAndClose As Button
 End Class

ToolCollection/frmNIVerknuepfungen.resx

@@ -130,7 +130,7 @@
     <value>606, 17</value>
   </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>25</value>
+    <value>28</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">

ToolCollection/frmNIVerknuepfungen.vb

@@ -22,7 +22,8 @@ Public Class frmNIVerknuepfungen
     Private _flagIgnoreVisibilityChanged As Boolean = False
     Private _flagIgnoreCheckedChanged As Boolean = False
     Private _formloaded As Boolean = False
-    Private selectedIndex_Type As String
+    Private _selectedIndex_Type As String
+    Private _isLoading As Boolean = False
 
     Public Shared vSQL As String
     Public Shared vstartwert As String
@@ -168,6 +169,7 @@ Public Class frmNIVerknuepfungen
     ''' <param name="profilname">Name des zu ladenden Profils</param>
     ''' <remarks></remarks>
     Private Sub LoadSelectedProfile(ByVal profilname As String)
+        Me._isLoading = True
         Try
             ' setzt erst einmal alles zurück
             Me.tabctrlbottom.Visible = True
@@ -194,6 +196,9 @@ Public Class frmNIVerknuepfungen
             If Me._selectedProfil.Dokumenttyp IsNot Nothing Then
                 'Profilübergreifende Aktualisierungen
                 Me.pnlZielQuelle.Visible = True
+                Me.SplitContainer1.Visible = True
+                Me.tabctrlbottom.Visible = True
+                Me.pnlFooter.Visible = True
                 Me.pnlZielQuelle.Dock = DockStyle.Fill
                 Me.lblProfil.Text = "Gewähltes Profil: '" & Me._selectedProfil.Profilname & "'"
                 Me.lblProfil.Visible = True
@@ -359,13 +364,13 @@ Public Class frmNIVerknuepfungen
                     Me.txtSelectAnweisung.Text = ""
                     'Finaler Index ja nein?
                     If Me._selectedProfil.finalerIndex <> "" Then
-                        Me.chbxStatusfertig.CheckState = CheckState.Checked
+                        Me.chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
                         Me.cmbIndex_Statusfertig.Items.Clear()
                         Me.cmbIndex_Statusfertig.ForeColor = Color.Black
                         Me.cmbIndex_Statusfertig.Items.Add(Me._selectedProfil.finalerIndex) ' den index eintragen
                         Me.cmbIndex_Statusfertig.SelectedIndex = 0 ' und direkt auswählen
                     Else
-                        Me.chbxStatusfertig.CheckState = CheckState.Unchecked
+                        Me.chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
                     End If
                     '#### VOLLTEXTINDEXER #####
                 ElseIf Me._selectedProfil.Ni_Art = "fulltext" Then
@@ -461,6 +466,8 @@ Public Class frmNIVerknuepfungen
                     End If
 
                 End If
+                ' Nach vollständigem Laden wird saved auf true (changed auf false) gesetzt
+                Me._selectedProfil.setSaved()
             Else
                 Me.lblProfil.Text = "Gewähltes Profil: '" & Me._selectedProfil.Profilname & "'" & " - unbekannter Objekttyp -"
                 MsgBox("Ein Dokumenttyp konnte nicht bestimmt werden! Vergewissern Sie sich das das Profil korrekt gespeichert wurde!", MsgBoxStyle.Exclamation, "Ausnahme:")
@@ -470,6 +477,7 @@ Public Class frmNIVerknuepfungen
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden des Profils")
         End Try
+        Me._isLoading = False
     End Sub
 
 
@@ -1419,8 +1427,8 @@ Public Class frmNIVerknuepfungen
                             Me.txtManIndexwert.Text = ""
                         End If
                         ' definieren das am aktuellen Profil Änderungen vorgenommen wurden
-                        Me._selectedProfil.setChanged()
+                        'Me._selectedProfil.setChanged()
-                        Me._selectedProfil._links.setLinksChanged()
+                        'Me._selectedProfil._links.setLinksChanged()
                     End If
 
                 Catch ex As Exception
@@ -1463,8 +1471,8 @@ Public Class frmNIVerknuepfungen
                         ' Me.lbxIndexDatei.Items.Remove(Me.lbxIndexDatei.SelectedItem)
 
                         ' definieren das am aktuellen Profil Änderungen vorgenommen wurden
-                        Me._selectedProfil.setChanged()
+                        'Me._selectedProfil.setChanged()
-                        Me._selectedProfil._links.setLinksChanged()
+                        'Me._selectedProfil._links.setLinksChanged()
                         'Else
                         '    MsgBox("Bitte wählen Sie einen Orangefarbenen Unterknoten aus, da dieser den Pfad innerhalb der xml-Datei zum indexierenden Wert beschreibt!", MsgBoxStyle.Exclamation, "Falsche Wahl:")
                     End If
@@ -1525,8 +1533,8 @@ Public Class frmNIVerknuepfungen
                         End If
 
                         ' definieren das am aktuellen Profil Änderungen vorgenommen wurden
-                        Me._selectedProfil.setChanged()
+                        'Me._selectedProfil.setChanged()
-                        Me._selectedProfil._links.setLinksChanged()
+                        'Me._selectedProfil._links.setLinksChanged()
                         'Else
                         '    MsgBox("Bitte wählen Sie einen Orangefarbenen Unterknoten aus, da dieser den Pfad innerhalb der xml-Datei zum indexierenden Wert beschreibt!", MsgBoxStyle.Exclamation, "Falsche Wahl:")
                     End If
@@ -1572,8 +1580,8 @@ Public Class frmNIVerknuepfungen
                             Me.txtManIndexwert.Text = ""
                         End If
                         ' definieren das am aktuellen Profil Änderungen vorgenommen wurden
-                        Me._selectedProfil.setChanged()
+                        'Me._selectedProfil.setChanged()
-                        Me._selectedProfil._links.setLinksChanged()
+                        'Me._selectedProfil._links.setLinksChanged()
                     End If
 
                 Catch ex As Exception
@@ -1676,6 +1684,25 @@ Public Class frmNIVerknuepfungen
 
 
     Private Sub lvwVerknuepfungen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwVerknuepfungen.SelectedIndexChanged
+        If Not Me._selectedProfil._links.IsSaved Then
+
+            Dim msgResult As MsgBoxResult = MsgBox("Möchten Sie die Änderungen speichern?", MsgBoxStyle.YesNoCancel, "Änderungen übernehmen?")
+            If msgResult = MsgBoxResult.Yes Then
+
+                'If Not Me._selectedProfil.IsSaved Then
+                '    SaveProfile()
+                'End If
+
+                If Not Me._selectedProfil._links.IsSaved Then
+                    SaveLinks()
+                    SaveProfile()
+                End If
+            Else
+                Me._selectedProfil._links.setLinksSaved()
+                Me._selectedProfil.setSaved()
+            End If
+        End If
+
         Select Case Me._selectedProfil.Ni_Art
             Case "db"
                 Try
@@ -1695,7 +1722,7 @@ Public Class frmNIVerknuepfungen
                     End If
 
                     ' merken ob das Profil geändert wurde
-                    Dim gespeichertVorher = Me._selectedProfil.IsSaved
+                    Dim gespeichertVorher = Me._selectedProfil.GetSaved
                     Dim gespeichertLinkVorher = Me._selectedProfil._links.IsLinksSaved
 
                     ' wenn im ListView eine Zeile ausgewählt wurde
@@ -1716,6 +1743,7 @@ Public Class frmNIVerknuepfungen
                             ' die SQL-Anweisung der ausgewählten Verknüpfung in das Textfeld schreiben
                             Me.txtSelectAnweisung.Text = Me._selectedProfil._links.selectedLink.SelectAnweisung 'Me.selectedProfil.getLinkByValues(Me.lvwVerbunden.SelectedItems(0).SubItems(0).Text, Me.lvwVerbunden.SelectedItems(0).SubItems(1).Text, Me.lvwVerbunden.SelectedItems(0).SubItems(2).Text).getSelectAnweisung()
                             Me.grbFilterDB.Enabled = True
+                            Me.btnSaveAll.Enabled = False
 
                             ' mit dem Cursor an die letzte Position springen
                             Me.txtSelectAnweisung.SelectionStart = Me.txtSelectAnweisung.Text.Length
@@ -1838,7 +1866,7 @@ Public Class frmNIVerknuepfungen
                     End If
 
                     ' merken ob das Profil geändert wurde
-                    Dim gespeichertVorher = Me._selectedProfil.IsSaved
+                    Dim gespeichertVorher = Me._selectedProfil.GetSaved
                     Dim gespeichertLinkVorher = Me._selectedProfil._links.IsLinksSaved
 
                     ' wenn im ListView eine Zeile ausgewählt wurde
@@ -1924,8 +1952,8 @@ Public Class frmNIVerknuepfungen
                     End If
 
                     ' merken ob das Profil geändert wurde
-                    Dim gespeichertVorher = Me._selectedProfil.IsSaved
+                    Dim gespeichertVorher = Me._selectedProfil.GetSaved
-                    Dim gespeichertLinkVorher = Me._selectedProfil._links.IsLinksSaved
+                    Dim gespeichertLinkVorher = Me._selectedProfil._links.GetSaved
 
                     ' wenn im ListView eine Zeile ausgewählt wurde
                     If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
@@ -1980,9 +2008,9 @@ Public Class frmNIVerknuepfungen
         If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
             If Me._selectedProfil._links.selectedLink IsNot Nothing Then
                 'Radiobuttons Vektor InsertState Überprüfen
-                selectedIndex_Type = _windreamNI.GetIndex_Type(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text)
+                _selectedIndex_Type = _windreamNI.GetIndex_Type(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text)
                 visinvisible_Vektor_ins_State()
-                If selectedIndex_Type.StartsWith("Vektor") Then
+                If _selectedIndex_Type.StartsWith("Vektor") Then
                     Me.Changeinaction = True
                     Select Case Me._selectedProfil._links.selectedLink.vktins_state
                         Case 1
@@ -2015,27 +2043,26 @@ Public Class frmNIVerknuepfungen
             MsgBox("Die SELECT-Anweisung konnte nicht auf ihren Ursprungswert zurückgesetzt werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Zurücksetzen der SQL-Anweisung")
         End Try
     End Sub
-    Private Sub btnsave_select_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave_select.Click
+
+    Private Sub SaveLinks()
         Try
             If Me._selectedProfil._links.selectedLink IsNot Nothing Then
-                If Me._selectedProfil.IsSaved = False Then
+                'Me._selectedProfil.Save(True, "link")
-
+                If Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art) = True Then
-                    Me._selectedProfil.Save(True, "link")
+                    Me._selectedProfil._links.setLinksSaved()
-                    If Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art) = True Then
+                    Me.btnSaveAll.Enabled = False
-                        btnsave_select.Enabled = False
+                    'MsgBox("Verknüpfung erfolgreich gespeichert!", MsgBoxStyle.Information)
-                        MsgBox("Verknüpfung erfolgreich gespeichert!", MsgBoxStyle.Information)
-                    End If
-                    With btnsave_select
-                        .Enabled = False
-                        .ForeColor = Drawing.Color.Black
-                    End With
                 End If
+                With btnSaveAll
+                    .Enabled = False
+                    .ForeColor = Drawing.Color.Black
+                End With
             End If
         Catch ex As Exception
             MsgBox("Fehler beim Speichern der DB-Verknüpfung." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
-
     End Sub
+
     Private Sub txtSelectAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSelectAnweisung.TextChanged
         Try
             ' wenn im ListView eine Zeile selektiert wurde
@@ -2044,7 +2071,7 @@ Public Class frmNIVerknuepfungen
                 Dim SQL_ORIGIN As String = Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
                                                         Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).getSelectAnweisung().ToString
                 If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then
-                    With btnsave_select
+                    With btnSaveAll
                         .Enabled = True
                         .ForeColor = Drawing.Color.Black
                     End With
@@ -2052,7 +2079,7 @@ Public Class frmNIVerknuepfungen
                 ' die Informationen der selektierten Verknüpfung auslesen
                 Me._selectedProfil._links.getLinkByValues(Me.lvwVerknuepfungen.SelectedItems(0).SubItems(0).Text, Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text,
                                                           Me.lvwVerknuepfungen.SelectedItems(0).SubItems(2).Text).setSelectAnweisung(Me.txtSelectAnweisung.Text)
-                ' das Profil auf den Status 'geändert' setzen
+                Me.btnSaveAll.Enabled = True
                 Me._selectedProfil.setChanged()
                 Me._selectedProfil._links.setLinksChanged()
                 'Jetzt den Startwert bestimmen
@@ -2164,23 +2191,30 @@ Public Class frmNIVerknuepfungen
     '    End Try
     'End Sub
 
-    Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.LostFocus
+    'Private Sub txtUpdateAnweisung_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.LostFocus
-        'If Me.txtfinalSkriptUpdate.Text <> "" Then
+    ' Me._selectedProfil.SQL_Anweisung = txtfinalSkriptUpdate.Text
-        '    Try
+    'If Me.txtfinalSkriptUpdate.Text <> "" Then
-        '        ' die Änderungen speichern
+    '    Try
-        '        If Me._selectedProfil.Save(True,"profile") = True Then    ' wenn das Speichern erfolgreich war
+    '        ' die Änderungen speichern
-        '            Me._selectedProfil.setChanged()
+    '        If Me._selectedProfil.Save(True,"profile") = True Then    ' wenn das Speichern erfolgreich war
-        '        Else
+    '            Me._selectedProfil.setChanged()
-        '            MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
+    '        Else
-        '        End If
+    '            MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
-        '    Catch ex As Exception
+    '        End If
-        '        MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.")
+    '    Catch ex As Exception
-        '    End Try
+    '        MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.")
-        'End If
+    '    End Try
-    End Sub
+    'End If
+    'End Sub
 
     Private Sub txtUpdateAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtfinalSkriptUpdate.TextChanged
 
+        If Not Me.txtfinalSkriptUpdate.Text = String.Empty And Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
+            Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
+            Me._selectedProfil.setChanged()
+            btnSaveAll.Enabled = True
+        End If
+
     End Sub
     Private Sub btnWindreamIndexEinfügenSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWindreamIndexEinfügenSQL.Click
         If Not Me.cmbWindreamIndexeSQL.SelectedItem = "" Then
@@ -2266,6 +2300,7 @@ Public Class frmNIVerknuepfungen
     End Sub
     Private Sub frmNIVerknuepfungen_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         If Me._selectedProfil IsNot Nothing Then
+
             If Me._selectedProfil.Desk_windreamIndex = "" Then
                 If Me._selectedProfil.DbArt = "xml" Then
                     MsgBox("Bitte definieren Sie einen eindeutigen/deskriptiven Index!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
@@ -2273,21 +2308,44 @@ Public Class frmNIVerknuepfungen
                     e.Cancel = True
                 End If
             End If
-            If Me._selectedProfil IsNot Nothing Then
+
-                If Me._selectedProfil.HasChanges Then
+            If Me._selectedProfil.HasChanges Then
-                    If _selectedProfil.MR_DAIndex <> "" And Me._selectedProfil.checkIndexsql = "" Then
+                If _selectedProfil.MR_DAIndex <> "" And Me._selectedProfil.checkIndexsql = "" Then
-                        MsgBox("Bitte definieren Sie einen SQL-Befehl zum überprüfen des gültigen Startindexwertes!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
+                    MsgBox("Bitte definieren Sie einen SQL-Befehl zum überprüfen des gültigen Startindexwertes!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
-                        Me.tabctrlbottom.SelectedIndex = 0
+                    Me.tabctrlbottom.SelectedIndex = 0
-                        e.Cancel = True
+                    e.Cancel = True
-                    End If
-                End If
-                If Me._selectedProfil Is Nothing = False Then
-                    Me.tabctrlbottom.Visible = False
-                    If Me._selectedProfil.HasChanges Then
-                        Me._selectedProfil.Save(True, "profile")
-                    End If
                 End If
             End If
+
+            Select Case Me.DialogResult
+                Case DialogResult.OK
+                    SaveCheckStatusFinished()
+                    If Not Me._selectedProfil.IsSaved Then SaveProfile()
+                    If Not Me._selectedProfil._links.IsLinksSaved Then SaveLinks()
+                Case DialogResult.Cancel
+                    'nichts
+                Case Else
+                    ' If Not Me._selectedProfil.IsSaved Or Not Me._selectedProfil._links.IsSaved Then
+                    If Not Me._selectedProfil.IsSaved Then
+
+                        Dim msgResult As MsgBoxResult = MsgBox("Möchten Sie die Änderungen speichern?", MsgBoxStyle.YesNoCancel, "Änderungen übernehmen?")
+                        If msgResult = MsgBoxResult.Yes Then
+
+                            SaveCheckStatusFinished()
+
+                            If Not Me._selectedProfil.IsSaved Then
+                                SaveProfile()
+                            End If
+
+                            If Not Me._selectedProfil._links.IsSaved Then
+                                SaveLinks()
+                            End If
+
+                        End If
+
+                    End If
+            End Select
+
         End If
     End Sub
 
@@ -2298,7 +2356,6 @@ Public Class frmNIVerknuepfungen
             Me._selectedProfil = ClassNIProfile.aktivesProfil
             Me.lblProfil.Text = "(" & Me._selectedProfil.Profilname & ")"
             Me.lblProfil.Visible = True
-            'Me.pnlZielQuelle.Visible = False
 
             Me.LoadSelectedProfile(Me._selectedProfil.Profilname)
 
@@ -2312,8 +2369,9 @@ Public Class frmNIVerknuepfungen
         Else
             Me._selectedProfil = Nothing
             Me.pnlZielQuelle.Visible = False
+            Me.SplitContainer1.Visible = False
+            Me.pnlfulltext.Visible = False
         End If
-
     End Sub
     Private Sub btnEindIndex_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEindIndex.Click
         Dim text As String = Me.txteindeutigerIndex.Text
@@ -2327,31 +2385,51 @@ Public Class frmNIVerknuepfungen
 
     End Sub
 
+    Private Sub SaveCheckStatusFinished()
+        My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+        My.Settings.Save()
+    End Sub
+
     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbxStatusfertig.CheckedChanged
-        If Me.chbxStatusfertig.Checked Then
+        If _isLoading = False Then
-            Me.cmbIndex_Statusfertig.Enabled = True
-            Try
-                Me.cmbIndex_Statusfertig.Items.Clear()
-                Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfil.Dokumenttyp.aName, True, "NI")
-                If indexe IsNot Nothing Then
-                    For Each index As String In indexe
-                        Me.cmbIndex_Statusfertig.Items.Add(index)
-                    Next
-                End If
-                If Not IsNothing(Me._selectedProfil.finalerIndex) Then
-                    cmbIndex_Statusfertig.SelectedIndex = cmbIndex_Statusfertig.FindStringExact(Me._selectedProfil.finalerIndex)
-                End If
 
+            If chbxStatusfertig.Checked Then
+                Me.cmbIndex_Statusfertig.Enabled = True
+                'My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+                'My.Settings.Save()
+                'Me._selectedProfil.setChanged()
+                'Me.btnSaveAll.Enabled = True
+                Try
+                    Me.cmbIndex_Statusfertig.Items.Clear()
+                    Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfil.Dokumenttyp.aName, True, "NI")
+                    If indexe IsNot Nothing Then
+                        For Each index As String In indexe
+                            Me.cmbIndex_Statusfertig.Items.Add(index)
+                        Next
+                    End If
+                    If Not IsNothing(Me._selectedProfil.finalerIndex) Then
+                        cmbIndex_Statusfertig.SelectedIndex = cmbIndex_Statusfertig.FindStringExact(Me._selectedProfil.finalerIndex)
+                    End If
 
-            Catch ex As Exception
+                    Me._selectedProfil.setChanged()
-                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der windream-Indexe in die Auswahlliste 'cmbIndex_Statusfertig'")
+                    Me.btnSaveAll.Enabled = True
-            End Try
+                Catch ex As Exception
-        Else
+                    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der windream-Indexe in die Auswahlliste 'cmbIndex_Statusfertig'")
-            Me.cmbIndex_Statusfertig.Enabled = False
+                End Try
-            If Me._selectedProfil IsNot Nothing Then
+            Else
-                Me._selectedProfil.finalerIndex = ""
+                Me.cmbIndex_Statusfertig.Enabled = False
-                Me._selectedProfil.setChanged()
+                'My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+                'My.Settings.Save()
+                'Me._selectedProfil.setChanged()
+                'Me.btnSaveAll.Enabled = True
+                If Me._selectedProfil IsNot Nothing Then
+                    Me._selectedProfil.finalerIndex = ""
+                    Me._selectedProfil.setChanged()
+                    Me.btnSaveAll.Enabled = True
+                End If
             End If
+        Else
+            Exit Sub
         End If
     End Sub
 
@@ -2361,6 +2439,7 @@ Public Class frmNIVerknuepfungen
                 Me._selectedProfil.finalerIndex = cmbIndex_Statusfertig.SelectedItem
                 If Not Me._selectedProfil.finalerIndex = Me._selectedProfil.OriginalfinalerIndex Then
                     Me._selectedProfil.setChanged()
+                    btnSaveAll.Enabled = True
                 End If
             End If
         End If
@@ -2638,28 +2717,30 @@ Public Class frmNIVerknuepfungen
     '    End If
     'End Sub
 
-    Private Sub btnSaveCheckIndex_Click(sender As Object, e As EventArgs) Handles btnSaveCheckIndex.Click
+    Private Sub SaveProfile()
-        If Me.txtCheckIndexSQL.Text <> "" Then
+        'If Me.txtCheckIndexSQL.Text <> "" Then
-            Try
+        Try
                 ' die Änderungen speichern
                 If Me._selectedProfil.Save(True, "profile") = True Then
-                    Me.btnSaveCheckIndex.Enabled = False
+                    Me._selectedProfil.setSaved()
+                    Me.btnSaveAll.Enabled = False
                 Else
                     MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
                 End If
             Catch ex As Exception
                 MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.")
             End Try
-        End If
+        'End If
     End Sub
 
     Private Sub txtCheckIndexSQL_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCheckIndexSQL.TextChanged
 
         If Me._selectedProfil IsNot Nothing Then
+
             Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
 
             If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
-                btnSaveCheckIndex.Enabled = True
+                btnSaveAll.Enabled = True
                 Me._selectedProfil.setChanged()
             End If
 
@@ -3182,7 +3263,7 @@ Public Class frmNIVerknuepfungen
     Sub SaveLDAP()
         Try
             If Me._selectedProfil._links.selectedLink IsNot Nothing Then
-                If Me._selectedProfil.IsSaved = False Then
+                If Me._selectedProfil.GetSaved = False Then
                     Me._selectedProfil.Save(True, "profile")
                     Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art)
                     With btnSaveLDAP
@@ -3344,7 +3425,7 @@ Public Class frmNIVerknuepfungen
     Private Sub btnSave_FulltextLinks_Click(sender As Object, e As EventArgs) Handles btnSave_FulltextLinks.Click
         Try
             If Me._selectedProfil._links.selectedLink IsNot Nothing Then
-                If Me._selectedProfil.IsSaved = False Then
+                If Me._selectedProfil.GetSaved = False Then
                     Me._selectedProfil.Save(False, "FTLink")
                     If Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art) = True Then
                         MsgBox("Speichern erfolgreich!", MsgBoxStyle.Information)
@@ -3445,13 +3526,13 @@ Public Class frmNIVerknuepfungen
                 Me.chkboxWhitespace.Checked = False
                 Me.txtregex.Text = ""
         End Select
-        selectedIndex_Type = _windreamNI.GetIndex_Type(lbxWMIndex.SelectedItem)
+        _selectedIndex_Type = _windreamNI.GetIndex_Type(lbxWMIndex.SelectedItem)
-        If selectedIndex_Type Is Nothing = False Then
+        If _selectedIndex_Type Is Nothing = False Then
             visinvisible_Vektor_ins_State()
         End If
     End Sub
     Sub visinvisible_Vektor_ins_State()
-        If selectedIndex_Type.StartsWith("Vektor") Then
+        If _selectedIndex_Type.StartsWith("Vektor") Then
             Me.rbvkt_add.Visible = True
             Me.rbvkt_overwrite.Visible = True
             Me.chkvkt_Dublette.Visible = True
@@ -3537,8 +3618,25 @@ Public Class frmNIVerknuepfungen
                 End If
             Case 2
                 If Me._selectedProfil IsNot Nothing Then
-                    chbxStatusfertig.Checked = True
+                    chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
+                    cmbIndex_Statusfertig.Enabled = True
+                    Try
+                        Me.cmbIndex_Statusfertig.Items.Clear()
+                        Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfil.Dokumenttyp.aName, True, "NI")
+                        If indexe IsNot Nothing Then
+                            For Each index As String In indexe
+                                Me.cmbIndex_Statusfertig.Items.Add(index)
+                            Next
+                        End If
+                        If Not IsNothing(Me._selectedProfil.finalerIndex) Then
+                            cmbIndex_Statusfertig.SelectedIndex = cmbIndex_Statusfertig.FindStringExact(Me._selectedProfil.finalerIndex)
+                        End If
 
+                        'Me._selectedProfil.setChanged()
+                        'Me.btnSaveAll.Enabled = True
+                    Catch ex As Exception
+                        MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der windream-Indexe in die Auswahlliste 'cmbIndex_Statusfertig'")
+                    End Try
                 End If
         End Select
     End Sub
@@ -3582,27 +3680,6 @@ Public Class frmNIVerknuepfungen
         End If
     End Sub
 
-    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
-        If Me._selectedProfil IsNot Nothing Then
-
-            If Not Me.txtfinalSkriptUpdate.Text = Me._selectedProfil.OriginalSQL_Anweisung Then
-                Me._selectedProfil.SQL_Anweisung = Me.txtfinalSkriptUpdate.Text
-                Me._selectedProfil.setChanged()
-                Me._selectedProfil._links.setLinksChanged()
-            Else
-                Exit Sub
-            End If
-        Else
-            Exit Sub
-        End If
-        If Me._selectedProfil.Save(True, "profile") = True Then
-            ' wenn das Speichern erfolgreich war
-            Me.lblsaveSQLAnweisung.Text = "Data saved - " & Now.ToString
-        Else
-            Me.lblsaveSQLAnweisung.Text = ""
-        End If
-    End Sub
-
     Private Sub rbFunctionsSc_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsSc.CheckedChanged
         If Not _flagIgnoreCheckedChanged Then
             If Me._selectedProfil Is Nothing = False Then
@@ -3640,4 +3717,18 @@ Public Class frmNIVerknuepfungen
     Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
 
     End Sub
+
+    Private Sub btnSaveAll_Click(sender As Object, e As EventArgs) Handles btnSaveAll.Click
+        SaveCheckStatusFinished()
+        SaveLinks()
+        SaveProfile()
+    End Sub
+
+    Private Sub btnSaveAllAndClose_Click(sender As Object, e As EventArgs) Handles btnSaveAllAndClose.Click
+        Me.Close()
+    End Sub
+
+    Private Sub btnCancelAllAndClose_Click(sender As Object, e As EventArgs) Handles btnCancelAllAndClose.Click
+        Me.Close()
+    End Sub
 End Class

ToolCollection/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmStart
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
@@ -29,6 +29,7 @@ Partial Class frmStart
         Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
         Me.menHauptmenü = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -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"
         '
@@ -127,6 +128,15 @@ Partial Class frmStart
         Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20)
         Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs"
         '
+        '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"
+        '
         'menHauptmenü
         '
         Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control
@@ -424,7 +434,6 @@ 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"
         '
         'ContextMenuStrip1
         '
@@ -464,7 +473,6 @@ 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.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.menHauptmenü.ResumeLayout(False)
@@ -518,4 +526,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

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
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACxklEQVQ4T33Qf0zMcRzH8W+M/9jM+MPm
-        VJgRRViRlBmZRJYmXS0zAylbmjYoNYlIzUXQcmVqpt285SWz0lBL5mXzMrfpinTz1ryBlWuLCfYhoqe/
+        x7BkxixM8yNDM6mYn5FkM3IibiNpzfTTbE5HPw7lRz8uV0m4sytaP+6un3dXp9Gd6871awtdZdeWP8w8
-        Tcno8oPD74X3nOfwHs4rTOlcZRMZ/Xe53JtKqOYYHtmPWBNrYm24nsDYZiRXDSRndXDjXhu3MhrwiWxh
+        7ZzIjzy393+f1+OPjyD86Jy6HlnnHZJt6UQ0HcY35wHLz1tYEWlkx/kGRFdMpGS/5vrdFjJkGjadbGR0
-        slQQwmoSUQxKqR4vI2c0nXTDRfJ0tTxtGUCp1FFe3kxuQR23C+rJqjFyvaKLjavDHYBDuRr869zEzqHk
+        KxypTETaLaZipIy8/iyyTBcpMFTzuLGLqioDSmUD+YU13CysJbvSzDXVG9Ysi/QA+/ObCK7xJtkWgdyZ
-        W9IoGS6mr68fRUEl6ZVa8vXveDViQ/cdVF/hyWdIe/eVnVviHQCP1EGW5kg42LiKU22bkb65T1PHEAla
+        SUlvMXZ7J9JCNVlqPXLjW170DWH4CtrP8OgjZL79zLYNcR7AN72bBXki9tUt5UTLesRt96h/3UOCfpDr
-        KzcGIW8Uysegahye2eHhR5D3w27fJAfAXWZidlIxroWLWFm2DJeCAZJfjiDXWEjshpsiJHsEHnyALNFT
+        3VDQD8phKB+BJy7I/QCSTtgekOQBfFItTE4qZp5iDkvKFjKrsIuU531ImpwkWuFGN+T0wf33kN0HaV1w
-        BuCiCULOPHEAXM+2IpzQIZxvZ4Z8O04pi/G9VUaG+j3Rr+GCES73gKwXkkSP74TTBtgWoHAA3KI0CLue
+        0QLhZx55gHlnmxGOGRAutDJBsgWvtLkEZJQh073j9EuIN0NyB6TaIKkD4trhlAk2h0g9gHd0E0LQU4QD
-        IxyuQ4i4gBAnMC9CQm7tEMHNcFwHke2OogjRw7QQ1DgNsC7GyNwdJcz0zmfWrqvMCfHBSTw/zNPiWwMB
+        NQhR8QixAtOiRORX9xDWAEcNcLLVM4pqhSN6CK0bA6yMMTN1awkT/eVMCrrClPBNePnLyS3QE1AJITWw
-        dbBPBfvVsFd0/1rYUf3tF2BCK46+YklQFV5HS/E8/IxNwfVcuanDu9DO+grYWAleYpys+UJi0RDnpOW/
+        Wwt7dLBLC8HVsLXiyy/A3eJDL5gfWs66Q6X4HXjC2rBaLt8w4K9wsUoFa9SwTg3HKz+RWNTDObHyd2C0
-        A6Y0f3kUzi5HcF4QRKDfJfxyPuH5/DvXmsbJKjETF9dKcLCSVQv3/lk8XR57ikm4riY730hFRS+FhW9I
+        GYuimT7rINNnhrIj8BKBeQP4Pf3K1foRskscxMY2ExZWxdLZu/4ej813ZzEJ13TkyM2oVDYUijbS002I
-        TTUglep/xoGAZCZyJtP/lOyOAbvdTnf3J2w2Gz09ZnEbO0lJaUMu16NQNCCJyPs34HGZDqvVytjYGBaL
+        xcbvtzckBfebP3c/S71twuVyYbUOMDQ0REeHA6WynbS0FiQSI1KpBlFUwfjAwzIDg4ODDA8P43Q6sdsd
-        RdxMMypVFy9evKWoSE+G+BdipDn/BpxMVIvd+xgeHsZs7qezs5eGBiMmU5/4nHoyM9X4b435/xwmpixL
+        aLVvePbsFUVFRmQyDTHivPGB44k6rFY7vb29OBydtLfb0GjMWCx2FIpabt3SEbwxZnzAnfuXUxPuU16u
-        eEBVlVacQyulpS1iZyXRkjQ2uIf8v3hKE5C/xeS1KEH4ASMFKV0feWVjAAAAAElFTkSuQmCC
+        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
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAlUlEQVQ4T7WQIQ5CMRAF56g9Qm/RIxSJ
-        K7+jsrIOWVlZWfkl3Wl2k+YrlqQvmZAA8xbkb0kpDce25oNEeu+j1hovQUBurY1SyloBk5FzzuvfcGxr
+        ROKKROIqkV8ikcglr8kSUgNbwkteKroz2xT+lZSSeee7jxGk9N6t1hqXCBDcWrNSyppAmwXnnOMC5ec/
-        Pki7yHgrTyVU4rIa3/WlPCIlXGTy7wt6tACJyaxMDxcguAi3aAHcVQKXpwsIl68qwmYFdjQXhIuKcF4t
+        eIDdwTaISRw2GOcN7BqRaFCb31/QowJB2qxT28MCAQ6q56hAvcCow18LFA2fYPQY2e4RcIDR/apgB68u
-        OKnoLBUcsaNDRD795Ki6zCeHqwAAAABJRU5ErkJggg==
+        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
+        FAAAAk1TRnQBSQFMAgEBCQEAAXABAwFwAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

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
+        Try
-        Delete_Logfiles()
+            Delete_LogFiles()
-        ' Nächstes Intervall wieder 24h
+            ' Nächstes Intervall wieder 24h
-        TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
+            TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
-    Catch ex As Exception
+        Catch ex As Exception
-        _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
+            _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
-    End Try
+        End Try
     End Sub
 
     Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
@@ -129,6 +130,28 @@ Public Class frmStart
         End If
     End Sub
 
+    Private Sub CaptionForm()
+        Dim caption As String
+
+        If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
+            caption = Application.CompanyName & " - " & Application.ProductName
+        Else
+            caption = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
+        End If
+
+        ' Fenster-Titel setzen
+        Me.Text = caption
+
+        Dim trayText As String = caption
+
+        If trayText.Length > 63 Then
+            trayText = trayText.Substring(0, 60) & "..."
+        End If
+
+        ' Systray-Tooltip setzen
+        niToolcollection.Text = trayText
+    End Sub
+
     Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
         _Instance = Me
@@ -157,7 +180,7 @@ Public Class frmStart
 
             'Aktueller Benutzer
             Me.tslblVersion.Text = Environment.UserName.ToString
-            Me.Text = Application.CompanyName & "-" & Application.ProductName
+            CaptionForm()
             Me.tslblVersion.Text = "Version: " & My.Application.Info.Version.ToString
             'Aktuelle Machine
             Me.Status_Machine.Text = My.Computer.Name
@@ -167,6 +190,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()
 
@@ -410,6 +438,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
@@ -490,6 +521,7 @@ Public Class frmStart
         Dim frm As New frmGrundeinstellungen
         frm = frmGrundeinstellungen.Instance
         frm.ShowDialog()
+        CaptionForm()
         Cursor = Cursors.Default
     End Sub
 

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)

ToolCollection/frmabout.vb

@@ -16,7 +16,8 @@
         Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
         Me.LabelCopyright.Text = My.Application.Info.Copyright
         Me.LabelCompanyName.Text = My.Application.Info.CompanyName
-        Me.TextBoxDescription.Text = My.Application.Info.Description
+        'Me.TextBoxDescription.Text = My.Application.Info.Description
+        Me.TextBoxDescription.Text = "Autostart Parameter: /startFIM /startFIH"
     End Sub
 
     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click