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

jj 26.06

Browse Source
This commit is contained in:
Jonathan Jenne
2017-06-26 15:46:57 +02:00
parent cc25b8d3aa
commit bddcc0adeb
24 changed files with 3671 additions and 2832 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@@ -40,9 +40,13 @@ Public Class SQLConfigAutoIndex
If Not IsNothing(dt) Then
If dt.Rows.Count = 1 Then
MsgBox("Es wurde genau 1 Datensatz zurückgegeben!", MsgBoxStyle.Information)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Es wurde genau 1 Datensatz zurückgegeben!", MsgBoxStyle.Information)
Else
MsgBox("Excactly 1 record was returned!", MsgBoxStyle.Information)
End If
End If
CURRENT_SQLRESULT = sql_command
CURRENT_SQLRESULT = sql_command
DTSQL_RESULT = dt
frmSQL_Result.ShowDialog()
End If
@@ -111,7 +115,7 @@ Public Class SQLConfigAutoIndex
' End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
ClassLogger.Add(" - Unexpected error in TestSQL - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in TestSQL:")
End Try
End Sub
@@ -157,7 +161,11 @@ Public Class SQLConfigAutoIndex
cmd = "UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = " & cmbConnection.SelectedValue & ", SQL_RESULT = '" & insresultstring & "', CHANGED_WHO = '" & _
Environment.UserName & "' WHERE GUID = " & CURRENT_INDEXAUTO
If ClassDatabase.Execute_non_Query(cmd, True) = True Then
lblSave.Text = "SQL-Daten gespeichert - " & Now
If USER_LANGUAGE = "de-DE" Then
lblSave.Text = "SQL-Daten gespeichert - " & Now
Else
lblSave.Text = "SQL-Data saved - " & Now
End If
Me.lblSave.Visible = True
Else
Me.lblSave.Visible = False
@@ -166,6 +174,11 @@ Public Class SQLConfigAutoIndex
Else
Me.lblSave.Visible = True
lblSave.Text = "Keine Änderungen vorhanden"
If USER_LANGUAGE = "de-DE" Then
lblSave.Text = "Keine Änderungen vorhanden"
Else
lblSave.Text = "No changes"
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Save SQL IndexAuto:")
@@ -380,24 +393,47 @@ Public Class SQLConfigAutoIndex
If Not cmbwindowsParam.Text = String.Empty Then
Dim placeholder As String
Dim pattern As String = ""
Select Case cmbwindowsParam.Text.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
pattern = "$filename_ext".ToUpper
Case "Dateiname (ohne Endung)".ToUpper
pattern = "$filename".ToUpper
Case "Dateiendung".ToUpper
pattern = "$extension".ToUpper
Case "Datei Erstelldatum".ToUpper
pattern = "$FileCreateDate".ToUpper
Case "Datei Erstellt wer".ToUpper
pattern = "$FileCreatedWho".ToUpper
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
pattern = "$DateDDMMYYY".ToUpper
Case "Username"
pattern = "$Username".ToUpper
Case "Usercode"
pattern = "$Usercode".ToUpper
End Select
If USER_LANGUAGE = "de-DE" Then
Select Case cmbwindowsParam.Text.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
pattern = "$filename_ext".ToUpper
Case "Dateiname (ohne Endung)".ToUpper
pattern = "$filename".ToUpper
Case "Dateiendung".ToUpper
pattern = "$extension".ToUpper
Case "Datei Erstelldatum".ToUpper
pattern = "$FileCreateDate".ToUpper
Case "Datei Erstellt wer".ToUpper
pattern = "$FileCreatedWho".ToUpper
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
pattern = "$DateDDMMYYY".ToUpper
Case "Username"
pattern = "$Username".ToUpper
Case "Usercode"
pattern = "$Usercode".ToUpper
End Select
Else
Select Case cmbwindowsParam.Text.ToString.ToUpper
Case "Filename (with Extension)".ToUpper
pattern = "$filename_ext".ToUpper
Case "Filename (no Extension)".ToUpper
pattern = "$filename".ToUpper
Case "Fileextension".ToUpper
pattern = "$extension".ToUpper
Case "File Created At".ToUpper
pattern = "$FileCreateDate".ToUpper
Case "File Created Who".ToUpper
pattern = "$FileCreatedWho".ToUpper
Case "Current Date (DD.MM.YYYY)".ToUpper
pattern = "$DateDDMMYYY".ToUpper
Case "Username"
pattern = "$Username".ToUpper
Case "Usercode"
pattern = "$Usercode".ToUpper
End Select
End If
placeholder = "[%" & pattern & "]"
If placeholder <> "" Then
SQL_ERGEBNISTextBox.Text = SQL_ERGEBNISTextBox.Text.Insert(CurrentPosition, placeholder)