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

classDataASorDB

Browse Source
This commit is contained in:
SchreiberM
2020-12-28 11:16:58 +01:00
parent 6ab3bef54d
commit 01db5a2bcf
9 changed files with 192 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
app/DD_Clipboard_Searcher/ClassInit.vb
View File

@@ -9,10 +9,12 @@ Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
Public Class ClassInit
Public _lizenzManager As clsLicenseManager
Public _database As MSSQLServer
Private _DataASorDB As ClassDataASorDB
Public Sub InitLogger()
LogConfig = New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, Application.CompanyName, Application.ProductName)
Logger = LogConfig.GetLogger()
_DataASorDB = New ClassDataASorDB(LogConfig)
Try
Dim directory As New IO.DirectoryInfo(LogConfig.LogDirectory)
@@ -132,7 +134,7 @@ Public Class ClassInit
If ConfigManager.Config.AppServerConfig <> String.Empty Then
Try
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(":")
Dim oSplit() As String = ConfigManager.Config.AppServerConfig.ToString.Split(";")
Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then
@@ -173,10 +175,18 @@ Public Class ClassInit
Return EncryptedConnectionString
End If
End Function
Public Shared Function CheckModuleData()
Public Function CheckModuleData()
Try
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = Database.GetDatatable(sql)
Dim oSql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','CW',{1})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable
DT_CHECKUSER_MODULE = _DataASorDB.GetDatatable(oSql, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'CW'", "", "")
'If APPSERVER_ACTIVE = True Then
' Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'CW'")
' DT_CHECKUSER_MODULE = oTableResult.Table
'Else
' DT_CHECKUSER_MODULE = Database.GetDatatable(oSql)
'End If
If DT_CHECKUSER_MODULE.Rows.Count = 0 Then
Logger.Info("DT_CHECKUSER_MODULE.Rows.Count = 0", True)
'ERROR_STATE = "NO USER"
@@ -259,13 +269,16 @@ Public Class ClassInit
If CheckModuleData() = False Then
Return False
End If
If APPSERVER_ACTIVE = True Then
Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USER_ID = {USER_ID}")
Dim oSQL1 = String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName)
DT_CLIENT_USER = _DataASorDB.GetDatatable(oSQL1, "VWDD_USER_CLIENT", $"USER_ID = {USER_ID}", "", "")
DT_CLIENT_USER = oTableResult.Table
Else
DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName))
End If
'If APPSERVER_ACTIVE = True Then
' Dim oTableResult As TableResult = _Client.GetDatatableByName("VWDD_USER_CLIENT", $"USER_ID = {USER_ID}")
' DT_CLIENT_USER = oTableResult.Table
'Else
' DT_CLIENT_USER = Database.GetDatatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", Environment.UserName))
'End If
If Not IsNothing(DT_CLIENT_USER) Then
If DT_CLIENT_USER.Rows.Count > 1 Then
@@ -362,13 +375,23 @@ Public Class ClassInit
End Function
Public Shared Sub Refresh_Connections()
Public Sub Refresh_Connections()
Try
Dim oSql = String.Format("SELECT * FROM TBDD_CONNECTION")
Dim oDatatable As New MyDataset.TBDD_CONNECTIONDataTable()
Dim oResult = Database.GetDatatable(oSql)
Dim oResult As DataTable
oDatatable = _DataASorDB.GetDatatable(oSql, "TBDD_CONNECTION", "", "", "")
oDatatable.Merge(oResult)
'If APPSERVER_ACTIVE = True Then
' Dim oTableResult As TableResult = _Client.GetDatatableByName("TBDD_CONNECTION")
' oResult = oTableResult.Table
'Else
' oResult = Database.GetDatatable(oSql)
'End If
'oDatatable.Merge(oResult)
DT_CONNECTIONS = oDatatable
Catch ex As Exception