jj 26.06
This commit is contained in:
Jonathan Jenne
@@ -117,7 +117,12 @@
|
||||
' Desktop is the root folder in the dialog.
|
||||
'.RootFolder = Environment.SpecialFolder.Desktop
|
||||
' Prompt the user with a custom message.
|
||||
.Description = "Zielordner für Dokumentart wählen:"
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
.Description = "Zielordner für Dokumentart wählen:"
|
||||
Else
|
||||
.Description = "Choose destination folder for Documenttype:"
|
||||
End If
|
||||
|
||||
If .ShowDialog = DialogResult.OK Then
|
||||
Dim Path As String = .SelectedPath
|
||||
ZIEL_PFADTextBox.Text = .SelectedPath
|
||||
@@ -601,20 +606,20 @@
|
||||
If frmloaded = True Then
|
||||
If SQL_ACTIVECheckBox.CheckState = CheckState.Checked Then
|
||||
btnSQLViewAuto.Visible = True
|
||||
Me.lblValue.Visible = False
|
||||
lblValue.Visible = False
|
||||
VALUETextBox.Visible = False
|
||||
VALUETextBox.Text = ""
|
||||
lblWindowParameter.Visible = False
|
||||
lbFileparameter.Visible = False
|
||||
Me.btnAddWindowsVariable.Visible = False
|
||||
btnAddWindowsVariable.Visible = False
|
||||
Else
|
||||
Me.lblValue.Visible = True
|
||||
lblValue.Visible = True
|
||||
VALUETextBox.Visible = True
|
||||
VALUETextBox.Text = ""
|
||||
btnSQLViewAuto.Visible = False
|
||||
lblWindowParameter.Visible = True
|
||||
lbFileparameter.Visible = True
|
||||
Me.btnAddWindowsVariable.Visible = True
|
||||
btnAddWindowsVariable.Visible = True
|
||||
End If
|
||||
If IsInsert = False Then
|
||||
Save_IndexAuto()
|
||||
@@ -653,10 +658,18 @@
|
||||
If TYPEComboBox.SelectedIndex <> -1 Then
|
||||
Select Case TYPEComboBox.Text
|
||||
Case "VBREPLACE"
|
||||
Me.Text1Label.Text = "Old Value:"
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Text1Label.Text = "Alter Wert:"
|
||||
Text2Label.Text = "Neuer Wert:"
|
||||
Else
|
||||
Text1Label.Text = "Old Value:"
|
||||
Text2Label.Text = "New Value:"
|
||||
End If
|
||||
|
||||
Me.TEXT1TextBox.Visible = True
|
||||
TEXT1TextBox.Width = 165
|
||||
Me.Text2Label.Text = "New Value:"
|
||||
|
||||
Me.TEXT2TextBox.Visible = True
|
||||
Me.TEXT2TextBox.Width = 191
|
||||
Me.Text3Label.Visible = False
|
||||
@@ -672,15 +685,24 @@
|
||||
Me.FUNCTION2TextBox.Visible = False
|
||||
|
||||
Case "VBSPLIT"
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Text1Label.Text = "Split-Zeichen:"
|
||||
Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
|
||||
Else
|
||||
Text1Label.Text = "Split-Character:"
|
||||
Text2Label.Text = "Choose occurrence: 0-Based - First occurrence = '0'"
|
||||
End If
|
||||
|
||||
Me.FUNCTION1TextBox.Visible = True
|
||||
Me.FUNCTION2TextBox.Visible = True
|
||||
Me.Function1Label.Visible = True
|
||||
Me.Function2Label.Visible = True
|
||||
|
||||
Me.TEXT1Label.Text = "Split-Zeichen:"
|
||||
|
||||
Me.TEXT1TextBox.Visible = True
|
||||
TEXT1TextBox.Width = 50
|
||||
Me.Text2Label.Text = "Wähle Vorkommen: Achtung Nullbasierend - Erstes Vorkommen = '0'"
|
||||
|
||||
Me.TEXT2TextBox.Visible = True
|
||||
Me.TEXT2TextBox.Width = 50
|
||||
Me.TEXT3TextBox.Visible = False
|
||||
@@ -691,7 +713,13 @@
|
||||
Me.FUNCTION1TextBox.Visible = False
|
||||
Me.FUNCTION2TextBox.Visible = False
|
||||
Case "REG. EXPRESSION"
|
||||
Me.Text1Label.Text = "Regulärer Ausdruck:"
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
Me.Text1Label.Text = "Regulärer Ausdruck:"
|
||||
Else
|
||||
Me.Text1Label.Text = "Regular Expression:"
|
||||
End If
|
||||
|
||||
Me.TEXT1TextBox.Visible = True
|
||||
TEXT1TextBox.Width = 537
|
||||
Me.Text2Label.Visible = False
|
||||
@@ -861,7 +889,13 @@
|
||||
|
||||
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
|
||||
Dim result As MsgBoxResult
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
|
||||
@@ -871,7 +905,14 @@
|
||||
str = ToolStripComboBox1.Text
|
||||
End If
|
||||
Load_Dokart(str)
|
||||
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
|
||||
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Die Dokumentart wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
|
||||
Else
|
||||
MsgBox("Documenttype successfully deleted!", MsgBoxStyle.Information)
|
||||
End If
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Delete DocType: ")
|
||||
@@ -963,12 +1004,24 @@
|
||||
|
||||
Private Sub tsbtnCopyDoctype_Click(sender As Object, e As EventArgs) Handles tsbtnCopyDoctype.Click
|
||||
Dim result As MsgBoxResult
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie diese Dokumentart kopieren wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to copy this documenttype", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", 1"
|
||||
If ClassDatabase.Execute_non_Query(copy, True) Then
|
||||
MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
|
||||
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Die Dokumentart wurde erfolgreich kopiert und auf INAKTIV gesetzt." & vbNewLine & "Bitte beachten Sie:" & vbNewLine & "- Die Dokumentart wurde keiner Usergruppe zugeordnet.", MsgBoxStyle.Information)
|
||||
Else
|
||||
MsgBox("Documenttype was copied successfully and set to INACTIVE." & vbNewLine & "Please note:" & vbNewLine & "- Documenttype was not assigned to a usergroup", MsgBoxStyle.Information)
|
||||
End If
|
||||
|
||||
Dim str = "Global-Indexer Dokarten"
|
||||
If ToolStripComboBox1.Text <> "" Then
|
||||
str = ToolStripComboBox1.Text
|
||||
@@ -1034,7 +1087,11 @@
|
||||
Save_IndexAuto()
|
||||
End If
|
||||
Else
|
||||
MsgBox("Bitte fügen Sie zuerst einen neuen Index hinzu!", MsgBoxStyle.Information)
|
||||
If USER_LANGUAGE = "de-DE" Then
|
||||
MsgBox("Bitte fügen Sie zuerst einen neuen Index hinzu!", MsgBoxStyle.Information)
|
||||
Else
|
||||
MsgBox("Please add a new index first!", MsgBoxStyle.Information)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@@ -1069,7 +1126,13 @@
|
||||
|
||||
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 USER_LANGUAGE = "de-DE" Then
|
||||
result = MessageBox.Show("Sind Sie sicher dass Sie diesen User löschen wollen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
Else
|
||||
result = MessageBox.Show("Are you sure you want to delete this user?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
|
||||
End If
|
||||
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Try
|
||||
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_USER " & USER_GUIDTextBox.Text
|
||||
|
||||
Reference in New Issue
Block a user