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

Zusatzoptionen Laden der Indexe - frmNIVerknuepfungen

Browse Source
This commit is contained in:
OlgunR 2025-10-13 16:03:29 +02:00
parent 359700e683
commit 13751aac22
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -2439,6 +2439,7 @@ Public Class frmNIVerknuepfungen
Me._selectedProfil.finalerIndex = cmbIndex_Statusfertig.SelectedItem Me._selectedProfil.finalerIndex = cmbIndex_Statusfertig.SelectedItem
If Not Me._selectedProfil.finalerIndex = Me._selectedProfil.OriginalfinalerIndex Then If Not Me._selectedProfil.finalerIndex = Me._selectedProfil.OriginalfinalerIndex Then
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
btnSaveAll.Enabled = True
End If End If
End If End If
End If End If
@ -3652,7 +3653,24 @@ Public Class frmNIVerknuepfungen
Case 2 Case 2
If Me._selectedProfil IsNot Nothing Then If Me._selectedProfil IsNot Nothing Then
chbxStatusfertig.Checked = My.Settings.vNIStatusFinished 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 If
End Select End Select
End Sub End Sub