fix email indexing form title, icon order in ribbon, and missing objecttypes and indicies

This commit is contained in:
Jonathan Jenne
2020-05-19 14:13:56 +02:00
parent fa14812431
commit 6ed0d8086b
5 changed files with 417 additions and 409 deletions

View File

@@ -91,6 +91,11 @@ Public Class frmAdministration
If SourceObjectTypes Is Nothing Then
SourceObjectTypes = WINDREAM.ObjectTypes
End If
For Each oObjecttype As String In SourceObjectTypes
' und in die Combobox eintragen
Me.OBJEKTTYPComboBox.Items.Add(oObjecttype)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
End Try
@@ -240,11 +245,16 @@ Public Class frmAdministration
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
Load_TabData()
gridAssignedGroups.DataSource = ClassDatatables.GetAssignedGroups(CURRENT_DOKART_ID)
gridAvailableGroups.DataSource = ClassDatatables.GetAvailableGroups(CURRENT_DOKART_ID)
gridAssignedUsers.DataSource = ClassDatatables.GetAssignedUsers(CURRENT_DOKART_ID)
gridAvailableUsers.DataSource = ClassDatatables.GetAvailableUsers(CURRENT_DOKART_ID)
If WINDREAM_DIRECTCheckBox.Checked = True Then
load_WDIndices()
End If
If TextBox3.Text = String.Empty Then
TextBox5.Enabled = False
TextBox1.Enabled = False