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

MS18042016

Browse Source
This commit is contained in:
SchreiberM
2016-04-19 08:29:57 +02:00
parent b0a74d2e94
commit 034718d22e
37 changed files with 4334 additions and 1746 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/frmAdministration.vb
View File

@@ -56,7 +56,7 @@
Me.OBJEKTTYPComboBox.Items.Add(oDokumentTyp.aName)
Next
Catch ex As Exception
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Eintragen der Objekttypen")
MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error inm Eintragen der Objekttypen")
End Try
End Sub
@@ -175,6 +175,7 @@
lblSaveDokart.Visible = False
If DOKART_GUIDTextBox.Text <> String.Empty Then
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
End Sub
@@ -258,17 +259,6 @@
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load_WDIndices2AutoIndizes: ")
End Try
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxDokart.SelectedIndexChanged
If ListBoxDokart.SelectedIndex <> -1 Then
If Not ListBoxDokart.SelectedValue Is Nothing Then
Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue)
Load_TabData()
End If
End If
End Sub
Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If DOKART_GUIDTextBox.Text <> "" Then
Load_Dokart("Global-Indexer Dokarten")
@@ -782,7 +772,7 @@
Private Sub XtraTabControl3_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl3.SelectedPageChanged
Select Case XtraTabControl3.SelectedTabPageIndex
Case 0
Load_UserRelation(ListBox3.SelectedValue)
Load_UserRelation(USER_GUIDTextBox.Text)
Case 1
Load_UserGroups()
End Select
@@ -823,6 +813,8 @@
Private Sub TBDD_USERBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_USERBindingSource.CurrentChanged
If USER_GUIDTextBox.Text <> "" Then
'Load_ZuordnungDokart_Module(ListBoxDokart.SelectedValue)
Load_TabData()
Load_UserRelation(USER_GUIDTextBox.Text)
End If