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

jj 19.06.17 übersetzung

Browse Source
This commit is contained in:
Jonathan Jenne
2017-06-19 14:41:03 +02:00
parent a66fbac592
commit cc25b8d3aa
27 changed files with 14678 additions and 12458 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
Global_Indexer/frmAdministration.vb
View File

@@ -998,24 +998,37 @@
If Not lbFileparameter.SelectedItem Is Nothing Then
If GUIDAUTO_INDEXTextbox.Text <> "" Then
Dim value As String
Select Case lbFileparameter.SelectedItem.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
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
value = "$FileCreatedWho"
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
value = "$DateDDMMYYY"
Case "Username"
value = "$Username"
Case "Usercode"
value = "$Usercode"
Select Case lbFileparameter.SelectedIndex
Case 0 : value = "$filename_ext"
Case 1 : value = "$filename"
Case 2 : value = "$extension"
Case 3 : value = "$FileCreateDate"
Case 4 : value = "$FileCreatedWho"
Case 5 : value = "$DateDDMMYYY"
Case 6 : value = "$Username"
Case 7 : value = "$Usercode"
End Select
'Select Case lbFileparameter.SelectedItem.ToString.ToUpper
' Case "Dateiname (mit Endung)".ToUpper
' 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
' value = "$FileCreatedWho"
' Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
' value = "$DateDDMMYYY"
' Case "Username"
' value = "$Username"
' Case "Usercode"
' value = "$Usercode"
'End Select
If value <> "" Then
VALUETextBox.Text = value
Save_IndexAuto()