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

MS2501

Browse Source
This commit is contained in:
SchreiberM
2017-01-25 10:16:40 +01:00
parent 042f24e231
commit 64c99f80b9
43 changed files with 5067 additions and 2448 deletions
Download Patch File Download Diff File Expand all files Collapse all files

76
Global_Indexer/frmAdministration.vb
View File

@@ -111,6 +111,9 @@
' Then use the following code to create the Dialog window
' Change the .SelectedPath property to the default location
With FolderBrowserDialog1
If ZIEL_PFADTextBox.Text <> "" Then
.SelectedPath = ZIEL_PFADTextBox.Text
End If
' Desktop is the root folder in the dialog.
'.RootFolder = Environment.SpecialFolder.Desktop
' Prompt the user with a custom message.
@@ -175,7 +178,7 @@
lblSaveDokart.Visible = False
If DOKART_GUIDTextBox.Text <> String.Empty Then
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
Load_TabData()
End If
End Sub
@@ -269,10 +272,12 @@
Else
btnSQLView.Visible = False
End If
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
frmloaded = True
tscmbUser.SelectedIndex = 0
TBDD_INDEX_MANBindingNav.Visible = True
TBDD_INDEX_MANBindingNav.Visible = True
End Sub
Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@@ -859,29 +864,18 @@
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim del As String = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID IN (SELECT GUID FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text & ")"
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_INDEX_MAN WHERE DOK_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART_MODULE WHERE DOKART_ID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
del = "DELETE FROM TBDD_DOKUMENTART WHERE GUID = " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
' Load_Dokart("Global-Indexer Dokarten")
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
End If
End If
End If
Dim str = "Global-Indexer Dokarten"
If ToolStripComboBox1.Text <> "" Then
str = ToolStripComboBox1.Text
End If
Load_Dokart(str)
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
End Try
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
End Try
End If
End Sub
@@ -1009,6 +1003,8 @@
value = "$filename_ext"
Case "Dateiname (ohne Endung)".ToUpper
value = "$filename"
Case "Dateiendung".ToUpper
value = "$extension"
Case "Datei Erstelldatum".ToUpper
value = "$FileCreateDate"
Case "Datei Erstellt wer".ToUpper
@@ -1041,4 +1037,44 @@
Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
If GUIDTextBox1.Text <> "" Then
Try
Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
If ClassDatabase.Execute_non_Query(del) = True Then
del = "DELETE FROM TBDD_INDEX_MAN WHERE GUID = " & GUIDTextBox1.Text
If ClassDatabase.Execute_non_Query(del) = True Then
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in deleting manual index: " & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
Dim result As MsgBoxResult
result = MessageBox.Show("Sind Sie sicher dass Sie diesen User löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_USER " & USER_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then
If tscmbUser.SelectedIndex = 1 Then
Refresh_User(True)
Else
Refresh_User(False)
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete User: ")
End Try
End If
End Sub
Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
End Sub
End Class