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

MS WIndream Init

Browse Source
This commit is contained in:
SchreiberM
2020-04-27 14:17:05 +02:00
parent 59afa60f7b
commit b2096b5fe7
10 changed files with 142 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Global_Indexer/frmAdministration.vb
View File

@@ -49,7 +49,6 @@ Public Class frmAdministration
oDragDropManager.AddGridView(viewAssignedUsers)
oDragDropManager.AddGridView(viewAvailableUsers)
RibbonPageUserGroups.Visible = False
RibbonPageEmail.Visible = False
Dim oDatatable As New DataTable()
@@ -87,7 +86,6 @@ Public Class frmAdministration
Try
pnlObjekttype_Config.Enabled = False
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
Me.OBJEKTTYPComboBox.Items.Clear()
ListBoxControl1.Items.Clear()
@@ -98,8 +96,8 @@ Public Class frmAdministration
For Each otype As String In SourceObjectTypes
' und in die Combobox eintragen
Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
ListBoxControl1.Items.Add(oDokumentTyp.aName)
Me.OBJEKTTYPComboBox.Items.Add(otype)
ListBoxControl1.Items.Add(otype)
Next
@@ -317,6 +315,7 @@ Public Class frmAdministration
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.WD_INDEXComboBox.Items.Clear()
Me.WD_INDEXComboBox.Items.Add("")
Me.INDEXNAME_AutoIndexCMB.Items.Clear()
If SourceAttributes Is Nothing Then
SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
End If
@@ -326,6 +325,7 @@ Public Class frmAdministration
If SourceAttributes IsNot Nothing Then
For Each index As String In SourceAttributes
Me.WD_INDEXComboBox.Items.Add(index)
INDEXNAME_AutoIndexCMB.Items.Add(index)
Next
End If
End If
@@ -333,23 +333,6 @@ Public Class frmAdministration
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices: ")
End Try
End Sub
Sub load_WDIndices2AutoIndizes()
Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.INDEXNAME_AutoIndexCMB.Items.Clear()
If SourceAttributes Is Nothing Then
SourceAttributes = WINDREAM.GetIndiciesByObjecttype(OBJEKTTYPComboBox.Text)
End If
If SourceAttributes IsNot Nothing Then
For Each index As String In SourceAttributes
Me.INDEXNAME_AutoIndexCMB.Items.Add(index)
Next
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ")
End Try
End Sub
Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If DOKART_GUIDTextBox.Text <> "" Then
Load_Dokart()
@@ -407,7 +390,6 @@ Public Class frmAdministration
If WINDREAM_DIRECTCheckBox.Checked = True Then
INDEXNAME_AutoIndexTXT.Visible = False
INDEXNAME_AutoIndexCMB.Visible = True
load_WDIndices2AutoIndizes()
Else
INDEXNAME_AutoIndexTXT.Visible = True
INDEXNAME_AutoIndexCMB.Visible = False
@@ -491,13 +473,6 @@ Public Class frmAdministration
RibbonControl1.SelectedPage = RibbonPageStart
End If
If oSelectedPageName = XtraTabPageUsersGroups.Name Then
RibbonPageUserGroups.Visible = True
RibbonControl1.SelectedPage = RibbonPageUserGroups
Else
RibbonPageUserGroups.Visible = False
End If
If oSelectedPageName = XtraTabPageEmail.Name Then
RibbonPageEmail.Visible = True
@@ -555,7 +530,6 @@ Public Class frmAdministration
End Sub
Private Sub ObjektTypenListBoxEintragen()
Try
Dim oDokumentTyp As WINDREAMLib.WMObject
' Combobox leeren
ListBoxControl1.Items.Clear()
' alle Objekttypen durchlaufen
@@ -564,7 +538,7 @@ Public Class frmAdministration
End If
For Each oDokumentTyp In SourceObjectTypes
' und in die Combobox eintragen
ListBoxControl1.Items.Add(oDokumentTyp.aName)
ListBoxControl1.Items.Add(oDokumentTyp)
Next
Catch ex As Exception
MsgBox("Error in ObjektTypenListBoxEintragen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)