AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merken von CheckState bei chbxStatusfertig - frmNIVerknupfungen, Settings

Browse Source
This commit is contained in:
OlgunR 2025-10-06 13:20:48 +02:00
parent f7a8753162
commit 467f6e26a3
5 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ToolCollection/My Project/Settings.Designer.vb generated
View File

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

3
ToolCollection/My Project/Settings.settings
View File

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

1
ToolCollection/My Project/licenses.licx Normal file
View File

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

3
ToolCollection/app.config
View File

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

19
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -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
@ -2383,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")
@ -2395,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()
@ -2713,10 +2716,10 @@ Public Class frmNIVerknuepfungen
Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
btnSaveAll.Enabled = True
Me._selectedProfil.setChanged()
End If
If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
btnSaveAll.Enabled = True
Me._selectedProfil.setChanged()
End If
End If
@ -3592,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