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

MS 2.6.4. Global Indexer Terms ersetzen

Browse Source
This commit is contained in:
SchreiberM 2023-03-21 14:28:57 +01:00
parent af7aa23c8f
commit d21475bef6
9 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/FileFlow/FileContentIndex/67dd8188-69a2-464f-8052-40f324424ad9.vsidx
View File

Binary file not shown.

BIN
.vs/FileFlow/FileContentIndex/e4b40a02-d6e4-4051-8d84-a18c40ffd013.vsidx Normal file
View File

Binary file not shown.

4
Global_Indexer/ClassFileHandler.vb
View File

@ -130,9 +130,9 @@ Public Class ClassFileHandler
If oTempFilePath.ToUpper.EndsWith(".LNK") Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "Global Indexer")
MsgBox("Verknüpfungen können nicht abgelegt werden!", MsgBoxStyle.Critical, "File Flow")
Else
MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "Global Indexer")
MsgBox("Shortcuts cannot be droppped!", MsgBoxStyle.Critical, "File Flow")
End If
Return False
End If

2
Global_Indexer/ClassInit.vb
View File

@ -298,7 +298,7 @@ Public Class ClassInit
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Global Indexer!")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für File Flow!")
If USER_IS_ADMIN = False Then
'Anmeldung wieder herausnehmen
oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE= 'Global-Indexer'"

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.6.3.0")>
<Assembly: AssemblyVersion("2.6.4.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

2
Global_Indexer/frmAdministration.en-US.resx
View File

@ -1326,6 +1326,6 @@ The received values can be written to Indicies or used to rename a file.</value>
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Adminconsole Global Indexer</value>
<value>Adminconsole File Flow</value>
</data>
</root>

2
Global_Indexer/frmAdministration.resx
View File

@ -6737,7 +6737,7 @@ Die erhaltenen Werte können in Indizes geschrieben oder zur Benennung der Datei
<value>3, 4, 3, 4</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Global Indexer - Administration</value>
<value>File Flow - Administration</value>
</data>
<data name="&gt;&gt;viewAssignedGroups.Name" xml:space="preserve">
<value>viewAssignedGroups</value>

4
Global_Indexer/frmConfig_Basic.vb
View File

@ -75,8 +75,8 @@ Public Class frmConfig_Basic
USER_ID = DATABASE_ECM.GetScalarValue(sql)
If IsDBNull(USER_ID) Then
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for Global Indexer. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
LOGGER.Info("User '" & Environment.UserName & "' not configured for Global Indexer! (DBNull - frmConfigBasic)")
MsgBox("Attention: Your Username '" & Environment.UserName & "' is not configured for File Flow. this might result in unhandled exceptions!", MsgBoxStyle.Exclamation)
LOGGER.Info("User '" & Environment.UserName & "' not configured for File Flow! (DBNull - frmConfigBasic)")
End If

8
Global_Indexer/frmStart.vb
View File

@ -480,11 +480,11 @@ Public Class frmStart
TimerFolderWatch.Enabled = False
Dim title = "Critical Error"
Dim message = $"Database could not be reached. Global Indexer will NOT work without a database!{vbCrLf}{vbCrLf}Please check your connection.{vbCrLf}The Application will exit now."
Dim message = $"Database could not be reached. File Flow will NOT work without a database!{vbCrLf}{vbCrLf}Please check your connection.{vbCrLf}The Application will exit now."
If USER_LANGUAGE = "de-DE" Then
title = "Kritischer Fehler"
message = $"Die Datenbank konnte nicht erreicht werden. Global Indexer funktioniert NICHT ohne Datenbankverbindung{vbCrLf}{vbCrLf}Bitte überprüfen Sie Ihre Netzwerkverbindung oder benachrichtigen Sie Ihren Administrator.{vbCrLf}Die Anwendung wird nun geschlossen."
message = $"Die Datenbank konnte nicht erreicht werden. File Flow funktioniert NICHT ohne Datenbankverbindung{vbCrLf}{vbCrLf}Bitte überprüfen Sie Ihre Netzwerkverbindung oder benachrichtigen Sie Ihren Administrator.{vbCrLf}Die Anwendung wird nun geschlossen."
End If
Dim result = MsgBox(message, MsgBoxStyle.Critical, title)
@ -573,9 +573,9 @@ Public Class frmStart
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If LICENSE_EXPIRED = True Or LICENSE_COUNT < USERCOUNT_LOGGED_IN Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
MsgBox("File Flow wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
Else
MsgBox("Global Indexer will now be closed, cause no new license was updated!", MsgBoxStyle.Information)
MsgBox("File Flow will now be closed, cause no new license was updated!", MsgBoxStyle.Information)
End If
Me.Close()