MS Anpassungen Views und Spalten

This commit is contained in:
Developer01
2025-02-20 08:26:52 +01:00
parent 81b0e44d45
commit 6945585ca3
20 changed files with 901 additions and 741 deletions

View File

@@ -1,4 +1,5 @@
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DevExpress.Internal.WinApi.Windows.UI.Notifications
Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Imports DigitalData.Modules.Logging
Public Class ClassDataASorDB
@@ -22,7 +23,7 @@ Public Class ClassDataASorDB
Return GetDatatable(pSQL, "", "", "", "DB")
End Try
Else
oReturnDT = Database.GetDatatable(pSQL)
oReturnDT = MyDB_DDECM.GetDatatable(pSQL)
End If
Return oReturnDT
Catch ex As Exception
@@ -34,7 +35,7 @@ Public Class ClassDataASorDB
Try
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_LOGIN_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_LOGIN_USER_MODULE As DataTable
DT_LOGIN_USER_MODULE = Database.GetDatatable(oSql)
DT_LOGIN_USER_MODULE = MyDB_DDECM.GetDatatable(oSql)
If DT_LOGIN_USER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
@@ -71,6 +72,7 @@ Public Class ClassDataASorDB
For Each oMode In oSplitWorkMode
Logger.Debug($"oWorkingMode Parameter: {oMode}")
If oMode = "NO_BASICCONF" Then
Logger.Info($"NO_BASICCONF will be set to false")
BASIC_CONF_VISIBLE = False
ElseIf oMode.StartsWith("NOMATCH_INFO") Then
Try
@@ -83,6 +85,7 @@ Public Class ClassDataASorDB
ElseIf oMode.StartsWith("HotkeySearchKey") Then
Try
Dim oResult = oMode.Replace("HotkeySearchKey=", "")
Logger.Info($"HotkeySearchKey via function will be set to [{oResult}]")
HotkeySearchKey = oResult
HotkeySearchKey_via_Server = True
Catch ex As Exception
@@ -90,7 +93,7 @@ Public Class ClassDataASorDB
End Try
Else
Logger.Info($"Wrong oMode: {oMode}")
Logger.Info($"Wrong oMode [{oMode}]")
End If
Next
Return True