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

frmAdministration: Fix Index Loading

Browse Source
This commit is contained in:
Jonathan Jenne 2020-04-22 13:34:28 +02:00
parent 3235cca192
commit e8f937e527
1 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
Global_Indexer/frmAdministration.vb
View File

@ -60,6 +60,10 @@ Public Class frmAdministration
ComboBox3.DataSource = oDatatable ComboBox3.DataSource = oDatatable
If GI_withWindream = True Then
If ClassWindream.Init() = True Then
End If
End If
Try Try
Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART) Me.TBDD_DOKUMENTARTTableAdapter.FillByModuleGI(Me.MyDataset.TBDD_DOKUMENTART)
Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN) Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
@ -74,10 +78,7 @@ Public Class frmAdministration
Catch ex As Exception Catch ex As Exception
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
If GI_withWindream = True Then
If ClassWindream.Init() = True Then
End If
End If
End Sub End Sub
Private Sub MaybeDisableUserAndEmailTabs() Private Sub MaybeDisableUserAndEmailTabs()
@ -265,6 +266,11 @@ Public Class frmAdministration
gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID) gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID) gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices()
load_WDIndices2AutoIndizes()
End If
If TextBox3.Text = String.Empty Then If TextBox3.Text = String.Empty Then
TextBox5.Enabled = False TextBox5.Enabled = False
TextBox1.Enabled = False TextBox1.Enabled = False
@ -316,13 +322,13 @@ Public Class frmAdministration
Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
If WINDREAM_DIRECTCheckBox.Checked = True Then If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices() load_WDIndices()
load_WDIndices2AutoIndizes()
End If End If
End Sub End Sub
Sub load_WDIndices() Sub load_WDIndices()
Try Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then If OBJEKTTYPComboBox.Text <> "" Then
Me.WD_INDEXComboBox.Items.Clear() Me.WD_INDEXComboBox.Items.Clear()
Me.WD_INDEXComboBox.Items.Add("")
Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
@ -336,7 +342,7 @@ Public Class frmAdministration
End Sub End Sub
Sub load_WDIndices2AutoIndizes() Sub load_WDIndices2AutoIndizes()
Try Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then If OBJEKTTYPComboBox.Text <> "" Then
Me.INDEXNAME_AutoIndexCMB.Items.Clear() Me.INDEXNAME_AutoIndexCMB.Items.Clear()
Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
@ -1255,6 +1261,10 @@ Public Class frmAdministration
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
TBDD_INDEX_MANBindingSource.AddNew() TBDD_INDEX_MANBindingSource.AddNew()
If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices()
End If
End Sub End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
@ -1330,6 +1340,10 @@ Public Class frmAdministration
Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
TBDD_INDEX_AUTOMBindingSource.AddNew() TBDD_INDEX_AUTOMBindingSource.AddNew()
If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices2AutoIndizes()
End If
End Sub End Sub
Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs) Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs)