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

MS DDGroups

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-07-12 16:02:38 +02:00
parent 7b445c8d36
commit 4e478db15f
29 changed files with 4442 additions and 2640 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Global_Indexer/frmIndex.vb
View File

@@ -1064,7 +1064,7 @@ Public Class frmIndex
Case "Username".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, Environment.UserName)
Case "Usercode".ToUpper
DATEINAME = DATEINAME.Replace(element.Value, CURRENT_USER_SHORT)
DATEINAME = DATEINAME.Replace(element.Value, USER_SHORT_NAME)
Case ""
End Select
If datetemp <> "" Then
@@ -2076,7 +2076,7 @@ Public Class frmIndex
Case "$Username"
result = Environment.UserName
Case "$Usercode"
result = CURRENT_USER_SHORT
result = USER_SHORT_NAME
End Select
Catch ex As Exception
result = "XXX"
@@ -2151,7 +2151,7 @@ Public Class frmIndex
Case "$Username"
DEFAULTVALUE = Environment.UserName
Case "$Usercode"
DEFAULTVALUE = CURRENT_USER_SHORT
DEFAULTVALUE = USER_SHORT_NAME
End Select
If LogErrorsOnly = False Then ClassLogger.Add(" >> Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)