This commit is contained in:
2023-04-13 17:11:20 +02:00
parent aa7c68a4ce
commit 2db575d944
20 changed files with 584 additions and 4214 deletions

View File

@@ -74,6 +74,9 @@ Public Class ClassInit
Else
USER_GUID = USER_DT.Rows(0).Item("GUID")
USER_LANGUAGE = USER_DT.Rows(0).Item("LANGUAGE")
If USER_LANGUAGE <> "de-DE" Then
CAPTION_CONFIRMATION = "Confirmation"
End If
sql = String.Format("SELECT UPDATE_PATH FROM TBDD_VERSION_USER_UPDATE_PATH WHERE USER_ID = {0} AND UPPER(MODULE_NAME) = UPPER('{1}')", USER_GUID, "Record-Organizer")
Dim USER_UPDATE_PATH = clsDatabase.Execute_Scalar(sql)
If Not IsNothing(USER_UPDATE_PATH) Then

View File

@@ -25,6 +25,7 @@ Module ModuleMySettings
Public DT_UPDATE_ITEMS As DataTable
Public ERROR_WHILE_UPDATING As Boolean = False
Public Function LoadFileExclusion()
Dim rowresult As String = ""
Try