Footer und Buttons verankert - frmNIVerknuepfungen

The `.gitignore` file was updated to include the `/.vs` directory.
This ensures that temporary and user-specific files generated
by Visual Studio are ignored by Git and not tracked in the
repository, reducing unnecessary clutter in version control.

.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

.vs/ToolCollection/v17/ResourceExplorer/settings.json

@@ -1,14 +0,0 @@
-{
-  "ShowEmptyProjects": false,
-  "SelectedGroups": [],
-  "ExpandedProjects": [],
-  "EnableSpellChecker": true,
-  "ColumnOrder": [
-    "name",
-    "type"
-  ],
-  "VisibleColumnKeys": [
-    "name",
-    "neutral-value"
-  ]
-}

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

@@ -4,6 +4,8 @@ Public Class ClassNIProfile
     Private Shared _profiles() As ClassNIProfil
     Public Shared _windream As New ClassWindream_allgemein(CURR_LogConfig)
     Public Shared xmlConfigFile As String
+    Public Shared aktivesProfil As ClassNIProfil
+    Public Shared aktivesProfilAusProfileigenschaften As Boolean = False
 
     Public Shared Sub Init()
         Dim oConfigPath As String = My.Application.Info.DirectoryPath & "\" & My.Settings.vNIConfigDatei
@@ -125,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/ModuleCURRENT.vb

@@ -6,6 +6,9 @@ Module ModuleCURRENT
 
     Public NI_OPENED As Boolean = False
 
+    Public AUTOSTART_FIM As Boolean = False
+    Public AUTOSTART_FIH As Boolean = False
+
     Public CURRENT_STATE As String = ""
 
     Public DI_PAGECOUNT As Integer

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,38 +670,14 @@ 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)
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property NI_RUNNING() As Boolean
-            Get
-                Return CType(Me("NI_RUNNING"),Boolean)
-            End Get
-            Set
-                Me("NI_RUNNING") = value
-            End Set
-        End Property
-        
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
-        Public Property DI_RUNNING() As Boolean
-            Get
-                Return CType(Me("DI_RUNNING"),Boolean)
-            End Get
-            Set
-                Me("DI_RUNNING") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("@Domain#@User#@PW")>  _
@@ -757,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,16 +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="NI_RUNNING" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
-    </Setting>
-    <Setting Name="DI_RUNNING" Type="System.Boolean" Scope="User">
-      <Value Profile="(Default)">False</Value>
     </Setting>
     <Setting Name="WM_PERS_LOGIN" Type="System.String" Scope="Application">
       <Value Profile="(Default)">@Domain#@User#@PW</Value>
@@ -187,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,17 +92,20 @@
     <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>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Database">
-      <HintPath>..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Database\bin\Debug\DigitalData.Modules.Database.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Filesystem">
       <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Digital Data\DigitalData.Modules.Filesystem.dll</HintPath>
     </Reference>
     <Reference Include="DigitalData.Modules.Logging">
-      <HintPath>..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
+      <HintPath>..\..\..\2_DLL Projekte\DDModules\Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
     </Reference>
     <Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
       <HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.dll</HintPath>
@@ -334,18 +337,6 @@
     <Compile Include="frmDIRegelverwaltung.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmLogin_DI.Designer.vb">
-      <DependentUpon>frmLogin_DI.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLogin_DI.vb">
-      <SubType>Form</SubType>
-    </Compile>
-    <Compile Include="frmLogin_NI.Designer.vb">
-      <DependentUpon>frmLogin_NI.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLogin_NI.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmMIProfileigenschaften.Designer.vb">
       <DependentUpon>frmMIProfileigenschaften.vb</DependentUpon>
     </Compile>
@@ -507,12 +498,6 @@
     <EmbeddedResource Include="frmDIRegelverwaltung.resx">
       <DependentUpon>frmDIRegelverwaltung.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmLogin_DI.resx">
-      <DependentUpon>frmLogin_DI.vb</DependentUpon>
-    </EmbeddedResource>
-    <EmbeddedResource Include="frmLogin_NI.resx">
-      <DependentUpon>frmLogin_NI.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmMIProfileigenschaften.resx">
       <DependentUpon>frmMIProfileigenschaften.vb</DependentUpon>
     </EmbeddedResource>
@@ -544,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>
@@ -147,12 +147,6 @@
       <setting name="myDateiname" serializeAs="String">
         <value>myInvalidDateiname.pdf</value>
       </setting>
-      <setting name="NI_RUNNING" serializeAs="String">
-        <value>False</value>
-      </setting>
-      <setting name="DI_RUNNING" serializeAs="String">
-        <value>False</value>
-      </setting>
       <setting name="vDeleteLogsTime" serializeAs="String">
         <value />
       </setting>
@@ -165,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>
@@ -191,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
 
@@ -155,7 +157,6 @@ Public Class frmDIHauptseite
                 Me.tvLog.Visible = False
                 Me.timRun_Dateiimport.Stop()
                 Durchlauf = False
-                My.Settings.DI_RUNNING = False
 
             End If
             Me.progressImport.Enabled = False
@@ -239,9 +240,14 @@ Public Class frmDIHauptseite
     Private Sub frmDIHauptseite_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         Formloaded = True
         Me.LoadProfilesInCombobox()
-        If My.Settings.DI_RUNNING = True Then
+
+        If AUTOSTART_FIM Then
             Me.rbAutomatisch.Checked = True
             Automatischer_Durchlauf(False)
+            _Logger.Info("AUTOSTART_FIM = True - Dateiimport wird gestartet.")
+            AUTOSTART_FIM = False
+        Else
+            _Logger.Info("Dateiimport Hauptformular wurde geladen - Dateiimport wird NICHT gestartet.")
         End If
     End Sub
 #End Region
@@ -264,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
@@ -279,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)
@@ -294,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
@@ -338,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
 
@@ -354,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")
@@ -422,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
@@ -868,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 = ""
 
@@ -880,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
@@ -2297,7 +2341,6 @@ Public Class frmDIHauptseite
 
                     Me.timRun_Dateiimport.Interval = Me.numIntervallDurchlauf.Value * 60 * 1000
                     Me.timRun_Dateiimport.Start()
-                    My.Settings.DI_RUNNING = True
                     My.Settings.Save()
                     'Direkt einen Durchlauf starten
                     If runnow = True Then
@@ -2316,7 +2359,6 @@ Public Class frmDIHauptseite
                 Me.tvLog.Visible = False
                 Me.timRun_Dateiimport.Stop()
                 Durchlauf = False
-                My.Settings.DI_RUNNING = False
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei btnDurchlauf.Click:")

ToolCollection/frmDIProfilEigenschaften.vb

@@ -57,11 +57,11 @@ Public Class frmDIProfilEigenschaften
     End Sub
     Private Sub LoadProfilesInCombobox()
         'Schreibt die Profile in die Combobox in der Toolbar.
-        Try
+        'Try
-            ClassDIProfile.Init()
+        ClassDIProfile.Init()
-            Me.cmbProfilauswahl.DropDownItems.Clear()
 
-            If ClassDIProfile.Profile IsNot Nothing Then
+        Me.cmbProfilauswahl.DropDownItems.Clear()
+        If ClassDIProfile.Profile IsNot Nothing Then
                 Dim anz As Integer = 0
                 For Each item As ClassDIProfil In ClassDIProfile.Profile
                     Me.cmbProfilauswahl.DropDownItems.Add(item.Profilname)
@@ -73,9 +73,9 @@ Public Class frmDIProfilEigenschaften
                 Prof_Anzahl = anz
                 Me.tslblAnzahl.Text = "Anzahl Profile: " & anz
             End If
-        Catch ex As Exception
+        'Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profile in Auswahlliste:")
+        '    MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der Profile in Auswahlliste:")
-        End Try
+        'End Try
     End Sub
     Sub Lade_Profil(ByVal profilname As String)
         ' das ausgewählte Profil in selectedProfile laden
@@ -256,25 +256,9 @@ Public Class frmDIProfilEigenschaften
     End Sub
 
     Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
-        Try
-            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                Select Case license.Modulename.ToUpper
-                    Case "DATEIIMPORT"
-                        If Prof_Anzahl + 1 > license.Anz_Profile Then
-                            MsgBox("Die Maximalanzahl der lizensierten Dateiimport-Profile (" & license.Anz_Profile.ToString & ") ist erreicht!", MsgBoxStyle.Exclamation, "Achtung - Lizenzfehler:")
-                            Exit Sub
-                        End If
-                End Select
-
-            Next
-        Catch ex As Exception
-            If My.Settings.licensekey <> "DD MaxLicense" Or My.Settings.licensekey.ToUpper <> "DDALLIN" Or My.Settings.licensekey.ToUpper <> "DD_ALL_IN" Then
-                MsgBox("Error Adding Profile due to license issue!", MsgBoxStyle.Critical)
-            End If
-        End Try
-
         ' das Formular zum Erstellen eines neuen Profil öffnen
-        frmLogin_DI.ShowDialog()
+        frmDIProfilHinzufuegen.ShowDialog()
+        'frmLogin_DI.ShowDialog()
         'frmDIProfilHinzufuegen.ShowDialog()
         ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
         Me.LoadProfilesInCombobox()
@@ -299,6 +283,8 @@ Public Class frmDIProfilEigenschaften
                 Me.btnLöschen.Enabled = False
                 ' kein Profil als selektiert wählen
                 Me.selectedProfile = Nothing
+
+                Me.lblProfil.Text = "Kein Profil gewählt"
                 ' die Profile neu in die Combobox laden
                 Me.LoadProfilesInCombobox()
             End If

ToolCollection/frmDIProfilHinzufuegen.vb

@@ -31,7 +31,6 @@
         Me.chkQuellverzeichnisLoeschen.Checked = False
 
         Me.ObjekttypenEintragen()
-        frmLogin_DI.Close()
         Label6.Visible = False
     End Sub
     Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click

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/frmLogin_DI.Designer.vb

@@ -1,95 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmLogin_DI
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    '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()> _
-    Private Sub InitializeComponent()
-        Me.txtPW = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.btnAbbruch = New System.Windows.Forms.Button()
-        Me.btnok = New System.Windows.Forms.Button()
-        Me.SuspendLayout()
-        '
-        'txtPW
-        '
-        Me.txtPW.Location = New System.Drawing.Point(12, 23)
-        Me.txtPW.Name = "txtPW"
-        Me.txtPW.Size = New System.Drawing.Size(248, 22)
-        Me.txtPW.TabIndex = 7
-        Me.txtPW.UseSystemPasswordChar = True
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(9, 7)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 13)
-        Me.Label1.TabIndex = 6
-        Me.Label1.Text = "Passwort:"
-        '
-        'btnAbbruch
-        '
-        Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnAbbruch.Location = New System.Drawing.Point(105, 56)
-        Me.btnAbbruch.Name = "btnAbbruch"
-        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
-        Me.btnAbbruch.TabIndex = 5
-        Me.btnAbbruch.Text = "Abbruch"
-        Me.btnAbbruch.UseVisualStyleBackColor = True
-        '
-        'btnok
-        '
-        Me.btnok.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnok.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnok.Location = New System.Drawing.Point(186, 56)
-        Me.btnok.Name = "btnok"
-        Me.btnok.Size = New System.Drawing.Size(75, 23)
-        Me.btnok.TabIndex = 4
-        Me.btnok.Text = "Weiter"
-        Me.btnok.UseVisualStyleBackColor = True
-        '
-        'frmLogin_DI
-        '
-        Me.AcceptButton = Me.btnok
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.CancelButton = Me.btnok
-        Me.ClientSize = New System.Drawing.Size(285, 91)
-        Me.Controls.Add(Me.txtPW)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.btnAbbruch)
-        Me.Controls.Add(Me.btnok)
-        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
-        Me.Name = "frmLogin_DI"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Passwort eingeben"
-        Me.TopMost = True
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents txtPW As System.Windows.Forms.TextBox
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
-    Friend WithEvents btnok As System.Windows.Forms.Button
-End Class

ToolCollection/frmLogin_DI.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

ToolCollection/frmLogin_DI.vb

@@ -1,33 +0,0 @@
-Public Class frmLogin_DI
-    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
-        If Me.txtPW.Text <> "" Then
-            If Me.txtPW.Text = My.Settings.vPW_admin Then
-                Me.Hide()
-                frmDIProfilHinzufuegen.Show()
-                Cursor = Cursors.Default
-            Else
-                MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
-                Me.txtPW.Text = ""
-                Me.txtPW.Focus()
-            End If
-        End If
-    End Sub
-    Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        Me.txtPW.Text = ""
-    End Sub
-
-    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
-        Me.Close()
-    End Sub
-
-    Private Sub txtPW_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.GotFocus
-        Me.txtPW.BackColor = Color.Lime
-    End Sub
-
-    Private Sub txtPW_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.LostFocus
-        Me.txtPW.BackColor = Color.White
-    End Sub
-    Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
-        Me.txtPW.Focus()
-    End Sub
-End Class

ToolCollection/frmLogin_NI.Designer.vb

@@ -1,94 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmLogin_NI
-    Inherits System.Windows.Forms.Form
-
-    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
-    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
-        Try
-            If disposing AndAlso components IsNot Nothing Then
-                components.Dispose()
-            End If
-        Finally
-            MyBase.Dispose(disposing)
-        End Try
-    End Sub
-
-    'Wird vom Windows Form-Designer benötigt.
-    Private components As System.ComponentModel.IContainer
-
-    '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()> _
-    Private Sub InitializeComponent()
-        Me.btnok = New System.Windows.Forms.Button()
-        Me.btnAbbruch = New System.Windows.Forms.Button()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.txtPW = New System.Windows.Forms.TextBox()
-        Me.SuspendLayout()
-        '
-        'btnok
-        '
-        Me.btnok.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnok.Location = New System.Drawing.Point(188, 74)
-        Me.btnok.Name = "btnok"
-        Me.btnok.Size = New System.Drawing.Size(75, 23)
-        Me.btnok.TabIndex = 0
-        Me.btnok.Text = "Weiter"
-        Me.btnok.UseVisualStyleBackColor = True
-        '
-        'btnAbbruch
-        '
-        Me.btnAbbruch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnAbbruch.DialogResult = System.Windows.Forms.DialogResult.Cancel
-        Me.btnAbbruch.Location = New System.Drawing.Point(107, 74)
-        Me.btnAbbruch.Name = "btnAbbruch"
-        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
-        Me.btnAbbruch.TabIndex = 1
-        Me.btnAbbruch.Text = "Abbruch"
-        Me.btnAbbruch.UseVisualStyleBackColor = True
-        '
-        'Label1
-        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(12, 9)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(56, 13)
-        Me.Label1.TabIndex = 2
-        Me.Label1.Text = "Passwort:"
-        '
-        'txtPW
-        '
-        Me.txtPW.Location = New System.Drawing.Point(15, 25)
-        Me.txtPW.Name = "txtPW"
-        Me.txtPW.Size = New System.Drawing.Size(248, 22)
-        Me.txtPW.TabIndex = 3
-        Me.txtPW.UseSystemPasswordChar = True
-        '
-        'frmLogin
-        '
-        Me.AcceptButton = Me.btnok
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.CancelButton = Me.btnAbbruch
-        Me.ClientSize = New System.Drawing.Size(285, 109)
-        Me.Controls.Add(Me.txtPW)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.btnAbbruch)
-        Me.Controls.Add(Me.btnok)
-        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
-        Me.Name = "frmLogin"
-        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "Passwort notwendig:"
-        Me.TopMost = True
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents btnok As System.Windows.Forms.Button
-    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents txtPW As System.Windows.Forms.TextBox
-End Class

ToolCollection/frmLogin_NI.resx

@@ -1,120 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" use="required" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-              <xsd:attribute ref="xml:space" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

ToolCollection/frmLogin_NI.vb

@@ -1,34 +0,0 @@
-Public Class frmLogin_NI
-
-    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
-        If Me.txtPW.Text <> "" Then
-            If Me.txtPW.Text = My.Settings.vPW_admin Then
-                Me.Hide()
-                frmNIProfilhinzufuegen.ShowDialog()
-                Cursor = Cursors.Default
-            Else
-                MsgBox("Das eingegebene Passwort stimmt nicht überein!", MsgBoxStyle.Critical, "Falsche Eingabe:")
-                Me.txtPW.Text = ""
-                Me.txtPW.Focus()
-            End If
-        End If
-    End Sub
-    Private Sub frmLogin_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        Me.txtPW.Text = ""
-    End Sub
-
-    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
-        Me.Close()
-    End Sub
-
-    Private Sub txtPW_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.GotFocus
-        Me.txtPW.BackColor = Color.Lime
-    End Sub
-
-    Private Sub txtPW_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtPW.LostFocus
-        Me.txtPW.BackColor = Color.White
-    End Sub
-    Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
-        Me.txtPW.Focus()
-    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
 
@@ -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.")
@@ -113,15 +119,50 @@ Public Class frmNIHauptseite
             _MyLogger.Debug = False
         End If
 
-        If My.Settings.NI_RUNNING = True Then
+        If AUTOSTART_FIH Then
-
-            _Logger.Info("Nachindexierungslauf wird wieder gestartet - My.Settings.NI_RUNNING = True")
             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
             _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
         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
@@ -316,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)
@@ -592,6 +642,7 @@ Public Class frmNIHauptseite
                 ' nächstes Profil an ProgressBar1
                 bwProfil.ReportProgress(-2)
             Next
+
         Catch ex As Exception
             _Logger.Error(ex)
 
@@ -620,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
 
@@ -721,7 +786,11 @@ 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()
@@ -2720,7 +2789,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
@@ -2742,7 +2813,6 @@ Public Class frmNIHauptseite
         bwDatei.WorkerReportsProgress = True
         bwDatei.WorkerSupportsCancellation = True
 
-        My.Settings.NI_RUNNING = True
         My.Settings.Save()
         ' den Indexierungsvorgang direkt (zum ersten Mal) durchführen
         Me.Profile_Durchlaufen()
@@ -2784,7 +2854,6 @@ Public Class frmNIHauptseite
             If keeprunning = False Then
                 _Logger.Debug("keeprunning = False - Zurücksetzen")
                 'Abbruch der Nachindexierung
-                My.Settings.NI_RUNNING = False
                 Me.numIntervall.Enabled = True
                 Me.pnlInfos.Visible = False
                 Me.tslblStatus.Visible = False
@@ -2812,22 +2881,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
-        manuallyRun = True
+        If My.Settings.vNIRunning Or My.Settings.vNIsingleProfileRunning Then
-        If Me.btnStartStop.Text = "Nachindexierung stoppen" 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
@@ -2999,6 +3103,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

@@ -148,6 +148,7 @@ Partial Class frmNIProfileigenschaften
         Me.Label16 = New System.Windows.Forms.Label()
         Me.txtObjekttyp = New System.Windows.Forms.TextBox()
         Me.btnopenSuche = New System.Windows.Forms.Button()
+        Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
         Me.StatusStrip1.SuspendLayout()
         Me.gbxDatenbank.SuspendLayout()
         Me.gbxDatei.SuspendLayout()
@@ -165,6 +166,7 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox5.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         Me.TabPage4.SuspendLayout()
+        Me.pnlProfileigenschaften.SuspendLayout()
         Me.SuspendLayout()
         '
         'StatusStrip1
@@ -176,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(920, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(984, 22)
         Me.StatusStrip1.SizingGrip = False
         Me.StatusStrip1.TabIndex = 23
         Me.StatusStrip1.Text = "StatusStrip1"
@@ -524,7 +526,7 @@ Partial Class frmNIProfileigenschaften
         Me.lblDateiendung.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblDateiendung.Location = New System.Drawing.Point(130, 25)
         Me.lblDateiendung.Name = "lblDateiendung"
-        Me.lblDateiendung.Size = New System.Drawing.Size(114, 13)
+        Me.lblDateiendung.Size = New System.Drawing.Size(113, 13)
         Me.lblDateiendung.TabIndex = 3
         Me.lblDateiendung.Text = "Dateiendungen/Typ*"
         '
@@ -555,13 +557,15 @@ Partial Class frmNIProfileigenschaften
         '
         'btnVerknüpfungen
         '
-        Me.btnVerknüpfungen.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
-        Me.btnVerknüpfungen.Location = New System.Drawing.Point(754, 36)
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
         Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(150, 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
         '
@@ -569,7 +573,7 @@ Partial Class frmNIProfileigenschaften
         '
         Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info
         Me.txtWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtWindreamsuche.Location = New System.Drawing.Point(18, 126)
+        Me.txtWindreamsuche.Location = New System.Drawing.Point(7, 118)
         Me.txtWindreamsuche.Name = "txtWindreamsuche"
         Me.txtWindreamsuche.Size = New System.Drawing.Size(451, 22)
         Me.txtWindreamsuche.TabIndex = 6
@@ -577,7 +581,7 @@ Partial Class frmNIProfileigenschaften
         'btnWindreamsuche
         '
         Me.btnWindreamsuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnWindreamsuche.Location = New System.Drawing.Point(475, 125)
+        Me.btnWindreamsuche.Location = New System.Drawing.Point(464, 117)
         Me.btnWindreamsuche.Name = "btnWindreamsuche"
         Me.btnWindreamsuche.Size = New System.Drawing.Size(24, 21)
         Me.btnWindreamsuche.TabIndex = 3
@@ -587,7 +591,7 @@ Partial Class frmNIProfileigenschaften
         'Label2
         '
         Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(15, 63)
+        Me.Label2.Location = New System.Drawing.Point(4, 55)
         Me.Label2.Name = "Label2"
         Me.Label2.Size = New System.Drawing.Size(61, 13)
         Me.Label2.TabIndex = 37
@@ -596,7 +600,7 @@ Partial Class frmNIProfileigenschaften
         'Label1
         '
         Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(15, 22)
+        Me.Label1.Location = New System.Drawing.Point(4, 14)
         Me.Label1.Name = "Label1"
         Me.Label1.Size = New System.Drawing.Size(70, 13)
         Me.Label1.TabIndex = 36
@@ -604,7 +608,7 @@ Partial Class frmNIProfileigenschaften
         '
         'txtProfilname
         '
-        Me.txtProfilname.Location = New System.Drawing.Point(18, 38)
+        Me.txtProfilname.Location = New System.Drawing.Point(7, 30)
         Me.txtProfilname.Name = "txtProfilname"
         Me.txtProfilname.Size = New System.Drawing.Size(396, 22)
         Me.txtProfilname.TabIndex = 35
@@ -613,7 +617,7 @@ Partial Class frmNIProfileigenschaften
         '
         Me.chkbxAktiv.AutoSize = True
         Me.chkbxAktiv.BackColor = System.Drawing.Color.Transparent
-        Me.chkbxAktiv.Location = New System.Drawing.Point(429, 40)
+        Me.chkbxAktiv.Location = New System.Drawing.Point(418, 32)
         Me.chkbxAktiv.Name = "chkbxAktiv"
         Me.chkbxAktiv.Size = New System.Drawing.Size(119, 17)
         Me.chkbxAktiv.TabIndex = 52
@@ -671,7 +675,7 @@ Partial Class frmNIProfileigenschaften
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(426, 63)
+        Me.Label7.Location = New System.Drawing.Point(415, 55)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(98, 13)
         Me.Label7.TabIndex = 73
@@ -681,7 +685,7 @@ Partial Class frmNIProfileigenschaften
         '
         Me.txtlastRun.BackColor = System.Drawing.Color.WhiteSmoke
         Me.txtlastRun.Enabled = False
-        Me.txtlastRun.Location = New System.Drawing.Point(429, 79)
+        Me.txtlastRun.Location = New System.Drawing.Point(418, 71)
         Me.txtlastRun.Name = "txtlastRun"
         Me.txtlastRun.Size = New System.Drawing.Size(160, 22)
         Me.txtlastRun.TabIndex = 74
@@ -730,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(643, 79)
+        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
@@ -765,10 +770,10 @@ Partial Class frmNIProfileigenschaften
         Me.TabControl1.Controls.Add(Me.TabPage2)
         Me.TabControl1.Controls.Add(Me.TabPage3)
         Me.TabControl1.Controls.Add(Me.TabPage4)
-        Me.TabControl1.Location = New System.Drawing.Point(18, 159)
+        Me.TabControl1.Location = New System.Drawing.Point(3, 222)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(890, 442)
+        Me.TabControl1.Size = New System.Drawing.Size(978, 491)
         Me.TabControl1.TabIndex = 78
         '
         'TabPage1
@@ -781,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(882, 416)
+        Me.TabPage1.Size = New System.Drawing.Size(970, 465)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Typ und Quelle"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -802,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(413, 176)
+        Me.grbxLDAP.Size = New System.Drawing.Size(501, 225)
         Me.grbxLDAP.TabIndex = 79
         Me.grbxLDAP.TabStop = False
         Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@@ -904,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(293, 162)
+        Me.grbxVolltext.Size = New System.Drawing.Size(385, 211)
         Me.grbxVolltext.TabIndex = 78
         Me.grbxVolltext.TabStop = False
         Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@@ -957,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(882, 416)
+        Me.TabPage2.Size = New System.Drawing.Size(958, 455)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kennzeichnung und Active Directory"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -993,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
@@ -1251,7 +1256,7 @@ Partial Class frmNIProfileigenschaften
         Me.Label4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label4.Location = New System.Drawing.Point(6, 18)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(639, 15)
+        Me.Label4.Size = New System.Drawing.Size(638, 15)
         Me.Label4.TabIndex = 71
         Me.Label4.Text = "Wählen Sie hier einen Ordner in windream, in welchen die Datei, nach erfolgreiche" &
     "r Indexierung verschoben werden soll."
@@ -1280,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
@@ -1290,7 +1295,7 @@ Partial Class frmNIProfileigenschaften
         Me.Label24.AutoSize = True
         Me.Label24.Location = New System.Drawing.Point(461, 56)
         Me.Label24.Name = "Label24"
-        Me.Label24.Size = New System.Drawing.Size(121, 13)
+        Me.Label24.Size = New System.Drawing.Size(122, 13)
         Me.Label24.TabIndex = 63
         Me.Label24.Text = "Beispiel Ordnerebene:"
         '
@@ -1401,7 +1406,7 @@ Partial Class frmNIProfileigenschaften
         '
         Me.Label16.AutoSize = True
         Me.Label16.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label16.Location = New System.Drawing.Point(15, 110)
+        Me.Label16.Location = New System.Drawing.Point(4, 102)
         Me.Label16.Name = "Label16"
         Me.Label16.Size = New System.Drawing.Size(174, 13)
         Me.Label16.TabIndex = 79
@@ -1409,7 +1414,7 @@ Partial Class frmNIProfileigenschaften
         '
         'txtObjekttyp
         '
-        Me.txtObjekttyp.Location = New System.Drawing.Point(18, 79)
+        Me.txtObjekttyp.Location = New System.Drawing.Point(7, 71)
         Me.txtObjekttyp.Name = "txtObjekttyp"
         Me.txtObjekttyp.ReadOnly = True
         Me.txtObjekttyp.Size = New System.Drawing.Size(396, 22)
@@ -1421,7 +1426,7 @@ Partial Class frmNIProfileigenschaften
         Me.btnopenSuche.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnopenSuche.Image = Global.ToolCollection.My.Resources.Resources.plugin
         Me.btnopenSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnopenSuche.Location = New System.Drawing.Point(505, 117)
+        Me.btnopenSuche.Location = New System.Drawing.Point(494, 109)
         Me.btnopenSuche.Name = "btnopenSuche"
         Me.btnopenSuche.Padding = New System.Windows.Forms.Padding(0, 0, 2, 2)
         Me.btnopenSuche.Size = New System.Drawing.Size(68, 36)
@@ -1430,30 +1435,40 @@ Partial Class frmNIProfileigenschaften
         Me.btnopenSuche.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnopenSuche.UseVisualStyleBackColor = True
         '
+        'pnlProfileigenschaften
+        '
+        Me.pnlProfileigenschaften.Controls.Add(Me.TabControl1)
+        Me.pnlProfileigenschaften.Controls.Add(Me.txtObjekttyp)
+        Me.pnlProfileigenschaften.Controls.Add(Me.lblSave)
+        Me.pnlProfileigenschaften.Controls.Add(Me.btnopenSuche)
+        Me.pnlProfileigenschaften.Controls.Add(Me.btnVerknüpfungen)
+        Me.pnlProfileigenschaften.Controls.Add(Me.Label16)
+        Me.pnlProfileigenschaften.Controls.Add(Me.txtProfilname)
+        Me.pnlProfileigenschaften.Controls.Add(Me.btnWindreamsuche)
+        Me.pnlProfileigenschaften.Controls.Add(Me.Label2)
+        Me.pnlProfileigenschaften.Controls.Add(Me.txtWindreamsuche)
+        Me.pnlProfileigenschaften.Controls.Add(Me.Label1)
+        Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
+        Me.pnlProfileigenschaften.Controls.Add(Me.chkbxAktiv)
+        Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
+        Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
+        Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
+        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(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(920, 603)
+        Me.ClientSize = New System.Drawing.Size(984, 738)
-        Me.Controls.Add(Me.txtObjekttyp)
+        Me.Controls.Add(Me.pnlProfileigenschaften)
-        Me.Controls.Add(Me.btnopenSuche)
-        Me.Controls.Add(Me.Label16)
-        Me.Controls.Add(Me.btnWindreamsuche)
-        Me.Controls.Add(Me.txtWindreamsuche)
-        Me.Controls.Add(Me.TabControl1)
-        Me.Controls.Add(Me.lblSave)
-        Me.Controls.Add(Me.txtlastRun)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.chkbxAktiv)
         Me.Controls.Add(Me.StatusStrip1)
-        Me.Controls.Add(Me.btnVerknüpfungen)
-        Me.Controls.Add(Me.txtProfilname)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.Label2)
         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)
@@ -1488,6 +1503,8 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox3.PerformLayout()
         Me.TabPage4.ResumeLayout(False)
         Me.TabPage4.PerformLayout()
+        Me.pnlProfileigenschaften.ResumeLayout(False)
+        Me.pnlProfileigenschaften.PerformLayout()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -1607,4 +1624,5 @@ Partial Class frmNIProfileigenschaften
     Friend WithEvents Label20 As System.Windows.Forms.Label
     Friend WithEvents Label25 As System.Windows.Forms.Label
     Friend WithEvents btnMoveRename As Button
+    Friend WithEvents pnlProfileigenschaften As Panel
 End Class

ToolCollection/frmNIProfileigenschaften.resx

@@ -130,17 +130,17 @@
   <data name="btnMdbLöschen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m
-        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAIySURBVDhPlZJrTxNBFIaJicnG36BWiYbISkDiDaEt
+        dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAItSURBVDhPnZHbThNhFEaJicnEZ1BRojEyEpB4QqBl
-        C5TWBgQT6P1Cu5UC0pZe0qZQG/WDJv4SfxeIir1hpbu97Pb1TEmXbvqJD08yc2be98w5Z0YAXIvmlnhr
+        OBUbEEig9FymRU5CDzBpMxwa8UITn8TnAlGxtFSgM6Wd6TIFHanjjV58yfcn/1rJ3rsJaPqXlGdj1y6/
-        cK87RCZnIHhdbIBmMMzLXn+i4XCb+rGrC0ycO0Q3m4eaSA2ZNAMhvhmKoLWzh39vN77XV9cesbhOjOIn
+        Gz8omWaUjPgnZMGRqKgHQomSx+ewC+pwZoNaWsVMrNkk5bAsluU5zhaXOZmc+ng8Nn7/t+AnTHaHWnYH
-        dAk1mUFnd18zkf1bPGVHJ5YACkWw9bnVnqguWG5cGqSzXDeZUbuHH4Cv36DmC8wArZDIy74gT9nR3o8D
+        M6VQXVqxJHpoVixHolRXE7CVpd6LLnei0D905UKwnhZqKcWsbWzD+w+Y6lZdwJkcE/VgRCyHZSorcdjY
-        dC4HQzhffq1UhaWbVy8g1HiSU97HFTWTAz5/gZLOohmOgLKjvRcD8ke9dc1iI/Ei19dpBoxOdJdridtK
+        Ro/IFIdfGAVp8GrDCGY8JRiv44apZODtO4z1NOXoHHpolsryKqib5/1oaMQoSAOCfQfQVF1YEs5i80Z1
-        J3ZA5XwEjookLAC5PGRfALUlq1KdX9DEDJ0Bg57LSR6/ijyV4w0ALi+QyaK2uKxWzIJOzNBtGJLbx0YF
+        NQnZN7CZBXULMip6MMzRoMso9PVbsE1QTzksC5o/ZKJuQyAM3gAoaY4Ghs28U2qA/yrQfMH6qSCtgscH
-        0DTgcAMbTuAgRXXbUJqZG5qObiO5vLzk8aEdiQKpDAnTQJzKoQbKm05UjWb8nprWmWiLhtPDS24v2uI2
+        UzOQXKM4PEKuq8d2nUbYGxA1f5DK3AKsKZBch3gSVuLo0zMUep187ehskFilNOMXNV+ASmweUgqa109B
-        QGOUXB5Qs5TynEm9WF0HojtovFlH6elznI6NayaXYoebp+xoh99R1iQkejo1SynPmrjSixnubPqZUrdY
+        GjAOexzm6dgELCxSejlB7tET9u+1WpIL2OMTNW+ASvQVJFNoHh+Fvn7jsNsh5J52CQedj43jIRdEY5yO
-        gbCIC5sdZxOTOLk32jPpGdDPEhoOF9ohEdKmC9QspfzKqDXs18QU93P8sfLXLECyr+DP5BMc3zEImgGD
+        uDloa2fvVsu55FxwMjkllTxeKnIMbdpL3ikZh897rYV9aesQPrc+ML47JTT3KN/aH7J7o1lqGKHockvH
-        fpZQX1lDxTSvUrOGun36cIz7MfpAGRQzdJcqRrNQejk7JO5zYrjPHd++q4kZugvXByP/AXK7pMeJCyzg
+        o+PkHX1mrqvHtu39u/eETy13jMtwg6CefK9Tyj3rtsG/std8W9i9ftOCbYL/yQ9yu6TH5dYZBAAAAABJ
-        AAAAAElFTkSuQmCC
+        RU5ErkJggg==
 </value>
   </data>
   <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAZgBAAGYAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmNIProfileigenschaften.vb

@@ -17,6 +17,7 @@ Public Class frmNIProfileigenschaften
     Private Shared _Instance As frmNIProfileigenschaften = Nothing
     Private licenseManager As ClassLicenseManager = Nothing
     Private INDEX_LIST As New List(Of String)
+    Private selectedProfile As ClassNIProfil
     Public Shared Function Instance() As frmNIProfileigenschaften
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
             _Instance = New frmNIProfileigenschaften
@@ -141,6 +142,7 @@ Public Class frmNIProfileigenschaften
                         ' die Profile neu in die Combobox der Toolbar laden (für den Fall das Profilname geändert wurde)
                         Me.LoadProfilesInCombobox()
 
+                        Me.pnlProfileigenschaften.Visible = False
                         ' die Profileigenschaften auf diesem Panel ausblenden
                         ' den Speichern-Button deaktivieren 
                         Me.btnSpeichern.Enabled = False
@@ -157,6 +159,7 @@ Public Class frmNIProfileigenschaften
                     ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
                     If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal()
 
+                    Me.pnlProfileigenschaften.Visible = False
                     ' den Speichern-Button deaktivieren 
                     Me.btnSpeichern.Enabled = False
                     ' den Löschen-Button deaktivieren 
@@ -173,6 +176,8 @@ Public Class frmNIProfileigenschaften
                 Return "keineAenderung"
                 ' wenn ein Profil selektiert ist: den originalen Profilnamen setzen
                 If Me._selectedProfile IsNot Nothing Then Me._selectedProfile.SetBackToOriginal()
+
+                Me.pnlProfileigenschaften.Visible = False
                 ' den Speichern-Button deaktivieren 
                 Me.btnSpeichern.Enabled = False
                 ' den Löschen-Button deaktivieren 
@@ -248,6 +253,7 @@ Public Class frmNIProfileigenschaften
             Me._selectedProfile = ClassNIProfile.getProfilByName(name)
             ' wenn das selektierte Profil gefunden wurde
             If Me._selectedProfile IsNot Nothing Then
+                Me.pnlProfileigenschaften.Visible = True
                 Me.lblSave.Visible = False
                 ' die Steuerelemente für die Profilinformationen mit den Daten füllen
                 Me.txtProfilname.Text = Me._selectedProfile.Profilname
@@ -501,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
@@ -540,24 +547,8 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
-        Try
+        'frmLogin_NI.ShowDialog()
-            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
+        frmNIProfilhinzufuegen.ShowDialog()
-                Select Case license.Modulename.ToUpper
-                    Case "NACHINDEXIERUNG"
-                        If Prof_Anzahl + 1 > license.Anz_Profile Then
-                            MsgBox("Die Maximalanzahl der lizensierten Nachindexierungs-Profile (" & license.Anz_Profile.ToString & ") ist erreicht!", MsgBoxStyle.Exclamation, "Achtung - Lizenzfehler:")
-                            Exit Sub
-                        End If
-                End Select
-
-            Next
-        Catch ex As Exception
-            If My.Settings.licensekey <> "DD MaxLicense" Then
-                MsgBox("Error Adding Profile due to license issue!", MsgBoxStyle.Critical)
-            End If
-        End Try
-
-        frmLogin_NI.ShowDialog()
         ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
         Me.LoadProfilesInCombobox()
     End Sub
@@ -660,20 +651,24 @@ Public Class frmNIProfileigenschaften
             If result = MsgBoxResult.Yes Then
                 ' das Profil löschen
                 If ClassNIProfile.DeleteProfil(Me._selectedProfile.OriginalProfilname) Then
+
+                    Me.pnlProfileigenschaften.Visible = False
                     ' den Speichern-Button deaktivieren 
                     Me.btnSpeichern.Enabled = False
                     ' den Löschen-Button deaktivieren 
                     Me.btnLöschen.Enabled = False
                     ' kein Profil als selektiert wählen
                     Me._selectedProfile = Nothing
+
+                    Me.lblProfil.Text = "Kein Profil gewählt"
                     ' die Profile neu in die Combobox laden
                     Me.LoadProfilesInCombobox()
                     'Das erste Profil laden
-                    Try
+                    'Try
-                        Lade_Profil(Me.cmbProfilauswahl.DropDownItems(0).ToString)
+                    '    Lade_Profil(Me.cmbProfilauswahl.DropDownItems(0).ToString)
-                    Catch ex As Exception
+                    'Catch ex As Exception
 
-                    End Try
+                    'End Try
 
                 End If
             End If
@@ -830,11 +825,15 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub btnVerknüpfungen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVerknüpfungen.Click
+
+        ClassNIProfile.aktivesProfil = Me._selectedProfile
+        ClassNIProfile.aktivesProfilAusProfileigenschaften = True
         Cursor = Cursors.WaitCursor
         Dim frm As New frmNIVerknuepfungen
         frm = frmNIVerknuepfungen.Instance
         frm.MdiParent = frmStart
         frm.Show()
+        frm.BringToFront()
         Cursor = Cursors.Default
     End Sub
 
@@ -1115,6 +1114,11 @@ Public Class frmNIProfileigenschaften
         Else
             grpbxMORE.Enabled = False
         End If
+        If Me._selectedProfile Is Nothing Then
+            Me.pnlProfileigenschaften.Visible = False
+        Else
+            Lade_Profil(Me._selectedProfile.Profilname)
+        End If
     End Sub
 
     Private Sub chkbxUserIdent_CheckedChanged(sender As Object, e As EventArgs) Handles chkbxUserIdent.CheckedChanged

ToolCollection/frmNIProfilhinzufuegen.vb

@@ -34,7 +34,6 @@ Public Class frmNIProfilhinzufuegen
         ' Standardbuttons festlegen
         Me.AcceptButton = Me.btnOK
         Me.CancelButton = Me.btnAbbrechen
-        frmLogin_NI.Close()
     End Sub
     Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
 

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()
@@ -169,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()
@@ -191,6 +193,7 @@ Partial Class frmNIVerknuepfungen
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
+        Me.pnlFooter.SuspendLayout()
         Me.SuspendLayout()
         '
         'txtfinalSkriptUpdate
@@ -205,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
@@ -215,7 +219,7 @@ Partial Class frmNIVerknuepfungen
         Me.cmbDatenbankSpalten.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbDatenbankSpalten.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.cmbDatenbankSpalten.FormattingEnabled = True
-        Me.cmbDatenbankSpalten.Location = New System.Drawing.Point(996, 119)
+        Me.cmbDatenbankSpalten.Location = New System.Drawing.Point(996, 122)
         Me.cmbDatenbankSpalten.Name = "cmbDatenbankSpalten"
         Me.cmbDatenbankSpalten.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.cmbDatenbankSpalten.Size = New System.Drawing.Size(191, 21)
@@ -228,7 +232,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label8.AutoSize = True
         Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label8.Location = New System.Drawing.Point(880, 122)
+        Me.Label8.Location = New System.Drawing.Point(884, 125)
         Me.Label8.Name = "Label8"
         Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.Label8.Size = New System.Drawing.Size(105, 13)
@@ -357,10 +361,10 @@ Partial Class frmNIVerknuepfungen
         Me.btnZurücksetzen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnZurücksetzen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btnZurücksetzen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnZurücksetzen.Location = New System.Drawing.Point(996, 32)
+        Me.btnZurücksetzen.Location = New System.Drawing.Point(997, 32)
         Me.btnZurücksetzen.Name = "btnZurücksetzen"
         Me.btnZurücksetzen.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnZurücksetzen.Size = New System.Drawing.Size(89, 21)
+        Me.btnZurücksetzen.Size = New System.Drawing.Size(110, 24)
         Me.btnZurücksetzen.TabIndex = 33
         Me.btnZurücksetzen.Text = "Zurücksetzen"
         Me.btnZurücksetzen.UseVisualStyleBackColor = True
@@ -376,7 +380,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label6.AutoSize = True
         Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label6.Location = New System.Drawing.Point(879, 149)
+        Me.Label6.Location = New System.Drawing.Point(884, 152)
         Me.Label6.Name = "Label6"
         Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.Label6.Size = New System.Drawing.Size(99, 13)
@@ -400,7 +404,7 @@ Partial Class frmNIVerknuepfungen
         Me.cmbWindreamIndexe.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbWindreamIndexe.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.cmbWindreamIndexe.FormattingEnabled = True
-        Me.cmbWindreamIndexe.Location = New System.Drawing.Point(996, 146)
+        Me.cmbWindreamIndexe.Location = New System.Drawing.Point(996, 149)
         Me.cmbWindreamIndexe.Name = "cmbWindreamIndexe"
         Me.cmbWindreamIndexe.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.cmbWindreamIndexe.Size = New System.Drawing.Size(191, 21)
@@ -412,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
@@ -467,7 +471,7 @@ Partial Class frmNIVerknuepfungen
         Me.btnStandardSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnStandardSQL.Location = New System.Drawing.Point(880, 32)
         Me.btnStandardSQL.Name = "btnStandardSQL"
-        Me.btnStandardSQL.Size = New System.Drawing.Size(110, 21)
+        Me.btnStandardSQL.Size = New System.Drawing.Size(110, 24)
         Me.btnStandardSQL.TabIndex = 42
         Me.btnStandardSQL.Text = "SQL Grundgerüst"
         Me.btnStandardSQL.UseVisualStyleBackColor = True
@@ -477,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
         '
@@ -501,27 +503,27 @@ Partial Class frmNIVerknuepfungen
         'btnEindIndex
         '
         Me.btnEindIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnEindIndex.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnEindIndex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnEindIndex.ForeColor = System.Drawing.Color.OrangeRed
         Me.btnEindIndex.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnEindIndex.Location = New System.Drawing.Point(880, 59)
+        Me.btnEindIndex.Location = New System.Drawing.Point(880, 85)
         Me.btnEindIndex.Name = "btnEindIndex"
         Me.btnEindIndex.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnEindIndex.Size = New System.Drawing.Size(89, 21)
+        Me.btnEindIndex.Size = New System.Drawing.Size(110, 24)
         Me.btnEindIndex.TabIndex = 49
-        Me.btnEindIndex.Text = "Eind. Index"
+        Me.btnEindIndex.Text = "Eindeutiger Index"
         Me.btnEindIndex.UseVisualStyleBackColor = True
         '
         'Panel1
         '
         Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Panel1.BackColor = System.Drawing.Color.Lime
+        Me.Panel1.BackColor = System.Drawing.Color.GreenYellow
         Me.Panel1.Controls.Add(Me.lblSQLTest)
         Me.Panel1.Controls.Add(Me.txtTestwert)
         Me.Panel1.Controls.Add(Me.btnTestSQL)
-        Me.Panel1.Location = New System.Drawing.Point(996, 59)
+        Me.Panel1.Location = New System.Drawing.Point(996, 62)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(200, 52)
+        Me.Panel1.Size = New System.Drawing.Size(228, 52)
         Me.Panel1.TabIndex = 48
         '
         'lblSQLTest
@@ -540,7 +542,7 @@ Partial Class frmNIVerknuepfungen
         Me.txtTestwert.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.txtTestwert.Location = New System.Drawing.Point(3, 24)
         Me.txtTestwert.Name = "txtTestwert"
-        Me.txtTestwert.Size = New System.Drawing.Size(93, 22)
+        Me.txtTestwert.Size = New System.Drawing.Size(100, 22)
         Me.txtTestwert.TabIndex = 45
         '
         'btnTestSQL
@@ -549,12 +551,11 @@ Partial Class frmNIVerknuepfungen
         Me.btnTestSQL.Image = Global.ToolCollection.My.Resources.Resources.ico2469
         Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnTestSQL.Location = New System.Drawing.Point(99, 24)
+        Me.btnTestSQL.Location = New System.Drawing.Point(109, 23)
         Me.btnTestSQL.Name = "btnTestSQL"
-        Me.btnTestSQL.Size = New System.Drawing.Size(92, 24)
+        Me.btnTestSQL.Size = New System.Drawing.Size(114, 24)
         Me.btnTestSQL.TabIndex = 44
         Me.btnTestSQL.Text = "SQL testen"
-        Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnTestSQL.UseVisualStyleBackColor = True
         '
         'Label9
@@ -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(1141, 97)
-        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(89, 23)
-        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
@@ -711,7 +696,7 @@ Partial Class frmNIVerknuepfungen
         Me.rbTables.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.rbTables.Location = New System.Drawing.Point(132, 8)
         Me.rbTables.Name = "rbTables"
-        Me.rbTables.Size = New System.Drawing.Size(68, 17)
+        Me.rbTables.Size = New System.Drawing.Size(67, 17)
         Me.rbTables.TabIndex = 29
         Me.rbTables.Text = "Tabellen"
         Me.rbTables.UseVisualStyleBackColor = True
@@ -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, 214)
+        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  "
@@ -765,7 +749,7 @@ Partial Class frmNIVerknuepfungen
         Me.btnAddNI_Objekt.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btnAddNI_Objekt.Image = Global.ToolCollection.My.Resources.Resources.add
         Me.btnAddNI_Objekt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnAddNI_Objekt.Location = New System.Drawing.Point(1193, 175)
+        Me.btnAddNI_Objekt.Location = New System.Drawing.Point(1193, 177)
         Me.btnAddNI_Objekt.Name = "btnAddNI_Objekt"
         Me.btnAddNI_Objekt.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.btnAddNI_Objekt.Size = New System.Drawing.Size(33, 22)
@@ -778,7 +762,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label40.AutoSize = True
         Me.Label40.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Label40.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label40.Location = New System.Drawing.Point(877, 175)
+        Me.Label40.Location = New System.Drawing.Point(884, 180)
         Me.Label40.Name = "Label40"
         Me.Label40.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.Label40.Size = New System.Drawing.Size(97, 13)
@@ -793,35 +777,19 @@ Partial Class frmNIVerknuepfungen
         Me.cmbNI_Objekte.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.cmbNI_Objekte.FormattingEnabled = True
         Me.cmbNI_Objekte.Items.AddRange(New Object() {"Dokument - Dateiname.Endung", "Dokument - Dateiname", "Dokument - Pfad", "Dokument - Pfad\Dateiname.Endung", "Datum - heute"})
-        Me.cmbNI_Objekte.Location = New System.Drawing.Point(996, 174)
+        Me.cmbNI_Objekte.Location = New System.Drawing.Point(996, 177)
         Me.cmbNI_Objekte.Name = "cmbNI_Objekte"
         Me.cmbNI_Objekte.RightToLeft = System.Windows.Forms.RightToLeft.No
         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(1091, 32)
-        Me.btnsave_select.Name = "btnsave_select"
-        Me.btnsave_select.Size = New System.Drawing.Size(89, 23)
-        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)
         Me.btnSpalteEinfügen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btnSpalteEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
         Me.btnSpalteEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnSpalteEinfügen.Location = New System.Drawing.Point(1193, 118)
+        Me.btnSpalteEinfügen.Location = New System.Drawing.Point(1193, 121)
         Me.btnSpalteEinfügen.Name = "btnSpalteEinfügen"
         Me.btnSpalteEinfügen.Size = New System.Drawing.Size(33, 22)
         Me.btnSpalteEinfügen.TabIndex = 36
@@ -834,7 +802,7 @@ Partial Class frmNIVerknuepfungen
         Me.btnWindreamIndexEinfügen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.btnWindreamIndexEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
         Me.btnWindreamIndexEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnWindreamIndexEinfügen.Location = New System.Drawing.Point(1193, 146)
+        Me.btnWindreamIndexEinfügen.Location = New System.Drawing.Point(1193, 149)
         Me.btnWindreamIndexEinfügen.Name = "btnWindreamIndexEinfügen"
         Me.btnWindreamIndexEinfügen.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.btnWindreamIndexEinfügen.Size = New System.Drawing.Size(33, 22)
@@ -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, 175)
+        Me.txtSelectAnweisung.Size = New System.Drawing.Size(865, 189)
         Me.txtSelectAnweisung.TabIndex = 28
         '
         'Label5
@@ -935,11 +903,11 @@ 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, 222)
+        Me.tabctrlbottom.Size = New System.Drawing.Size(1265, 250)
         Me.tabctrlbottom.TabIndex = 41
         Me.tabctrlbottom.Visible = False
         '
@@ -957,7 +925,7 @@ 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, 196)
+        Me.TabPage6.Size = New System.Drawing.Size(1257, 224)
         Me.TabPage6.TabIndex = 3
         Me.TabPage6.Text = "Überprüfung deskriptiver Index"
         Me.TabPage6.UseVisualStyleBackColor = True
@@ -965,9 +933,9 @@ Partial Class frmNIVerknuepfungen
         'btnzuruecksetzen_checksql
         '
         Me.btnzuruecksetzen_checksql.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnzuruecksetzen_checksql.Location = New System.Drawing.Point(1008, 23)
+        Me.btnzuruecksetzen_checksql.Location = New System.Drawing.Point(1003, 21)
         Me.btnzuruecksetzen_checksql.Name = "btnzuruecksetzen_checksql"
-        Me.btnzuruecksetzen_checksql.Size = New System.Drawing.Size(84, 23)
+        Me.btnzuruecksetzen_checksql.Size = New System.Drawing.Size(110, 24)
         Me.btnzuruecksetzen_checksql.TabIndex = 51
         Me.btnzuruecksetzen_checksql.Text = "Zurücksetzen"
         Me.btnzuruecksetzen_checksql.UseVisualStyleBackColor = True
@@ -975,9 +943,9 @@ Partial Class frmNIVerknuepfungen
         'txtGrundgeruest_check
         '
         Me.txtGrundgeruest_check.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtGrundgeruest_check.Location = New System.Drawing.Point(897, 21)
+        Me.txtGrundgeruest_check.Location = New System.Drawing.Point(886, 21)
         Me.txtGrundgeruest_check.Name = "txtGrundgeruest_check"
-        Me.txtGrundgeruest_check.Size = New System.Drawing.Size(105, 21)
+        Me.txtGrundgeruest_check.Size = New System.Drawing.Size(110, 24)
         Me.txtGrundgeruest_check.TabIndex = 50
         Me.txtGrundgeruest_check.Text = "SQL Grundgerüst"
         Me.txtGrundgeruest_check.UseVisualStyleBackColor = True
@@ -985,13 +953,13 @@ Partial Class frmNIVerknuepfungen
         'Panel2
         '
         Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Panel2.BackColor = System.Drawing.Color.Lime
+        Me.Panel2.BackColor = System.Drawing.Color.GreenYellow
         Me.Panel2.Controls.Add(Me.lblIndextestSQL)
         Me.Panel2.Controls.Add(Me.txtTestwert_checkindex)
         Me.Panel2.Controls.Add(Me.btntest_checkIndexsql)
-        Me.Panel2.Location = New System.Drawing.Point(897, 115)
+        Me.Panel2.Location = New System.Drawing.Point(1003, 51)
         Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(205, 52)
+        Me.Panel2.Size = New System.Drawing.Size(227, 52)
         Me.Panel2.TabIndex = 49
         '
         'lblIndextestSQL
@@ -1010,7 +978,7 @@ Partial Class frmNIVerknuepfungen
         Me.txtTestwert_checkindex.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.txtTestwert_checkindex.Location = New System.Drawing.Point(3, 24)
         Me.txtTestwert_checkindex.Name = "txtTestwert_checkindex"
-        Me.txtTestwert_checkindex.Size = New System.Drawing.Size(93, 22)
+        Me.txtTestwert_checkindex.Size = New System.Drawing.Size(100, 22)
         Me.txtTestwert_checkindex.TabIndex = 45
         '
         'btntest_checkIndexsql
@@ -1019,12 +987,11 @@ Partial Class frmNIVerknuepfungen
         Me.btntest_checkIndexsql.Image = Global.ToolCollection.My.Resources.Resources.ico2469
         Me.btntest_checkIndexsql.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btntest_checkIndexsql.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btntest_checkIndexsql.Location = New System.Drawing.Point(99, 24)
+        Me.btntest_checkIndexsql.Location = New System.Drawing.Point(109, 23)
         Me.btntest_checkIndexsql.Name = "btntest_checkIndexsql"
-        Me.btntest_checkIndexsql.Size = New System.Drawing.Size(93, 24)
+        Me.btntest_checkIndexsql.Size = New System.Drawing.Size(113, 24)
         Me.btntest_checkIndexsql.TabIndex = 44
         Me.btntest_checkIndexsql.Text = "SQL testen"
-        Me.btntest_checkIndexsql.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btntest_checkIndexsql.UseVisualStyleBackColor = True
         '
         'Label29
@@ -1032,7 +999,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label29.AutoSize = True
         Me.Label29.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Label29.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label29.Location = New System.Drawing.Point(8, 3)
+        Me.Label29.Location = New System.Drawing.Point(8, 5)
         Me.Label29.Name = "Label29"
         Me.Label29.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.Label29.Size = New System.Drawing.Size(374, 13)
@@ -1044,12 +1011,12 @@ Partial Class frmNIVerknuepfungen
         '
         Me.btnSpalteIndexSQLeinfuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSpalteIndexSQLeinfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnSpalteIndexSQLeinfuegen.Image = Global.ToolCollection.My.Resources.Resources.add
         Me.btnSpalteIndexSQLeinfuegen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnSpalteIndexSQLeinfuegen.Location = New System.Drawing.Point(1064, 76)
+        Me.btnSpalteIndexSQLeinfuegen.Location = New System.Drawing.Point(1199, 110)
         Me.btnSpalteIndexSQLeinfuegen.Name = "btnSpalteIndexSQLeinfuegen"
-        Me.btnSpalteIndexSQLeinfuegen.Size = New System.Drawing.Size(97, 22)
+        Me.btnSpalteIndexSQLeinfuegen.Size = New System.Drawing.Size(33, 22)
         Me.btnSpalteIndexSQLeinfuegen.TabIndex = 42
-        Me.btnSpalteIndexSQLeinfuegen.Text = "Spalte einfügen"
         Me.btnSpalteIndexSQLeinfuegen.UseVisualStyleBackColor = True
         '
         'txtCheckIndexSQL
@@ -1060,11 +1027,12 @@ Partial Class frmNIVerknuepfungen
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.txtCheckIndexSQL.BackColor = System.Drawing.Color.LemonChiffon
         Me.txtCheckIndexSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!)
-        Me.txtCheckIndexSQL.Location = New System.Drawing.Point(9, 22)
+        Me.txtCheckIndexSQL.Location = New System.Drawing.Point(9, 21)
         Me.txtCheckIndexSQL.Multiline = True
         Me.txtCheckIndexSQL.Name = "txtCheckIndexSQL"
         Me.txtCheckIndexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(874, 245)
+        Me.txtCheckIndexSQL.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
+        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(868, 190)
         Me.txtCheckIndexSQL.TabIndex = 30
         '
         'cmbSpalten_indexSQL
@@ -1074,24 +1042,25 @@ Partial Class frmNIVerknuepfungen
         Me.cmbSpalten_indexSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cmbSpalten_indexSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.cmbSpalten_indexSQL.FormattingEnabled = True
-        Me.cmbSpalten_indexSQL.Location = New System.Drawing.Point(897, 76)
+        Me.cmbSpalten_indexSQL.Location = New System.Drawing.Point(1002, 111)
         Me.cmbSpalten_indexSQL.Name = "cmbSpalten_indexSQL"
         Me.cmbSpalten_indexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.cmbSpalten_indexSQL.Size = New System.Drawing.Size(163, 21)
+        Me.cmbSpalten_indexSQL.Size = New System.Drawing.Size(191, 21)
         Me.cmbSpalten_indexSQL.Sorted = True
         Me.cmbSpalten_indexSQL.TabIndex = 41
         '
         'btnIndexSQL_einfuegen
         '
         Me.btnIndexSQL_einfuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnIndexSQL_einfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnIndexSQL_einfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnIndexSQL_einfuegen.ForeColor = System.Drawing.Color.OrangeRed
         Me.btnIndexSQL_einfuegen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnIndexSQL_einfuegen.Location = New System.Drawing.Point(1167, 59)
+        Me.btnIndexSQL_einfuegen.Location = New System.Drawing.Point(886, 74)
         Me.btnIndexSQL_einfuegen.Name = "btnIndexSQL_einfuegen"
         Me.btnIndexSQL_einfuegen.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnIndexSQL_einfuegen.Size = New System.Drawing.Size(74, 38)
+        Me.btnIndexSQL_einfuegen.Size = New System.Drawing.Size(110, 24)
         Me.btnIndexSQL_einfuegen.TabIndex = 39
-        Me.btnIndexSQL_einfuegen.Text = "Eind. Index einfügen"
+        Me.btnIndexSQL_einfuegen.Text = "Eindeutiger Index"
         Me.btnIndexSQL_einfuegen.UseVisualStyleBackColor = True
         '
         'Label30
@@ -1100,7 +1069,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label30.AutoSize = True
         Me.Label30.Font = New System.Drawing.Font("Segoe UI", 8.25!)
         Me.Label30.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label30.Location = New System.Drawing.Point(897, 59)
+        Me.Label30.Location = New System.Drawing.Point(890, 114)
         Me.Label30.Name = "Label30"
         Me.Label30.RightToLeft = System.Windows.Forms.RightToLeft.No
         Me.Label30.Size = New System.Drawing.Size(105, 13)
@@ -1113,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
@@ -1124,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
@@ -1150,7 +1119,7 @@ Partial Class frmNIVerknuepfungen
         Me.Label12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label12.Location = New System.Drawing.Point(5, 17)
         Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(646, 13)
+        Me.Label12.Size = New System.Drawing.Size(647, 13)
         Me.Label12.TabIndex = 38
         Me.Label12.Text = "Wenn ein SQL-Ergebnis geliefert wurde wird dieses Dokument als fertig indexiert m" &
     "arkiert! Voraussetzung Indextyp: Boolean"
@@ -1289,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, 220)
+        Me.pnlfulltext.Size = New System.Drawing.Size(313, 234)
         Me.pnlfulltext.TabIndex = 47
         Me.pnlfulltext.Visible = False
         '
@@ -1353,7 +1322,7 @@ Partial Class frmNIVerknuepfungen
         Me.rbFT_single.AutoSize = True
         Me.rbFT_single.Location = New System.Drawing.Point(6, 21)
         Me.rbFT_single.Name = "rbFT_single"
-        Me.rbFT_single.Size = New System.Drawing.Size(201, 17)
+        Me.rbFT_single.Size = New System.Drawing.Size(202, 17)
         Me.rbFT_single.TabIndex = 3
         Me.rbFT_single.Text = "Nur Bestimmte Position auswerten"
         Me.rbFT_single.UseVisualStyleBackColor = True
@@ -1472,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, 122)
+        Me.RichTextBox_RegEx.Size = New System.Drawing.Size(60, 136)
         Me.RichTextBox_RegEx.TabIndex = 24
         Me.RichTextBox_RegEx.Text = ""
         '
@@ -1848,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, 521)
+        Me.pnlZielQuelle.Size = New System.Drawing.Size(1265, 532)
         Me.pnlZielQuelle.TabIndex = 50
         '
         'rbFunctionsTb
@@ -1857,7 +1826,7 @@ Partial Class frmNIVerknuepfungen
         Me.rbFunctionsTb.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.rbFunctionsTb.Location = New System.Drawing.Point(322, 8)
         Me.rbFunctionsTb.Name = "rbFunctionsTb"
-        Me.rbFunctionsTb.Size = New System.Drawing.Size(112, 17)
+        Me.rbFunctionsTb.Size = New System.Drawing.Size(111, 17)
         Me.rbFunctionsTb.TabIndex = 81
         Me.rbFunctionsTb.Text = "Functions (Table)"
         Me.rbFunctionsTb.UseVisualStyleBackColor = True
@@ -1931,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, 747)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1265, 830)
-        Me.SplitContainer1.SplitterDistance = 521
+        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, 769)
+        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))
@@ -1982,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()
 
@@ -2009,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
@@ -2128,8 +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 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
 
 
@@ -478,9 +486,11 @@ Public Class frmNIVerknuepfungen
     ''' </summary>
     ''' <remarks></remarks>
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
+        ClassNIProfile.aktivesProfil = ClassNIProfile.getProfilByName(e.ClickedItem.Text)
+        Me._selectedProfil = ClassNIProfile.aktivesProfil
         Try
             'wenn noch kein Profil geladen wurde soll das ausgewählte auf jeden Fall geladen werden
-            If Me._selectedProfil Is Nothing Then
+            If Me._selectedProfil IsNot Nothing Then
                 Me.LoadSelectedProfile(e.ClickedItem.Text)
                 Me.pnlZielQuelle.Enabled = True
             Else ' wenn bereits ein Profil geladen war
@@ -1417,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
@@ -1461,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
@@ -1523,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
@@ -1570,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
@@ -1674,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
@@ -1693,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
@@ -1714,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
@@ -1836,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
@@ -1922,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
@@ -1978,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
@@ -2013,25 +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
-                        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
@@ -2040,15 +2071,15 @@ 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.Red
+                        .ForeColor = Drawing.Color.Black
                     End With
                 End If
                 ' 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
@@ -2160,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
@@ -2217,6 +2255,12 @@ Public Class frmNIVerknuepfungen
 
     Private Sub btnTestSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestSQL.Click
         Try
+            If Me.txtSelectAnweisung.Text = "" Then
+                MsgBox("Bitte geben Sie eine Select-Anweisung ein!", MsgBoxStyle.Exclamation, "Select-Anweisung fehlt:")
+                Me.txtTestwert.BackColor = Drawing.Color.Lime
+                Me.txtTestwert.Focus()
+                Exit Sub
+            End If
             If Me.txtTestwert.Text = "" Then
                 MsgBox("Bitte geben Sie einen Testwert für den eindeutigen Startwert ein!", MsgBoxStyle.Exclamation, "Testparameter fehlt:")
                 Me.txtTestwert.BackColor = Drawing.Color.Lime
@@ -2256,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:")
@@ -2263,28 +2308,70 @@ 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
 
     Private Sub frmNIVerknuepfungen_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
         Me.LoadProfilesInCombobox()
-        Me._selectedProfil = Nothing
+
-        Me.pnlZielQuelle.Visible = False
+        If ClassNIProfile.aktivesProfilAusProfileigenschaften And ClassNIProfile.aktivesProfil Is Nothing = False Then
+            Me._selectedProfil = ClassNIProfile.aktivesProfil
+            Me.lblProfil.Text = "(" & Me._selectedProfil.Profilname & ")"
+            Me.lblProfil.Visible = True
+
+            Me.LoadSelectedProfile(Me._selectedProfil.Profilname)
+
+            ClassNIProfile.aktivesProfilAusProfileigenschaften = False
+
+            If Me._selectedProfil.Dokumenttyp Is Nothing Then
+                Me.lblProfil.Enabled = False
+            Else
+                Me.lblProfil.Enabled = True
+            End If
+        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
@@ -2298,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
 
@@ -2332,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
@@ -2594,30 +2702,50 @@ Public Class frmNIVerknuepfungen
         End If
     End Sub
 
-    Private Sub txtCheckIndexSQL_LostFocus(sender As Object, e As System.EventArgs) Handles txtCheckIndexSQL.LostFocus
+    'Private Sub txtCheckIndexSQL_LostFocus(sender As Object, e As System.EventArgs) Handles txtCheckIndexSQL.LostFocus
-        If Me.txtCheckIndexSQL.Text <> "" Then
+    '    If Me.txtCheckIndexSQL.Text <> "" Then
-            Try
+    '        Try
+    '            ' die Änderungen speichern
+    '            If Me._selectedProfil.Save(True, "profile") = True Then    ' wenn das Speichern erfolgreich war
+    '                ' den Speichern-Button deaktivieren 
+    '            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 Sub
+
+    Private Sub SaveProfile()
+        'If Me.txtCheckIndexSQL.Text <> "" Then
+        Try
                 ' die Änderungen speichern
-                If Me._selectedProfil.Save(True, "profile") = True Then    ' wenn das Speichern erfolgreich war
+                If Me._selectedProfil.Save(True, "profile") = True Then
-                    ' den Speichern-Button deaktivieren 
+                    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.txtCheckIndexSQL.Text <> "" Then
+
-            If Me._selectedProfil IsNot Nothing Then
+        If Me._selectedProfil IsNot Nothing Then
-                Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
+
-                If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
+            Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
-                    Me._selectedProfil.setChanged()
+
-                End If
+            If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
+                btnSaveAll.Enabled = True
+                Me._selectedProfil.setChanged()
             End If
+
         End If
+
     End Sub
 
     Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged
@@ -2628,6 +2756,12 @@ Public Class frmNIVerknuepfungen
 
     Private Sub btntest_checkIndexsql_Click(sender As System.Object, e As System.EventArgs) Handles btntest_checkIndexsql.Click
         Try
+            If Me.txtCheckIndexSQL.Text = "" Then
+                MsgBox("Bitte geben Sie eine Select-Anweisung ein!", MsgBoxStyle.Exclamation, "Select-Anweisung fehlt:")
+                Me.txtTestwert.BackColor = Drawing.Color.Lime
+                Me.txtTestwert.Focus()
+                Exit Sub
+            End If
             If Me.txtTestwert_checkindex.Text = "" Then
                 MsgBox("Bitte geben Sie einen Testwert für den eindeutigen Startwert ein!", MsgBoxStyle.Exclamation, "Testparameter fehlt:")
                 Me.txtTestwert_checkindex.BackColor = Drawing.Color.Lime
@@ -3129,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
@@ -3291,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)
@@ -3392,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
@@ -3484,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
@@ -3529,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
@@ -3587,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/frmNI_SQLTest.Designer.vb

@@ -183,7 +183,6 @@ Partial Class frmNI_SQLTest
         Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.txtSQL_String)
         Me.Controls.Add(Me.BindingNavigator1)
-        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNI_SQL_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))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
 

ToolCollection/frmStart.Designer.vb

@@ -63,6 +63,7 @@ Partial Class frmStart
         Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
         Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
         Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
         Me.StatusStrip1.SuspendLayout()
         Me.menHauptmenü.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -75,7 +76,7 @@ Partial Class frmStart
         '
         'StatusStrip1
         '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime})
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime, Me.ToolStripStatusLabel_ConnectionString})
         Me.StatusStrip1.Location = New System.Drawing.Point(0, 613)
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
@@ -93,7 +94,7 @@ Partial Class frmStart
         Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image)
         Me.Status_Machine.Margin = New System.Windows.Forms.Padding(10, 3, 0, 2)
         Me.Status_Machine.Name = "Status_Machine"
-        Me.Status_Machine.Size = New System.Drawing.Size(139, 20)
+        Me.Status_Machine.Size = New System.Drawing.Size(140, 20)
         Me.Status_Machine.Text = "ToolStripStatusLabel1"
         Me.Status_Machine.ToolTipText = "Client-Name"
         '
@@ -104,7 +105,7 @@ Partial Class frmStart
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
         Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image)
         Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
-        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(139, 20)
+        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(140, 20)
         Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1"
         Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer"
         '
@@ -114,7 +115,7 @@ Partial Class frmStart
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
         Me.tslblVersion.Name = "tslblVersion"
-        Me.tslblVersion.Size = New System.Drawing.Size(123, 20)
+        Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
         Me.tslblVersion.Text = "ToolStripStatusLabel1"
         Me.tslblVersion.ToolTipText = "Aktueller Benutzer"
         '
@@ -149,20 +150,20 @@ Partial Class frmStart
         '
         Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1
         Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem"
-        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ÜbersichtToolStripMenuItem.Text = "Übersicht"
         '
         'BeendenToolStripMenuItem
         '
         Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.BeendenToolStripMenuItem.Text = "Beenden"
         '
         'ZeigeLogFileToolStripMenuItem
         '
         Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem})
         Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem"
-        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File"
         '
         'ÖffneLogverzeichnisToolStripMenuItem
@@ -424,7 +425,7 @@ Partial Class frmStart
         Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
         Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
         Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = "Tool Collection für windream"
+        Me.niToolcollection.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         '
         'ContextMenuStrip1
         '
@@ -451,6 +452,15 @@ Partial Class frmStart
         '
         Me.TimerDeleteLogfiles.Interval = 1000
         '
+        'ToolStripStatusLabel_ConnectionString
+        '
+        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
+        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
+        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
+        '
         'frmStart
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -464,7 +474,7 @@ Partial Class frmStart
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.Name = "frmStart"
-        Me.Text = "Tool Collection für windream"
+        Me.Text = $"ToolCollection - {My.Settings.vInstanceName}"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.menHauptmenü.ResumeLayout(False)
@@ -518,4 +528,5 @@ Partial Class frmStart
     Friend WithEvents TimerErrorLog As Timer
     Friend WithEvents TimerDeleteLogfiles As Timer
     Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
+    Friend WithEvents ToolStripStatusLabel_ConnectionString As ToolStripStatusLabel
 End Class

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
+        FAAAAk1TRnQBSQFMAgEBCQEAAWABAwFgAQMBEAEAARABAAT/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,10 +130,27 @@ Public Class frmStart
         End If
     End Sub
 
+    Private Sub CaptionForm()
+        If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
+            Me.Text = Application.CompanyName & " - " & Application.ProductName
+        Else
+            Me.Text = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
+        End If
+    End Sub
+
     Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
         _Instance = Me
 
+        For Each arg As String In My.Application.CommandLineArgs
+            Select Case arg.ToLower()
+                Case "/startfim"
+                    AUTOSTART_FIM = True 'Dateiimport
+                Case "/startfih"
+                    AUTOSTART_FIH = True 'Nachindexierung
+            End Select
+        Next
+
         Try
             'Delete_LogFiles()
 
@@ -148,7 +166,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
@@ -158,6 +176,11 @@ Public Class frmStart
             Else
                 Me.ToolStripStatusLabel_LogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
             End If
+
+            Dim connectionString As String = My.Settings.DDECMConString
+            connectionString = Regex.Replace(connectionString, "(?i)(password|pwd)\s*=\s*[^;]*", "$1=******")
+            Me.ToolStripStatusLabel_ConnectionString.Text = $"Datenbankverbindung: {connectionString}"
+
             ' timUhrzeit.Start()
             TimerErrorLog.Start()
 
@@ -374,10 +397,12 @@ Public Class frmStart
 
     Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         TimerNIRestart.Start()
-        If My.Settings.DI_RUNNING = True Then
+        'If My.Settings.DI_RUNNING Or AUTOSTART_FIM Then
+        If AUTOSTART_FIM Then
             Open_DI_Main()
         End If
-        If NIDurchlaufRunning = True Then
+        'If NIDurchlaufRunning Or AUTOSTART_FIH Then
+        If AUTOSTART_FIH Then
             Open_NI_Main()
         End If
     End Sub
@@ -399,6 +424,9 @@ Public Class frmStart
         frm = frmNIHauptseite.Instance
         frm.MdiParent = Me
         frm.Show()
+        'frm.StartPosition = FormStartPosition.Manual
+        'frm.Location = New Point(50, 50)
+        'Dim loc = frm.Location.ToString()
         Cursor = Cursors.Default
     End Sub
     Private Sub btnNIMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNIMain.Click
@@ -479,6 +507,7 @@ Public Class frmStart
         Dim frm As New frmGrundeinstellungen
         frm = frmGrundeinstellungen.Instance
         frm.ShowDialog()
+        CaptionForm()
         Cursor = Cursors.Default
     End Sub
 
@@ -521,7 +550,6 @@ Public Class frmStart
 
     Private Sub TimerNIRestart_Tick(sender As Object, e As EventArgs) Handles TimerNIRestart.Tick
         If NI_Restart = True Then
-            My.Settings.NI_RUNNING = True
 
             NI_Restart = False
             Open_NI_Main()

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