Assambly auf 2.9.9.0

ToolCollection/My Project/AssemblyInfo.vb

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

ToolCollection/My Project/Settings.Designer.vb

@@ -733,6 +733,18 @@ Namespace My
                 Me("vDefaultDeleteLogsTime") = value
             End Set
         End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vNIStatusFinished() As Boolean
+            Get
+                Return CType(Me("vNIStatusFinished"),Boolean)
+            End Get
+            Set
+                Me("vNIStatusFinished") = value
+            End Set
+        End Property
     End Class
 End Namespace
 

ToolCollection/My Project/Settings.settings

@@ -181,5 +181,8 @@
     <Setting Name="vDefaultDeleteLogsTime" Type="System.DateTime" Scope="User">
       <Value Profile="(Default)">01/01/0001 03:00:00</Value>
     </Setting>
+    <Setting Name="vNIStatusFinished" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

ToolCollection/My Project/licenses.licx

@@ -0,0 +1 @@
+DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

ToolCollection/app.config

@@ -159,6 +159,9 @@
       <setting name="vDefaultDeleteLogsTime" serializeAs="String">
         <value>01/01/0001 03:00:00</value>
       </setting>
+      <setting name="vNIStatusFinished" serializeAs="String">
+        <value>False</value>
+      </setting>
     </ToolCollection.My.MySettings>
   </userSettings>
   <applicationSettings>

ToolCollection/frmNIVerknuepfungen.vb

@@ -362,13 +362,13 @@ Public Class frmNIVerknuepfungen
                     Me.txtSelectAnweisung.Text = ""
                     'Finaler Index ja nein?
                     If Me._selectedProfil.finalerIndex <> "" Then
-                        Me.chbxStatusfertig.CheckState = CheckState.Checked
+                        Me.chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
                         Me.cmbIndex_Statusfertig.Items.Clear()
                         Me.cmbIndex_Statusfertig.ForeColor = Color.Black
                         Me.cmbIndex_Statusfertig.Items.Add(Me._selectedProfil.finalerIndex) ' den index eintragen
                         Me.cmbIndex_Statusfertig.SelectedIndex = 0 ' und direkt auswählen
                     Else
-                        Me.chbxStatusfertig.CheckState = CheckState.Unchecked
+                        Me.chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
                     End If
                     '#### VOLLTEXTINDEXER #####
                 ElseIf Me._selectedProfil.Ni_Art = "fulltext" Then
@@ -1692,9 +1692,11 @@ Public Class frmNIVerknuepfungen
 
                 If Not Me._selectedProfil._links.IsSaved Then
                     SaveLinks()
+                    SaveProfile()
                 End If
             Else
                 Me._selectedProfil._links.setLinksSaved()
+                Me._selectedProfil.setSaved()
             End If
         End If
 
@@ -2381,6 +2383,8 @@ Public Class frmNIVerknuepfungen
     Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chbxStatusfertig.CheckedChanged
         If Me.chbxStatusfertig.Checked Then
             Me.cmbIndex_Statusfertig.Enabled = True
+            My.Settings.vNIStatusFinished = chbxStatusfertig.Checked
+            My.Settings.Save()
             Try
                 Me.cmbIndex_Statusfertig.Items.Clear()
                 Dim indexe = _windream.GetIndicesByObjecttype(Me._selectedProfil.Dokumenttyp.aName, True, "NI")
@@ -2393,12 +2397,13 @@ Public Class frmNIVerknuepfungen
                     cmbIndex_Statusfertig.SelectedIndex = cmbIndex_Statusfertig.FindStringExact(Me._selectedProfil.finalerIndex)
                 End If
 
-
             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()
             If Me._selectedProfil IsNot Nothing Then
                 Me._selectedProfil.finalerIndex = ""
                 Me._selectedProfil.setChanged()
@@ -2711,10 +2716,10 @@ Public Class frmNIVerknuepfungen
 
             Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
 
-                If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
+            If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
-                    btnSaveAll.Enabled = True
+                btnSaveAll.Enabled = True
-                    Me._selectedProfil.setChanged()
+                Me._selectedProfil.setChanged()
-                End If
+            End If
 
         End If
 
@@ -3590,7 +3595,7 @@ Public Class frmNIVerknuepfungen
                 End If
             Case 2
                 If Me._selectedProfil IsNot Nothing Then
-                    chbxStatusfertig.Checked = True
+                    chbxStatusfertig.Checked = My.Settings.vNIStatusFinished
 
                 End If
         End Select