2.10.4.0 - Refactor: remove license mgmt, add password crypto class

Replaced all license management classes (ClassLicense, ClassLicenses, ClassLicenseManager) with a new ClassPasswordCrypto for password encryption/decryption using Rijndael (AES). Updated all usages to call EncodePassword/DecodePassword instead of license key methods. Removed obsolete license-related code and files from the project. Incremented assembly version to 2.10.4.0. Cleaned up imports and updated the project file to reflect these changes. No license logic remains; only password crypto is handled.

.gitignore

@@ -164,3 +164,4 @@ $RECYCLE.BIN/
 /NIService/.vs/NIService.csproj.dtbcache.json
 /.vs/ToolCollection/v17/DocumentLayout.json
 /.vs/ToolCollection/v17/DocumentLayout.backup.json
+/.vs

ToolCollection/ClassActiveDirectory.vb

@@ -1,7 +1,7 @@
 Imports System.DirectoryServices
 Imports DigitalData.Modules.Logging
 Public Class ClassActiveDirectory
-    Public Shared licenseManager As ClassLicenseManager = Nothing
+    Public Shared passwordCrypto As ClassPasswordCrypto = Nothing
     Public Shared ErgebnisAD As String()
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
     Public Shared Function Test_Connect(SEARCH_Filter As String, Property2Load As String, Domain As String, User As String, PW As String)
@@ -95,8 +95,8 @@ Public Class ClassActiveDirectory
             End If
 
 
-            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
+            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
-            Dim PWDecode As String = licenseManager.DecodeLicenseKey(PW)
+            Dim PWDecode As String = passwordCrypto.DecodePassword(PW)
             Dim objDirectoryEntry As DirectoryEntry = New DirectoryEntry(Domain)
             If PW <> String.Empty And User <> String.Empty Then
                 objDirectoryEntry.Username = User

ToolCollection/ClassLicense.vb

@@ -1,104 +0,0 @@
-Public Class ClassLicense
-
-    Private _modulename As String
-    Private _expires As Date
-    Private _Typ As String
-    Private _anzProf As String
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Konstruktor der Lizenz
-    ''' </summary>
-    ''' <param name="modulename">Name des Moduls</param>
-    ''' <param name="expires">Gültigkeitsdatum der Lizenz</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal modulename As String, ByVal expires As Date, ByVal _type As String, ByVal _anzprofile As String)
-        Me._modulename = modulename
-        Me._expires = expires
-        Me._Typ = _type
-        Me._anzProf = _anzprofile
-    End Sub
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Liefert oder setzt den Namen des Moduls für diese Lizenz
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Modulename() As String
-        Get
-            Return Me._modulename
-        End Get
-        Set(ByVal value As String)
-            Me._modulename = value
-        End Set
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt das Gültigkeitsdatum der Lizenz für das Modul
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Expires() As Date
-        Get
-            Return Me._expires
-        End Get
-        Set(ByVal value As Date)
-            Me._expires = value
-        End Set
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert ob die Lizenz schon abgelaufen ist
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property IsExpired()
-        Get
-            If Date.Today > Me._expires Then
-                Return True
-            Else
-                Return False
-            End If
-        End Get
-    End Property
-
-    ''' <summary>
-    ''' Liefert den Typend er Lizenz
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Type() As String
-        Get
-            Return Me._Typ
-        End Get
-        Set(ByVal value As String)
-            Me._Typ = value
-        End Set
-    End Property
-    ''' <summary>
-    ''' Liefert die Anzahl der Profile
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Anz_Profile() As String
-        Get
-            Return Me._anzProf
-        End Get
-        Set(ByVal value As String)
-            Me._anzProf = value
-        End Set
-    End Property
-
-End Class

ToolCollection/ClassLicenses.vb

@@ -1,149 +0,0 @@
-Public Class ClassLicenses
-
-    Private _licenses() As ClassLicense
-    Private _machine As String
-    Private _company As String
-    Private _WDLizenz As String
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Konstruktor für die Lizenzen-Sammlung
-    ''' </summary>
-    ''' <param name="licenseStringArray">In Array übertragene Lizenzinformationen</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal licenseStringArray(,) As String)
-        Try
-            If licenseStringArray IsNot Nothing Then
-                Dim license1() As String = licenseStringArray(0, 1).Split("#")
-
-                If license1.Length > 1 Then
-                    Me._machine = license1(1)
-                Else
-                    Me._machine = "all"
-                End If
-                Me._company = license1(0) 'licenseStringArray(0, 1)
-                frmStart._company = Me._company
-
-                Dim i As Integer
-                For i = 1 To licenseStringArray.GetLength(0) - 2   ' minus 2, weil GetLength nicht null-basiert ist und das erste Element Firma ist
-                    Dim _date As Date
-                    Dim anzprof As String = licenseStringArray(i, 3)
-                    If anzprof.ToLower = "unlimited" Then
-                        anzprof = 99
-                    End If
-                    Try
-                        _date = CDate(licenseStringArray(i, 1))
-                    Catch ex As Exception
-
-                        If licenseStringArray(i, 1).ToString.EndsWith("2099") Then
-                            _date = "2099-12-31"
-                        Else
-                            MsgBox(ex.Message & vbNewLine & Environment.OSVersion.ToString, MsgBoxStyle.Critical)
-                        End If
-
-                    End Try
-
-                    Me.Add(licenseStringArray(i, 0), _date, licenseStringArray(i, 2), anzprof)
-                Next
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler bei Auslesen der Licenses: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-      
-    End Sub
-
-
-    ''' <summary>
-    ''' Fügt der Lizenz-Sammlung eine Lizenz hinzu
-    ''' </summary>
-    ''' <param name="modulename">Name des Moduls, für das eine Lizenz angelegt werden soll</param>
-    ''' <param name="expires">Datum der Gültigkeit der Lizenz</param>
-    ''' <remarks></remarks>
-    Public Sub Add(ByVal modulename As String, ByVal expires As Date, ByVal type As String, ByVal anzprof As String)
-
-        If Me._licenses IsNot Nothing Then
-            ReDim Preserve Me._licenses(Me._licenses.Length)
-        Else
-            ReDim Preserve Me._licenses(0)
-        End If
-
-        Me._licenses(Me._licenses.Length - 1) = New ClassLicense(modulename, expires, type, anzprof)
-    End Sub
-
-
-    ''' <summary>
-    ''' Liefert eine Lizenz an Hand des Modulnamens
-    ''' </summary>
-    ''' <param name="modulename">Name des zu suchenden Moduls</param>
-    ''' <returns>liefert ein Lizenzobjekt</returns>
-    ''' <remarks></remarks>
-    Public Function GetLicense(ByVal modulename As String) As ClassLicense
-        If Me._licenses IsNot Nothing Then
-            For Each license As ClassLicense In Me._licenses
-                If license.Modulename = modulename Then
-                    Return license
-                End If
-            Next
-        End If
-
-        Return Nothing
-    End Function
-
-
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-
-    ''' <summary>
-    ''' liefert eine Sammlung von Lizenzobjekten 
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Licenses() As ClassLicense()
-        Get
-            Return Me._licenses
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' liefert eine Lizenz an Hand des Modulnamens
-    ''' </summary>
-    ''' <param name="modulename">Name des zu suchenden Moduls</param>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property License(ByVal modulename As String) As ClassLicense
-        Get
-            Return Me.GetLicense(modulename)
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt den Firmennamen des Lizenzeigentümers
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Company() As String
-        Get
-            Return Me._company
-        End Get
-        Set(ByVal value As String)
-            Me._company = value
-        End Set
-    End Property
-    Public Property machine() As String
-        Get
-            Return Me._machine
-        End Get
-        Set(ByVal value As String)
-            Me._machine = value
-        End Set
-    End Property
-
-End Class

ToolCollection/ClassNIProfile.vb

@@ -14,7 +14,6 @@ Public Class ClassNIProfile
         xmlConfigFile = oConfigPath
         ClassNIProfile.LoadFromXmlFile()
         ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
-        _windream.Init()
     End Sub
     Public Shared Function IsXmlAccessable() As Boolean
         Dim xml As New Xml.XmlDocument
@@ -127,7 +126,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/ClassPasswordCrypto.vb

@@ -1,34 +1,26 @@
-Imports System.Text
+Imports System.Security.Cryptography
-Imports System.Security.Cryptography
+Imports System.Text
-Imports System.Collections.ObjectModel
 
-Public Class ClassLicenseManager
+Public Class ClassPasswordCrypto
 
     Private _password As String
-    Private _key As String
-    Public Shared _licenses As ClassLicenses
 
-    Public licenseString As String
+    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-    Public licenseStringArray(,) As String
 
+    ''' <summary>
+    ''' Liefert das Passwort zum Entschlüsseln des Lizenzschlüssels
+    ''' </summary>
+    ''' <value></value>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public ReadOnly Property Password() As String
+        Get
+            Return Me._password
+        End Get
+    End Property
 
     ' ++++++++++++++++++++++++++++++++++++++++++++++ Methoden ++++++++++++++++++++++++++++++++++++++++++++++
 
-    ''' <summary>
-    ''' Konstruktor für den Lizenz-Manager
-    ''' </summary>
-    ''' <param name="password">Passwort zum Entschlüsseln des Lizenzkeys</param>
-    ''' <param name="key">verschlüsselter Lizenzkey</param>
-    ''' <remarks></remarks>
-    Sub New(ByVal password As String, ByVal key As String)
-        Me._password = password
-        Me._key = key
-
-        Me.licenseString = Me.DecodeLicenseKey(Me._key)
-        Me.licenseStringArray = Me.SplitLicenseString(Me.licenseString)
-
-        Me.LoadLicenses()
-    End Sub
     ''' <summary>
     ''' Konstruktor für den Lizenz-Manager ohne License load
     ''' </summary>
@@ -37,14 +29,6 @@ Public Class ClassLicenseManager
     Sub New(ByVal password As String)
         Me._password = password
     End Sub
-    ''' <summary>
-    ''' Lädt alle Lizenzen aus dem Lizenz-Array
-    ''' </summary>
-    ''' <remarks></remarks>
-    Public Sub LoadLicenses()
-        ClassLicenseManager._licenses = New ClassLicenses(Me.licenseStringArray)
-    End Sub
-
 
     ''' <summary>
     ''' Codiert eine Zeichenkette
@@ -53,7 +37,7 @@ Public Class ClassLicenseManager
     ''' <param name="password">das zur Verschlüsselung verwendete Passwort</param>
     ''' <returns>liefert eine verschlüsselte Zeichenkette</returns>
     ''' <remarks></remarks>
-    Public Function EncodeLicenseKey(ByVal str As String, ByVal password As String)
+    Public Function EncodePassword(ByVal str As String, ByVal password As String)
         Dim rd As New RijndaelManaged
 
         Dim md5 As New MD5CryptoServiceProvider
@@ -69,7 +53,7 @@ Public Class ClassLicenseManager
         ms.Write(iv, 0, iv.Length)
 
         Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
-        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Str)
+        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(str)
 
         cs.Write(data, 0, data.Length)
         cs.FlushFinalBlock()
@@ -82,14 +66,13 @@ Public Class ClassLicenseManager
         Return result
     End Function
 
-
     ''' <summary>
     ''' Decodiert den verschlüsselten Lizenzkey
     ''' </summary>
     ''' <param name="licenseCodeStr">verschlüsselter Lizenzkey</param>
     ''' <returns></returns>
     ''' <remarks></remarks>
-    Public Function DecodeLicenseKey(ByVal licenseCodeStr As String)
+    Public Function DecodePassword(ByVal licenseCodeStr As String)
         Try
             Dim rd As New RijndaelManaged
             Dim rijndaelIvLength As Integer = 16
@@ -121,7 +104,6 @@ Public Class ClassLicenseManager
 
             Dim i As Integer = 0
 
-
             Try
 
                 i = cs.Read(data, 0, data.Length)
@@ -143,95 +125,4 @@ Public Class ClassLicenseManager
         Return Nothing
     End Function
 
-
-    ''' <summary>
-    ''' Zerlegt den entschlüsselten Lizenzkey
-    ''' </summary>
-    ''' <param name="licenseStr">entschlüsselter Lizenzkey</param>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Function SplitLicenseString(ByVal licenseStr As String) As String(,)
-
-        Try
-            If licenseStr IsNot Nothing Then
-                Dim licenseTemp() As String = licenseStr.Split(";")
-
-                Dim licenses(licenseTemp.Length, 3) As String
-
-                Dim i As Integer = 0
-
-                If licenseTemp IsNot Nothing Then
-                    For Each lizenz As String In licenseTemp
-
-                        Dim temp() = lizenz.Split(":")
-
-                        licenses(i, 0) = temp(0)
-                        licenses(i, 1) = temp(1)
-                        If temp.Length > 2 Then
-                            licenses(i, 2) = temp(2)
-                            licenses(i, 3) = temp(3)
-                            Dim expires As Date
-                            Date.TryParse(licenses(i, 1), expires)
-                        End If
-                        
-                       
-                        i += 1
-                    Next
-
-                    Return licenses
-                End If
-            End If
-        Catch ex As Exception
-            MsgBox("Fehler in SplitLicenseString: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
-
-        Return Nothing
-
-    End Function
-
-
-
-    ' ++++++++++++++++++++++++++++++++++++++++++++++ Properties ++++++++++++++++++++++++++++++++++++++++++++++
-
-    ''' <summary>
-    ''' Liefert das Passwort zum Entschlüsseln des Lizenzschlüssels
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Password() As String
-        Get
-            Return Me._password
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert eine Sammlung von Lizenzobjekten
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public ReadOnly Property Licenses() As ClassLicenses
-        Get
-            Return ClassLicenseManager._licenses
-        End Get
-    End Property
-
-
-    ''' <summary>
-    ''' Liefert oder setzt den Lizenzschlüssel
-    ''' </summary>
-    ''' <value></value>
-    ''' <returns></returns>
-    ''' <remarks></remarks>
-    Public Property Key() As String
-        Get
-            Return Me._key
-        End Get
-        Set(ByVal value As String)
-            Me._key = value
-        End Set
-    End Property
-
 End Class

ToolCollection/ClassWD_Rechte.vb

@@ -393,13 +393,13 @@ Public Class ClassWD_Rechte
     End Function
     Private Function WorkRight(_methode As String, createdFolder As String, _form As Boolean, oWMObject As WINDREAMLib.WMObject, deleteRights As Boolean, folgeRegel As Boolean, _UserOrGroup As String,
                                _GruppenUserRecht As String, _lRight As Integer) As Boolean
+        Dim Object2Change As WINDREAMLib.WMObject = Nothing
         Try
             Dim _Erfolgreich As Boolean = True
             Dim UserGroupRelation
             Dim UserOrGroup
             Dim oGroup
             Dim oUSer
-            Dim Object2Change As WINDREAMLib.WMObject
             If _methode = "AddRightFolder" Then
                 Object2Change = oWMObject.aParentWMObject
             ElseIf _methode = "AddRightCreatedFolder" Then
@@ -731,6 +731,13 @@ Public Class ClassWD_Rechte
             Return _Erfolgreich
         Catch ex As Exception
             _Logger.Error(ex)
+            Try
+                If Object2Change IsNot Nothing AndAlso Object2Change.aLocked Then
+                    Object2Change.unlock()
+                    _Logger.Debug("WorkRight Catch: Object2Change unlocked after error.")
+                End If
+            Catch
+            End Try
             Return False
         End Try
     End Function

ToolCollection/ClassWindream_allgemein.vb

@@ -49,7 +49,20 @@ Public Class ClassWindream_allgemein
             ' Process.GetCurrentProcess.Kill()
         End If
     End Sub
+    Private Sub LogoutCurrentSession()
+        If Not IsNothing(CURRENToWMSession) Then
+            Try
+                CURRENToWMSession.Logout()
+            Catch
+                ' ignorieren – Session war evtl. schon tot
+            End Try
+            CURRENToWMSession = Nothing
+        End If
+    End Sub
+
     Public Function GetWMSessionAsUser(Domain, ServerName, UserName, Password)
+        LogoutCurrentSession()
+
         Dim SessionAsUser
         Dim aConnect, aUserId, aSession
         On Error Resume Next
@@ -95,10 +108,24 @@ Public Class ClassWindream_allgemein
             SessionAsUser = aSession
             If aSession.aLoggedin = True Then
                 _Logger.Debug($"#Impersonate login [{UserName}] successfull!")
-                Return SessionAsUser
+                Me.oWMSession = aSession
+                CURRENToWMSession = aSession
+                CURRENToWMSession_Created = Now
+                Me.oObjekttypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+                If Err.Number <> 0 Then
+                    _Logger.Warn("Fehler beim Laden der Objekttypen nach Impersonate-Login: " & Err.Description)
+                    Err.Clear()
+                End If
+                Me.oOrdnerTypen = aSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
+                If Err.Number <> 0 Then
+                    _Logger.Warn("Fehler beim Laden der Ordnertypen nach Impersonate-Login: " & Err.Description)
+                    Err.Clear()
+                End If
+                Return True
             End If
 
         End If
+        Return False
     End Function
 
     ''' <summary>
@@ -107,25 +134,30 @@ Public Class ClassWindream_allgemein
     ''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
     ''' <remarks></remarks>
     Public Function Init() As Boolean
-        Dim oHourDifference As Integer
-        oHourDifference = CInt(DateDiff(DateInterval.Hour, CURRENToWMSession_Created, Now))
 
-        If IsNothing(CURRENToWMSession) Or oHourDifference >= 2 Then
+        If IsNothing(CURRENToWMSession) OrElse Not CBool(CURRENToWMSession.aLoggedin) Then
             If WMLOGIN_DOMAIN <> String.Empty Then
-                GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
+                Return GetWMSessionAsUser(WMLOGIN_DOMAIN, Me.GetCurrentServer, WMLOGIN_USER, WMLOGIN_PW)
             Else
-                GetWMSession()
+                Return GetWMSession()
             End If
 
         Else
             If My.Settings.vLogErrorsonly = False Then _Logger.Debug("WMSession already created!")
             oWMSession = CURRENToWMSession
+            If IsNothing(oObjekttypen) Then
+                oObjekttypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
+            End If
+            If IsNothing(oOrdnerTypen) Then
+                oOrdnerTypen = oWMSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityFolder)
+            End If
             Return True
         End If
 
-
     End Function
     Private Function GetWMSession()
+        LogoutCurrentSession()
+
         Try
             Try
                 ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
@@ -361,7 +393,7 @@ Public Class ClassWindream_allgemein
             Dim oIndexAttributes As WMObjectRelation
             Dim oIndexAttribute As WMObject
             Dim oIndex As WMObject
-            Dim oRelProperties As WMObjectRelationClass
+            Dim oRelProperties As Object
 
             ' den Objekttyp laden
             oObjectType = Me.oWMSession.GetWMObjectByName(WMEntityObjectType, name)
@@ -419,7 +451,7 @@ Public Class ClassWindream_allgemein
             Dim oIndexAttributes As WMObjectRelation
             Dim oIndexAttribute As WMObject
             Dim oIndex As WMObject
-            Dim oRelProperties As WMObjectRelationClass
+            Dim oRelProperties As Object
             For Each OrdnerType In Me.oOrdnerTypen
                 If OrdnerType.aName = Ordnertyp Then
                     oOrdnerType = OrdnerType
@@ -530,6 +562,9 @@ Public Class ClassWindream_allgemein
     ''' <remarks></remarks>
     Public Function IsLoggedIn() As Boolean
         Try
+            If IsNothing(Me.oWMSession) Then
+                Return False
+            End If
             Return Me.oWMSession.aLoggedin
         Catch ex As Exception
             clsHelper.Add_Application_log("Unexpected error in Windream.IsLoggedIn: " & ex.Message)

ToolCollection/ModuleSettings.vb

@@ -1,4 +1,3 @@
 Module ModuleSettings
-    Public LICENSE_MoveRename As Boolean
+
-    Public LICENSE_AD As Boolean
 End Module

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.9.0")>
+<Assembly: AssemblyVersion("2.10.4.0")>
 <Assembly: AssemblyFileVersion("2.9.9.0")>

ToolCollection/My Project/Settings.Designer.vb

@@ -54,19 +54,6 @@ Namespace My
             End Get
         End Property
         
-        <Global.System.Configuration.UserScopedSettingAttribute(),  _
-         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute(""),  _
-         Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)>  _
-        Public Property licensekey() As String
-            Get
-                Return CType(Me("licensekey"),String)
-            End Get
-            Set
-                Me("licensekey") = value
-            End Set
-        End Property
-        
         <Global.System.Configuration.UserScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.DefaultSettingValueAttribute("False"),  _
@@ -585,7 +572,7 @@ Namespace My
         
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
         Public ReadOnly Property NI_WORKING_HOURS() As String
             Get
                 Return CType(Me("NI_WORKING_HOURS"),String)
@@ -670,8 +657,8 @@ Namespace My
         <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
          Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
          Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
+            "Info=True;User ID=sa;Password=dd;Encrypt=False")>  _
         Public ReadOnly Property DDECMConString() As String
             Get
                 Return CType(Me("DDECMConString"),String)
@@ -745,6 +732,42 @@ Namespace My
                 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

@@ -2,9 +2,6 @@
 <SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
   <Profiles />
   <Settings>
-    <Setting Name="licensekey" Roaming="true" Type="System.String" Scope="User">
-      <Value Profile="(Default)" />
-    </Setting>
     <Setting Name="DIDurchlaufRunning" Roaming="true" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
@@ -132,7 +129,7 @@
       <Value Profile="(Default)">0</Value>
     </Setting>
     <Setting Name="NI_WORKING_HOURS" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
+      <Value Profile="(Default)">01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
     </Setting>
     <Setting Name="FB_DATASOURCE" Type="System.String" Scope="Application">
       <Value Profile="(Default)" />
@@ -161,10 +158,10 @@
     <Setting Name="DDECMConString" Type="(Connection string)" Scope="Application">
       <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False&lt;/ConnectionString&gt;
   &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</Value>
     </Setting>
     <Setting Name="WM_PERS_LOGIN" Type="System.String" Scope="Application">
       <Value Profile="(Default)">@Domain#@User#@PW</Value>
@@ -184,5 +181,14 @@
     <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

@@ -1 +1,3 @@
-DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+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

@@ -30,6 +30,8 @@
     <UseApplicationTrust>false</UseApplicationTrust>
     <BootstrapperEnabled>true</BootstrapperEnabled>
     <TargetFrameworkProfile />
+    <NuGetPackageImportStamp>
+    </NuGetPackageImportStamp>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
     <PlatformTarget>x86</PlatformTarget>
@@ -92,6 +94,9 @@
     <Reference Include="DevExpress.Sparkline.v21.2.Core, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
+    <Reference Include="DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+    <Reference Include="DevExpress.XtraPrinting.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
     <Reference Include="DigitalData.Modules.Config">
       <HintPath>..\..\..\2_DLL Projekte\DDModules\Config\bin\Debug\DigitalData.Modules.Config.dll</HintPath>
     </Reference>
@@ -111,24 +116,23 @@
       <HintPath>packages\EntityFramework.6.0.2\lib\net45\EntityFramework.SqlServer.dll</HintPath>
     </Reference>
     <Reference Include="Interop.Scripting">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.Scripting.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.Scripting.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
-    <Reference Include="Interop.WINDREAMLib, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+    <Reference Include="Interop.WINDREAMLib">
-      <SpecificVersion>False</SpecificVersion>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WINDREAMLib.dll</HintPath>
-      <EmbedInteropTypes>False</EmbedInteropTypes>
+      <EmbedInteropTypes>True</EmbedInteropTypes>
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
     </Reference>
     <Reference Include="Interop.WMOBRWSLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOBRWSLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOBRWSLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WMOSRCHLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOSRCHLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOSRCHLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Interop.WMOTOOLLib">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
+      <HintPath>M:\Bibliotheken\3rdParty\windream\Interop.WMOTOOLLib.dll</HintPath>
       <EmbedInteropTypes>True</EmbedInteropTypes>
     </Reference>
     <Reference Include="Microsoft.CSharp" />
@@ -136,7 +140,7 @@
       <HintPath>..\packages\NLog.5.0.2\lib\net46\NLog.dll</HintPath>
     </Reference>
     <Reference Include="Oracle.ManagedDataAccess">
-      <HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
+      <HintPath>M:\App&amp;Service\0 Partner Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.ComponentModel.DataAnnotations" />
@@ -145,15 +149,8 @@
     <Reference Include="System.Data" />
     <Reference Include="System.Data.Linq" />
     <Reference Include="System.Data.OracleClient" />
-    <Reference Include="System.Data.SQLite">
+    <Reference Include="System.Data.SQLite, Version=1.0.119.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
-      <HintPath>P:\Visual Studio Projekte\Bibliotheken\System.Data.SQLite.dll</HintPath>
+      <HintPath>..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\lib\net46\System.Data.SQLite.dll</HintPath>
-    </Reference>
-    <Reference Include="System.Data.SQLite.EF6, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
-      <HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.EF6.dll</HintPath>
-    </Reference>
-    <Reference Include="System.Data.SQLite.Linq, Version=1.0.91.0, Culture=neutral, PublicKeyToken=db937bc2d44ff139, processorArchitecture=MSIL">
-      <Private>True</Private>
-      <HintPath>packages\System.Data.SQLite.1.0.91.3\lib\net451\System.Data.SQLite.Linq.dll</HintPath>
     </Reference>
     <Reference Include="System.Deployment" />
     <Reference Include="System.DirectoryServices" />
@@ -194,9 +191,7 @@
     <Compile Include="ClassDIRegel.vb" />
     <Compile Include="ClassDIRegeln.vb" />
     <Compile Include="ClassLDAP.vb" />
-    <Compile Include="ClassLicense.vb" />
+    <Compile Include="ClassPasswordCrypto.vb" />
-    <Compile Include="ClassLicenseManager.vb" />
-    <Compile Include="ClassLicenses.vb" />
     <Compile Include="ClassLoggerDI.vb" />
     <Compile Include="ClassLoggerService.vb" />
     <Compile Include="ClassMI_Profile.vb" />
@@ -364,12 +359,6 @@
     <Compile Include="frmNI_SQLTest.vb">
       <SubType>Form</SubType>
     </Compile>
-    <Compile Include="frmLizenzmanager.Designer.vb">
-      <DependentUpon>frmLizenzmanager.vb</DependentUpon>
-    </Compile>
-    <Compile Include="frmLizenzmanager.vb">
-      <SubType>Form</SubType>
-    </Compile>
     <Compile Include="frmNIProfileigenschaften.Designer.vb">
       <DependentUpon>frmNIProfileigenschaften.vb</DependentUpon>
     </Compile>
@@ -511,9 +500,6 @@
     <EmbeddedResource Include="frmNI_SQLTest.resx">
       <DependentUpon>frmNI_SQLTest.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="frmLizenzmanager.resx">
-      <DependentUpon>frmLizenzmanager.vb</DependentUpon>
-    </EmbeddedResource>
     <EmbeddedResource Include="frmNIProfileigenschaften.resx">
       <DependentUpon>frmNIProfileigenschaften.vb</DependentUpon>
     </EmbeddedResource>
@@ -526,6 +512,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>
@@ -826,6 +813,7 @@
     <None Include="Resources\database_refresh.png" />
     <None Include="Resources\arrow_up.png" />
     <None Include="Resources\bullet_arrow_down1.png" />
+    <Content Include="Interop.Scripting.dll" />
     <Content Include="Interop.WINDREAMLib.dll" />
     <None Include="Resources\action_add_16xMD.png" />
     <None Include="Resources\folder_Closed_16xMD.png" />
@@ -833,12 +821,6 @@
     <None Include="Resources\CheckConstraints_5634.png" />
     <Content Include="modDateiimportConfig.xml" />
     <Content Include="modNachindexierungConfig.xml" />
-    <Content Include="x64\SQLite.Interop.dll">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
-    <Content Include="x86\SQLite.Interop.dll">
-      <CopyToOutputDirectory>Always</CopyToOutputDirectory>
-    </Content>
     <None Include="Resources\user_suit.png" />
     <None Include="Resources\user.png" />
     <None Include="Resources\rosette.png" />
@@ -884,6 +866,13 @@
     <Folder Include="Log\" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <Import Project="..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets" Condition="Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" />
+  <Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
+    <PropertyGroup>
+      <ErrorText>This project references NuGet package(s) that are missing on this computer. Use NuGet Package Restore to download them.  For more information, see http://go.microsoft.com/fwlink/?LinkID=322105. The missing file is {0}.</ErrorText>
+    </PropertyGroup>
+    <Error Condition="!Exists('..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0\build\net46\Stub.System.Data.SQLite.Core.NetFramework.targets'))" />
+  </Target>
   <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
        Other similar extension points exist, see Microsoft.Common.targets.
   <Target Name="BeforeBuild">

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>
@@ -36,9 +36,6 @@
   </system.diagnostics>
   <userSettings>
     <ToolCollection.My.MySettings>
-      <setting name="licensekey" serializeAs="String">
-        <value />
-      </setting>
       <setting name="DIDurchlaufRunning" serializeAs="String">
         <value>False</value>
       </setting>
@@ -162,6 +159,15 @@
       <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>
@@ -188,7 +194,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 />
@@ -230,14 +236,7 @@
       <provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
     </providers>
   </entityFramework>
-  <system.data>
+  
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".Net Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".Net Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
   <runtime>
     <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
       <dependentAssembly>

ToolCollection/clsNIFulltext.vb

@@ -87,7 +87,7 @@ Public Class clsNIFulltext
                                 End If
                             Else
                                 'Es gibt nur From, also auch nur einen Wert
-                                If Pos_From = oCountMatchedElements Then
+                                If Pos_From = i Then
                                     'Das Ende ist erreicht - Ausstieg
                                     ReDim Preserve Ergebnis(0)
                                     Ergebnis(0) = Convert.ToString(g.ToString)

ToolCollection/frmDIHauptseite.Designer.vb

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

ToolCollection/frmDIHauptseite.vb

@@ -60,6 +60,8 @@ Public Class frmDIHauptseite
     Private CriticalErrorInBackgroundWorker As Boolean = False
     Private manProfile As String
 
+    Private FehlerProfileListe As New List(Of String)
+    Private FehlerMsgBoxVisible As Boolean = False
 
     Private Alles_OK As Boolean = True
 
@@ -268,7 +270,7 @@ Public Class frmDIHauptseite
 #End Region
 
 #Region "*** DoWork: während der BackgroundWorker aktiv ist ***"
-    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) 'Handles threadDateiimport.DoWork
+    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
         Dim _TimeStart As Date
         Dim _TimeEnd As Date
         Try
@@ -283,9 +285,11 @@ Public Class frmDIHauptseite
             _TimeStart = Now
             ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False)
             ClassLoggerDI.Add("======================================================================", False)
+
+            ' Liste für fehlerhafte Profile zurücksetzen
+            FehlerProfileListe.Clear()
+
             If _windream.Init Then
-
-
                 If Manuell = True Then
                     ClassLoggerDI.Add(">> Manueller Durchlauf", False)
                     ClassLoggerDI.Add("Profilname: " & manProfile, False)
@@ -298,42 +302,51 @@ Public Class frmDIHauptseite
                     '1. ###### Zählen der Files
                     Gesamtfiles = 0
                     Dim files_Durchlauf As ReadOnlyCollection(Of String)
-                    For Each item As ClassDIProfil In ClassDIProfile.Profile
 
+                    For Each item As ClassDIProfil In ClassDIProfile.Profile
                         Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
 
                         'Nur die files der Aktiven Profile zählen
                         If CBool(selectedProfile.Aktiv) = True Then
-                            If Me.selectedProfile.Subdirectories = True Then
+                            Try
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+                                If Me.selectedProfile.Subdirectories = True Then
-                            Else
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                Else
-                            End If
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                End If
-                            Gesamtfiles += files_Durchlauf.Count
+                                Gesamtfiles += files_Durchlauf.Count
+                            Catch ex As Exception
+                                ' Profil zur Fehlerliste hinzufügen
+                                FehlerProfileListe.Add(item.OriginalProfilname)
+                                ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{item.OriginalProfilname}': {ex.Message}", True)
+                            End Try
                         End If
-
-                        'MsgBox(files_Durchlauf.Count, MsgBoxStyle.Information, item.OriginalProfilname)
                     Next
+
                     ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False)
+
                     If Gesamtfiles > 0 Then
                         '2. Jetzt das Durchlaufen jedes Profiles
                         For Each item As ClassDIProfil In ClassDIProfile.Profile
                             Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
                             ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False)
+
                             ' Überprüfen ob Profil aktiv oder inaktiv
                             If CBool(selectedProfile.Aktiv) = False Then
                                 ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False)
                                 ClassLoggerDI.Add("", False)
+                            ElseIf FehlerProfileListe.Contains(item.OriginalProfilname) Then
+                                ' Profil überspringen, wenn es bereits als fehlerhaft markiert wurde
+                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " wird übersprungen (fehlerhafter Pfad)", False)
+                                ClassLoggerDI.Add("", False)
                             Else
                                 ' den Durchlaufszeitpunkt speichern
                                 selectedProfile.LastRun = Now
                                 selectedProfile.Save(False)
-                                'Und nun das PRofil durchlaufen
+                                'Und nun das Profil durchlaufen
                                 ClassLoggerDI.Add("- Start des Profildurchlaufes ", False)
                                 Profil_Durchlauf()
                             End If
-
                         Next
                     End If
                 End If
@@ -342,10 +355,9 @@ Public Class frmDIHauptseite
             End If
             '###
         Catch ex As Exception
-            '    'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei threadDateiimport_DoWork:")
             ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False)
-            '    Resume Next
         End Try
+
         _TimeEnd = Now
         Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds
 
@@ -358,8 +370,6 @@ Public Class frmDIHauptseite
         Else
             ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False)
         End If
-
-
     End Sub
     Public Function func_check_file_use(ByVal filename) As Boolean
         filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects")
@@ -426,11 +436,22 @@ Public Class frmDIHauptseite
         Dim oFileAusschlussList As New ArrayList
         'Variable für das "Letzte Subdirectory"
         Dim oLastFolderinFiles As String = ""
-        If Me.selectedProfile.Subdirectories = True Then
+
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+        Try
-        Else
+            If Me.selectedProfile.Subdirectories = True Then
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-        End If
+            Else
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+            End If
+        Catch ex As Exception
+            ' Profil zur Fehlerliste hinzufügen, falls noch nicht vorhanden
+            If Not FehlerProfileListe.Contains(Me.selectedProfile.OriginalProfilname) Then
+                FehlerProfileListe.Add(Me.selectedProfile.OriginalProfilname)
+            End If
+            ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{Me.selectedProfile.OriginalProfilname}': {ex.Message}", True)
+            Exit Sub
+        End Try
+
         Dim oError As Boolean = False
         Dim DT_TBTC_DI_REGEX_MATCH As DataTable
         Try
@@ -872,9 +893,7 @@ Public Class frmDIHauptseite
 #End Region
 
 #Region "*** BackgroundWorker wurde beendet ***"
-    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
+    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
-        ' This event fires when the DoWork event completes
-
         Try
             Dim result As String = ""
 
@@ -884,19 +903,40 @@ Public Class frmDIHauptseite
                 MsgBox("Beim Dateiimport ist ein Fehler aufgetreten. Der Vorgang wurde abgebrochen." & vbNewLine & vbNewLine & "Dateiimport: Fehlernachricht:" & vbNewLine & e.Error.Message, MsgBoxStyle.Exclamation, "Vorgang auf Grund eines Fehlers abgebrochen")
             Else
                 Me.progressImport.Value = 100
-                'MsgBox("Der Dateiimport für das Profil '" & Me.cmbProfilauswahl.SelectedItem & "' wurde erfolgreich durchgeführt.", MsgBoxStyle.Information, "Dateiimport: Vorgang erfolgreich beendet")
-            End If
 
-            ''MsgBox(filenameQuelle.Substring(0, filenameQuelle.LastIndexOf("\")))
+                ' Fehlermeldung für fehlerhafte Profile anzeigen
-            'If Me.selectedProfile.VerzeichnisLöschen Then
+                ' NUR wenn keine MessageBox bereits angezeigt wird
-            '    Try
+                If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
-            '        If Me.txtQuellordner.Text <> "" Then
+                    ' Flag setzen BEVOR die MessageBox angezeigt wird
-            '             My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
+                    FehlerMsgBoxVisible = True
-            '        End If
+
-            '    Catch ex As Exception
+                    Dim fehlerMessage As New System.Text.StringBuilder()
-            '        MsgBox("Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", MsgBoxStyle.Information, "Vorgang beendet:")
+                    fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
-            '    End Try
+                    fehlerMessage.AppendLine()
-            'End If
+
+                    For Each profilname As String In FehlerProfileListe
+                        fehlerMessage.AppendLine("  • " & profilname)
+                    Next
+
+                    fehlerMessage.AppendLine()
+                    fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,")
+                    fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!")
+
+                    ' MessageBox anzeigen (blockiert bis Benutzer OK klickt)
+                    MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt")
+
+                    ' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde
+                    FehlerMsgBoxVisible = False
+
+                    ' Fehler auch im Log vermerken
+                    ClassLoggerDI.Add("======================================================================", False)
+                    ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)
+                    For Each profilname As String In FehlerProfileListe
+                        ClassLoggerDI.Add(" - " & profilname, True)
+                    Next
+                    ClassLoggerDI.Add("======================================================================", False)
+                End If
+            End If
 
             ' den ersten Knoten öffnen und direkt wieder schließen, damit der letzte Knoten korrekt angezeigt wird
             '    -> sonst wird das letzte Element nicht richtig (nur zur Hälfte) angezeigt

ToolCollection/frmDIProfilEigenschaften.Designer.vb

@@ -24,22 +24,21 @@ Partial Class frmDIProfilEigenschaften
     Private Sub InitializeComponent()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDIProfilEigenschaften))
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
+        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
         Me.cmbProfilauswahl = New System.Windows.Forms.ToolStripSplitButton()
         Me.tslblAnzahl = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
+        Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
         Me.lblProfil = New System.Windows.Forms.ToolStripStatusLabel()
         Me.dlgQuellordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.dlgZielordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.dlgBackupordner = New System.Windows.Forms.FolderBrowserDialog()
         Me.pnlProfileigenschaften = New System.Windows.Forms.Panel()
-        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
+        Me.Button1 = New System.Windows.Forms.Button()
-        Me.Label10 = New System.Windows.Forms.Label()
-        Me.cmbl2Nav_Index = New System.Windows.Forms.ComboBox()
-        Me.Label9 = New System.Windows.Forms.Label()
-        Me.cmbl2NavDokartindex = New System.Windows.Forms.ComboBox()
-        Me.Label8 = New System.Windows.Forms.Label()
-        Me.btnLink2Navision = New System.Windows.Forms.Button()
-        Me.txtLink2Navision = New System.Windows.Forms.TextBox()
-        Me.chkbxlink2Navision = New System.Windows.Forms.CheckBox()
         Me.txtlastRun = New System.Windows.Forms.TextBox()
         Me.Label7 = New System.Windows.Forms.Label()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
@@ -60,9 +59,9 @@ Partial Class frmDIProfilEigenschaften
         Me.rbUV_Date1 = New System.Windows.Forms.RadioButton()
         Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
         Me.Label5 = New System.Windows.Forms.Label()
+        Me.btnRegeln = New System.Windows.Forms.Button()
         Me.boxImportoptionenLoeschen = New System.Windows.Forms.GroupBox()
         Me.chkUVloeschen = New System.Windows.Forms.CheckBox()
-        Me.chkQuellverzeichnisLoeschen = New System.Windows.Forms.CheckBox()
         Me.chkDateienLoeschen = New System.Windows.Forms.CheckBox()
         Me.boxImportoptionenBackup = New System.Windows.Forms.GroupBox()
         Me.txtBackupordner = New System.Windows.Forms.TextBox()
@@ -75,18 +74,8 @@ Partial Class frmDIProfilEigenschaften
         Me.Label1 = New System.Windows.Forms.Label()
         Me.txtProfilname = New System.Windows.Forms.TextBox()
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
-        Me.Button1 = New System.Windows.Forms.Button()
-        Me.btnRegeln = New System.Windows.Forms.Button()
-        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.btnHinzufügen = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnfirst = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnprevious = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnnext = New System.Windows.Forms.ToolStripDropDownButton()
-        Me.tsbtnlast = New System.Windows.Forms.ToolStripDropDownButton()
         Me.StatusStrip1.SuspendLayout()
         Me.pnlProfileigenschaften.SuspendLayout()
-        Me.GroupBox3.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         Me.boxImportoptionenLoeschen.SuspendLayout()
@@ -107,6 +96,41 @@ Partial Class frmDIProfilEigenschaften
         Me.StatusStrip1.TabIndex = 21
         Me.StatusStrip1.Text = "StatusStrip1"
         '
+        'btnSpeichern
+        '
+        Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnSpeichern.Enabled = False
+        Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
+        Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnSpeichern.Name = "btnSpeichern"
+        Me.btnSpeichern.ShowDropDownArrow = False
+        Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
+        Me.btnSpeichern.Text = "Profil speichern"
+        '
+        'btnLöschen
+        '
+        Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnLöschen.Enabled = False
+        Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
+        Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnLöschen.Name = "btnLöschen"
+        Me.btnLöschen.ShowDropDownArrow = False
+        Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
+        Me.btnLöschen.Text = "Profil löschen"
+        '
+        'btnHinzufügen
+        '
+        Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
+        Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
+        Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.btnHinzufügen.Name = "btnHinzufügen"
+        Me.btnHinzufügen.ShowDropDownArrow = False
+        Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
+        Me.btnHinzufügen.Text = "Profil hinzufügen"
+        '
         'cmbProfilauswahl
         '
         Me.cmbProfilauswahl.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -122,6 +146,49 @@ Partial Class frmDIProfilEigenschaften
         Me.tslblAnzahl.Size = New System.Drawing.Size(94, 17)
         Me.tslblAnzahl.Text = "Anzahl Profile: "
         '
+        'tsbtnfirst
+        '
+        Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnfirst.DoubleClickEnabled = True
+        Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
+        Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnfirst.Name = "tsbtnfirst"
+        Me.tsbtnfirst.ShowDropDownArrow = False
+        Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnfirst.Text = "Erstes Profil"
+        '
+        'tsbtnprevious
+        '
+        Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
+        Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnprevious.Name = "tsbtnprevious"
+        Me.tsbtnprevious.ShowDropDownArrow = False
+        Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
+        Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
+        '
+        'tsbtnnext
+        '
+        Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
+        Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnnext.Name = "tsbtnnext"
+        Me.tsbtnnext.ShowDropDownArrow = False
+        Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnnext.Text = "ToolStripDropDownButton3"
+        Me.tsbtnnext.ToolTipText = "Nächstes Profil"
+        '
+        'tsbtnlast
+        '
+        Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
+        Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.tsbtnlast.Name = "tsbtnlast"
+        Me.tsbtnlast.ShowDropDownArrow = False
+        Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
+        Me.tsbtnlast.Text = "Letztes Profil"
+        '
         'lblProfil
         '
         Me.lblProfil.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -132,7 +199,6 @@ Partial Class frmDIProfilEigenschaften
         'pnlProfileigenschaften
         '
         Me.pnlProfileigenschaften.Controls.Add(Me.Button1)
-        Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox3)
         Me.pnlProfileigenschaften.Controls.Add(Me.txtlastRun)
         Me.pnlProfileigenschaften.Controls.Add(Me.Label7)
         Me.pnlProfileigenschaften.Controls.Add(Me.GroupBox2)
@@ -155,101 +221,17 @@ Partial Class frmDIProfilEigenschaften
         Me.pnlProfileigenschaften.TabIndex = 22
         Me.pnlProfileigenschaften.Visible = False
         '
-        'GroupBox3
+        'Button1
         '
-        Me.GroupBox3.Controls.Add(Me.Label10)
+        Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
-        Me.GroupBox3.Controls.Add(Me.cmbl2Nav_Index)
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.GroupBox3.Controls.Add(Me.Label9)
+        Me.Button1.Location = New System.Drawing.Point(584, 11)
-        Me.GroupBox3.Controls.Add(Me.cmbl2NavDokartindex)
+        Me.Button1.Name = "Button1"
-        Me.GroupBox3.Controls.Add(Me.Label8)
+        Me.Button1.Size = New System.Drawing.Size(184, 23)
-        Me.GroupBox3.Controls.Add(Me.btnLink2Navision)
+        Me.Button1.TabIndex = 60
-        Me.GroupBox3.Controls.Add(Me.txtLink2Navision)
+        Me.Button1.Text = "Regular Expressions"
-        Me.GroupBox3.Controls.Add(Me.chkbxlink2Navision)
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Button1.UseVisualStyleBackColor = True
-        Me.GroupBox3.Location = New System.Drawing.Point(15, 408)
-        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(563, 136)
-        Me.GroupBox3.TabIndex = 59
-        Me.GroupBox3.TabStop = False
-        Me.GroupBox3.Text = "Zusatzmodule/-funktionen:"
-        '
-        'Label10
-        '
-        Me.Label10.AutoSize = True
-        Me.Label10.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label10.Location = New System.Drawing.Point(230, 84)
-        Me.Label10.Name = "Label10"
-        Me.Label10.Size = New System.Drawing.Size(134, 13)
-        Me.Label10.TabIndex = 44
-        Me.Label10.Text = "Indexwert zur Übergabe:"
-        '
-        'cmbl2Nav_Index
-        '
-        Me.cmbl2Nav_Index.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbl2Nav_Index.FormattingEnabled = True
-        Me.cmbl2Nav_Index.Location = New System.Drawing.Point(233, 99)
-        Me.cmbl2Nav_Index.Name = "cmbl2Nav_Index"
-        Me.cmbl2Nav_Index.Size = New System.Drawing.Size(218, 21)
-        Me.cmbl2Nav_Index.TabIndex = 43
-        '
-        'Label9
-        '
-        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.Location = New System.Drawing.Point(3, 84)
-        Me.Label9.Name = "Label9"
-        Me.Label9.Size = New System.Drawing.Size(109, 13)
-        Me.Label9.TabIndex = 42
-        Me.Label9.Text = "Dokumentartindex: "
-        '
-        'cmbl2NavDokartindex
-        '
-        Me.cmbl2NavDokartindex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cmbl2NavDokartindex.FormattingEnabled = True
-        Me.cmbl2NavDokartindex.Location = New System.Drawing.Point(6, 99)
-        Me.cmbl2NavDokartindex.Name = "cmbl2NavDokartindex"
-        Me.cmbl2NavDokartindex.Size = New System.Drawing.Size(218, 21)
-        Me.cmbl2NavDokartindex.TabIndex = 41
-        '
-        'Label8
-        '
-        Me.Label8.AutoSize = True
-        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(6, 40)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(138, 13)
-        Me.Label8.TabIndex = 40
-        Me.Label8.Text = "Pfad zu DDLink2Navision:"
-        '
-        'btnLink2Navision
-        '
-        Me.btnLink2Navision.Enabled = False
-        Me.btnLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnLink2Navision.Location = New System.Drawing.Point(532, 54)
-        Me.btnLink2Navision.Name = "btnLink2Navision"
-        Me.btnLink2Navision.Size = New System.Drawing.Size(24, 21)
-        Me.btnLink2Navision.TabIndex = 4
-        Me.btnLink2Navision.Text = "..."
-        Me.btnLink2Navision.UseVisualStyleBackColor = True
-        '
-        'txtLink2Navision
-        '
-        Me.txtLink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtLink2Navision.Location = New System.Drawing.Point(6, 55)
-        Me.txtLink2Navision.Name = "txtLink2Navision"
-        Me.txtLink2Navision.Size = New System.Drawing.Size(520, 22)
-        Me.txtLink2Navision.TabIndex = 2
-        '
-        'chkbxlink2Navision
-        '
-        Me.chkbxlink2Navision.AutoSize = True
-        Me.chkbxlink2Navision.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkbxlink2Navision.Location = New System.Drawing.Point(6, 20)
-        Me.chkbxlink2Navision.Name = "chkbxlink2Navision"
-        Me.chkbxlink2Navision.Size = New System.Drawing.Size(406, 17)
-        Me.chkbxlink2Navision.TabIndex = 1
-        Me.chkbxlink2Navision.Text = "Link2Navision (Legt für die importierte Datei einen Link in MS Navision an)"
-        Me.chkbxlink2Navision.UseVisualStyleBackColor = True
         '
         'txtlastRun
         '
@@ -359,7 +341,7 @@ Partial Class frmDIProfilEigenschaften
         '
         'txtVerzoegerung
         '
-        Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 562)
+        Me.txtVerzoegerung.Location = New System.Drawing.Point(400, 421)
         Me.txtVerzoegerung.Name = "txtVerzoegerung"
         Me.txtVerzoegerung.Size = New System.Drawing.Size(45, 22)
         Me.txtVerzoegerung.TabIndex = 55
@@ -368,7 +350,7 @@ Partial Class frmDIProfilEigenschaften
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(18, 558)
+        Me.Label6.Location = New System.Drawing.Point(18, 417)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(376, 26)
         Me.Label6.TabIndex = 54
@@ -466,15 +448,26 @@ Partial Class frmDIProfilEigenschaften
         Me.Label5.TabIndex = 50
         Me.Label5.Text = "*  bei diesem Feld handelt es sich um ein Pflichtfeld"
         '
+        'btnRegeln
+        '
+        Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
+        Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
+        Me.btnRegeln.Name = "btnRegeln"
+        Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
+        Me.btnRegeln.TabIndex = 6
+        Me.btnRegeln.Text = "Regeln verwalten ..."
+        Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnRegeln.UseVisualStyleBackColor = True
+        '
         'boxImportoptionenLoeschen
         '
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkUVloeschen)
-        Me.boxImportoptionenLoeschen.Controls.Add(Me.chkQuellverzeichnisLoeschen)
         Me.boxImportoptionenLoeschen.Controls.Add(Me.chkDateienLoeschen)
         Me.boxImportoptionenLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.boxImportoptionenLoeschen.Location = New System.Drawing.Point(584, 110)
         Me.boxImportoptionenLoeschen.Name = "boxImportoptionenLoeschen"
-        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 99)
+        Me.boxImportoptionenLoeschen.Size = New System.Drawing.Size(345, 73)
         Me.boxImportoptionenLoeschen.TabIndex = 46
         Me.boxImportoptionenLoeschen.TabStop = False
         Me.boxImportoptionenLoeschen.Text = "Löschen"
@@ -483,7 +476,7 @@ Partial Class frmDIProfilEigenschaften
         '
         Me.chkUVloeschen.AutoSize = True
         Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 65)
+        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 47)
         Me.chkUVloeschen.Name = "chkUVloeschen"
         Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
         Me.chkUVloeschen.TabIndex = 2
@@ -491,23 +484,11 @@ Partial Class frmDIProfilEigenschaften
         Me.chkUVloeschen.UseVisualStyleBackColor = True
         Me.chkUVloeschen.Visible = False
         '
-        'chkQuellverzeichnisLoeschen
-        '
-        Me.chkQuellverzeichnisLoeschen.AutoSize = True
-        Me.chkQuellverzeichnisLoeschen.Enabled = False
-        Me.chkQuellverzeichnisLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
-        Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
-        Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
-        Me.chkQuellverzeichnisLoeschen.TabIndex = 1
-        Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
-        Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
-        '
         'chkDateienLoeschen
         '
         Me.chkDateienLoeschen.AutoSize = True
         Me.chkDateienLoeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 19)
+        Me.chkDateienLoeschen.Location = New System.Drawing.Point(8, 23)
         Me.chkDateienLoeschen.Name = "chkDateienLoeschen"
         Me.chkDateienLoeschen.Size = New System.Drawing.Size(200, 17)
         Me.chkDateienLoeschen.TabIndex = 0
@@ -629,108 +610,6 @@ Partial Class frmDIProfilEigenschaften
         '
         Me.OpenFileDialog1.FileName = "OpenFileDialog1"
         '
-        'Button1
-        '
-        Me.Button1.Image = Global.ToolCollection.My.Resources.Resources.lines_Text_code_16xLG
-        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(584, 11)
-        Me.Button1.Name = "Button1"
-        Me.Button1.Size = New System.Drawing.Size(184, 23)
-        Me.Button1.TabIndex = 60
-        Me.Button1.Text = "Regular Expressions"
-        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button1.UseVisualStyleBackColor = True
-        '
-        'btnRegeln
-        '
-        Me.btnRegeln.Image = Global.ToolCollection.My.Resources.Resources.f5
-        Me.btnRegeln.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnRegeln.Location = New System.Drawing.Point(774, 10)
-        Me.btnRegeln.Name = "btnRegeln"
-        Me.btnRegeln.Size = New System.Drawing.Size(155, 49)
-        Me.btnRegeln.TabIndex = 6
-        Me.btnRegeln.Text = "Regeln verwalten ..."
-        Me.btnRegeln.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnRegeln.UseVisualStyleBackColor = True
-        '
-        'btnSpeichern
-        '
-        Me.btnSpeichern.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnSpeichern.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnSpeichern.Enabled = False
-        Me.btnSpeichern.Image = Global.ToolCollection.My.Resources.Resources.table_save
-        Me.btnSpeichern.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnSpeichern.Name = "btnSpeichern"
-        Me.btnSpeichern.ShowDropDownArrow = False
-        Me.btnSpeichern.Size = New System.Drawing.Size(20, 20)
-        Me.btnSpeichern.Text = "Profil speichern"
-        '
-        'btnLöschen
-        '
-        Me.btnLöschen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnLöschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnLöschen.Enabled = False
-        Me.btnLöschen.Image = Global.ToolCollection.My.Resources.Resources.table_delete
-        Me.btnLöschen.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnLöschen.Name = "btnLöschen"
-        Me.btnLöschen.ShowDropDownArrow = False
-        Me.btnLöschen.Size = New System.Drawing.Size(20, 20)
-        Me.btnLöschen.Text = "Profil löschen"
-        '
-        'btnHinzufügen
-        '
-        Me.btnHinzufügen.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
-        Me.btnHinzufügen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.btnHinzufügen.Image = Global.ToolCollection.My.Resources.Resources.table_add
-        Me.btnHinzufügen.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.btnHinzufügen.Name = "btnHinzufügen"
-        Me.btnHinzufügen.ShowDropDownArrow = False
-        Me.btnHinzufügen.Size = New System.Drawing.Size(20, 20)
-        Me.btnHinzufügen.Text = "Profil hinzufügen"
-        '
-        'tsbtnfirst
-        '
-        Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnfirst.DoubleClickEnabled = True
-        Me.tsbtnfirst.Image = Global.ToolCollection.My.Resources.Resources.control_rewind
-        Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnfirst.Name = "tsbtnfirst"
-        Me.tsbtnfirst.ShowDropDownArrow = False
-        Me.tsbtnfirst.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnfirst.Text = "Erstes Profil"
-        '
-        'tsbtnprevious
-        '
-        Me.tsbtnprevious.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnprevious.Image = Global.ToolCollection.My.Resources.Resources.arrow_left
-        Me.tsbtnprevious.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnprevious.Name = "tsbtnprevious"
-        Me.tsbtnprevious.ShowDropDownArrow = False
-        Me.tsbtnprevious.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnprevious.Text = "ToolStripDropDownButton2"
-        Me.tsbtnprevious.ToolTipText = "Vorheriges Profil"
-        '
-        'tsbtnnext
-        '
-        Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnnext.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
-        Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnnext.Name = "tsbtnnext"
-        Me.tsbtnnext.ShowDropDownArrow = False
-        Me.tsbtnnext.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnnext.Text = "ToolStripDropDownButton3"
-        Me.tsbtnnext.ToolTipText = "Nächstes Profil"
-        '
-        'tsbtnlast
-        '
-        Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-        Me.tsbtnlast.Image = Global.ToolCollection.My.Resources.Resources.control_fastforward
-        Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
-        Me.tsbtnlast.Name = "tsbtnlast"
-        Me.tsbtnlast.ShowDropDownArrow = False
-        Me.tsbtnlast.Size = New System.Drawing.Size(20, 20)
-        Me.tsbtnlast.Text = "Letztes Profil"
-        '
         'frmDIProfilEigenschaften
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -750,8 +629,6 @@ Partial Class frmDIProfilEigenschaften
         Me.StatusStrip1.PerformLayout()
         Me.pnlProfileigenschaften.ResumeLayout(False)
         Me.pnlProfileigenschaften.PerformLayout()
-        Me.GroupBox3.ResumeLayout(False)
-        Me.GroupBox3.PerformLayout()
         Me.GroupBox2.ResumeLayout(False)
         Me.GroupBox2.PerformLayout()
         Me.GroupBox1.ResumeLayout(False)
@@ -775,7 +652,6 @@ Partial Class frmDIProfilEigenschaften
     Friend WithEvents Label5 As System.Windows.Forms.Label
     Friend WithEvents btnRegeln As System.Windows.Forms.Button
     Friend WithEvents boxImportoptionenLoeschen As System.Windows.Forms.GroupBox
-    Friend WithEvents chkQuellverzeichnisLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents chkDateienLoeschen As System.Windows.Forms.CheckBox
     Friend WithEvents boxImportoptionenBackup As System.Windows.Forms.GroupBox
     Friend WithEvents txtBackupordner As System.Windows.Forms.TextBox
@@ -808,16 +684,7 @@ Partial Class frmDIProfilEigenschaften
     Friend WithEvents tsbtnlast As System.Windows.Forms.ToolStripDropDownButton
     Friend WithEvents tslblAnzahl As System.Windows.Forms.ToolStripStatusLabel
     Friend WithEvents lblProfil As System.Windows.Forms.ToolStripStatusLabel
-    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
-    Friend WithEvents chkbxlink2Navision As System.Windows.Forms.CheckBox
-    Friend WithEvents Label8 As System.Windows.Forms.Label
-    Friend WithEvents btnLink2Navision As System.Windows.Forms.Button
-    Friend WithEvents txtLink2Navision As System.Windows.Forms.TextBox
     Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
-    Friend WithEvents cmbl2NavDokartindex As System.Windows.Forms.ComboBox
-    Friend WithEvents Label9 As System.Windows.Forms.Label
-    Friend WithEvents Label10 As System.Windows.Forms.Label
-    Friend WithEvents cmbl2Nav_Index As System.Windows.Forms.ComboBox
     Friend WithEvents chkb_Subdirectories As System.Windows.Forms.CheckBox
     Friend WithEvents chkUVloeschen As System.Windows.Forms.CheckBox
     Friend WithEvents rbUV_Date3 As System.Windows.Forms.RadioButton

ToolCollection/frmDIProfilEigenschaften.vb

@@ -4,7 +4,6 @@ Imports System.IO
 Public Class frmDIProfilEigenschaften
     ' entspricht dem, über die Toolbar-Combobox ausgewählten, Profil und enthält alle relevanten Informationen darüber
     Private selectedProfile As ClassDIProfil
-    Private licenseManager As ClassLicenseManager
     Dim Formloaded As Boolean = False
     'Zum Speichern der Positionen
     Dim _pos As Integer
@@ -28,14 +27,7 @@ Public Class frmDIProfilEigenschaften
 
         ' alle Profile in die Toolbar-Combobox eintragen
         Me.LoadProfilesInCombobox()
-        Try
+
-            Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-            Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-            Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-            Me.licenseManager.LoadLicenses()
-        Catch ex As Exception
-            MsgBox("Fehler beim Laden der Lizenzen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
     End Sub
     Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
 
@@ -138,23 +130,6 @@ Public Class frmDIProfilEigenschaften
             Me.txtBackupordner.Text = Me.selectedProfile.Backupordner
             Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
             Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
-            Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.VerzeichnisLöschen
-            Me.chkbxlink2Navision.Checked = Me.selectedProfile.Link2Navision
-            If Me.chkbxlink2Navision.Checked = True Then
-                Me.txtLink2Navision.Text = My.Settings.PathLink2Navision
-                Me.txtLink2Navision.Enabled = True
-                Me.btnLink2Navision.Enabled = True
-                Me.cmbl2Nav_Index.Enabled = True
-                Me.cmbl2NavDokartindex.Enabled = True
-
-                load_indexe_inComboboxen()
-
-            Else
-                Me.txtLink2Navision.Enabled = False
-                Me.btnLink2Navision.Enabled = False
-                Me.cmbl2Nav_Index.Enabled = False
-                Me.cmbl2NavDokartindex.Enabled = False
-            End If
 
             If CBool(Me.selectedProfile.Aktiv) = True Then
                 Me.chkbxAktiv.Checked = True
@@ -183,7 +158,6 @@ Public Class frmDIProfilEigenschaften
         Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
         Me.chkDateienUeberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
-        Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
         'End If
     End Sub
     Sub rbBoxenenablen()
@@ -197,49 +171,14 @@ Public Class frmDIProfilEigenschaften
             rbUV_Date3.Enabled = True
         End If
     End Sub
-    Sub load_indexe_inComboboxen()
-        Me.cmbl2NavDokartindex.Items.Clear()
-        Me.cmbl2Nav_Index.Items.Clear()
-        Dim indexe = _windream.GetIndicesByObjecttype(Me.selectedProfile.DokumenttypString, True, "DI")
-        If indexe IsNot Nothing Then
-            Me.cmbl2NavDokartindex.Items.Add("")
-            Me.cmbl2Nav_Index.Items.Add("")
-            For Each index As String In indexe
-                Me.cmbl2NavDokartindex.Items.Add(index)
-                Me.cmbl2Nav_Index.Items.Add(index)
-            Next
-            Me.cmbl2NavDokartindex.SelectedIndex = -1
-            Me.cmbl2NavDokartindex.SelectedItem = 0
-            Me.cmbl2Nav_Index.SelectedIndex = -1
-            Me.cmbl2Nav_Index.SelectedItem = 0
 
-            If Me.selectedProfile.Link2Navision_dokart <> "" Then
-                'Wenn bereits eine Dokart gewählt wurde
-                Me.cmbl2NavDokartindex.SelectedIndex = Me.cmbl2NavDokartindex.FindStringExact(Me.selectedProfile.Link2Navision_dokart)
-            Else
-                'Wenn noch KEINE Dokart gewählt wurde
-                Me.cmbl2NavDokartindex.SelectedIndex = -1
-                Me.cmbl2NavDokartindex.SelectedItem = ""
-            End If
-            If Me.selectedProfile.Link2Navision_Index <> "" Then
-                'Wenn bereits ein Index gewählt wurde
-                Me.cmbl2Nav_Index.SelectedIndex = Me.cmbl2Nav_Index.FindStringExact(Me.selectedProfile.Link2Navision_Index)
-            Else
-                'Wenn noch KEIN Index gewählt wurde
-                Me.cmbl2Nav_Index.SelectedIndex = -1
-                Me.cmbl2Nav_Index.SelectedItem = ""
-            End If
-        End If
-    End Sub
     ' ++++++++++++++++++++++++++++++++++++++++++++++ Events ++++++++++++++++++++++++++++++++++++++++++++++
 
     ' +++ Elemente auf Toolbar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
 
-        ' wenn bereits ein Profil ausgewählt wurde
         If Me.selectedProfile IsNot Nothing Then
-            ' wenn es sich bei dem ausgewählten Element um das gleiche handelt wie das Aktive, dann nichts tun
             If e.ClickedItem.Text = Me.selectedProfile.Profilname Then Exit Sub
 
             If selectedProfile.HasChanges Then
@@ -251,7 +190,11 @@ Public Class frmDIProfilEigenschaften
         'Dim changeProfile As Boolean = Me.AskToSaveIfNeccessary(False)
 
         Lade_Profil(e.ClickedItem.Text)
-
+        For i = 0 To arrProfile.GetUpperBound(0)
+            If arrProfile(i, 0) = e.ClickedItem.Text Then
+                _pos = arrProfile(i, 1)
+            End If
+        Next
 
     End Sub
 
@@ -340,7 +283,6 @@ Public Class frmDIProfilEigenschaften
                 Me.chkDateienLoeschen.Checked = Me.selectedProfile.DateiLöschen
                 Me.chkDateienUeberschreiben.Checked = Me.selectedProfile.Overwrite
                 Me.chkImportoptionenBackup.Checked = Me.selectedProfile.Backup
-                Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.DateiLöschen
             End If
 
         End If
@@ -507,7 +449,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Quellordner '" & txtQuellordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-           
+
         End If
     End Sub
 
@@ -523,7 +465,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Ordner '" & txtZielordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-           
+
         End If
     End Sub
 
@@ -561,7 +503,7 @@ Public Class frmDIProfilEigenschaften
             Else
                 MsgBox("Der angegebene Ordner '" & txtBackupordner.Text & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
             End If
-          
+
         End If
     End Sub
 
@@ -587,17 +529,6 @@ Public Class frmDIProfilEigenschaften
         End If
     End Sub
 
-    Private Sub chkQuellverzeichnisLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkQuellverzeichnisLoeschen.CheckedChanged
-        If Me.selectedProfile IsNot Nothing Then
-            Me.selectedProfile.VerzeichnisLöschen = Me.chkQuellverzeichnisLoeschen.Checked
-            If Not Me.chkQuellverzeichnisLoeschen.Checked = Me.selectedProfile.OriginalVerzeichnisLöschen Then
-                Me.btnSpeichern.Enabled = True
-            Else
-                Me.btnSpeichern.Enabled = False
-            End If
-        End If
-    End Sub
-
     Private Sub btnRegeln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegeln.Click
 
         'Dim regelverwaltung As Control = New pnlDateiimportRegelverwaltung()
@@ -639,7 +570,7 @@ Public Class frmDIProfilEigenschaften
                     rbUV_Date1.Checked = True
                     variante = "YYYY-MM-DD"
             End Select
-                txtUV_Date.Text = variante
+            txtUV_Date.Text = variante
         Else
             txtUV_Date.Text = ""
         End If
@@ -785,44 +716,6 @@ Public Class frmDIProfilEigenschaften
         End If
     End Sub
 
-    Private Sub chkbxlink2Navision_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles chkbxlink2Navision.CheckedChanged
-        If Me.selectedProfile IsNot Nothing Then
-            Me.selectedProfile.Link2Navision = Me.chkbxlink2Navision.Checked
-            If Not Me.chkbxlink2Navision.Checked = Me.selectedProfile.OriginalLink2Navision Then
-                Me.btnSpeichern.Enabled = True
-            Else
-                Me.btnSpeichern.Enabled = False
-            End If
-            If Me.chkbxlink2Navision.Checked Then
-                Me.txtLink2Navision.Enabled = True
-                Me.btnLink2Navision.Enabled = True
-                Me.cmbl2NavDokartindex.Enabled = True
-                Me.cmbl2Nav_Index.Enabled = True
-
-                load_indexe_inComboboxen()
-
-            Else
-                Me.txtLink2Navision.Enabled = False
-                Me.btnLink2Navision.Enabled = False
-                Me.cmbl2NavDokartindex.Enabled = False
-                Me.cmbl2Nav_Index.Enabled = False
-            End If
-        End If
-    End Sub
-
-    Private Sub btnLink2Navision_Click(sender As System.Object, e As System.EventArgs) Handles btnLink2Navision.Click
-        With OpenFileDialog1
-            ' Do
-            .Filter = "NavisionLink.exe|*.exe"
-            .FilterIndex = 1
-            .Title = "Pfad zu DDNavisionLink:"
-            If .ShowDialog() = DialogResult.OK Then
-                Me.txtLink2Navision.Text = .FileName
-                setAppSetting("PathLink2Navision", .FileName)
-                Me.txtLink2Navision.Text = .FileName
-            End If
-        End With
-    End Sub
     Private Sub setAppSetting(ByVal name As String, ByVal value As String)
         Dim _folder As New IO.DirectoryInfo(System.IO.Directory.GetCurrentDirectory())
         Dim aryFi1 As IO.FileInfo() = _folder.GetFiles("*.config")
@@ -841,32 +734,6 @@ Public Class frmDIProfilEigenschaften
 
     End Sub
 
-    Private Sub cmbl2NavDokartindex_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2NavDokartindex.SelectedIndexChanged
-        If Me.selectedProfile IsNot Nothing Then
-            If Me.cmbl2NavDokartindex.SelectedIndex <> -1 Then
-                Me.selectedProfile.Link2Navision_dokart = Me.cmbl2NavDokartindex.Text
-                If Not Me.selectedProfile.Link2Navision_dokart = Me.selectedProfile.OriginalLink2Navision_dokart Then
-                    Me.btnSpeichern.Enabled = True
-                Else
-                    Me.btnSpeichern.Enabled = False
-                End If
-            End If
-        End If
-    End Sub
-
-    Private Sub cmbl2Nav_Index_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbl2Nav_Index.SelectedIndexChanged
-        If Me.selectedProfile IsNot Nothing Then
-            If Me.cmbl2Nav_Index.SelectedIndex <> -1 Then
-                Me.selectedProfile.Link2Navision_Index = Me.cmbl2Nav_Index.Text
-                If Not Me.selectedProfile.Link2Navision_Index = Me.selectedProfile.Link2Navision_Index Then
-                    Me.btnSpeichern.Enabled = True
-                Else
-                    Me.btnSpeichern.Enabled = False
-                End If
-            End If
-        End If
-    End Sub
-
     Private Sub cmbProfilauswahl_ButtonClick(sender As System.Object, e As System.EventArgs) Handles cmbProfilauswahl.ButtonClick
 
     End Sub

ToolCollection/frmDIProfilHinzufuegen.Designer.vb

@@ -50,9 +50,9 @@ Partial Class frmDIProfilHinzufuegen
         Me.btnZielverzeichnisLöschen = New System.Windows.Forms.Button()
         Me.btnQuellverzeichnisLöschen = New System.Windows.Forms.Button()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Label6 = New System.Windows.Forms.Label()
         Me.chkb_DateUV = New System.Windows.Forms.CheckBox()
         Me.chkb_Subdirectories = New System.Windows.Forms.CheckBox()
-        Me.Label6 = New System.Windows.Forms.Label()
         Me.boxImportoptionenLoeschen.SuspendLayout()
         Me.boxImportoptionenBackup.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
@@ -74,7 +74,7 @@ Partial Class frmDIProfilHinzufuegen
         '
         Me.chkUVloeschen.AutoSize = True
         Me.chkUVloeschen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.chkUVloeschen.Location = New System.Drawing.Point(250, 42)
+        Me.chkUVloeschen.Location = New System.Drawing.Point(8, 42)
         Me.chkUVloeschen.Name = "chkUVloeschen"
         Me.chkUVloeschen.Size = New System.Drawing.Size(230, 17)
         Me.chkUVloeschen.TabIndex = 18
@@ -86,12 +86,13 @@ Partial Class frmDIProfilHinzufuegen
         '
         Me.chkQuellverzeichnisLoeschen.AutoSize = True
         Me.chkQuellverzeichnisLoeschen.Enabled = False
-        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(8, 42)
+        Me.chkQuellverzeichnisLoeschen.Location = New System.Drawing.Point(250, 19)
         Me.chkQuellverzeichnisLoeschen.Name = "chkQuellverzeichnisLoeschen"
         Me.chkQuellverzeichnisLoeschen.Size = New System.Drawing.Size(217, 17)
         Me.chkQuellverzeichnisLoeschen.TabIndex = 17
         Me.chkQuellverzeichnisLoeschen.Text = "Quellverzeichnis nach Import löschen"
         Me.chkQuellverzeichnisLoeschen.UseVisualStyleBackColor = True
+        Me.chkQuellverzeichnisLoeschen.Visible = False
         '
         'chkDateienLoeschen
         '
@@ -326,6 +327,17 @@ Partial Class frmDIProfilHinzufuegen
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Erweiterte Ordnerstrukturen"
         '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label6.Location = New System.Drawing.Point(28, 40)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(243, 15)
+        Me.Label6.TabIndex = 1
+        Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
+        Me.Label6.Visible = False
+        '
         'chkb_DateUV
         '
         Me.chkb_DateUV.AutoSize = True
@@ -346,17 +358,6 @@ Partial Class frmDIProfilHinzufuegen
         Me.chkb_Subdirectories.Text = "Unterverzeichnisse einbeziehen (Ordnerstruktur wird komplett übernommen)"
         Me.chkb_Subdirectories.UseVisualStyleBackColor = True
         '
-        'Label6
-        '
-        Me.Label6.AutoSize = True
-        Me.Label6.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label6.Location = New System.Drawing.Point(28, 40)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(243, 15)
-        Me.Label6.TabIndex = 1
-        Me.Label6.Text = "Detaileinstellungen nach Speichern im Profil"
-        Me.Label6.Visible = False
-        '
         'frmDIProfilHinzufuegen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

ToolCollection/frmDIProfilHinzufuegen.resx

@@ -121,17 +121,17 @@
   <data name="btnBackupverzeichnisLö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="dlgQuellordner.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -146,33 +146,33 @@
   <data name="btnZielverzeichnisLö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>
   <data name="btnQuellverzeichnisLö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>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

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

@@ -1,235 +0,0 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frmLizenzmanager
-    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)
-        If disposing AndAlso components IsNot Nothing Then
-            components.Dispose()
-        End If
-        MyBase.Dispose(disposing)
-    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()
-        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLizenzmanager))
-        Me.txtKey = New System.Windows.Forms.TextBox()
-        Me.Label1 = New System.Windows.Forms.Label()
-        Me.boxLicenseInfos = New System.Windows.Forms.GroupBox()
-        Me.txtmachine = New System.Windows.Forms.TextBox()
-        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtCompany = New System.Windows.Forms.TextBox()
-        Me.Label3 = New System.Windows.Forms.Label()
-        Me.Label2 = New System.Windows.Forms.Label()
-        Me.lvLicense = New System.Windows.Forms.ListView()
-        Me.clmModulname = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmGültigkeit = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmType = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.clmAnz = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
-        Me.btnOK = New System.Windows.Forms.Button()
-        Me.btnAbbrechen = New System.Windows.Forms.Button()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtmachineOriginal = New System.Windows.Forms.TextBox()
-        Me.boxLicenseInfos.SuspendLayout()
-        Me.SuspendLayout()
-        '
-        'txtKey
-        '
-        Me.txtKey.Location = New System.Drawing.Point(15, 25)
-        Me.txtKey.Multiline = True
-        Me.txtKey.Name = "txtKey"
-        Me.txtKey.Size = New System.Drawing.Size(456, 123)
-        Me.txtKey.TabIndex = 0
-        '
-        '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(87, 13)
-        Me.Label1.TabIndex = 1
-        Me.Label1.Text = "Lizenzschlüssel:"
-        '
-        'boxLicenseInfos
-        '
-        Me.boxLicenseInfos.Controls.Add(Me.txtmachine)
-        Me.boxLicenseInfos.Controls.Add(Me.Label4)
-        Me.boxLicenseInfos.Controls.Add(Me.txtCompany)
-        Me.boxLicenseInfos.Controls.Add(Me.Label3)
-        Me.boxLicenseInfos.Controls.Add(Me.Label2)
-        Me.boxLicenseInfos.Controls.Add(Me.lvLicense)
-        Me.boxLicenseInfos.Location = New System.Drawing.Point(15, 154)
-        Me.boxLicenseInfos.Name = "boxLicenseInfos"
-        Me.boxLicenseInfos.Size = New System.Drawing.Size(456, 349)
-        Me.boxLicenseInfos.TabIndex = 2
-        Me.boxLicenseInfos.TabStop = False
-        Me.boxLicenseInfos.Text = "Lizenzinformationen"
-        '
-        'txtmachine
-        '
-        Me.txtmachine.BackColor = System.Drawing.SystemColors.Window
-        Me.txtmachine.Cursor = System.Windows.Forms.Cursors.Arrow
-        Me.txtmachine.Location = New System.Drawing.Point(15, 81)
-        Me.txtmachine.Name = "txtmachine"
-        Me.txtmachine.ReadOnly = True
-        Me.txtmachine.Size = New System.Drawing.Size(425, 22)
-        Me.txtmachine.TabIndex = 5
-        '
-        'Label4
-        '
-        Me.Label4.AutoSize = True
-        Me.Label4.Location = New System.Drawing.Point(12, 62)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(130, 13)
-        Me.Label4.TabIndex = 4
-        Me.Label4.Text = "Lizensiert für ""machine"":"
-        '
-        'txtCompany
-        '
-        Me.txtCompany.BackColor = System.Drawing.SystemColors.Window
-        Me.txtCompany.Cursor = System.Windows.Forms.Cursors.Arrow
-        Me.txtCompany.Location = New System.Drawing.Point(15, 40)
-        Me.txtCompany.Name = "txtCompany"
-        Me.txtCompany.ReadOnly = True
-        Me.txtCompany.Size = New System.Drawing.Size(425, 22)
-        Me.txtCompany.TabIndex = 3
-        '
-        'Label3
-        '
-        Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(12, 24)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(100, 13)
-        Me.Label3.TabIndex = 2
-        Me.Label3.Text = "Lizenzeigentümer:"
-        '
-        'Label2
-        '
-        Me.Label2.AutoSize = True
-        Me.Label2.Location = New System.Drawing.Point(12, 106)
-        Me.Label2.Name = "Label2"
-        Me.Label2.Size = New System.Drawing.Size(113, 13)
-        Me.Label2.TabIndex = 1
-        Me.Label2.Text = "enthaltene Lizenzen:"
-        '
-        'lvLicense
-        '
-        Me.lvLicense.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.clmModulname, Me.clmGültigkeit, Me.clmType, Me.clmAnz})
-        Me.lvLicense.FullRowSelect = True
-        Me.lvLicense.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
-        Me.lvLicense.HideSelection = False
-        Me.lvLicense.Location = New System.Drawing.Point(15, 122)
-        Me.lvLicense.Name = "lvLicense"
-        Me.lvLicense.Size = New System.Drawing.Size(425, 204)
-        Me.lvLicense.TabIndex = 0
-        Me.lvLicense.UseCompatibleStateImageBehavior = False
-        Me.lvLicense.View = System.Windows.Forms.View.Details
-        '
-        'clmModulname
-        '
-        Me.clmModulname.Text = "Modulname"
-        Me.clmModulname.Width = 150
-        '
-        'clmGültigkeit
-        '
-        Me.clmGültigkeit.Text = "Gültigkeitsdatum"
-        Me.clmGültigkeit.Width = 120
-        '
-        'clmType
-        '
-        Me.clmType.Text = "Type"
-        Me.clmType.Width = 70
-        '
-        'clmAnz
-        '
-        Me.clmAnz.Text = "Profile"
-        '
-        '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(315, 577)
-        Me.btnOK.Name = "btnOK"
-        Me.btnOK.Size = New System.Drawing.Size(75, 23)
-        Me.btnOK.TabIndex = 3
-        Me.btnOK.Text = "OK"
-        Me.btnOK.UseVisualStyleBackColor = True
-        '
-        'btnAbbrechen
-        '
-        Me.btnAbbrechen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnAbbrechen.Location = New System.Drawing.Point(396, 577)
-        Me.btnAbbrechen.Name = "btnAbbrechen"
-        Me.btnAbbrechen.Size = New System.Drawing.Size(75, 23)
-        Me.btnAbbrechen.TabIndex = 4
-        Me.btnAbbrechen.Text = "Abbrechen"
-        Me.btnAbbrechen.UseVisualStyleBackColor = True
-        '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(12, 511)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(94, 13)
-        Me.Label5.TabIndex = 5
-        Me.Label5.Text = """machine-Name"":"
-        '
-        'txtmachineOriginal
-        '
-        Me.txtmachineOriginal.Location = New System.Drawing.Point(15, 527)
-        Me.txtmachineOriginal.Name = "txtmachineOriginal"
-        Me.txtmachineOriginal.ReadOnly = True
-        Me.txtmachineOriginal.Size = New System.Drawing.Size(285, 22)
-        Me.txtmachineOriginal.TabIndex = 6
-        '
-        'frmLizenzmanager
-        '
-        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
-        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(487, 605)
-        Me.Controls.Add(Me.txtmachineOriginal)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.btnAbbrechen)
-        Me.Controls.Add(Me.btnOK)
-        Me.Controls.Add(Me.boxLicenseInfos)
-        Me.Controls.Add(Me.Label1)
-        Me.Controls.Add(Me.txtKey)
-        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.FixedSingle
-        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
-        Me.MaximizeBox = False
-        Me.MinimizeBox = False
-        Me.Name = "frmLizenzmanager"
-        Me.ShowInTaskbar = False
-        Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
-        Me.Text = "Lizenzmanager"
-        Me.boxLicenseInfos.ResumeLayout(False)
-        Me.boxLicenseInfos.PerformLayout()
-        Me.ResumeLayout(False)
-        Me.PerformLayout()
-
-    End Sub
-    Friend WithEvents txtKey As System.Windows.Forms.TextBox
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents boxLicenseInfos As System.Windows.Forms.GroupBox
-    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents lvLicense As System.Windows.Forms.ListView
-    Friend WithEvents txtCompany As System.Windows.Forms.TextBox
-    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents clmModulname As System.Windows.Forms.ColumnHeader
-    Friend WithEvents clmGültigkeit As System.Windows.Forms.ColumnHeader
-    Friend WithEvents btnOK As System.Windows.Forms.Button
-    Friend WithEvents btnAbbrechen As System.Windows.Forms.Button
-    Friend WithEvents txtmachine As System.Windows.Forms.TextBox
-    Friend WithEvents Label4 As System.Windows.Forms.Label
-    Friend WithEvents clmType As System.Windows.Forms.ColumnHeader
-    Friend WithEvents clmAnz As System.Windows.Forms.ColumnHeader
-    Friend WithEvents Label5 As System.Windows.Forms.Label
-    Friend WithEvents txtmachineOriginal As System.Windows.Forms.TextBox
-End Class

ToolCollection/frmLizenzmanager.resx

@@ -1,149 +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>
-  <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">
-    <value>
-        AAABAAEAEBAAAAAAAABoBQAAFgAAACgAAAAQAAAAIAAAAAEACAAAAAAAQAEAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAA////AFu8aACc2acANoo6AH7IhQBLoFEAjdGWAG3EdgBPtVkAQJRFAFysYgBmtW0AUqdZAHTL
-        fgCV1Z4Ahc2NAGTBcQBVuWAAXrRlADuPQABFmUoAedCDAHbDfABivWsAVqtdAHnLhwB6xoEAmNiiAE+k
-        VQCCyokAcMd6AIrPkgBywHoASJxNAFi7ZABpwXIAYrhqAGa9bwA5jD0AUrddAFuxYwCQ0pkAacN3AD6S
-        QgB2zoEAXr1qAEKWRwByyXwAYL9tAJPUnACLz5UASZ5PAIPMiwB8x4MAWq9hAF27ZgBiwG8AiM+QAIDK
-        hwCW16EAU6laAFG2WwB4zYIAV61eAFO4XwBau2YAb8Z4AF+1ZwBlwnMAmdikAHzJhQBlv28AZsBxAGfC
-        cwA6jj8APJBBAI/RmABMoVIAeM+CAHXNgABWumEAc8p9AF2tYwBdvGkAX75sAGO5awBlvG4Am9mmAD2R
-        QgCT1Z0AQZZGAI3SlwCM0JUASJ1OAIrPlACLz5MAhs2OAITMjACDy4oAgcqIAFi6YwBxyXsAZbVsAGXB
-        cgA5jT0APpJDAJnYowCY16IAl9iiAJfXoQCLz5QAiM+RAIPKiQCAyogAVrlhAH7IhABZu2QAds6AAHvG
-        gQBzy30AXb1pAG3EdwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZDR0GIgAAahQnBAAAAAAAN2FicU4AAC8bF2kAAAAAABNwcxBn
-        TjRTNndMAAAAAAAlMyAkYWJjZDh0CgAAAAAAVyUhYCNRQT4JOwsKWUsAAAAAVgdUQmUSKBhkBXQsAAAA
-        ACYqMS4CdVFINR5yWwAAH3pHMmg5VXlCOgxOXhUAAHhrbhorRRFKSW89AAAAAAB2WEZsPA8yTV1fQAAA
-        AAAAFi0OZkNuWlclRCkAAAAAAAAAAAAwbVwAAAAAAAAAAAAAAAAAPwMcCAAAAAAAAAAAAAAAAE9QUgAA
-        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAP//AACDDwAAgw8AAIAPAACADwAAgAEAAOABAADgAQAAgAEAAIAP
-        AACADwAAgA8AAPj/AAD4fwAA+P8AAP//AAA=
-</value>
-  </data>
-</root>

ToolCollection/frmLizenzmanager.vb

@@ -1,101 +0,0 @@
-Public Class frmLizenzmanager
-
-    Private licenseKey_old As String
-    Private licenseManager As ClassLicenseManager = Nothing
-
-    Private Sub frmLizenzmanager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-        Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-        Me.txtKey.Text = My.Settings.licensekey
-        Me.licenseKey_old = Me.txtKey.Text
-        Me.txtmachineOriginal.Text = My.Computer.Name
-        Me.CheckLicenseKey()
-    End Sub
-
-
-    Private Sub CheckLicenseKey()
-        Me.txtCompany.Text = ""
-        Me.txtmachine.Text = ""
-        Me.lvLicense.Items.Clear()
-
-        If Not Me.txtKey.Text = "" Then
-            If Me.txtKey.Text = "DD MaxLicense" Or Me.txtKey.Text.ToUpper = "DDALLIN" Then
-                Me.txtCompany.Text = "Digital Data"
-                Me.txtmachine.Text = "None"
-            Else
-                Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(Me.txtKey.Text)
-                Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-                Me.licenseManager.LoadLicenses()
-
-                Dim i As Integer = 0
-
-                If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-                    Me.txtCompany.Text = Me.licenseManager.Licenses.Company
-                    Me.txtmachine.Text = Me.licenseManager.Licenses.machine
-                    Me.lvLicense.Items.Clear()
-                    For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                        Dim expires As String = license.Expires.Date
-                        Dim type As String = license.Type
-                        Dim anzProf As String = license.Anz_Profile
-                        If anzProf = 99 Then
-                            anzProf = "Unlimited"
-                        End If
-
-                        'Date.TryParse(expires, license.Expires)
-                        If Not expires = "" Then
-                            Me.lvLicense.Items.Add(license.Modulename)
-                            ' MsgBox(license.Modulename)
-                            Dim test = Me.lvLicense.Items.Item(i)
-                            Me.lvLicense.Items(i).SubItems.Add(expires)
-                            lvLicense.Items(i).SubItems.Add(type)
-                            lvLicense.Items(i).SubItems.Add(anzProf)
-                            i += 1
-                        End If
-                    Next
-                End If
-            End If
-
-
-
-        End If
-    End Sub
-
-
-    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
-        If Not Me.licenseKey_old = Me.txtKey.Text Then
-            Dim result As MsgBoxResult = MsgBox("Sind sie sicher, dass der Lizenzschlüssel geändert werden soll?", MsgBoxStyle.YesNo, "Lizenzschlüssel wurde geändert")
-            If result = MsgBoxResult.Yes Then
-                My.Settings.licensekey = Me.txtKey.Text
-                My.Settings.Save()
-            End If
-        End If
-
-
-        If Not My.Settings.licensekey = "" Then
-            ' alle vorhandenen Module laden
-            frmStart.LoadAllModules()
-        End If
-
-        Me.Close()
-    End Sub
-
-
-    Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
-        Me.txtKey.Text = ""
-        Me.txtCompany.Text = ""
-        Me.lvLicense.Items.Clear()
-
-        frmStart.ClearGroupBoxes()
-
-        If Not My.Settings.licensekey = "" Then
-            ' alle vorhandenen Module laden
-            frmStart.LoadAllModules()
-        End If
-
-        Me.Close()
-    End Sub
-
-
-    Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged
-        Me.CheckLicenseKey()
-    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)
@@ -61,12 +69,20 @@ Partial Class frmNIHauptseite
         Me.TBTC_MOVE_RENAMEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBTC_MOVE_RENAMETableAdapter = New ToolCollection.MyDatasetTableAdapters.TBTC_MOVE_RENAMETableAdapter()
         Me.TableAdapterManager1 = New ToolCollection.MyDatasetTableAdapters.TableAdapterManager()
+        Me.TimerAutostart = New System.Windows.Forms.Timer(Me.components)
         Me.tcmain.SuspendLayout()
         Me.tpMain.SuspendLayout()
         Me.StatusStrip1.SuspendLayout()
         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 +98,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
@@ -106,7 +122,7 @@ Partial Class frmNIHauptseite
         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(766, 521)
+        Me.tpMain.Size = New System.Drawing.Size(769, 521)
         Me.tpMain.TabIndex = 0
         Me.tpMain.Text = "Hauptseite"
         Me.tpMain.UseVisualStyleBackColor = True
@@ -128,7 +144,7 @@ Partial Class frmNIHauptseite
         Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblStatus})
         Me.StatusStrip1.Location = New System.Drawing.Point(3, 496)
         Me.StatusStrip1.Name = "StatusStrip1"
-        Me.StatusStrip1.Size = New System.Drawing.Size(760, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(763, 22)
         Me.StatusStrip1.TabIndex = 45
         Me.StatusStrip1.Text = "StatusStrip1"
         '
@@ -240,7 +256,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 +350,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
@@ -404,11 +505,14 @@ Partial Class frmNIHauptseite
         Me.TableAdapterManager1.TBTC_MOVE_RENAMETableAdapter = Me.TBTC_MOVE_RENAMETableAdapter
         Me.TableAdapterManager1.UpdateOrder = ToolCollection.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
         '
+        'TimerAutostart
+        '
+        '
         '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 +530,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 +583,13 @@ 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
+    Friend WithEvents TimerAutostart As Timer
 End Class

ToolCollection/frmNIHauptseite.resx

@@ -159,8 +159,11 @@
   <metadata name="TableAdapterManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>984, 56</value>
   </metadata>
+  <metadata name="TimerAutostart.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>1161, 56</value>
+  </metadata>
   <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>297</value>
+    <value>132</value>
   </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

ToolCollection/frmNIHauptseite.vb

@@ -2,6 +2,9 @@
 Imports System.Data.Entity.Core.Common.CommandTrees.ExpressionBuilder
 Imports System.IO
 Imports System.Text.RegularExpressions
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Logging
 Imports WINDREAMLib
 
@@ -26,7 +29,7 @@ Public Class frmNIHauptseite
     Private _fulltext As clsNIFulltext
 
     Private manuallyRun As Boolean = False
-    Private manually_cancel As Boolean = True
+    Private manually_cancel As Boolean = False
     '#### Variablen für das Profil
     Private myNIDatatable As DataTable
     Private myNIArrayIndexe() As String = Nothing  ' zum Speichern der Indexe
@@ -41,9 +44,9 @@ Public Class frmNIHauptseite
     Public debug As Boolean = True
     Private Shared _Instance As frmNIHauptseite = Nothing
     Private _validModules()
-    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
@@ -64,17 +67,9 @@ Public Class frmNIHauptseite
         _windreamNI = New ClassNIWindream(_MyLogger)
         database = New ClassNIDatenbankzugriff(_MyLogger)
 
-
         ' 3b. Windream initialisieren (Connection, Session, ... aufbauen)
-        If _windreamNI.Init() = False Then
-            _Logger.Warn("Die Windream-Klasse konnte nicht initialisiert werden. Windream-Client unvollständig gestartert.")
-            Exit Sub
-
-        End If
         'ClassMoveRenameLogger.Init("", "MoveRename_", True)
 
-
-
         AddHandler bwProfil.DoWork, AddressOf bwProfil_DoWork
         AddHandler bwProfil.RunWorkerCompleted, AddressOf bwProfil_RunWorkerCompleted
         AddHandler bwProfil.ProgressChanged, AddressOf bwProfil_ProgressChanged
@@ -96,7 +91,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.")
@@ -114,15 +111,59 @@ Public Class frmNIHauptseite
         End If
 
         If AUTOSTART_FIH Then
-            Start_NachindexierungThreads()
+            My.Settings.vNIRunning = True
-            _Logger.Info("AUTOSTART_FIH = True - Nachindexierung wird gestartet.")
+            My.Settings.Save()
+            Me.btnStartProfile.Enabled = False
             AUTOSTART_FIH = False
+            _Logger.Info("AUTOSTART_FIH = True - Warte 30s auf Windream-Laufwerk.")
+            Me.lblStatus.Text = "(Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk...)"
+            Me.tslblStatus.Text = "Status: Autostart ist aktiv. Warte 30s auf Windream-Laufwerk..."
+            Me.tslblStatus.Visible = True
+            TimerAutostart.Interval = 30000
+            TimerAutostart.Start()
         Else
             _Logger.Info("Nachindexierung Hauptformular wurde geladen - Nachindexierungslauf wird NICHT gestartet.")
         End If
 
     End Sub
+
+    Private Sub TimerAutostart_Tick(sender As Object, e As EventArgs) Handles TimerAutostart.Tick
+        TimerAutostart.Stop()
+        _Logger.Info("Startverzögerung abgelaufen - Nachindexierung wird gestartet.")
+        Start_NachindexierungThreads()
+    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
@@ -155,44 +196,6 @@ Public Class frmNIHauptseite
     '            Return Nothing
     '    End Select
     'End Function
-    'Public Sub LoadAllModules()
-    '    Me._validModules = Nothing
-
-    '    If Not My.Settings.licensekey = "" Then
-    '        'Me.licenseManager = New ClassLicenseManager = Nothing
-    '        Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-    '        Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-    '        Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-    '        Me.licenseManager.LoadLicenses()
-
-    '        Dim i As Integer = 0
-
-    '        If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-    '            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-    '                Dim expires As String = license.Expires.Date
-    '                If IsExpired(license.Expires.Date) = False Then
-    '                    ' MsgBox(license.Modulename & vbNewLine & expires)
-
-    '                    Select Case license.Modulename.ToUpper
-    '                        Case "MOVEANDRENAME"
-    '                            LICENSE_MoveRename = True
-    '                            _Logger.Info("LICENSE MoveandRename aktiv")
-    '                    End Select
-    '                    i += 1
-    '                Else
-    '                    Select Case license.Modulename
-    '                        Case "MOVEANDRENAME"
-    '                            LICENSE_MoveRename = False
-    '                    End Select
-    '                    i += 1
-    '                End If
-    '                'Date.TryParse(expires, license.Expires)
-
-    '            Next
-    '        End If
-    '    End If
-    'End Sub
     Private Function IsExpired(ByVal _Date As Date)
         If Date.Today > _Date Then
             Return True
@@ -317,6 +320,15 @@ Public Class frmNIHauptseite
             Dim _Fehler As Boolean = False
             For Each profil As ClassNIProfil In ClassNIProfile.Profile
                 _Fehler = False
+                If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                    If _singleProfileRun <> profil.Profilname Then
+                        Continue For
+                    Else
+                        Me.aktivesProfil = profil
+                        _Logger.Info($"Manual Run for profile [{_singleProfileRun}] will be started.")
+                    End If
+                End If
+
                 ' aktuelles Profil der Klasse mitteilen
                 Me.aktivesProfil = profil
                 _clsWorkfile = New clsNI_WorkFile(_MyLogger)
@@ -593,6 +605,7 @@ Public Class frmNIHauptseite
                 ' nächstes Profil an ProgressBar1
                 bwProfil.ReportProgress(-2)
             Next
+
         Catch ex As Exception
             _Logger.Error(ex)
 
@@ -621,11 +634,25 @@ Public Class frmNIHauptseite
             _Logger.Info("")
 
         End If
+
         Dim actdatetime = Now
         Dim newrun_dt As DateTime = actdatetime.AddMinutes(Me.numIntervall.Value)
-        Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
+
-        tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
+        If My.Settings.vNIRunning Then
-        Me.tslblStatus.Visible = True
+            Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
+            tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
+            Me.tslblStatus.Visible = True
+        End If
+
+        If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+            _singleProfileRun = ""
+            My.Settings.vNIsingleProfileRunning = False
+            My.Settings.vNIRunning = False
+            Me.lblStatus.Text = $"(Status: Nachindexieren beendet)"
+            tslblStatus.Text = "Status: Nachindexieren beendet"
+            btnStartStop.Text = "Nachindexierung starten"
+            btnStartProfile.Enabled = True
+        End If
 
     End Sub
 
@@ -722,10 +749,15 @@ Public Class frmNIHauptseite
                     End If
 
                     Me.ProgressBar1.Minimum = 0
-                    Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    If String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                        Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    Else
+                        Me.ProgressBar1.Maximum = 1
+                    End If
                     Me.ProgressBar1.Value = 0
 
                     Me.Refresh()
+                    manually_cancel = False
                     Me.startProfileDurchlauf()
                 Else
                     _Logger.Warn("Attention: ClassNIProfile.Profile IsNothing")
@@ -853,9 +885,9 @@ Public Class frmNIHauptseite
                         _Logger.Debug(">> _fulltext initialized.")
                         fulltext = pMyWMDoc.GetVariableValue(aktivesProfil.Desk_windreamIndex)
                         If Len(fulltext) > 0 Then
-                            _Logger.Info($"{aktivesProfil.Desk_windreamIndex} is empty...")
+                            _Logger.Info($"Volltext aus [{aktivesProfil.Desk_windreamIndex}] erfolgreich extrahiert.")
                         Else
-                            _Logger.Info($"## No fulltext from [{aktivesProfil.Desk_windreamIndex}] extracted!")
+                            _Logger.Info($"## Kein Volltext aus [{aktivesProfil.Desk_windreamIndex}] extrahiert - versuche 'Manueller Volltext'...")
                             fulltext = pMyWMDoc.GetVariableValue("Manueller Volltext")
                         End If
                         If Len(fulltext) > 0 Then
@@ -1759,22 +1791,14 @@ Public Class frmNIHauptseite
             End If
 
             'Move and Rename ausführen
-            If LICENSE_MoveRename = True And Not oUnexpectedError And unvollstaendig = False Then
+            If Not oUnexpectedError And unvollstaendig = False Then
                 Dim swMoveandrename As New ClassStopwatch("MoveandRename")
                 oUnexpectedError = FNMoveRename(pMyWMDoc)
 
                 Dim msg1 = swMoveandrename.Done
                 If msg1 <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg1}"
-
                 End If
-            Else
-                If LICENSE_MoveRename = True And oUnexpectedError = True Or unvollstaendig = True Then
-                    _Logger.Info("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")
-                    _Logger.Debug("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")
-                End If
-
-
             End If
 
             'Indexierung gegen die Indizes des Ordners
@@ -1834,11 +1858,16 @@ Public Class frmNIHauptseite
             If oUnexpectedError = False And aktivesProfil.NachbearbeitungAD = True And unvollstaendig = False Then
                 _Logger.Debug("Nachbearbeitung AD ist aktiviert")
                 Dim sw As New ClassStopwatch("AD-Rework")
-                Nachbearbeitung_AD(pMyWMDoc)
+                Dim adReworkOk As Boolean = Nachbearbeitung_AD(pMyWMDoc)
                 Dim msg = sw.Done
                 If msg <> "" Then
                     Stopwatch1 += vbNewLine & $"{msg}"
                 End If
+                If adReworkOk = False Then
+                    _Logger.Warn($"## Nachbearbeitung AD für [{pMyWMDoc.aName}] fehlgeschlagen - Error-Index wird gesetzt")
+                    File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexValidation)
+                    File_SetBooleanIndex(True, pMyWMDoc, aktivesProfil.IndexFehler)
+                End If
             Else
                 If aktivesProfil.NachbearbeitungAD = True Then
                     _Logger.Info($"Nachbearbeitung AD ist aktiviert aber Unexpected Error ist{oUnexpectedError.ToString}")
@@ -2280,7 +2309,9 @@ Public Class frmNIHauptseite
                             End If
                             i += 1
                         Catch ex As Exception
-
+                            _Logger.Error(ex)
+                            _erfolgreich = False
+                            Exit For
                         End Try
 
                     Next
@@ -2469,12 +2500,22 @@ Public Class frmNIHauptseite
     'Ab Hier Error prüfen
     Sub File_SetBooleanIndex(ByVal _value As Boolean, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String)
         Try
+            _Logger.Debug($"File_SetBooleanIndex called: Index=[{_Indexname}] Value=[{_value}] Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}]")
             If _Indexname <> "" Then
                 'Überprüfen ob Boolean-Value bereits gesetzt wurde?
-                Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname))
+                Dim akt_Status As Boolean = False
+                Try
+                    Dim rawValue As Object = _dok.GetVariableValue(_Indexname)
+                    _Logger.Debug($"File_SetBooleanIndex: rawValue=[{If(rawValue IsNot Nothing, rawValue.ToString, "NULL")}]")
+                    If rawValue IsNot Nothing Then
+                        akt_Status = CBool(rawValue)
+                    End If
+                Catch ex As Exception
+                    _Logger.Debug($"File_SetBooleanIndex: GetVariableValue threw exception - treating as False. Error: {ex.Message}")
+                    akt_Status = False
+                End Try
                 If akt_Status <> _value Then
-                    'Index muß angepasst werden
+                    _Logger.Debug($"File_SetBooleanIndex: writing [{_value}] to index [{_Indexname}]")
-                    _Logger.Debug("Validation Index not set to '" & _value.ToString & "'.")
                     Dim arrIndex() As String = Nothing
                     Dim arrValue() As String = Nothing
                     'Nun die Datei indexieren
@@ -2499,6 +2540,8 @@ Public Class frmNIHauptseite
                     'Validation muß nicht angepasst werden
                     _Logger.Debug("Validation Index already set to '" & _value & "'.")
                 End If
+            Else
+                _Logger.Warn($"File_SetBooleanIndex: _Indexname is empty - no index written! (Doc=[{If(_dok IsNot Nothing, _dok.aName, "NULL")}] Value=[{_value}])")
             End If
         Catch ex As Exception
             _Logger.Warn("Error in File_SetBooleanIndex")
@@ -2721,7 +2764,9 @@ Public Class frmNIHauptseite
         End If
         manually_cancel = False
         Me.timRun.Interval = Me.numIntervall.Value * 60 * 1000
-        Me.timRun.Start()
+        If My.Settings.vNIRunning Then
+            Me.timRun.Start()
+        End If
         'Variable für den Fall Programmabbruch und Neustart!
         bwProfil = New BackgroundWorker
         bwsearch = New BackgroundWorker
@@ -2811,21 +2856,57 @@ Public Class frmNIHauptseite
 
         End Try
     End Sub
+
+    'NI Starten aus NIHauptseite
     Private Sub btnStartStop_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartStop.Click
         If TimerRefresh.Enabled = False Then
             TimerRefresh.Start()
         Else
             TimerRefresh.Stop()
         End If
-        If Me.btnStartStop.Text = "Nachindexierung stoppen" Then
+        If My.Settings.vNIRunning Or My.Settings.vNIsingleProfileRunning Then
             If timRun.Enabled = True Then
                 timRun.Stop()
             End If
+            My.Settings.vNIRunning = False
+            My.Settings.Save()
             Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
             Me.btnStartStop.Text = "Nachindexierung starten"
+            Me.btnStartProfile.Enabled = True
         Else
-                Me.btnStartStop.Text = "Nachindexierung stoppen"
+            My.Settings.vNIRunning = True
+            My.Settings.Save()
             Start_NachindexierungThreads()
+            Me.btnStartStop.Text = "Nachindexierung stoppen"
+            Me.btnStartProfile.Enabled = False
+        End If
+        manuallyRun = False
+    End Sub
+
+    'NI Starten aus Profilübersicht
+    Private Sub btnStartProfile_Click(sender As Object, e As EventArgs) Handles btnStartProfile.Click
+
+        If My.Settings.vNIRunning Then
+            Me.btnStartProfile.Enabled = False
+        Else
+
+            Dim view As DevExpress.XtraGrid.Views.Grid.GridView = TryCast(gridProfileOverview.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+            If view Is Nothing OrElse view.FocusedRowHandle < 0 Then
+                MsgBox("Bitte wählen Sie ein Profil aus.", "Hinweis", MsgBoxStyle.Information)
+                Exit Sub
+            End If
+
+            Dim profilname As String = Convert.ToString(view.GetRowCellValue(view.FocusedRowHandle, "Name"))
+            If Not String.IsNullOrWhiteSpace(profilname) Then
+                _singleProfileRun = profilname
+                My.Settings.vNIsingleProfileRunning = True
+                My.Settings.Save()
+                Start_NachindexierungThreads()
+                btnStartStop.Text = "Nachindexierung stoppen"
+                btnStartProfile.Enabled = False
+                Me.tcmain.SelectedTab = tpMain
+            End If
+
         End If
         manuallyRun = False
     End Sub
@@ -2997,6 +3078,21 @@ Public Class frmNIHauptseite
         End Try
     End Function
 
+    Private Sub btnEdit_Click(sender As Object, e As EventArgs) Handles btnEdit.Click
+
+        Dim view As DevExpress.XtraGrid.Views.Grid.GridView = TryCast(gridProfileOverview.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+        If view Is Nothing OrElse view.FocusedRowHandle < 0 Then
+            MsgBox("Bitte wählen Sie ein Profil aus.", "Hinweis", MsgBoxStyle.Information)
+        End If
+
+        Dim profilname As String = Convert.ToString(view.GetRowCellValue(view.FocusedRowHandle, "Name"))
+        If Not String.IsNullOrWhiteSpace(profilname) Then
+            frmNIProfileigenschaften.Lade_Profil(profilname)
+            frmNIProfileigenschaften.Show()
+            frmNIProfileigenschaften.BringToFront()
+        End If
+
+    End Sub
 
     Private Function CrFolderForIndex(fullfilename As String, pFileName As String)
 

ToolCollection/frmNIProfileigenschaften.Designer.vb

@@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
-        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
-        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
-        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
-        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode10, TreeNode11, TreeNode12})
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
+        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8})
         Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
         Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
         Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@@ -178,7 +178,7 @@ Partial Class frmNIProfileigenschaften
         Me.StatusStrip1.Name = "StatusStrip1"
         Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
         Me.StatusStrip1.ShowItemToolTips = True
-        Me.StatusStrip1.Size = New System.Drawing.Size(991, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(984, 22)
         Me.StatusStrip1.SizingGrip = False
         Me.StatusStrip1.TabIndex = 23
         Me.StatusStrip1.Text = "StatusStrip1"
@@ -557,14 +557,15 @@ Partial Class frmNIProfileigenschaften
         '
         'btnVerknüpfungen
         '
-        Me.btnVerknüpfungen.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
-            Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
         Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(171, 23)
+        Me.btnVerknüpfungen.Size = New System.Drawing.Size(169, 28)
         Me.btnVerknüpfungen.TabIndex = 49
-        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..."
+        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten"
+        Me.btnVerknüpfungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
         Me.btnVerknüpfungen.UseVisualStyleBackColor = True
         Me.btnVerknüpfungen.Visible = False
         '
@@ -634,7 +635,7 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox1.Size = New System.Drawing.Size(624, 83)
         Me.GroupBox1.TabIndex = 70
         Me.GroupBox1.TabStop = False
-        Me.GroupBox1.Text = "Indexname - Nachindexierung fehlerhaft:"
+        Me.GroupBox1.Text = "Indexname - Nachindexierung/Nachbearbeitung fehlerhaft:"
         '
         'Label6
         '
@@ -700,7 +701,7 @@ Partial Class frmNIProfileigenschaften
         Me.GroupBox2.Size = New System.Drawing.Size(624, 83)
         Me.GroupBox2.TabIndex = 75
         Me.GroupBox2.TabStop = False
-        Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Indexierung:"
+        Me.GroupBox2.Text = "Dauerhafte Kennzeichnung - Fehler bei Nachindexierung/Nachbearbeitung:"
         '
         'Label8
         '
@@ -733,10 +734,11 @@ Partial Class frmNIProfileigenschaften
         '
         'lblSave
         '
+        Me.lblSave.Anchor = System.Windows.Forms.AnchorStyles.Right
         Me.lblSave.AutoSize = True
         Me.lblSave.BackColor = System.Drawing.Color.Yellow
         Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(656, 71)
+        Me.lblSave.Location = New System.Drawing.Point(699, 76)
         Me.lblSave.Name = "lblSave"
         Me.lblSave.Size = New System.Drawing.Size(261, 17)
         Me.lblSave.TabIndex = 76
@@ -771,7 +773,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabControl1.Location = New System.Drawing.Point(3, 222)
         Me.TabControl1.Name = "TabControl1"
         Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(985, 481)
+        Me.TabControl1.Size = New System.Drawing.Size(978, 491)
         Me.TabControl1.TabIndex = 78
         '
         'TabPage1
@@ -784,7 +786,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage1.Location = New System.Drawing.Point(4, 22)
         Me.TabPage1.Name = "TabPage1"
         Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage1.Size = New System.Drawing.Size(970, 465)
         Me.TabPage1.TabIndex = 0
         Me.TabPage1.Text = "Typ und Quelle"
         Me.TabPage1.UseVisualStyleBackColor = True
@@ -805,7 +807,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grbxLDAP.Location = New System.Drawing.Point(407, 210)
         Me.grbxLDAP.Name = "grbxLDAP"
-        Me.grbxLDAP.Size = New System.Drawing.Size(508, 215)
+        Me.grbxLDAP.Size = New System.Drawing.Size(501, 225)
         Me.grbxLDAP.TabIndex = 79
         Me.grbxLDAP.TabStop = False
         Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@@ -907,7 +909,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grbxVolltext.Location = New System.Drawing.Point(568, 18)
         Me.grbxVolltext.Name = "grbxVolltext"
-        Me.grbxVolltext.Size = New System.Drawing.Size(392, 201)
+        Me.grbxVolltext.Size = New System.Drawing.Size(385, 211)
         Me.grbxVolltext.TabIndex = 78
         Me.grbxVolltext.TabStop = False
         Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@@ -960,7 +962,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage2.Location = New System.Drawing.Point(4, 22)
         Me.TabPage2.Name = "TabPage2"
         Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(970, 556)
+        Me.TabPage2.Size = New System.Drawing.Size(970, 465)
         Me.TabPage2.TabIndex = 1
         Me.TabPage2.Text = "Kennzeichnung und Active Directory"
         Me.TabPage2.UseVisualStyleBackColor = True
@@ -974,7 +976,7 @@ Partial Class frmNIProfileigenschaften
         Me.grbxNB_AD.Size = New System.Drawing.Size(624, 50)
         Me.grbxNB_AD.TabIndex = 77
         Me.grbxNB_AD.TabStop = False
-        Me.grbxNB_AD.Text = "Indexierung AD (Rechte anpassen)"
+        Me.grbxNB_AD.Text = "Indexierung AD (Rechteverwaltung)"
         '
         'chkbxAD
         '
@@ -996,7 +998,7 @@ Partial Class frmNIProfileigenschaften
         Me.TabPage3.Location = New System.Drawing.Point(4, 22)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(882, 416)
+        Me.TabPage3.Size = New System.Drawing.Size(970, 465)
         Me.TabPage3.TabIndex = 2
         Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -1005,7 +1007,6 @@ Partial Class frmNIProfileigenschaften
         '
         Me.grpbxMORE.Controls.Add(Me.btnMoveRename)
         Me.grpbxMORE.Controls.Add(Me.Label21)
-        Me.grpbxMORE.Enabled = False
         Me.grpbxMORE.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.grpbxMORE.Location = New System.Drawing.Point(6, 104)
         Me.grpbxMORE.Name = "grpbxMORE"
@@ -1283,7 +1284,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(970, 465)
         Me.TabPage4.TabIndex = 3
         Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
         Me.TabPage4.UseVisualStyleBackColor = True
@@ -1323,31 +1324,31 @@ Partial Class frmNIProfileigenschaften
         Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
         Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
         Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
-        TreeNode10.ImageKey = "page.png"
+        TreeNode1.ImageKey = "page.png"
-        TreeNode10.Name = "Knoten3"
+        TreeNode1.Name = "Knoten3"
-        TreeNode10.SelectedImageIndex = 1
+        TreeNode1.SelectedImageIndex = 1
-        TreeNode10.Text = "Datei 1"
+        TreeNode1.Text = "Datei 1"
-        TreeNode11.ImageKey = "page.png"
+        TreeNode2.ImageKey = "page.png"
-        TreeNode11.Name = "Knoten4"
+        TreeNode2.Name = "Knoten4"
-        TreeNode11.SelectedImageIndex = 1
+        TreeNode2.SelectedImageIndex = 1
-        TreeNode11.Text = "Datei 2"
+        TreeNode2.Text = "Datei 2"
-        TreeNode12.ImageKey = "page.png"
+        TreeNode3.ImageKey = "page.png"
-        TreeNode12.Name = "Knoten5"
+        TreeNode3.Name = "Knoten5"
-        TreeNode12.SelectedImageIndex = 1
+        TreeNode3.SelectedImageIndex = 1
-        TreeNode12.Text = "Datei 3"
+        TreeNode3.Text = "Datei 3"
-        TreeNode13.Name = "Knoten4"
+        TreeNode4.Name = "Knoten4"
-        TreeNode13.Text = "Parent"
+        TreeNode4.Text = "Parent"
-        TreeNode14.Name = "Knoten3"
+        TreeNode5.Name = "Knoten3"
-        TreeNode14.Text = "-1"
+        TreeNode5.Text = "-1"
-        TreeNode15.Name = "Knoten2"
+        TreeNode6.Name = "Knoten2"
-        TreeNode15.Text = "-2"
+        TreeNode6.Text = "-2"
-        TreeNode16.Name = "Knoten5"
+        TreeNode7.Name = "Knoten5"
-        TreeNode16.Text = "-3"
+        TreeNode7.Text = "-3"
-        TreeNode17.Name = "Knoten1"
+        TreeNode8.Name = "Knoten1"
-        TreeNode17.Text = "-4"
+        TreeNode8.Text = "-4"
-        TreeNode18.Name = "Knoten0"
+        TreeNode9.Name = "Knoten0"
-        TreeNode18.Text = "Windream-/W-Laufwerk"
+        TreeNode9.Text = "Windream-/W-Laufwerk"
-        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
+        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9})
         Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
         Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
         Me.TreeViewOrdnerVererbung.TabIndex = 59
@@ -1452,20 +1453,21 @@ Partial Class frmNIProfileigenschaften
         Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
         Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
-        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(991, 706)
+        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(984, 716)
         Me.pnlProfileigenschaften.TabIndex = 81
         '
         'frmNIProfileigenschaften
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(991, 728)
+        Me.ClientSize = New System.Drawing.Size(984, 738)
         Me.Controls.Add(Me.pnlProfileigenschaften)
         Me.Controls.Add(Me.StatusStrip1)
         Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Location = Global.ToolCollection.My.MySettings.Default.frmNIProfileigenschaften
+        Me.MinimumSize = New System.Drawing.Size(1000, 750)
         Me.Name = "frmNIProfileigenschaften"
         Me.Text = "Profileigenschaften Nachindexierung"
         Me.StatusStrip1.ResumeLayout(False)

ToolCollection/frmNIProfileigenschaften.resx

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

ToolCollection/frmNIProfileigenschaften.vb

@@ -15,7 +15,7 @@ Public Class frmNIProfileigenschaften
     ' verhindert (wenn True) das _selectedProfile auf Nothing gesetzt wird, wenn das Panel auf visible = True gesetzt wird
     Private _flagIgnoreVisibilityChanged As Boolean = False
     Private Shared _Instance As frmNIProfileigenschaften = Nothing
-    Private licenseManager As ClassLicenseManager = Nothing
+    Private passwordCrypto As ClassPasswordCrypto = Nothing
     Private INDEX_LIST As New List(Of String)
     Private selectedProfile As ClassNIProfil
     Public Shared Function Instance() As frmNIProfileigenschaften
@@ -39,14 +39,7 @@ Public Class frmNIProfileigenschaften
         _windream = New ClassWindream_allgemein(_MyLogger)
         ' alle Profile in die Toolbar-Combobox eintragen
         Me.LoadProfilesInCombobox()
-        Try
+
-            Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-            Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-            Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-            Me.licenseManager.LoadLicenses()
-        Catch ex As Exception
-            MsgBox("Fehler beim Laden der Lizenzen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-        End Try
     End Sub
     Public Sub ReDimEx(ByRef MyArray As Object, ByVal iDimX As Integer, ByVal iDimY As Integer)
 
@@ -442,8 +435,8 @@ Public Class frmNIProfileigenschaften
                         If _selectedProfile.Password <> "" And _selectedProfile.UserId <> "" Then
                             Me.chkbxUserIdent.Checked = False
                             Me.txtLDAP_User.Text = _selectedProfile.UserId
-                            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
+                            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
-                            Dim PWDecode As String = licenseManager.DecodeLicenseKey(_selectedProfile.Password)
+                            Dim PWDecode As String = passwordCrypto.DecodePassword(_selectedProfile.Password)
                             Me.txtLDAP_PW.Text = PWDecode
                         Else
                             Me.chkbxUserIdent.Checked = True
@@ -522,7 +515,7 @@ Public Class frmNIProfileigenschaften
 
 
     Private Sub cmbProfilauswahl_DropDownItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles cmbProfilauswahl.DropDownItemClicked
-        ' wenn bereits ein Profil ausgewählt wurde
+
         If Me._selectedProfile IsNot Nothing Then
             Me.cmbIndexValidierung.SelectedIndex = -1
             If _selectedProfile.HasChanges Then
@@ -1109,11 +1102,6 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub frmNIProfileigenschaften_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If LICENSE_MoveRename = True Then
-            grpbxMORE.Enabled = True
-        Else
-            grpbxMORE.Enabled = False
-        End If
         If Me._selectedProfile Is Nothing Then
             Me.pnlProfileigenschaften.Visible = False
         Else
@@ -1170,8 +1158,8 @@ Public Class frmNIProfileigenschaften
 
     Private Sub txtLDAP_PW_TextChanged(sender As Object, e As EventArgs) Handles txtLDAP_PW.TextChanged
         If Me._selectedProfile IsNot Nothing Then
-            licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
+            passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
-            Dim encodePW As String = licenseManager.EncodeLicenseKey(txtLDAP_PW.Text, "#DigitalData9731258!#")
+            Dim encodePW As String = passwordCrypto.EncodePassword(txtLDAP_PW.Text, "#DigitalData9731258!#")
             Me._selectedProfile.Password = encodePW
             If Not Me._selectedProfile.Password = Me._selectedProfile.OriginalPassword Then
                 Me.btnSpeichern.Enabled = True

ToolCollection/frmNIProfilhinzufuegen.vb

@@ -4,7 +4,7 @@ Public Class frmNIProfilhinzufuegen
     Private _oDokumentTypen As WINDREAMLib.WMObjects
     Public Shared _windream As ClassWindream_allgemein
     Private Shared _Instance As frmNIProfilhinzufuegen = Nothing
-    Private licenseManager As ClassLicenseManager = Nothing
+    Private passwordCrypto As ClassPasswordCrypto = Nothing
 
 
     Public Shared Function Instance() As frmNIProfilhinzufuegen
@@ -138,8 +138,8 @@ Public Class frmNIProfilhinzufuegen
             ' Nachindexierung über AD
             If Me.txtProfilname.Text <> "" And Me.cmbObjektTypen.SelectedIndex <> -1 And Me.txtWindreamSuche.Text <> "" Then
                 If chkbxUserIdent.Checked = False And txtLDAP_Domaene.Text <> "" And txtLDAP_PW.Text <> "" And txtLDAP_User.Text <> "" Then
-                    Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#")
+                    Me.passwordCrypto = New ClassPasswordCrypto("#DigitalData9731258!#")
-                    Dim key As String = licenseManager.EncodeLicenseKey(txtLDAP_PW.Text, "#DigitalData9731258!#")
+                    Dim key As String = passwordCrypto.EncodePassword(txtLDAP_PW.Text, "#DigitalData9731258!#")
                     ' das Profil hinzufügen -  AD MIT AUTH
                     ClassNIProfile.Add(Me.txtProfilname.Text, Me.cmbObjektTypen.SelectedItem, Me.txtWindreamSuche.Text, "activedirectory", "", "", txtLDAP_Domaene.Text, txtLDAP_User.Text, key, "", Me.cmbIndexValidierung.Text, "", 0, Me.chkbxGetOrdnerRechte.Checked, Me.cmbOrdnertyp.Text)
                     ' und das Formular schließen

ToolCollection/frmNIVerknuepfungen.Designer.vb

@@ -1461,9 +1461,10 @@ Partial Class frmNIVerknuepfungen
         Me.Label27.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label27.Location = New System.Drawing.Point(7, 14)
         Me.Label27.Name = "Label27"
-        Me.Label27.Size = New System.Drawing.Size(120, 13)
+        Me.Label27.Size = New System.Drawing.Size(761, 13)
         Me.Label27.TabIndex = 22
-        Me.Label27.Text = "2. Regular Expression:"
+        Me.Label27.Text = "2. Regular Expression: ACHTUNG: REGEX DARF NUR AUS EINER MATCHING GROUP BESTEHEN," &
+    " DA ES SONST FEHLER BEIM INDEXIEREN VERURSACHT!"
         '
         'GroupBox4
         '
@@ -1743,6 +1744,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnUnlink
         '
+        Me.btnUnlink.Enabled = False
         Me.btnUnlink.Image = Global.ToolCollection.My.Resources.Resources.link_break
         Me.btnUnlink.ImeMode = System.Windows.Forms.ImeMode.NoControl
         Me.btnUnlink.Location = New System.Drawing.Point(409, 202)
@@ -1763,9 +1765,10 @@ Partial Class frmNIVerknuepfungen
         '
         'btnLink
         '
+        Me.btnLink.Enabled = False
         Me.btnLink.Image = Global.ToolCollection.My.Resources.Resources.link
         Me.btnLink.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnLink.Location = New System.Drawing.Point(407, 167)
+        Me.btnLink.Location = New System.Drawing.Point(409, 167)
         Me.btnLink.Name = "btnLink"
         Me.btnLink.Size = New System.Drawing.Size(28, 29)
         Me.btnLink.TabIndex = 15
@@ -1908,11 +1911,12 @@ Partial Class frmNIVerknuepfungen
         '
         'pnlFooter
         '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.pnlFooter.BackColor = System.Drawing.Color.Transparent
         Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose)
         Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose)
         Me.pnlFooter.Controls.Add(Me.btnSaveAll)
-        Me.pnlFooter.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlFooter.Location = New System.Drawing.Point(0, 250)
         Me.pnlFooter.Name = "pnlFooter"
         Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
@@ -1920,6 +1924,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnSaveAllAndClose
         '
+        Me.btnSaveAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
         Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1932,6 +1937,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnCancelAllAndClose
         '
+        Me.btnCancelAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
         Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1944,6 +1950,7 @@ Partial Class frmNIVerknuepfungen
         '
         'btnSaveAll
         '
+        Me.btnSaveAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight
         Me.btnSaveAll.Enabled = False
         Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))

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
@@ -475,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
 
 
@@ -483,25 +486,23 @@ 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 IsNot Nothing Then
-                Me.LoadSelectedProfile(e.ClickedItem.Text)
+                If e.ClickedItem.Text = Me._selectedProfil.Profilname Then Exit Sub
-                Me.pnlZielQuelle.Enabled = True
-            Else ' wenn bereits ein Profil geladen war
                 If Me._selectedProfil.HasChanges Then
                     Me._selectedProfil.Save(True, "profile")
                 End If
-                ' wenn ein anderes Profil ausgewählt wurde
-                If Not e.ClickedItem.Text = Me._selectedProfil.OriginalProfilname Then
-                    Me.LoadSelectedProfile(e.ClickedItem.Text)
-                Else
-                    'MsgBox("Keine Änderung")
-                End If
             End If
 
+            Me.LoadSelectedProfile(e.ClickedItem.Text)
+            Me.pnlZielQuelle.Enabled = True
+
+            For i = 0 To arrProfile.GetUpperBound(0)
+                If arrProfile(i, 0) = e.ClickedItem.Text Then
+                    _pos = arrProfile(i, 1)
+                End If
+            Next
+
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei der Auswahl der Profile")
         End Try
@@ -557,6 +558,7 @@ Public Class frmNIVerknuepfungen
                     Next
                 End If
 
+                EnableBtnLink()
 
             End If
 
@@ -654,25 +656,35 @@ Public Class frmNIVerknuepfungen
             If LVW.SelectedItems.Count > 0 Then
                 LVW.Sorting = Windows.Forms.SortOrder.None
                 If Down = True Then
-                    If LVW.SelectedItems(LVW.SelectedItems.Count - 1).Index < LVW.Items.Count - 1 Then
+                    If LVW.SelectedItems(0).Index = LVW.Items.Count - 1 Then Return
-                        For i = LVW.SelectedItems.Count - 1 To 0 Step -1
+                    Dim index = LVW.SelectedItems(0).Index
-                            OldItem = LVW.Items(LVW.SelectedItems(i).Index + 1)
+
-                            OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
+                    LVW.BeginUpdate()
-                            LVW.Items(OldPos + 1) = LVW.SelectedItems(i).Clone
+                    Try
-                            LVW.Items(OldPos) = OldItem
+                        Dim item = LVW.SelectedItems(0)
-                            LVW.Items(OldPos + 1).Selected = True
+                        LVW.Items.RemoveAt(index)
-                        Next
+                        LVW.Items.Insert(index + 1, item)
-                    End If
+                        item.Selected = True
+                        item.Focused = True
+                        item.EnsureVisible()
+                    Finally
+                        LVW.EndUpdate()
+                    End Try
                 Else
-                    If LVW.SelectedItems(0).Index > 0 Then
+                    If LVW.SelectedItems(0).Index = 0 Then Return
-                        For i = 0 To LVW.SelectedItems.Count - 1
+                    Dim index = LVW.SelectedItems(0).Index
-                            OldItem = LVW.Items(LVW.SelectedItems(i).Index - 1)
+
-                            OldPos = LVW.Items(LVW.SelectedItems(i).Index).Index
+                    LVW.BeginUpdate()
-                            LVW.Items(OldPos - 1) = LVW.SelectedItems(i).Clone
+                    Try
-                            LVW.Items(OldPos) = OldItem
+                        Dim item = LVW.SelectedItems(0)
-                            LVW.Items(OldPos - 1).Selected = True
+                        LVW.Items.RemoveAt(index)
-                        Next
+                        LVW.Items.Insert(index - 1, item)
-                    End If
+                        item.Selected = True
+                        item.Focused = True
+                        item.EnsureVisible()
+                    Finally
+                        LVW.EndUpdate()
+                    End Try
                 End If
                 '' definieren das am aktuellen Profil Änderungen vorgenommen wurden
                 Me._selectedProfil.setChanged()
@@ -782,70 +794,46 @@ Public Class frmNIVerknuepfungen
             Return Nothing
         End Try
     End Function
-    Private Function GetMsSqlFunctions(Type As String) As String()
+    Private Function GetMsSqlFunctions(ParamArray types As String()) As String()
         Try
             Dim SqlString As String
             Dim DataViews() As String = Nothing
             Dim i As Integer = 0
 
-            'Dim ConnectionString As SqlConnectionStringBuilder
             Dim Connection As SqlConnection
             Dim Command As SqlCommand
             Dim DataAdapter As SqlDataAdapter
             Dim DataSet As DataSet = New DataSet()
 
             Dim con As String
-            ' ConnectionString aufbauen
             If _selectedProfil.UserId = "WINAUTH" Then
                 con = "Data Source=" & _selectedProfil.DataSource & ";Initial Catalog=" & _selectedProfil.InitialCatalog & ";Trusted_Connection=True;"
             Else
                 con = "Server=" & _selectedProfil.DataSource & ";Database=" & _selectedProfil.InitialCatalog & ";User Id=" & _selectedProfil.UserId & ";Password=" & _selectedProfil.Password & ";"
             End If
-            'ConnectionString = New SqlConnectionStringBuilder()
-            'ConnectionString.DataSource = Me._selectedProfil.DataSource
-            'ConnectionString.UserID = Me._selectedProfil.UserId
-            'ConnectionString.Password = Me._selectedProfil.Password
-            'ConnectionString.InitialCatalog = Me._selectedProfil.InitialCatalog
 
-            ' Verbindung zur DB herstellen
             Connection = New SqlConnection(con)
             Connection.Open()
 
-            ' DB-Abfrage für alle Views definieren 
+            Dim typeList As String = String.Join("','", types)
-            SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type = '{Type}'"
+            SqlString = $"SELECT O.name FROM sys.sql_modules M INNER JOIN sys.objects O ON M.object_id=O.object_id WHERE O.type IN ('{typeList}')"
 
-            ' die DB-Abfrage erzeugen
             Command = New SqlCommand(SqlString, Connection)
-
-            ' die DB-Abfrage durchführen
             DataAdapter = New SqlDataAdapter(Command)
-
-            ' das DataSet mit den Daten füllen
             DataAdapter.Fill(DataSet)
 
-
             If DataSet.Tables(0).Rows.Count > 0 Then
-
-                Dim tabellenart As String = "FUNCTIONS"
-
-
-                ' alle Ergebnisse (VIEWs) durchlaufen
                 For Each row As DataRow In DataSet.Tables(0).Rows
-
                     If DataViews IsNot Nothing Then ReDim Preserve DataViews(DataViews.Length) Else ReDim DataViews(0)
-                    ' View in Array schreiben
                     DataViews(i) = row.Item(0)
                     i += 1
-
-
                 Next
-                ' Array zurückgeben
+
                 Return DataViews
             Else
                 Return Nothing
             End If
 
-
         Catch ex As Exception
             MsgBox("Die MSSQL-Datenansichten der Datenbank konnten nicht fehlerfrei ausgelesen werden." & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Auslesen der Datenansichten MSSQL")
             Return Nothing
@@ -1380,6 +1368,34 @@ Public Class frmNIVerknuepfungen
         End Try
 
     End Function
+
+    Private Sub EnableBtnLink()
+        If Me._selectedProfil Is Nothing Then
+            btnLink.Enabled = False
+            Return
+        End If
+
+        Select Case Me._selectedProfil.Ni_Art
+            Case "db", "activedirectory"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (lbxQuelle1.SelectedItems.Count > 0 OrElse txtManIndexwert.Text <> "")
+
+            Case "xml"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (trvwxml.SelectedNode IsNot Nothing OrElse txtManIndexwert.Text <> "")
+
+            Case "fulltext"
+                btnLink.Enabled =
+                lbxWMIndex.SelectedItems.Count > 0 And
+                (txtregex.Text <> "" OrElse txtManIndexwert.Text <> "")
+
+            Case Else
+                btnLink.Enabled = False
+        End Select
+    End Sub
+
     Private Sub btnLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLink.Click
         ' wenn im ListView ein Element selektiert wurde
         If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
@@ -1424,8 +1440,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
@@ -1468,8 +1484,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
@@ -1530,8 +1546,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
@@ -1577,8 +1593,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
@@ -1681,24 +1697,6 @@ 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"
@@ -1706,6 +1704,9 @@ Public Class frmNIVerknuepfungen
                     If Me.lvwVerknuepfungen.SelectedItems.Count > 0 Then
                         If Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.StartsWith("%") And Me.lvwVerknuepfungen.SelectedItems(0).SubItems(1).Text.EndsWith("%") Then
                             Me.grbFilterDB.Enabled = False
+
+                            btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
+
                             Exit Sub
                         End If
                     End If
@@ -2005,9 +2006,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
@@ -2024,7 +2025,7 @@ Public Class frmNIVerknuepfungen
             End If
 
         End If
-
+        btnUnlink.Enabled = (lvwVerknuepfungen.SelectedItems.Count > 0)
 
     End Sub
 
@@ -2316,6 +2317,7 @@ Public Class frmNIVerknuepfungen
 
             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
@@ -2327,6 +2329,8 @@ Public Class frmNIVerknuepfungen
                         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
@@ -2366,7 +2370,6 @@ Public Class frmNIVerknuepfungen
             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
@@ -2380,34 +2383,51 @@ Public Class frmNIVerknuepfungen
 
     End Sub
 
-    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbxStatusfertig.CheckedChanged
+    Private Sub SaveCheckStatusFinished()
-        If Me.chbxStatusfertig.Checked Then
+        My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
-            Me.cmbIndex_Statusfertig.Enabled = True
+        My.Settings.Save()
-            My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+    End Sub
-            My.Settings.Save()
-            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
+    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbxStatusfertig.CheckedChanged
-                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Laden der windream-Indexe in die Auswahlliste 'cmbIndex_Statusfertig'")
+        If _isLoading = False Then
-            End Try
+
-        Else
+            If chbxStatusfertig.Checked Then
-            Me.cmbIndex_Statusfertig.Enabled = False
+                Me.cmbIndex_Statusfertig.Enabled = True
-            My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+                'My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
-            My.Settings.Save()
+                'My.Settings.Save()
-            If Me._selectedProfil IsNot Nothing Then
+                'Me._selectedProfil.setChanged()
-                Me._selectedProfil.finalerIndex = ""
+                'Me.btnSaveAll.Enabled = True
-                Me._selectedProfil.setChanged()
+                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
+            Else
+                Me.cmbIndex_Statusfertig.Enabled = False
+                '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
 
@@ -2417,6 +2437,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
@@ -2695,8 +2716,8 @@ Public Class frmNIVerknuepfungen
     'End Sub
 
     Private Sub SaveProfile()
-        If Me.txtCheckIndexSQL.Text <> "" Then
+        'If Me.txtCheckIndexSQL.Text <> "" Then
-            Try
+        Try
                 ' die Änderungen speichern
                 If Me._selectedProfil.Save(True, "profile") = True Then
                     Me._selectedProfil.setSaved()
@@ -2707,7 +2728,7 @@ Public Class frmNIVerknuepfungen
             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
@@ -2814,6 +2835,8 @@ Public Class frmNIVerknuepfungen
         Else
             grbFilterDB.Enabled = True
         End If
+
+        EnableBtnLink()
     End Sub
     Private Sub txtGrundgeruest_check_Click(sender As System.Object, e As System.EventArgs) Handles txtGrundgeruest_check.Click
         Me.txtCheckIndexSQL.Text = "SELECT COUNT(*) FROM [%view] WHERE "
@@ -3435,6 +3458,7 @@ Public Class frmNIVerknuepfungen
             End If
 
         End If
+        EnableBtnLink()
         'Catch ex As Exception
         '    MsgBox("Fehler bei Check Änderung Regex:" & vbNewLine & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         'End Try
@@ -3503,13 +3527,20 @@ 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
+
+        EnableBtnLink()
     End Sub
+
+    Private Sub lbxQuelle1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxQuelle1.SelectedIndexChanged
+        EnableBtnLink()
+    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
@@ -3576,8 +3607,7 @@ Public Class frmNIVerknuepfungen
     End Sub
 
     Private Sub trvwxml_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles trvwxml.AfterSelect
-
+        EnableBtnLink()
-
     End Sub
 
     Private Sub tabctrlbottom_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabctrlbottom.SelectedIndexChanged
@@ -3596,7 +3626,24 @@ Public Class frmNIVerknuepfungen
             Case 2
                 If Me._selectedProfil IsNot Nothing Then
                     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
@@ -3674,11 +3721,46 @@ Public Class frmNIVerknuepfungen
         End If
     End Sub
 
+    Private Sub rbFunctionsTb_CheckedChanged(sender As Object, e As EventArgs) Handles rbFunctionsTb.CheckedChanged
+        If Not _flagIgnoreCheckedChanged Then
+            If Me._selectedProfil Is Nothing = False Then
+                Me.cmbDataviews.Items.Clear()
+
+                ' View- oder Tabellenliste
+                Dim dataviews() As String = Nothing
+                If Me._selectedProfil.DbArt = "MS-SQL" Then
+                    dataviews = Me.GetMsSqlFunctions("TF", "IF")
+                    'ElseIf Me._selectedProfil.DbArt = "ODBC" Then
+                    '    dataviews = Me.GetOdbcDataviews(Me.rbViews.Checked)
+                    'ElseIf Me._selectedProfil.DbArt = "OLE (Access)" Then
+                    '    dataviews = Me.GetOleDataviews(Me.rbViews.Checked)
+                Else
+                    MsgBox("Der gewählte Datenbanktyp ist nicht für Funktionen unterstützt.", MsgBoxStyle.Critical, "Unbekannter Datenbanktyp")
+                End If
+
+                If dataviews IsNot Nothing Then
+
+                    For Each dataview As String In dataviews
+                        Me.cmbDataviews.Items.Add(dataview)
+                    Next
+
+                End If
+
+
+                Me.txtSelectAnweisung.Text = ""
+            Else
+                MsgBox("Bitte wählen Sie ein Profil aus!", MsgBoxStyle.Information, "Achtung:")
+            End If
+
+        End If
+    End Sub
+
     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

ToolCollection/frmStart.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class frmStart
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmStart
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStart))
@@ -29,6 +29,7 @@ Partial Class frmStart
         Me.ToolStripStatusLabel2 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripStatusLabel_LogDeleteTime = New System.Windows.Forms.ToolStripStatusLabel()
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
         Me.menHauptmenü = New System.Windows.Forms.MenuStrip()
         Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜbersichtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -36,19 +37,17 @@ Partial Class frmStart
         Me.ZeigeLogFileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÖffneLogverzeichnisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ModuleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.LizenzverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.PasswortverwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.CriticalEmailTestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HilfeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ÜberToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
-        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.PanelMain = New System.Windows.Forms.Panel()
+        Me.groupboxNachbearbeitungAD = New System.Windows.Forms.GroupBox()
         Me.btnNachbearbeitungAD = New System.Windows.Forms.Button()
         Me.grbxMoRe = New System.Windows.Forms.GroupBox()
         Me.btnOpen_MoReProfile = New System.Windows.Forms.Button()
-        Me.GroupBoxIntegration = New System.Windows.Forms.GroupBox()
-        Me.Button3 = New System.Windows.Forms.Button()
         Me.GBNachindexierung = New System.Windows.Forms.GroupBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnNIProfile = New System.Windows.Forms.Button()
@@ -65,9 +64,9 @@ Partial Class frmStart
         Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
         Me.StatusStrip1.SuspendLayout()
         Me.menHauptmenü.SuspendLayout()
-        Me.Panel1.SuspendLayout()
+        Me.PanelMain.SuspendLayout()
+        Me.groupboxNachbearbeitungAD.SuspendLayout()
         Me.grbxMoRe.SuspendLayout()
-        Me.GroupBoxIntegration.SuspendLayout()
         Me.GBNachindexierung.SuspendLayout()
         Me.grbDI.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
@@ -75,7 +74,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 +92,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 +103,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 +113,7 @@ Partial Class frmStart
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
             Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
         Me.tslblVersion.Name = "tslblVersion"
-        Me.tslblVersion.Size = New System.Drawing.Size(123, 20)
+        Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
         Me.tslblVersion.Text = "ToolStripStatusLabel1"
         Me.tslblVersion.ToolTipText = "Aktueller Benutzer"
         '
@@ -127,6 +126,15 @@ Partial Class frmStart
         Me.ToolStripStatusLabel_LogDeleteTime.Size = New System.Drawing.Size(270, 20)
         Me.ToolStripStatusLabel_LogDeleteTime.Text = "Zeitpunkt der automatischen Löschung von Logs"
         '
+        'ToolStripStatusLabel_ConnectionString
+        '
+        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
+        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
+        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
+        '
         'menHauptmenü
         '
         Me.menHauptmenü.BackColor = System.Drawing.SystemColors.Control
@@ -173,34 +181,27 @@ Partial Class frmStart
         '
         'ModuleToolStripMenuItem
         '
-        Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LizenzverwaltungToolStripMenuItem, Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
+        Me.ModuleToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PasswortverwaltungToolStripMenuItem, Me.GrundeinstellungenToolStripMenuItem, Me.CriticalEmailTestToolStripMenuItem})
         Me.ModuleToolStripMenuItem.Name = "ModuleToolStripMenuItem"
         Me.ModuleToolStripMenuItem.Size = New System.Drawing.Size(75, 20)
         Me.ModuleToolStripMenuItem.Text = "Bearbeiten"
         '
-        'LizenzverwaltungToolStripMenuItem
-        '
-        Me.LizenzverwaltungToolStripMenuItem.Name = "LizenzverwaltungToolStripMenuItem"
-        Me.LizenzverwaltungToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F10
-        Me.LizenzverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
-        Me.LizenzverwaltungToolStripMenuItem.Text = "Lizenzverwaltung"
-        '
         'PasswortverwaltungToolStripMenuItem
         '
         Me.PasswortverwaltungToolStripMenuItem.Name = "PasswortverwaltungToolStripMenuItem"
-        Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.PasswortverwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.PasswortverwaltungToolStripMenuItem.Text = "Passwortverwaltung"
         '
         'GrundeinstellungenToolStripMenuItem
         '
         Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
-        Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen"
         '
         'CriticalEmailTestToolStripMenuItem
         '
         Me.CriticalEmailTestToolStripMenuItem.Name = "CriticalEmailTestToolStripMenuItem"
-        Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(190, 22)
+        Me.CriticalEmailTestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.CriticalEmailTestToolStripMenuItem.Text = "Critical Email - Test"
         '
         'HilfeToolStripMenuItem
@@ -233,39 +234,49 @@ Partial Class frmStart
         Me.ImageList1.Images.SetKeyName(7, "ico6700.ico")
         Me.ImageList1.Images.SetKeyName(8, "ico7215.ico")
         '
-        'Panel1
+        'PanelMain
         '
-        Me.Panel1.Controls.Add(Me.btnNachbearbeitungAD)
+        Me.PanelMain.Controls.Add(Me.groupboxNachbearbeitungAD)
-        Me.Panel1.Controls.Add(Me.grbxMoRe)
+        Me.PanelMain.Controls.Add(Me.grbxMoRe)
-        Me.Panel1.Controls.Add(Me.GroupBoxIntegration)
+        Me.PanelMain.Controls.Add(Me.GBNachindexierung)
-        Me.Panel1.Controls.Add(Me.GBNachindexierung)
+        Me.PanelMain.Controls.Add(Me.grbDI)
-        Me.Panel1.Controls.Add(Me.grbDI)
+        Me.PanelMain.Dock = System.Windows.Forms.DockStyle.Left
-        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.PanelMain.Location = New System.Drawing.Point(0, 24)
-        Me.Panel1.Location = New System.Drawing.Point(0, 24)
+        Me.PanelMain.Name = "PanelMain"
-        Me.Panel1.Name = "Panel1"
+        Me.PanelMain.Size = New System.Drawing.Size(163, 589)
-        Me.Panel1.Size = New System.Drawing.Size(163, 589)
+        Me.PanelMain.TabIndex = 10
-        Me.Panel1.TabIndex = 10
+        '
+        'groupboxNachbearbeitungAD
+        '
+        Me.groupboxNachbearbeitungAD.Controls.Add(Me.btnNachbearbeitungAD)
+        Me.groupboxNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
+        Me.groupboxNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.groupboxNachbearbeitungAD.Location = New System.Drawing.Point(0, 395)
+        Me.groupboxNachbearbeitungAD.Name = "groupboxNachbearbeitungAD"
+        Me.groupboxNachbearbeitungAD.Size = New System.Drawing.Size(163, 72)
+        Me.groupboxNachbearbeitungAD.TabIndex = 5
+        Me.groupboxNachbearbeitungAD.TabStop = False
+        Me.groupboxNachbearbeitungAD.Text = "Nachbearbeitung"
         '
         'btnNachbearbeitungAD
         '
-        Me.btnNachbearbeitungAD.Dock = System.Windows.Forms.DockStyle.Top
         Me.btnNachbearbeitungAD.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnNachbearbeitungAD.Image = Global.ToolCollection.My.Resources.Resources.Untitled__142_
         Me.btnNachbearbeitungAD.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(0, 464)
+        Me.btnNachbearbeitungAD.Location = New System.Drawing.Point(6, 21)
         Me.btnNachbearbeitungAD.Name = "btnNachbearbeitungAD"
-        Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(163, 42)
+        Me.btnNachbearbeitungAD.Size = New System.Drawing.Size(153, 42)
         Me.btnNachbearbeitungAD.TabIndex = 4
-        Me.btnNachbearbeitungAD.Text = "ActiveDirectory" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Nachbearbeitung"
+        Me.btnNachbearbeitungAD.Text = "Rechteverwaltung"
         Me.btnNachbearbeitungAD.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnNachbearbeitungAD.UseVisualStyleBackColor = True
-        Me.btnNachbearbeitungAD.Visible = False
         '
         'grbxMoRe
         '
         Me.grbxMoRe.Controls.Add(Me.btnOpen_MoReProfile)
         Me.grbxMoRe.Dock = System.Windows.Forms.DockStyle.Top
-        Me.grbxMoRe.Location = New System.Drawing.Point(0, 394)
+        Me.grbxMoRe.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.grbxMoRe.Location = New System.Drawing.Point(0, 325)
         Me.grbxMoRe.Name = "grbxMoRe"
         Me.grbxMoRe.Size = New System.Drawing.Size(163, 70)
         Me.grbxMoRe.TabIndex = 4
@@ -278,7 +289,7 @@ Partial Class frmStart
         Me.btnOpen_MoReProfile.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.btnOpen_MoReProfile.Image = Global.ToolCollection.My.Resources.Resources.Untitled__49_
         Me.btnOpen_MoReProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(3, 21)
+        Me.btnOpen_MoReProfile.Location = New System.Drawing.Point(6, 21)
         Me.btnOpen_MoReProfile.Name = "btnOpen_MoReProfile"
         Me.btnOpen_MoReProfile.Size = New System.Drawing.Size(153, 41)
         Me.btnOpen_MoReProfile.TabIndex = 4
@@ -286,31 +297,6 @@ Partial Class frmStart
         Me.btnOpen_MoReProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.btnOpen_MoReProfile.UseVisualStyleBackColor = True
         '
-        'GroupBoxIntegration
-        '
-        Me.GroupBoxIntegration.Controls.Add(Me.Button3)
-        Me.GroupBoxIntegration.Dock = System.Windows.Forms.DockStyle.Top
-        Me.GroupBoxIntegration.Location = New System.Drawing.Point(0, 325)
-        Me.GroupBoxIntegration.Name = "GroupBoxIntegration"
-        Me.GroupBoxIntegration.Size = New System.Drawing.Size(163, 69)
-        Me.GroupBoxIntegration.TabIndex = 3
-        Me.GroupBoxIntegration.TabStop = False
-        Me.GroupBoxIntegration.Text = "DD Integration"
-        Me.GroupBoxIntegration.Visible = False
-        '
-        'Button3
-        '
-        Me.Button3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Button3.Image = Global.ToolCollection.My.Resources.Resources.Untitled__640_
-        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button3.Location = New System.Drawing.Point(4, 21)
-        Me.Button3.Name = "Button3"
-        Me.Button3.Size = New System.Drawing.Size(153, 41)
-        Me.Button3.TabIndex = 2
-        Me.Button3.Text = "Profilkonfiguration"
-        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.Button3.UseVisualStyleBackColor = True
-        '
         'GBNachindexierung
         '
         Me.GBNachindexierung.Controls.Add(Me.Button1)
@@ -324,7 +310,6 @@ Partial Class frmStart
         Me.GBNachindexierung.TabIndex = 1
         Me.GBNachindexierung.TabStop = False
         Me.GBNachindexierung.Text = "Nachindexierung"
-        Me.GBNachindexierung.Visible = False
         '
         'Button1
         '
@@ -378,7 +363,6 @@ Partial Class frmStart
         Me.grbDI.TabIndex = 0
         Me.grbDI.TabStop = False
         Me.grbDI.Text = "Dateiimporter"
-        Me.grbDI.Visible = False
         '
         'btnRegelverwaltung
         '
@@ -424,7 +408,6 @@ Partial Class frmStart
         Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
         Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
         Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = "Tool Collection für windream"
         '
         'ContextMenuStrip1
         '
@@ -457,21 +440,20 @@ Partial Class frmStart
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1237, 638)
         Me.ContextMenuStrip = Me.ContextMenuStrip1
-        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.PanelMain)
         Me.Controls.Add(Me.menHauptmenü)
         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))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.IsMdiContainer = True
         Me.Name = "frmStart"
-        Me.Text = "Tool Collection für windream"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.menHauptmenü.ResumeLayout(False)
         Me.menHauptmenü.PerformLayout()
-        Me.Panel1.ResumeLayout(False)
+        Me.PanelMain.ResumeLayout(False)
+        Me.groupboxNachbearbeitungAD.ResumeLayout(False)
         Me.grbxMoRe.ResumeLayout(False)
-        Me.GroupBoxIntegration.ResumeLayout(False)
         Me.GBNachindexierung.ResumeLayout(False)
         Me.grbDI.ResumeLayout(False)
         Me.ContextMenuStrip1.ResumeLayout(False)
@@ -486,11 +468,10 @@ Partial Class frmStart
     Friend WithEvents DateiToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents BeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ModuleToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents LizenzverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents HilfeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ÜberToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
-    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents PanelMain As System.Windows.Forms.Panel
     Friend WithEvents grbDI As System.Windows.Forms.GroupBox
     Friend WithEvents btnDIMain As System.Windows.Forms.Button
     Friend WithEvents btnDIProfile As System.Windows.Forms.Button
@@ -500,8 +481,6 @@ Partial Class frmStart
     Friend WithEvents btnNIProfile As System.Windows.Forms.Button
     Friend WithEvents btnNIMain As System.Windows.Forms.Button
     Friend WithEvents PasswortverwaltungToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents Button3 As System.Windows.Forms.Button
-    Friend WithEvents GroupBoxIntegration As System.Windows.Forms.GroupBox
     Friend WithEvents btnOpen_MoReProfile As System.Windows.Forms.Button
     Friend WithEvents niToolcollection As System.Windows.Forms.NotifyIcon
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
@@ -518,4 +497,6 @@ 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
+    Friend WithEvents groupboxNachbearbeitungAD As GroupBox
 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
+        FAAAAk1TRnQBSQFMAgEBCQEAAZABAwGQAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

ToolCollection/frmStart.vb

@@ -1,27 +1,11 @@
-Imports System.Collections.ObjectModel
+Imports System.IO
-Imports System.Reflection
+Imports System.Text.RegularExpressions
-Imports System.Globalization
-Imports DigitalData.Modules.Logging
-Imports System.IO
 Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
 
 Public Class frmStart
     Private _MyLogger As LogConfig
     Private Shared _Logger As DigitalData.Modules.Logging.Logger
-    Public _validModules()
-    Public _company As String
-    ' Dim timediff As Integer = 0
-    Private licenseManager As ClassLicenseManager = Nothing
-    'Private Sub timUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timUhrzeit.Tick
-    '    ' der Statusuhr die aktuelle Systemzeit zuweisen
-    '    Me.Status_Clock.Text = CType(My.Computer.Clock.LocalTime, String)
-    '    timediff += 1000
-    '    If timediff >= 86400000 Then
-    '        'LogDateien-löschen
-    '        Delete_LogFiles()
-    '    End If
-    'End Sub
-
 
     ' CREATE INSTANCE
     Private Shared _Instance As frmStart = Nothing
@@ -113,20 +97,54 @@ 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
         Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass sie " & Application.ProductName & " wirklich schließen wollen?" & vbNewLine & "Alle Vorgänge/Module werden gestoppt und nicht mehr ausgeführt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
         If result = MsgBoxResult.No Then
             e.Cancel = True
+            Return          ' ← wichtig: hier sofort raus, kein Logout
         End If
+
+        If Not IsNothing(CURRENToWMSession) Then
+            _Logger.Debug("Closing frmStart - Now logging out of windream session...")
+            Try
+                CURRENToWMSession.Logout()
+                _Logger.Debug("windream session logged out successfully.")
+            Catch ex As Exception
+                _Logger.Warn("Error while logging out windream session: " & ex.Message)
+                _Logger.Error(ex)
+            End Try
+        End If
+    End Sub
+
+    Private Sub CaptionForm()
+        Dim caption As String
+
+        If String.IsNullOrWhiteSpace(My.Settings.vInstanceName) Then
+            caption = Application.CompanyName & " - " & Application.ProductName
+        Else
+            caption = Application.CompanyName & " - " & Application.ProductName & " - " & My.Settings.vInstanceName
+        End If
+
+        ' Fenster-Titel setzen
+        Me.Text = caption
+
+        Dim trayText As String = caption
+
+        If trayText.Length > 63 Then
+            trayText = trayText.Substring(0, 60) & "..."
+        End If
+
+        ' Systray-Tooltip setzen
+        niToolcollection.Text = trayText
     End Sub
 
     Private Sub FMStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
@@ -157,7 +175,7 @@ Public Class frmStart
 
             'Aktueller Benutzer
             Me.tslblVersion.Text = Environment.UserName.ToString
-            Me.Text = Application.CompanyName & "-" & Application.ProductName
+            CaptionForm()
             Me.tslblVersion.Text = "Version: " & My.Application.Info.Version.ToString
             'Aktuelle Machine
             Me.Status_Machine.Text = My.Computer.Name
@@ -167,6 +185,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()
 
@@ -189,14 +212,6 @@ Public Class frmStart
 
             End If
 
-            If Not My.Settings.licensekey = "" Then
-                ' Lizenz-Manager initialisieren
-                Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-                ' alle vorhandenen Module laden
-                Me.LoadAllModules()
-            End If
-
         Catch ex As Exception
             _Logger.Error(ex)
         End Try
@@ -278,108 +293,11 @@ Public Class frmStart
         Cursor = Cursors.Default
     End Sub
 
-    Private Sub LizenzverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LizenzverwaltungToolStripMenuItem.Click
-        ' Öffnet den Lizenz-Manager
-        frmLizenzmanager.ShowDialog()
-    End Sub
     Public Sub ClearGroupBoxes()
         Me.grbDI.Visible = False
         Me.GBNachindexierung.Visible = False
-        Me.GroupBoxIntegration.Visible = False
         Me.grbxMoRe.Visible = False
-        LICENSE_MoveRename = False
-        LICENSE_AD = False
     End Sub
-    Public Sub LoadAllModules()
-        Me._validModules = Nothing
-
-        If Not My.Settings.licensekey = "" Then
-            If My.Settings.licensekey = "DD MaxLicense" Or My.Settings.licensekey.ToUpper = "DDALLIN" Or My.Settings.licensekey.ToUpper = "DD_ALL_IN" Or My.Settings.licensekey.ToUpper = "DD_ALLIN" Then
-                Me.grbDI.Visible = True
-                Me.GBNachindexierung.Visible = True
-                Me.GroupBoxIntegration.Visible = True
-
-                btnNachbearbeitungAD.Visible = True
-                LICENSE_AD = True
-                LICENSE_MoveRename = True
-            Else
-                'Me.licenseManager = New ClassLicenseManager = Nothing
-                Me.licenseManager = New ClassLicenseManager("#DigitalData9731258!#", My.Settings.licensekey)
-
-                Me.licenseManager.licenseString = Me.licenseManager.DecodeLicenseKey(My.Settings.licensekey)
-
-                Me.licenseManager.licenseStringArray = Me.licenseManager.SplitLicenseString(Me.licenseManager.licenseString)
-                Me.licenseManager.LoadLicenses()
-
-                If Me.licenseManager.Licenses.machine.ToLower <> "all" Then
-                    If Me.licenseManager.Licenses.machine.ToLower <> My.Computer.Name.ToLower Then
-                        MsgBox("Ihre Lizenz gilt nicht für diese Maschine. " & vbNewLine & "Gelesener Computer Name: '" & My.Computer.Name & "'" & vbNewLine & "License Computer Name: '" & Me.licenseManager.Licenses.machine & "'" & vbNewLine &
-                                   "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz ungültig:")
-                        Me.grbDI.Visible = False
-                        Me.GBNachindexierung.Visible = False
-                        Me.GroupBoxIntegration.Visible = False
-
-                        Exit Sub
-                    End If
-                End If
-
-                Dim i As Integer = 0
-
-                If Me.licenseManager.Licenses.Licenses IsNot Nothing Then
-                    For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                        Dim expires As String = license.Expires.Date
-                        If IsExpired(license.Expires.Date) = False Then
-                            ' MsgBox(license.Modulename & vbNewLine & expires)
-                            Select Case license.Modulename
-                                Case "Dateiimport"
-                                    Me.grbDI.Visible = True
-                                Case "Nachindexierung"
-                                    Me.GBNachindexierung.Visible = True
-                                Case "MerkatorIntegration"
-                                    Me.GroupBoxIntegration.Visible = True
-                                Case "MoveandRename"
-                                    'Me.grbxMoRe.Visible = True
-                                    LICENSE_MoveRename = True
-                                Case "NachbearbeitungAD"
-                                    btnNachbearbeitungAD.Visible = True
-                                    LICENSE_AD = True
-                            End Select
-                            i += 1
-                        Else
-                            MsgBox("Ihre Lizenz für das Modul '" & license.Modulename & "' ist am ' " & license.Expires.Date.ToShortDateString & "' abgelaufen" & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung.", MsgBoxStyle.Exclamation, "Lizenz abgelaufen:")
-                            Select Case license.Modulename
-                                Case "Dateiimport"
-                                    Me.grbDI.Visible = False
-                                Case "Nachindexierung"
-                                    Me.GBNachindexierung.Visible = False
-                                Case "MerkatorIntegration"
-                                    Me.GroupBoxIntegration.Visible = False
-                                Case "MoveandRename"
-                                    Me.GroupBoxIntegration.Visible = False
-                                    LICENSE_MoveRename = False
-                                Case "NachbearbeitungAD"
-                                    btnNachbearbeitungAD.Visible = False
-                                    LICENSE_AD = False
-                            End Select
-                            i += 1
-                        End If
-                        'Date.TryParse(expires, license.Expires)
-
-                    Next
-                End If
-            End If
-
-
-
-        End If
-    End Sub
-    Private Function IsExpired(ByVal _Date As Date)
-        If Date.Today > _Date Then
-            Return True
-        Else
-            Return False
-        End If
-    End Function
 
     Private Sub FMStart_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
         TimerNIRestart.Start()
@@ -410,6 +328,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
@@ -428,22 +349,10 @@ Public Class frmStart
         frmabout.ShowDialog()
     End Sub
 
-    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
-        'WMOLICLib.WMLicenser()
-    End Sub
-
     Private Sub PasswortverwaltungToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasswortverwaltungToolStripMenuItem.Click
         frmPWChange.ShowDialog()
     End Sub
 
-    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
-        Cursor = Cursors.WaitCursor
-        Dim frm As New frmMIProfileigenschaften
-        frm.MdiParent = Me
-        frm.Show()
-        Cursor = Cursors.Default
-    End Sub
-
     Private Sub ModuleToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ModuleToolStripMenuItem.Click
 
     End Sub
@@ -490,6 +399,7 @@ Public Class frmStart
         Dim frm As New frmGrundeinstellungen
         frm = frmGrundeinstellungen.Instance
         frm.ShowDialog()
+        CaptionForm()
         Cursor = Cursors.Default
     End Sub
 

ToolCollection/frmUebersicht.Designer.vb

@@ -249,7 +249,7 @@ Partial Class frmUebersicht
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MainMenuStrip = Me.MenuStrip1
         Me.Name = "frmUebersicht"
-        Me.Text = "Tool Collection für windream - Profil Übersicht (beta)"
+        Me.Text = "ToolCollection - Profil Übersicht (beta)"
         Me.StatusStrip1.ResumeLayout(False)
         Me.StatusStrip1.PerformLayout()
         Me.SplitContainer1.Panel1.ResumeLayout(False)

ToolCollection/frmabout.vb

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

ToolCollection/packages.config

@@ -2,5 +2,6 @@
 <packages>
   <package id="EntityFramework" version="6.0.2" targetFramework="net451" />
   <package id="NLog" version="5.0.2" targetFramework="net462" />
-  <package id="System.Data.SQLite" version="1.0.91.3" targetFramework="net451" />
+  <package id="Stub.System.Data.SQLite.Core.NetFramework" version="1.0.119.0" targetFramework="net462" />
+  <package id="System.Data.SQLite.Core" version="1.0.119.0" targetFramework="net462" />
 </packages>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net20/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net40/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net45/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net451/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/build/net46/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,143 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)')"
+                        Include="$(MSBuildThisFileDirectory)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net20/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net40/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net45/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net451/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/buildTransitive/net46/Stub.System.Data.SQLite.Core.NetFramework.targets

@@ -0,0 +1,166 @@
+<!--
+ *
+ * System.Data.SQLite.Core.NetFramework.targets -
+ *
+ * WARNING: This MSBuild file requires MSBuild 4.0 features.
+ *
+ * Written by Joe Mistachkin and David Archer.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <!--
+  ******************************************************************************
+  **                          Load Per-User Settings                          **
+  ******************************************************************************
+  -->
+
+  <!--
+      NOTE: If the per-user settings file exists, import it now.  The contained
+            settings, if any, will override the default ones provided below.
+  -->
+  <Import Condition="'$(MSBuildThisFileFullPath)' != '' And
+                     Exists('$(MSBuildThisFileFullPath).user')"
+          Project="$(MSBuildThisFileFullPath).user" />
+
+  <!--
+  ******************************************************************************
+  **               Target Framework Version Directory Base Name               **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(MSBuildThisFileDirectory)' != '' And
+                            HasTrailingSlash('$(MSBuildThisFileDirectory)')">
+    <!--
+        NOTE: Attempt to determine the name of our immediate parent directory,
+              e.g. "net40".  This is needed in order to locate the correct set
+              of SQLite interop files.  This value will have a trailing slash.
+    -->
+    <SQLiteTargetFramework>$([MSBuild]::MakeRelative('$(MSBuildThisFileDirectory)..', '$(MSBuildThisFileDirectory)'))</SQLiteTargetFramework>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **                    SQLite Interop Library Build Items                    **
+  ******************************************************************************
+  -->
+
+  <ItemGroup>
+    <!--
+        NOTE: Grab the list of SQLite interop files to be copied to the build
+              output directory.  There should be one file for each supported
+              processor architecture.
+    -->
+    <SQLiteInteropFiles Condition="'$(MSBuildThisFileDirectory)' != '' And
+                                   HasTrailingSlash('$(MSBuildThisFileDirectory)') And
+                                   '$(SQLiteTargetFramework)' != '' And
+                                   HasTrailingSlash('$(SQLiteTargetFramework)')"
+                        Include="$(MSBuildThisFileDirectory)..\..\build\$(SQLiteTargetFramework)**\SQLite.Interop.*" />
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Content Items                   **
+  ******************************************************************************
+  -->
+
+  <ItemGroup Condition="'$(ContentSQLiteInteropFiles)' != '' And
+                        '$(ContentSQLiteInteropFiles)' != 'false' And
+                        '@(SQLiteInteropFiles)' != ''">
+    <Content Include="@(SQLiteInteropFiles)">
+      <Link>%(RecursiveDir)%(FileName)%(Extension)</Link>
+      <CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
+    </Content>
+  </ItemGroup>
+
+  <!--
+  ******************************************************************************
+  **                   SQLite Interop Library Build Targets                   **
+  ******************************************************************************
+  -->
+
+  <Target Name="CopySQLiteInteropFiles"
+          Condition="'$(CopySQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')"
+          Inputs="@(SQLiteInteropFiles)"
+          Outputs="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')">
+    <!--
+        NOTE: Copy "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, to the build output directory.
+    -->
+    <Copy SourceFiles="@(SQLiteInteropFiles)"
+          DestinationFiles="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CleanSQLiteInteropFiles"
+          Condition="'$(CleanSQLiteInteropFiles)' != 'false' And
+                     '$(OutDir)' != '' And
+                     HasTrailingSlash('$(OutDir)') And
+                     Exists('$(OutDir)')">
+    <!--
+        NOTE: Delete "SQLite.Interop.dll" and all related files, for every
+              architecture that we support, from the build output directory.
+    -->
+    <Delete Files="@(SQLiteInteropFiles -> '$(OutDir)%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+
+  <!--
+  ******************************************************************************
+  -->
+
+  <Target Name="CollectSQLiteInteropFiles"
+          Condition="'$(CollectSQLiteInteropFiles)' != 'false'">
+    <ItemGroup>
+      <FilesForPackagingFromProject Include="@(SQLiteInteropFiles)">
+        <DestinationRelativePath>bin\%(RecursiveDir)%(Filename)%(Extension)</DestinationRelativePath>
+      </FilesForPackagingFromProject>
+    </ItemGroup>
+  </Target>
+
+  <!--
+  ******************************************************************************
+  **                 SQLite Interop Library Build Properties                  **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup>
+    <PostBuildEventDependsOn>
+      $(PostBuildEventDependsOn);
+      CopySQLiteInteropFiles;
+    </PostBuildEventDependsOn>
+    <BuildDependsOn>
+      $(BuildDependsOn);
+      CopySQLiteInteropFiles;
+    </BuildDependsOn>
+    <CleanDependsOn>
+      $(CleanDependsOn);
+      CleanSQLiteInteropFiles;
+    </CleanDependsOn>
+  </PropertyGroup>
+
+  <!--
+  ******************************************************************************
+  **     SQLite Interop Library Publish Properties for Visual Studio 20xx     **
+  ******************************************************************************
+  -->
+
+  <PropertyGroup Condition="'$(VisualStudioVersion)' == '' Or
+                            '$(VisualStudioVersion)' == '10.0' Or
+                            '$(VisualStudioVersion)' == '11.0' Or
+                            '$(VisualStudioVersion)' == '12.0' Or
+                            '$(VisualStudioVersion)' == '14.0' Or
+                            '$(VisualStudioVersion)' == '15.0' Or
+                            '$(VisualStudioVersion)' == '16.0' Or
+                            '$(VisualStudioVersion)' == '17.0'">
+    <PipelineCollectFilesPhaseDependsOn>
+      CollectSQLiteInteropFiles;
+      $(PipelineCollectFilesPhaseDependsOn);
+    </PipelineCollectFilesPhaseDependsOn>
+  </PropertyGroup>
+</Project>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net20/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net40/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net45/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net451/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/Stub.System.Data.SQLite.Core.NetFramework.1.0.119.0/lib/net46/System.Data.SQLite.dll.altconfig

@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<!--
+ *
+ * System.Data.SQLite.dll.altconfig -
+ *
+ * WARNING: This XML configuration file is intended for use within the NuGet
+ *          package directories only.  Please do not copy this file to any of
+ *          the build output directories because it could interfere with the
+ *          native library pre-loading feature.
+ *
+ * Written by Joe Mistachkin.
+ * Released to the public domain, use at your own risk!
+ *
+-->
+<configuration>
+  <appSettings>
+    <add key="PreLoadSQLite_BaseDirectory"
+         value="%PreLoadSQLite_AssemblyDirectory%\..\..\build\%PreLoadSQLite_TargetFramework%" />
+  </appSettings>
+
+  <dllmap dll="SQLite.Interop" target="SQLite.Interop.dll" />
+</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net20/app.config.transform

@@ -1,11 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net20/web.config.transform

@@ -1,11 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net40/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net40/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net45/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net45/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net451/app.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>

packages/System.Data.SQLite.1.0.91.3/content/net451/web.config.transform

@@ -1,16 +0,0 @@
-<configuration>
-  <system.data>
-    <DbProviderFactories>
-      <remove invariant="System.Data.SQLite" />
-      <add name="SQLite Data Provider"
-           invariant="System.Data.SQLite"
-           description=".Net Framework Data Provider for SQLite"
-           type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
-      <remove invariant="System.Data.SQLite.EF6" />
-      <add name="SQLite Data Provider (Entity Framework 6)"
-           invariant="System.Data.SQLite.EF6"
-           description=".Net Framework Data Provider for SQLite (Entity Framework 6)"
-           type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
-    </DbProviderFactories>
-  </system.data>
-</configuration>